Price Data Components
Orders Execution
Indicators Used
1
Views
0
Downloads
0
Favorites
Basic Martingale EA 3
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | P r o j e c t N a m e |
/ / | C o p y r i g h t 2 0 2 4 , C o m p a n y N a m e |
/ / | h t t p : / / w w w . c o m p a n y n a m e . n e t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# p r o p e r t y c o p y r i g h t " C o p y r i g h t 2 0 2 4 "
# p r o p e r t y l i n k " d r d z 9 8 7 6 @ g m a i l . c o m "
# p r o p e r t y v e r s i o n " 3 . 0 "
# i n c l u d e < T r a d e \ P o s i t i o n I n f o . m q h > C P o s i t i o n I n f o m _ p o s i t i o n ;
# i n c l u d e < T r a d e \ T r a d e . m q h > C T r a d e t r a d e ;
e n u m M a r t i n M o d e
{
M u l t i p l y , / / M u l t i p l y
I n c r e m e n t / / A d d i t i o n
} ;
e n u m A v e r a g i n g M o d e
{
A v e r a g e D o w n , / / A v e r a g e D o w n
A v e r a g e U p , / / A v e r a g e U p
N o n e / / N o A v e r a g e
} ;
s i n p u t c o n s t s t r i n g M m = " " ; / / - = [ M o n e y M a n a g e m e n t S e t t i n g s ] = -
i n p u t d o u b l e i S t a r t L o t s = 0 . 0 1 ; / / C o n s t a n t l o t
s i n p u t c o n s t s t r i n g S L T P = " " ; / / - = [ S L - T P S e t t i n g s ] = -
i n p u t d o u b l e S t o p L o s s = 2 0 ; / / S t o p L o s s
i n p u t d o u b l e T a k e P r o f i t = 2 0 ; / / T a k e P r o f i t
s i n p u t c o n s t s t r i n g T i m e = " " ; / / - = [ T i m e S e t t i n g s ] = -
i n p u t i n t S t a r t T i m e = 3 ; / / O p e n i n g T i m e ( S e r v e r T i m e )
i n p u t i n t E n d T i m e = 1 8 ; / / L a s t O p e n P o s i t i o n T i m e ( S e r v e r T i m e )
s i n p u t c o n s t s t r i n g s i g n a l = " " ; / / - = [ S i g n a l S e t t i n g s ] = -
i n p u t E N U M _ T I M E F R A M E S P e r i o d 1 = P E R I O D _ H 1 ; / / E n t r y S i g n a l T i m e f r a m e
s i n p u t c o n s t s t r i n g I n d i c a t o r = " " ; / / - = [ I n d i c a t o r S e t t i n g s ] = -
i n p u t i n t b a r = 3 ; / / B a r s C a l c u l a t e d
i n p u t E N U M _ T I M E F R A M E S A T R T F = P E R I O D _ C U R R E N T ; / / A T R T i m e f r a m e
i n p u t i n t A T R P e r i o d = 1 4 ; / / A T R P e r i o d
s i n p u t c o n s t s t r i n g M a r t i n = " " ; / / - = [ M a r t i n g a l e S e t t i n g s ] = -
i n p u t A v e r a g i n g M o d e A v e r a g e M o d e = A v e r a g e D o w n ; / / C h o o s e A v e r a g i n g M o d e
i n p u t M a r t i n M o d e M a r t i n s M o d e = M u l t i p l y ; / / C h o o s e A v e r a g i n g / M a r t i n g a l e M o d e
i n p u t d o u b l e L o t M u l t i p l i e r = 1 . 5 ; / / L o t M u l t i p l i e r
i n p u t d o u b l e L o t I n c r e m e n t = 0 . 1 ; / / A d d i t i o n a l L o t f o r A v e r a g i n g
i n p u t d o u b l e G r i d M u l t i p l i e r = 0 . 7 5 ; / / G r i d M u l t i p l i e r ( i n A T R )
i n p u t i n t M a x A v e r a g e O r d e r s = 3 ; / / M a x A v e r a g e O r d e r s
s i n p u t c o n s t s t r i n g O t h e r = " " ; / / - = [ O t h e r S e t t i n g s ] = -
i n p u t b o o l T r a d e A t N e w B a r = f a l s e ; / / T r a d e a t N e w B a r
i n p u t i n t i M a g i c N u m b e r = 2 2 7 ; / / M a g i c N u m b e r
i n p u t i n t i S l i p p a g e = 1 0 ; / / S l i p p a g e / D e v i a t i o n
i n p u t i n t T r a i l i n g S t a r t = 1 0 0 ; / / D i s t a n c e f r o m S t a r t P r i c e ( f o r A v e r a g e U p O n l y )
i n p u t i n t T r a i l i n g S t o p = 5 0 ; / / T r a i l i n g S t o p ( i n P o i n t s )
i n p u t i n t T r a i l i n g S t e p = 3 0 ; / / T r a i l i n g S t e p ( i n P o i n t s )
i n p u t s t r i n g C o m m e n t a r y = " B a s i c M a r t i n g a l e E A " ; / / O r d e r C o m m e n t
i n p u t b o o l C h a r t I n f o = t r u e ; / / D i s p l a y C h a r t I n f o
/ / - - -
d o u b l e P i p V a l u e = 1 ; / / t h i s v a r i a b l e i s h e r e t o s u p p o r t 5 - d i g i t b r o k e r s
i n t T E M A , A T R ;
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / * * /
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
i n t O n I n i t ( v o i d )
{
C o m m e n t ( " " ) ;
t r a d e . L o g L e v e l ( L O G _ L E V E L _ E R R O R S ) ;
t r a d e . S e t E x p e r t M a g i c N u m b e r ( i M a g i c N u m b e r ) ;
t r a d e . S e t D e v i a t i o n I n P o i n t s ( i S l i p p a g e ) ;
t r a d e . S e t M a r g i n M o d e ( ) ;
t r a d e . S e t T y p e F i l l i n g ( O R D E R _ F I L L I N G _ F O K ) ;
t r a d e . S e t T y p e F i l l i n g B y S y m b o l ( S y m b o l ( ) ) ;
/ / I n d i c a t o r s
T E M A = i T E M A ( S y m b o l ( ) , P e r i o d 1 , 5 0 , 0 , P R I C E _ C L O S E ) ;
i f ( T E M A = = I N V A L I D _ H A N D L E )
{
P r i n t ( " E r r o r s f o r C r e a t e T E M A I n d i c a t o r " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( I N I T _ F A I L E D ) ;
}
A T R = i A T R ( S y m b o l ( ) , A T R T F , A T R P e r i o d ) ;
i f ( A T R = = I N V A L I D _ H A N D L E )
{
P r i n t ( " E r r o r s f o r C r e a t e A T R I n d i c a t o r " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( I N I T _ F A I L E D ) ;
}
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n D e i n i t ( c o n s t i n t r e a s o n )
{
O b j e c t D e l e t e ( C h a r t I D ( ) , " B a c k g r o u n d " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c N u m b e r " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c L e v e r a g e " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c B a l a n c e " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c E q u i t y " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c M a r g i n " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c F M a r g i n " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c P r o f i t " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " S i g n a l 1 " ) ;
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l c r e a t e B a c k g r o u n d ( s t r i n g n a m e )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , n a m e , O B J _ R E C T A N G L E _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ Y D I S T A N C E , 1 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ X S I Z E , 3 0 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ Y S I Z E , 3 0 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ B O R D E R _ T Y P E , B O R D E R _ F L A T ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ W I D T H , 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ B A C K , f a l s e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ S E L E C T A B L E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ H I D D E N , t r u e ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l c r e a t e O b j e c t ( s t r i n g n a m e , s t r i n g t e x t , i n t x , i n t y , i n t s i z e , i n t c l r )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ U P P E R ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , n a m e , O B J P R O P _ T E X T , t e x t ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ F O N T S I Z E , s i z e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , n a m e , O B J P R O P _ C O L O R , c l r ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i c k ( v o i d )
{
i f ( C h a r t I n f o )
{
c r e a t e B a c k g r o u n d ( " B a c k g r o u n d " ) ;
c r e a t e O b j e c t ( " A c c N u m b e r " , " A c c o u n t N u m b e r : " + I n t e g e r T o S t r i n g ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) , 0 ) , 1 5 , 2 0 , 1 6 , c l r R e d ) ;
c r e a t e O b j e c t ( " A c c L e v e r a g e " , " A c c o u n t L e v e r a g e : " + I n t e g e r T o S t r i n g ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L E V E R A G E ) , 2 ) , 1 5 , 4 5 , 1 0 , c l r W h i t e ) ;
c r e a t e O b j e c t ( " A c c B a l a n c e " , " A c c o u n t B a l a n c e : " + D o u b l e T o S t r i n g ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) , 2 ) , 1 5 , 6 5 , 1 0 , c l r W h i t e ) ;
c r e a t e O b j e c t ( " A c c E q u i t y " , " A c c o u n t E q u i t y : " + D o u b l e T o S t r i n g ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ E Q U I T Y ) , 2 ) , 1 5 , 8 5 , 1 0 , c l r W h i t e ) ;
c r e a t e O b j e c t ( " A c c M a r g i n " , " A c c o u n t M a r g i n : " + D o u b l e T o S t r i n g ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ M A R G I N ) , 2 ) , 1 5 , 1 0 5 , 1 0 , c l r W h i t e ) ;
c r e a t e O b j e c t ( " A c c F M a r g i n " , " A c c o u n t F r e e M a r g i n : " + D o u b l e T o S t r i n g ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ M A R G I N _ F R E E ) , 2 ) , 1 5 , 1 2 5 , 1 0 , c l r W h i t e ) ;
c r e a t e O b j e c t ( " A c c P r o f i t " , " F l o a t i n g P / L : " + D o u b l e T o S t r i n g ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ P R O F I T ) , 2 ) , 1 5 , 1 5 5 , 1 6 , c l r R e d ) ;
c r e a t e O b j e c t ( " S i g n a l 1 " , E n u m T o S t r i n g ( P e r i o d 1 ) + " E n t r y S i g n a l : " + S i g ( S y m b o l ( ) ) , 1 5 , 1 8 5 , 1 0 , c l r R e d ) ;
}
i f ( ! C h a r t I n f o )
{
O b j e c t D e l e t e ( C h a r t I D ( ) , " B a c k g r o u n d " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c N u m b e r " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c L e v e r a g e " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c B a l a n c e " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c E q u i t y " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c M a r g i n " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c F M a r g i n " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " A c c P r o f i t " ) ;
O b j e c t D e l e t e ( C h a r t I D ( ) , " S i g n a l 1 " ) ;
}
T r a d e ( S y m b o l ( ) ) ;
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d T r a d e ( s t r i n g s y m )
{
i f ( ! R e f r e s h R a t e s ( s y m ) )
{
P r i n t ( " C a n ' t L o a d " + s y m + " D a t a " ) ;
r e t u r n ;
}
d o u b l e a s k = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ A S K ) ;
d o u b l e b i d = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ B I D ) ;
d o u b l e p o i n t s = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ P O I N T ) ;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m , S Y M B O L _ D I G I T S ) ;
i f ( d i g i t s = = 3 | | d i g i t s = = 5 )
P i p V a l u e = 1 0 ;
d o u b l e
B u y P r i c e M a x = 0 , B u y P r i c e M i n = 0 , B u y P r i c e M a x L o t = 0 , B u y P r i c e M i n L o t = 0 ,
S e l P r i c e M i n = 0 , S e l P r i c e M a x = 0 , S e l P r i c e M i n L o t = 0 , S e l P r i c e M a x L o t = 0 ;
u l o n g
B u y P r i c e M a x T i c = 0 , B u y P r i c e M i n T i c = 0 , S e l P r i c e M a x T i c = 0 , S e l P r i c e M i n T i c = 0 ;
u l o n g t k b = 0 , t k s = 0 ;
d o u b l e
o p = 0 , l t = 0 , t p b = 0 , t p s = 0 , s l b = 0 , s l s = 0 ;
i n t b = 0 , s = 0 , O p e n s = 0 ;
f o r ( i n t k = P o s i t i o n s T o t a l ( ) - 1 ; k > = 0 ; k - - )
{
i f ( m _ p o s i t i o n . S e l e c t B y I n d e x ( k ) )
{
i f ( m _ p o s i t i o n . S y m b o l ( ) = = s y m )
{
i f ( m _ p o s i t i o n . M a g i c ( ) = = i M a g i c N u m b e r )
{
o p = N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) , d i g i t s ) ;
l t = N o r m a l i z e D o u b l e ( m _ p o s i t i o n . V o l u m e ( ) , 2 ) ;
O p e n s + + ;
i f ( m _ p o s i t i o n . S e l e c t ( s y m ) & & m _ p o s i t i o n . P o s i t i o n T y p e ( ) = = P O S I T I O N _ T Y P E _ B U Y )
{
b + + ;
t p b = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) ;
s l b = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ S L ) ;
t k b = m _ p o s i t i o n . T i c k e t ( ) ;
i f ( o p > B u y P r i c e M a x | | B u y P r i c e M a x = = 0 )
{
B u y P r i c e M a x = o p ;
B u y P r i c e M a x L o t = l t ;
B u y P r i c e M a x T i c = t k b ;
}
i f ( o p < B u y P r i c e M i n | | B u y P r i c e M i n = = 0 )
{
B u y P r i c e M i n = o p ;
B u y P r i c e M i n L o t = l t ;
B u y P r i c e M i n T i c = t k b ;
}
}
/ / = = =
e l s e
i f ( m _ p o s i t i o n . S e l e c t ( s y m ) & & m _ p o s i t i o n . P o s i t i o n T y p e ( ) = = P O S I T I O N _ T Y P E _ S E L L )
{
s + + ;
t p s = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) ;
s l s = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ S L ) ;
t k s = m _ p o s i t i o n . T i c k e t ( ) ;
i f ( o p > S e l P r i c e M a x | | S e l P r i c e M a x = = 0 )
{
S e l P r i c e M a x = o p ;
S e l P r i c e M a x L o t = l t ;
S e l P r i c e M a x T i c = t k s ;
}
i f ( o p < S e l P r i c e M i n | | S e l P r i c e M i n = = 0 )
{
S e l P r i c e M i n = o p ;
S e l P r i c e M i n L o t = l t ;
S e l P r i c e M i n T i c = t k s ;
}
}
}
}
}
}
d o u b l e B u y L o t = 0 , S e l L o t = 0 ;
i f ( M a r t i n s M o d e = = M u l t i p l y )
{
B u y L o t = N o r m a l i z e D o u b l e ( B u y P r i c e M i n L o t * L o t M u l t i p l i e r , 2 ) ;
S e l L o t = N o r m a l i z e D o u b l e ( S e l P r i c e M a x L o t * L o t M u l t i p l i e r , 2 ) ;
}
e l s e
i f ( M a r t i n s M o d e = = I n c r e m e n t )
{
B u y L o t = N o r m a l i z e D o u b l e ( B u y P r i c e M i n L o t + L o t I n c r e m e n t , 2 ) ;
S e l L o t = N o r m a l i z e D o u b l e ( S e l P r i c e M a x L o t + L o t I n c r e m e n t , 2 ) ;
}
i f ( ! C h e c k V o l u m e V a l u e ( s y m , i S t a r t L o t s ) )
r e t u r n ;
d o u b l e S L s e l l = 0 , S L b u y = 0 , T P b u y = 0 , T P s e l l = 0 ;
i f ( S t o p L o s s > 0 )
{
S L b u y = N o r m a l i z e D o u b l e ( a s k - S t o p L o s s * P i p V a l u e * p o i n t s , d i g i t s ) ;
S L s e l l = N o r m a l i z e D o u b l e ( b i d + S t o p L o s s * P i p V a l u e * p o i n t s , d i g i t s ) ;
}
e l s e
{
S L b u y = 0 ;
S L s e l l = 0 ;
}
i f ( T a k e P r o f i t > 0 )
{
T P b u y = N o r m a l i z e D o u b l e ( a s k + T a k e P r o f i t * P i p V a l u e * p o i n t s , d i g i t s ) ;
T P s e l l = N o r m a l i z e D o u b l e ( b i d - T a k e P r o f i t * P i p V a l u e * p o i n t s , d i g i t s ) ;
}
e l s e
{
T P b u y = 0 ;
T P s e l l = 0 ;
}
i f ( ( ( T r a d e A t N e w B a r & & i s N e w B a r ( s y m ) ) | | ( ! T r a d e A t N e w B a r ) ) & & T i m e s ( ) )
{
i f ( ! O p e n s )
{
i f ( b = = 0 & & ( S i g ( s y m ) = = " B U Y " ) & & C h e c k M o n e y F o r T r a d e ( s y m , i S t a r t L o t s , O R D E R _ T Y P E _ B U Y ) )
{
i f ( ! t r a d e . B u y ( N o r m a l i z e D o u b l e ( i S t a r t L o t s , 2 ) , s y m , N o r m a l i z e D o u b l e ( a s k , d i g i t s ) , S L b u y , T P b u y , C o m m e n t a r y ) )
P r i n t ( " O p e n T r a d e e r r o r # " , G e t L a s t E r r o r ( ) ) ;
e l s e
P r i n t ( " O p e n T r a d e S u c c e s s " ) ;
}
e l s e
i f ( s = = 0 & & ( S i g ( s y m ) = = " S E L L " ) & & C h e c k M o n e y F o r T r a d e ( s y m , i S t a r t L o t s , O R D E R _ T Y P E _ S E L L ) )
{
i f ( ! t r a d e . S e l l ( N o r m a l i z e D o u b l e ( i S t a r t L o t s , 2 ) , s y m , N o r m a l i z e D o u b l e ( b i d , d i g i t s ) , S L s e l l , T P s e l l , C o m m e n t a r y ) )
P r i n t ( " O p e n T r a d e e r r o r # " , G e t L a s t E r r o r ( ) ) ;
e l s e
P r i n t ( " O p e n T r a d e S u c c e s s " ) ;
}
}
}
i f ( O p e n s )
{
d o u b l e a t r B u f f e r [ ] ;
A r r a y R e s i z e ( a t r B u f f e r , b a r ) ;
A r r a y S e t A s S e r i e s ( a t r B u f f e r , t r u e ) ;
i f ( C o p y B u f f e r ( A T R , 0 , 0 , b a r , a t r B u f f e r ) < 0 )
r e t u r n ;
i f ( A v e r a g e M o d e = = A v e r a g e D o w n )
{
i f ( b > 0 & & C h e c k M o n e y F o r T r a d e ( s y m , B u y L o t , O R D E R _ T Y P E _ B U Y ) )
{
i f ( b < M a x A v e r a g e O r d e r s & & B u y P r i c e M i n - a s k > = G r i d M u l t i p l i e r * a t r B u f f e r [ 1 ] )
{
i f ( ! t r a d e . B u y ( N o r m a l i z e D o u b l e ( B u y L o t , 2 ) , s y m , N o r m a l i z e D o u b l e ( a s k , d i g i t s ) , s l b , t p b , C o m m e n t a r y ) )
P r i n t ( " A v e r a g i n g D o w n e r r o r # " , G e t L a s t E r r o r ( ) ) ;
e l s e
P r i n t ( " A v e r a g i n g D o w n S u c c e s s " ) ;
r e t u r n ;
}
}
e l s e
i f ( s > 0 & & C h e c k M o n e y F o r T r a d e ( s y m , S e l L o t , O R D E R _ T Y P E _ S E L L ) )
{
i f ( s < M a x A v e r a g e O r d e r s & & b i d - S e l P r i c e M a x > = G r i d M u l t i p l i e r * a t r B u f f e r [ 1 ] )
{
i f ( ! t r a d e . S e l l ( N o r m a l i z e D o u b l e ( S e l L o t , 2 ) , s y m , N o r m a l i z e D o u b l e ( b i d , d i g i t s ) , s l s , t p s , C o m m e n t a r y ) )
P r i n t ( " A v e r a g i n g D o w n e r r o r # " , G e t L a s t E r r o r ( ) ) ;
e l s e
P r i n t ( " A v e r a g i n g D o w n S u c c e s s " ) ;
r e t u r n ;
}
}
i f ( b < = 1 )
{
T r a i l i n g ( s y m ) ;
}
i f ( b > 1 )
{
i f ( P r o f i t L o s s O r d e r s ( s y m ) > 1 )
C l o s e A l l ( s y m ) ;
}
i f ( s < = 1 )
{
T r a i l i n g ( s y m ) ;
}
i f ( s > 1 )
{
i f ( P r o f i t L o s s O r d e r s ( s y m ) > 1 )
C l o s e A l l ( s y m ) ;
}
}
e l s e
i f ( A v e r a g e M o d e = = A v e r a g e U p )
{
i f ( b > 0 & & C h e c k M o n e y F o r T r a d e ( s y m , B u y L o t , O R D E R _ T Y P E _ B U Y ) )
{
i f ( b < M a x A v e r a g e O r d e r s & & a s k - G r i d M u l t i p l i e r * a t r B u f f e r [ 1 ] > = B u y P r i c e M a x )
{
i f ( ! t r a d e . B u y ( N o r m a l i z e D o u b l e ( B u y L o t , 2 ) , s y m , N o r m a l i z e D o u b l e ( a s k , d i g i t s ) , s l b , t p b , C o m m e n t a r y ) )
P r i n t ( " A v e r a g i n g U p e r r o r # " , G e t L a s t E r r o r ( ) ) ;
e l s e
P r i n t ( " A v e r a g i n g U p S u c c e s s " ) ;
r e t u r n ;
}
}
e l s e
i f ( s > 0 & & C h e c k M o n e y F o r T r a d e ( s y m , S e l L o t , O R D E R _ T Y P E _ S E L L ) )
{
i f ( s < M a x A v e r a g e O r d e r s & & S e l P r i c e M i n - G r i d M u l t i p l i e r * a t r B u f f e r [ 1 ] > = b i d )
{
i f ( ! t r a d e . S e l l ( N o r m a l i z e D o u b l e ( S e l L o t , 2 ) , s y m , N o r m a l i z e D o u b l e ( b i d , d i g i t s ) , s l s , t p s , C o m m e n t a r y ) )
P r i n t ( " A v e r a g i n g U p e r r o r # " , G e t L a s t E r r o r ( ) ) ;
e l s e
P r i n t ( " A v e r a g i n g U p S u c c e s s " ) ;
r e t u r n ;
}
}
d o u b l e T r a i l S t a r t = 0 ;
i f ( b > = M a x A v e r a g e O r d e r s )
{
T r a i l S t a r t = B u y P r i c e M i n + T r a i l i n g S t a r t * p o i n t s ;
A v e r a g e U p T r a i l ( s y m , T r a i l S t a r t , T r a i l i n g S t o p , T r a i l i n g S t e p ) ;
}
i f ( s > = M a x A v e r a g e O r d e r s )
{
T r a i l S t a r t = S e l P r i c e M a x - T r a i l i n g S t a r t * p o i n t s ;
A v e r a g e U p T r a i l ( s y m , T r a i l S t a r t , T r a i l i n g S t o p , T r a i l i n g S t e p ) ;
}
}
e l s e
i f ( A v e r a g e M o d e = = N o n e )
{
T r a i l i n g ( s y m ) ;
}
}
R e s e t L a s t E r r o r ( ) ;
r e t u r n ;
}
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / * * /
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
b o o l C h e c k V o l u m e V a l u e ( s t r i n g s y m , d o u b l e v o l u m e )
{
/ / - - - <8=8<0;L=> 4>?CAB8<K9 >1J5< 4;O B>@3>2KE >?5@0F89
d o u b l e m i n _ v o l u m e = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ V O L U M E _ M I N ) ;
i f ( v o l u m e < m i n _ v o l u m e )
r e t u r n ( f a l s e ) ;
/ / - - - <0:A8<0;L=> 4>?CAB8<K9 >1J5< 4;O B>@3>2KE >?5@0F89
d o u b l e m a x _ v o l u m e = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ V O L U M E _ M A X ) ;
i f ( v o l u m e > m a x _ v o l u m e )
r e t u r n ( f a l s e ) ;
/ / - - - ?>;CG8< <8=8<0;L=CN 3@040F8N >1J5<0
d o u b l e v o l u m e _ s t e p = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ V O L U M E _ S T E P ) ;
i n t r a t i o = ( i n t ) M a t h R o u n d ( v o l u m e / v o l u m e _ s t e p ) ;
i f ( M a t h A b s ( r a t i o * v o l u m e _ s t e p - v o l u m e ) > 0 . 0 0 0 0 0 0 1 )
r e t u r n ( f a l s e ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l T i m e s ( )
{
M q l D a t e T i m e c u r r T i m e ;
T i m e C u r r e n t ( c u r r T i m e ) ;
i n t h o u r 0 = c u r r T i m e . h o u r ;
i f ( S t a r t T i m e < E n d T i m e )
i f ( h o u r 0 < S t a r t T i m e | | h o u r 0 > = E n d T i m e )
r e t u r n ( f a l s e ) ;
i f ( S t a r t T i m e > E n d T i m e )
i f ( h o u r 0 > = E n d T i m e | | h o u r 0 < S t a r t T i m e )
r e t u r n ( f a l s e ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d C l o s e A l l ( s t r i n g s y m )
{
i n t t o t a l = P o s i t i o n s T o t a l ( ) ;
f o r ( i n t k = t o t a l - 1 ; k > = 0 ; k - - )
i f ( m _ p o s i t i o n . S e l e c t B y I n d e x ( k ) )
i f ( m _ p o s i t i o n . S y m b o l ( ) = = s y m )
i f ( m _ p o s i t i o n . M a g i c ( ) = = i M a g i c N u m b e r )
{
/ / p o s i t i o n w i t h a p p r o p r i a t e O R D E R _ M A G I C , s y m b o l a n d o r d e r t y p e
t r a d e . P o s i t i o n C l o s e ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I C K E T ) , i S l i p p a g e ) ;
P r i n t ( " A l l P o s i t i o n s C l o s e d S u c c e s s f u l l y " ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e G e t P r o f i t ( s t r i n g s y m )
{
d o u b l e p r o f i t = 0 ;
d o u b l e f l o a t i n g = 0 ;
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
s t r i n g s y m b o l = P o s i t i o n G e t S y m b o l ( i ) ;
i f ( s y m b o l = = s y m )
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) = = i M a g i c N u m b e r )
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ B U Y | | P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ S E L L )
{
p r o f i t + = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R O F I T ) + P o s i t i o n G e t D o u b l e ( P O S I T I O N _ S W A P ) + P o s i t i o n G e t D o u b l e ( P O S I T I O N _ C O M M I S S I O N ) ;
f l o a t i n g = p r o f i t ;
}
} / / 3
} / / 2
} / / 1
r e t u r n ( f l o a t i n g ) ;
} / / 0
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C h e c k M o n e y F o r T r a d e ( s t r i n g s y m b , d o u b l e l o t s , E N U M _ O R D E R _ T Y P E t y p e )
{
/ / - - - G e t t i n g t h e o p e n i n g p r i c e
M q l T i c k m q l t i c k ;
S y m b o l I n f o T i c k ( s y m b , m q l t i c k ) ;
d o u b l e p r i c e = m q l t i c k . a s k ;
i f ( t y p e = = O R D E R _ T Y P E _ S E L L )
p r i c e = m q l t i c k . b i d ;
/ / - - - v a l u e s o f t h e r e q u i r e d a n d f r e e m a r g i n
d o u b l e m a r g i n , f r e e _ m a r g i n = A c c o u n t I n f o D o u b l e ( A C C O U N T _ M A R G I N _ F R E E ) ;
/ / - - - c a l l o f t h e c h e c k i n g f u n c t i o n
i f ( ! O r d e r C a l c M a r g i n ( t y p e , s y m b , l o t s , p r i c e , m a r g i n ) )
{
/ / - - - s o m e t h i n g w e n t w r o n g , r e p o r t a n d r e t u r n f a l s e
r e t u r n ( f a l s e ) ;
}
/ / - - - i f t h e r e a r e i n s u f f i c i e n t f u n d s t o p e r f o r m t h e o p e r a t i o n
i f ( m a r g i n > f r e e _ m a r g i n )
{
/ / - - - r e p o r t t h e e r r o r a n d r e t u r n f a l s e
r e t u r n ( f a l s e ) ;
}
/ / - - - c h e c k i n g s u c c e s s f u l
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l i s N e w B a r ( s t r i n g s y m )
{
s t a t i c d a t e t i m e d t B a r C u r r e n t = W R O N G _ V A L U E ;
d a t e t i m e d t B a r P r e v i o u s = d t B a r C u r r e n t ;
d t B a r C u r r e n t = ( d a t e t i m e ) S e r i e s I n f o I n t e g e r ( s y m , P e r i o d ( ) , S E R I E S _ L A S T B A R _ D A T E ) ;
b o o l N e w B a r F l a g = ( d t B a r C u r r e n t ! = d t B a r P r e v i o u s ) ;
i f ( N e w B a r F l a g )
r e t u r n ( t r u e ) ;
e l s e
r e t u r n ( f a l s e ) ;
r e t u r n ( f a l s e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l R e f r e s h R a t e s ( s t r i n g s y m )
{
d o u b l e a s k = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ A S K ) ;
d o u b l e b i d = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ B I D ) ;
/ / - - - p r o t e c t i o n a g a i n s t t h e r e t u r n v a l u e o f " z e r o "
i f ( a s k = = 0 | | b i d = = 0 )
r e t u r n ( f a l s e ) ;
/ / - - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g S i g ( s t r i n g s y m )
{
d o u b l e c l o s e [ ] , e m a [ ] ;
A r r a y R e s i z e ( c l o s e , b a r ) ;
A r r a y R e s i z e ( e m a , b a r ) ;
A r r a y S e t A s S e r i e s ( c l o s e , t r u e ) ;
A r r a y S e t A s S e r i e s ( e m a , t r u e ) ;
i f ( C o p y B u f f e r ( T E M A , 0 , 0 , b a r , e m a ) < 0 )
r e t u r n ( " N O S I G N A L " ) ;
i f ( C o p y C l o s e ( s y m , P e r i o d 1 , 0 , b a r , c l o s e ) < 0 )
r e t u r n ( " N O S I G N A L " ) ;
i f ( c l o s e [ 0 ] > e m a [ 0 ] )
r e t u r n ( " B U Y " ) ;
e l s e
i f ( c l o s e [ 0 ] < e m a [ 0 ] )
r e t u r n ( " S E L L " ) ;
e l s e
r e t u r n ( " N O S I G N A L " ) ;
r e t u r n ( " N O S I G N A L " ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d T r a i l i n g ( s t r i n g s y m )
{
i n t b = 0 , s = 0 ;
u l o n g T i c k e t B = 0 , T i c k e t S = 0 ;
d o u b l e T P = 0 , S L = 0 , O P = 0 ;
d o u b l e a s k = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ A S K ) ;
d o u b l e b i d = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ B I D ) ;
d o u b l e p o i n t s = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ P O I N T ) ;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m , S Y M B O L _ D I G I T S ) ;
i n t S t o p L e v e l = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m , S Y M B O L _ T R A D E _ S T O P S _ L E V E L ) ;
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( m _ p o s i t i o n . S e l e c t B y I n d e x ( i ) ) / / s e l e c t s t h e p o s i t i o n b y i n d e x f o r f u r t h e r a c c e s s t o i t s p r o p e r t i e s
i f ( m _ p o s i t i o n . S y m b o l ( ) = = s y m )
i f ( m _ p o s i t i o n . M a g i c ( ) = = i M a g i c N u m b e r )
{
i f ( m _ p o s i t i o n . S e l e c t ( s y m ) & & m _ p o s i t i o n . P o s i t i o n T y p e ( ) = = P O S I T I O N _ T Y P E _ B U Y )
{
b + + ;
T i c k e t B = m _ p o s i t i o n . T i c k e t ( ) ;
T P = m _ p o s i t i o n . T a k e P r o f i t ( ) ;
S L = m _ p o s i t i o n . S t o p L o s s ( ) ;
O P = m _ p o s i t i o n . P r i c e O p e n ( ) ;
}
i f ( m _ p o s i t i o n . S e l e c t ( s y m ) & & m _ p o s i t i o n . P o s i t i o n T y p e ( ) = = P O S I T I O N _ T Y P E _ S E L L )
{
s + + ;
T i c k e t S = m _ p o s i t i o n . T i c k e t ( ) ;
T P = m _ p o s i t i o n . T a k e P r o f i t ( ) ;
S L = m _ p o s i t i o n . S t o p L o s s ( ) ;
O P = m _ p o s i t i o n . P r i c e O p e n ( ) ;
}
}
/ / - - -
i f ( b > 0 )
{
i f ( b i d - O P > ( T r a i l i n g S t o p + 1 0 ) * p o i n t s & & ( S L < O P | | S L = = 0 ) )
{
i f ( ! t r a d e . P o s i t i o n M o d i f y ( T i c k e t B , N o r m a l i z e D o u b l e ( O P + T r a i l i n g S t o p * p o i n t s , d i g i t s ) , T P ) )
P r i n t ( " B r e a k e v e n e r r o r # " , G e t L a s t E r r o r ( ) ) ;
e l s e
P r i n t ( " B r e a k e v e n s u c c e s s " ) ;
r e t u r n ;
}
i f ( S L ! = 0 & & S L > O P & & b i d - S L > ( T r a i l i n g S t e p + 5 ) * p o i n t s )
{
i f ( ! t r a d e . P o s i t i o n M o d i f y ( T i c k e t B , N o r m a l i z e D o u b l e ( S L + T r a i l i n g S t e p * p o i n t s , d i g i t s ) , T P ) )
P r i n t ( " T r a i l i n g e r r o r # " , G e t L a s t E r r o r ( ) ) ;
e l s e
P r i n t ( " T r a i l i n g s u c c e s s " ) ;
r e t u r n ;
}
}
i f ( s > 0 )
{
i f ( O P - a s k > ( T r a i l i n g S t o p + 1 0 ) * p o i n t s & & ( S L > O P | | S L = = 0 ) )
{
i f ( ! t r a d e . P o s i t i o n M o d i f y ( T i c k e t S , N o r m a l i z e D o u b l e ( O P - T r a i l i n g S t o p * p o i n t s , d i g i t s ) , T P ) )
P r i n t ( " B r e a k e v e n e r r o r # " , G e t L a s t E r r o r ( ) ) ;
e l s e
P r i n t ( " B r e a k e v e n s u c c e s s " ) ;
r e t u r n ;
}
i f ( S L ! = 0 & & S L < O P & & S L - a s k > ( T r a i l i n g S t e p + 5 ) * p o i n t s )
{
i f ( ! t r a d e . P o s i t i o n M o d i f y ( T i c k e t S , N o r m a l i z e D o u b l e ( S L - T r a i l i n g S t e p * p o i n t s , d i g i t s ) , T P ) )
P r i n t ( " T r a i l i n g e r r o r # " , G e t L a s t E r r o r ( ) ) ;
e l s e
P r i n t ( " T r a i l i n g s u c c e s s " ) ;
r e t u r n ;
}
}
R e s e t L a s t E r r o r ( ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d A v e r a g e U p T r a i l ( s t r i n g s y m , d o u b l e o p e n p r i c e , i n t J u m l a h P o i n , i n t S t e p = 1 )
{
i n t b = 0 , s = 0 ;
u l o n g T i c k e t B = 0 , T i c k e t S = 0 ;
d o u b l e T P = 0 , S L = 0 , O P = 0 ;
d o u b l e a s k = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ A S K ) ;
d o u b l e b i d = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ B I D ) ;
d o u b l e p o i n t s = S y m b o l I n f o D o u b l e ( s y m , S Y M B O L _ P O I N T ) ;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m , S Y M B O L _ D I G I T S ) ;
i n t s t o p L e v e l = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m , S Y M B O L _ T R A D E _ S T O P S _ L E V E L ) ;
d o u b l e T S = J u m l a h P o i n * p o i n t s ;
d o u b l e T S T = S t e p * p o i n t s ;
i f ( T S < s t o p L e v e l * p o i n t s )
T S = s t o p L e v e l * p o i n t s ;
e l s e
T S = T S ;
i f ( T S T < s t o p L e v e l * p o i n t s )
T S T = s t o p L e v e l * p o i n t s ;
e l s e
T S T = T S T ;
i f ( T S < T S T )
{
P r i n t ( " S e t t h e T r a i l i n g S t o p h i g h e r t h a n T r a l i n g S t e p " ) ;
r e t u r n ;
}
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( m _ p o s i t i o n . S e l e c t B y I n d e x ( i ) ) / / s e l e c t s t h e p o s i t i o n b y i n d e x f o r f u r t h e r a c c e s s t o i t s p r o p e r t i e s
i f ( m _ p o s i t i o n . S y m b o l ( ) = = s y m )
i f ( m _ p o s i t i o n . M a g i c ( ) = = i M a g i c N u m b e r )
{
i f ( m _ p o s i t i o n . S e l e c t ( s y m ) & & m _ p o s i t i o n . P o s i t i o n T y p e ( ) = = P O S I T I O N _ T Y P E _ B U Y )
{
b + + ;
T i c k e t B = m _ p o s i t i o n . T i c k e t ( ) ;
T P = m _ p o s i t i o n . T a k e P r o f i t ( ) ;
S L = m _ p o s i t i o n . S t o p L o s s ( ) ;
O P = m _ p o s i t i o n . P r i c e O p e n ( ) ;
}
i f ( m _ p o s i t i o n . S e l e c t ( s y m ) & & m _ p o s i t i o n . P o s i t i o n T y p e ( ) = = P O S I T I O N _ T Y P E _ S E L L )
{
s + + ;
T i c k e t S = m _ p o s i t i o n . T i c k e t ( ) ;
T P = m _ p o s i t i o n . T a k e P r o f i t ( ) ;
S L = m _ p o s i t i o n . S t o p L o s s ( ) ;
O P = m _ p o s i t i o n . P r i c e O p e n ( ) ;
}
}
i f ( b > 0 )
{
i f ( ( S L = = 0 | | S L < = o p e n p r i c e ) & & b i d - o p e n p r i c e > T S + T S T )
{
M o d i f y A l l I n s t a n t ( s y m , o p e n p r i c e + T S ) ;
}
e l s e
i f ( S L > 0 & & S L > o p e n p r i c e & & b i d - S L > T S + T S T + 1 0 * p o i n t s )
{
M o d i f y A l l I n s t a n t ( s y m , S L + T S ) ;
}
}
e l s e
i f ( s > 0 )
{
i f ( ( S L = = 0 | | S L > = o p e n p r i c e ) & & o p e n p r i c e - a s k > T S + T S T )
{
M o d i f y A l l I n s t a n t ( s y m , o p e n p r i c e - T S ) ;
}
e l s e
i f ( S L > 0 & & S L < o p e n p r i c e & & S L - a s k > T S + T S T + 1 0 * p o i n t s )
{
M o d i f y A l l I n s t a n t ( s y m , S L - T S ) ;
}
}
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t P r o f i t L o s s O r d e r s ( s t r i n g s y m )
{
i n t c o u n t = C o u n t P o s i t i o n s ( s y m ) ;
d o u b l e p r o f i t = G e t P r o f i t ( s y m ) ;
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( m _ p o s i t i o n . S e l e c t B y I n d e x ( i ) ) / / s e l e c t s t h e p o s i t i o n b y i n d e x f o r f u r t h e r a c c e s s t o i t s p r o p e r t i e s
i f ( m _ p o s i t i o n . S y m b o l ( ) = = s y m )
i f ( m _ p o s i t i o n . M a g i c ( ) = = i M a g i c N u m b e r )
i f ( m _ p o s i t i o n . T y p e ( ) = = P O S I T I O N _ T Y P E _ B U Y | | m _ p o s i t i o n . T y p e ( ) = = P O S I T I O N _ T Y P E _ S E L L )
{
i f ( c o u n t > 1 )
{
i f ( p r o f i t > 0 )
c o u n t + + ;
i f ( p r o f i t < 0 )
c o u n t - - ;
}
}
r e t u r n ( c o u n t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t C o u n t P o s i t i o n s ( s t r i n g s y m )
{
i n t c o u n t = 0 ;
d o u b l e p r o f i t = 0 ;
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( m _ p o s i t i o n . S e l e c t B y I n d e x ( i ) ) / / s e l e c t s t h e p o s i t i o n b y i n d e x f o r f u r t h e r a c c e s s t o i t s p r o p e r t i e s
i f ( m _ p o s i t i o n . S y m b o l ( ) = = s y m )
i f ( m _ p o s i t i o n . M a g i c ( ) = = i M a g i c N u m b e r )
i f ( m _ p o s i t i o n . T y p e ( ) = = P O S I T I O N _ T Y P E _ B U Y | | m _ p o s i t i o n . T y p e ( ) = = P O S I T I O N _ T Y P E _ S E L L )
{
c o u n t + + ;
}
r e t u r n ( c o u n t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d M o d i f y A l l I n s t a n t ( s t r i n g s y m , d o u b l e s l )
{
/ / - - - d e c l a r e a n d i n i t i a l i z e t h e t r a d e r e q u e s t a n d r e s u l t o f t r a d e r e q u e s t
M q l T r a d e R e q u e s t r e q u e s t ;
M q l T r a d e R e s u l t r e s u l t ;
i n t t o t a l = P o s i t i o n s T o t a l ( ) ; / / n u m b e r o f o p e n p o s i t i o n s
/ / - - - i t e r a t e o v e r a l l o p e n p o s i t i o n s
f o r ( i n t i = t o t a l - 1 ; i > = 0 ; i - - )
{
i f ( P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) = = s y m )
{
Z e r o M e m o r y ( r e q u e s t ) ;
Z e r o M e m o r y ( r e s u l t ) ;
/ / - - - s e t t i n g t h e o p e r a t i o n p a r a m e t e r s
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ S L T P ; / / t y p e o f t r a d e o p e r a t i o n
r e q u e s t . p o s i t i o n = P o s i t i o n G e t T i c k e t ( i ) ; / / t i c k e t o f t h e p o s i t i o n
r e q u e s t . d e v i a t i o n = i S l i p p a g e ;
r e q u e s t . s y m b o l = s y m ; / / s y m b o l
r e q u e s t . s l = s l ; / / S t o p L o s s o f t h e p o s i t i o n
r e q u e s t . t p = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) ; / / T a k e P r o f i t o f t h e p o s i t i o n
/ / - - - o u t p u t i n f o r m a t i o n a b o u t t h e m o d i f i c a t i o n
/ / - - - s e n d t h e r e q u e s t
i f ( ! O r d e r S e n d ( r e q u e s t , r e s u l t ) )
P r i n t F o r m a t ( " O r d e r S e n d e r r o r % d " , G e t L a s t E r r o r ( ) ) ; / / i f u n a b l e t o s e n d t h e r e q u e s t , o u t p u t t h e e r r o r c o d e
/ / - - - i n f o r m a t i o n a b o u t t h e o p e r a t i o n
P r i n t F o r m a t ( " r e t c o d e = % u d e a l = % I 6 4 u o r d e r = % I 6 4 u " , r e s u l t . r e t c o d e , r e s u l t . d e a l , r e s u l t . o r d e r ) ;
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
Comments