1
Views
1
Downloads
0
Favorites
FlySystemEA_v5.5
ÿþ/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
# 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 1 5 - 2 0 1 9 , N i k o l a o s P a n t z o s "
# p r o p e r t y l i n k " h t t p s : / / w w w . m q l 5 . c o m / e n / u s e r s / p a n n i k "
# p r o p e r t y v e r s i o n " 5 . 5 "
# p r o p e r t y d e s c r i p t i o n " T h i s E x p e r t A d v i s o r i s a p u r e s c a l p s y s t e m . "
# p r o p e r t y d e s c r i p t i o n " \ n R u n w e l l i n a n y p a i r w i t h t i g h t s p r e a d a n d l o w c o m m i s s i o n . "
# p r o p e r t y d e s c r i p t i o n " C h o i c e a b r o k e r w i t h f a s t e x e c u t i o n a n d z e r o s t o p l e v e l . "
/ / # p r o p e r t y i c o n " \ \ I m a g e s \ \ F l y S y s t e m _ L o g o . i c o " ;
# p r o p e r t y s t r i c t
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
e n u m M n g { D e l e t e _ R e m a i n , K e e p _ R e m a i n } ;
e n u m M o d i f y { M o d i f y _ B o t h _ W a y s , M o d i f y _ O n e _ W a y } ;
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
e x t e r n s t r i n g O r d e r s S e t t i n g = " | | = = = = = = = = O r d e r s S e t t i n g = = = = = = = = | | " ;
e x t e r n b o o l M o d i f y P e n d i n g = t r u e ;
e x t e r n b o o l M o d i f y M a r k e t = t r u e ;
e x t e r n d o u b l e P e n d i n g O r d e r s D i s t = 4 . 0 ;
e x t e r n i n t D e l a y M o d i f y O r d e r s = 7 ;
e x t e r n d o u b l e S t e p M o d i f y O r d e r s = 1 . 0 ;
e x t e r n d o u b l e O r d e r s S t o p L o s s = 0 . 4 ;
e x t e r n b o o l U s e T a k e P r o f i t = f a l s e ;
e x t e r n d o u b l e O r d e r s T a k e P r o f i t = 1 0 . 0 ;
e x t e r n s t r i n g A d v a n c e d S e t t i n g = " | | = = = = = = = = A d v a n c e d S e t t i n g = = = = = = = = | | " ;
e x t e r n M n g M a n a g e R e m a i n P e n d i n g = D e l e t e _ R e m a i n ;
e x t e r n M o d i f y T y p e M o d i f y P e n d i n g s = M o d i f y _ O n e _ W a y ;
e x t e r n s t r i n g L o t S e t t i n g = " | | = = = = = = = = L o t S e t t i n g = = = = = = = = | | " ;
e x t e r n b o o l A u t o L o t S i z e = f a l s e ;
e x t e r n d o u b l e R i s k F a c t o r = 1 0 ;
e x t e r n d o u b l e M a n u a l L o t S i z e = 0 . 0 1 ;
e x t e r n s t r i n g T i m e F i l t e r S e t s = " | | = = = = = = = = T i m e s S e t t i n g = = = = = = = = | | " ;
e x t e r n b o o l U s e T i m e F i l t e r = f a l s e ;
e x t e r n s t r i n g T i m e S t a r t T r a d e = " 0 0 : 0 0 : 0 0 " ;
e x t e r n s t r i n g T i m e S t o p T r a d e = " 0 0 : 0 0 : 0 0 " ;
e x t e r n s t r i n g E A S e t t i n g = " | | = = = = = = = = E A S e t t i n g = = = = = = = = | | " ;
e x t e r n d o u b l e A c c e p t S t o p L e v e l = 0 . 0 ;
e x t e r n i n t S l i p p a g e = 1 ;
e x t e r n s t r i n g O r d e r s I D I n f o = " 0 : G e n e r a t e a I D p e r S y m b o l " ;
e x t e r n i n t O r d e r s I D = 0 ;
e x t e r n s t r i n g S p r e a d S e t t i n g = " | | = = = = = = = = S p r e a d S e t t i n g = = = = = = = = | | " ;
e x t e r n s t r i n g M a x S p r e a d I n f o = " 0 : N o t c h e c k s p r e a d " ;
e x t e r n d o u b l e M a x S p r e a d = 1 . 0 ;
e x t e r n s t r i n g T y p e O f S p r e a d I n f o = " 1 : U s e A v e r a g e , 2 : U s e C u r r e n t " ;
e x t e r n i n t T y p e O f S p r e a d U s e = 1 ;
e x t e r n s t r i n g C o m m i s i o n s S e t = " | | = = = = = = = = C o m m i s s i o n s S e t t i n g = = = = = = = = | | " ;
e x t e r n d o u b l e C o m m i s s i o n I n P i p = 0 . 0 ;
e x t e r n d o u b l e C o m m i s s i o n I n C u r = 0 . 0 ;
e x t e r n b o o l G e t C o m m i s s i o n A u t o = t r u e ;
e x t e r n s t r i n g I n f o r m a t i o n S e t s = " | | = = = = = = = = I n f o r m a t i o n S e t t i n g = = = = = = = = | | " ;
e x t e r n b o o l C o u n t A v g S p r e a d = t r u e ;
e x t e r n b o o l C o u n t A v g E x e c u t i o n = t r u e ;
e x t e r n b o o l C o u n t A v g S l i p p a g e = t r u e ;
e x t e r n i n t T i m e s F o r A v e r a g e = 3 0 ;
e x t e r n s t r i n g D e l e t e O b j e c t s S e t s = " | | = = = = = = = = O b j e c t s S e t t i n g = = = = = = = = | | " ;
e x t e r n b o o l D e l e t e O b j e c t s = t r u e ;
e x t e r n i n t D e l e t e M i n u t e s = 3 0 ;
e x t e r n s t r i n g E x p e r t C o m m e n t s S e t = " | | = = = = = = = = C o m m e n t s S e t t i n g = = = = = = = = | | " ;
e x t e r n s t r i n g E x p e r t C o m m e n t s = " F l y S y s t e m E A " ;
e x t e r n b o o l B a c k t e s t i n g I n f o = t r u e ;
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
s t r i n g S y m b o l U s e ;
s t r i n g S y m b o l E x t e n s i o n = " " ;
s t r i n g L o c k e d I n f o ;
s t r i n g S y m b o l T r a d e ;
s t r i n g B a c k g r o u n d N a m e ;
s t r i n g S h o w I n f o C o m m i s s i o n ;
l o n g C h a r t C o l o r ;
i n t T o t a l O r d e r s ;
i n t C n t B u y ;
i n t C n t S e l l ;
i n t C n t B u y S t o p ;
i n t C n t S e l l S t o p ;
i n t T r y T i m e s ;
i n t T o t a l T r a d e s ;
i n t M u l t i p l i e r P o i n t ;
i n t T i m e A c t i o n M o d i f y ;
i n t M a g i c N u m b e r ;
i n t C o u n t T i c k S p r e a d P a i r = 0 ;
i n t C o u n t T i m e s M o d i f y = 0 ;
i n t C o u n t T i m e s C l o s e = 0 ;
i n t C o u n t T i c k S p r e a d = 0 ;
i n t T i m e s M o d i f y = 0 ;
i n t T i m e s C l o s e = 0 ;
i n t i ;
i n t C o u n t ;
i n t T i c k s G e t = 0 ;
i n t C o u n t T i c k B u y S t o p = 0 ;
i n t C o u n t T i c k S e l l S t o p = 0 ;
i n t W i n T r a d e s ;
i n t L o s s T r a d e s ;
i n t S e n d M e s s a g e s = 0 ;
i n t T i c k e t L a s t S t o p L o s s ;
i n t C o u n t H i s t o r y ;
i n t D e l a y F o r M o d i f y ;
d o u b l e S t e p F o r M o d i f y ;
d o u b l e A r r a y S p r e a d P a i r [ 1 0 0 ] ;
d o u b l e H i s t o r y P i p s = 0 ;
d o u b l e A v g S p r e a d ;
d o u b l e A v g E x e c u t i o n ;
d o u b l e A v g S l i p p a g e ;
d o u b l e T o t a l P r o f i t L o s s ;
d o u b l e S p r e a d P i p s ;
d o u b l e D i g i t s P o i n t s ;
d o u b l e L o t S i z e ;
d o u b l e S t o p L e v e l ;
d o u b l e C h e c k M a r g i n 1 ;
d o u b l e C h e c k M a r g i n 2 ;
d o u b l e S u m M a r g i n ;
d o u b l e S t e p M o d i f y ;
d o u b l e M o d e T i c k V a l u e ;
d o u b l e B r o k e r C o m m i s s i o n ;
d o u b l e S p r e a d L i m i t ;
d o u b l e R e a l C o m m i s s i o n ;
d o u b l e G e t C o m m i s s i o n P a i r = 0 ;
d o u b l e P i p s L e v e l P e n d i n g ;
d o u b l e P i p s L e v e l L o s s ;
d o u b l e P i p s L e v e l P r o f i t ;
d o u b l e A v r g P i p s P r o f i t = 0 ;
d o u b l e A v r g P i p s L o s s = 0 ;
d o u b l e A v r g D u r a t i o n = 0 ;
d o u b l e L a s t B i d = 0 ;
d o u b l e L a s t A s k = 0 ;
d o u b l e P r i c e B S ;
d o u b l e P r i c e S S ;
d o u b l e S L _ B S ;
d o u b l e T P _ B S ;
d o u b l e S L _ S S ;
d o u b l e T P _ S S ;
d o u b l e L a s t S t o p L o s s ;
d o u b l e S l i p p a g e O r d e r s ;
d o u b l e A r r a y S l i p p a g e [ 1 0 0 ] ;
d o u b l e P r i c e B u y S t o p ;
d o u b l e P r i c e S e l l S t o p ;
d a t e t i m e E x p i r e = 0 ;
d a t e t i m e A r r a y E x e c u t i o n [ 1 0 0 ] ;
d a t e t i m e O p e r a t i o n D e l a y = 0 ;
d a t e t i m e L a s t O p e r a t i o n D e l a y = 0 ;
d a t e t i m e T i m e T o S e n d = 0 ;
d a t e t i m e T i m e D e l e t e O b j e c t s = 0 ;
b o o l S t o p T r a d e = f a l s e ;
b o o l S p r e a d O K ;
b o o l L o c k e d = f a l s e ;
b o o l C a l l M a i n = f a l s e ;
b o o l M o d i f y B S = f a l s e ;
b o o l M o d i f y S S = f a l s e ;
b o o l T e s t i n g M o d e = f a l s e ;
b o o l T i m e T o T r a d e ;
b o o l N o t H a v e O p e n O r d e r s = t r u e ;
b o o l S t a r t N e w C y c l e ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i n t M a g i c S e t = 3 3 3 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b o o l L o c k e d D a t e = f a l s e ;
d a t e t i m e E x p i r y D a t e = D ' 3 1 . 1 2 . 2 0 1 8 ' ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b o o l L o c k e d A c c o u n t = f a l s e ;
i n t A c c o u n t N o 1 = 1 2 3 4 5 6 ;
i n t A c c o u n t N o 2 = 1 2 3 4 5 6 ;
i n t A c c o u n t N o 3 = 1 2 3 4 5 6 ;
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
i n t O n I n i t ( )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / S e t t i m e r
E v e n t S e t M i l l i s e c o n d T i m e r ( 1 0 ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / R e s e t v a l u e
C o u n t T i m e s M o d i f y = 0 ;
C o u n t T i c k S p r e a d P a i r = 0 ;
C o u n t T i m e s C l o s e = 0 ;
C o u n t H i s t o r y = 0 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / B a c k g r o u n d
C h a r t C o l o r = C h a r t G e t I n t e g e r ( 0 , C H A R T _ C O L O R _ B A C K G R O U N D , 0 ) ;
B a c k g r o u n d N a m e = " B a c k g r o u n d - " + W i n d o w E x p e r t N a m e ( ) ;
/ / - - -
i f ( O b j e c t F i n d ( B a c k g r o u n d N a m e ) = = - 1 ) C h a r t B a c k g r o u n d ( B a c k g r o u n d N a m e , ( c o l o r ) C h a r t C o l o r , 0 , 1 5 , 1 8 2 , 1 8 0 ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / S y m b o l s u f f i x a n d i n f o
i f ( S t r i n g L e n ( S y m b o l ( ) ) > 6 ) S y m b o l E x t e n s i o n = S t r i n g S u b s t r ( S y m b o l ( ) , 6 , 0 ) ;
S y m b o l U s e = S y m b o l ( ) ;
A r r a y I n i t i a l i z e ( A r r a y S p r e a d P a i r , 0 ) ;
A r r a y I n i t i a l i z e ( A r r a y E x e c u t i o n , 0 ) ;
A r r a y I n i t i a l i z e ( A r r a y S l i p p a g e , 0 ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / C o n f i r m p o i n t s
M u l t i p l i e r P o i n t = 1 ;
i f ( M a r k e t I n f o ( " E U R U S D " + S y m b o l E x t e n s i o n , M O D E _ D I G I T S ) = = 5 ) M u l t i p l i e r P o i n t = 1 0 ;
i f ( ( M a r k e t I n f o ( S y m b o l U s e , M O D E _ B I D ) > 9 9 9 . 9 9 9 ) & & ( M a r k e t I n f o ( " E U R U S D " + S y m b o l E x t e n s i o n , M O D E _ D I G I T S ) = = 5 ) & & ( M a r k e t I n f o ( S y m b o l U s e , M O D E _ D I G I T S ) = = 3 ) ) M u l t i p l i e r P o i n t = 1 0 0 ;
D i g i t s P o i n t s = P o i n t * M u l t i p l i e r P o i n t ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / C o m m i s s i o n s
M o d e T i c k V a l u e = M a r k e t I n f o ( S y m b o l U s e , M O D E _ T I C K V A L U E ) * M u l t i p l i e r P o i n t ;
B r o k e r C o m m i s s i o n = ( C o m m i s s i o n I n C u r / M a t h M a x ( 1 , M o d e T i c k V a l u e ) ) + C o m m i s s i o n I n P i p ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / S e t m i n i m u m a n d m a x i m u m r a n g e
i f ( R i s k F a c t o r < 1 ) R i s k F a c t o r = 1 ;
i f ( R i s k F a c t o r > 1 0 0 0 ) R i s k F a c t o r = 1 0 0 0 ;
i f ( O r d e r s I D < 0 ) O r d e r s I D = 0 ;
i f ( M a x S p r e a d < 0 ) M a x S p r e a d = 0 ;
i f ( T y p e O f S p r e a d U s e < 1 ) T y p e O f S p r e a d U s e = 1 ;
i f ( T y p e O f S p r e a d U s e > 2 ) T y p e O f S p r e a d U s e = 2 ;
i f ( T i m e s F o r A v e r a g e > 1 0 0 ) T i m e s F o r A v e r a g e = 1 0 0 ;
i f ( T i m e s F o r A v e r a g e < 1 ) T i m e s F o r A v e r a g e = 1 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / C o n f i r m p i p s f o r x a u u s d
i f ( ( M a r k e t I n f o ( S y m b o l U s e , M O D E _ B I D ) > 9 9 9 . 9 9 9 ) & & ( M a r k e t I n f o ( " E U R U S D " + S y m b o l E x t e n s i o n , M O D E _ D I G I T S ) = = 5 ) & & ( M a r k e t I n f o ( S y m b o l U s e , M O D E _ D I G I T S ) = = 3 ) ) M a x S p r e a d * = 1 0 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / E x p e r t I D
M a g i c N u m b e r = O r d e r s I D ;
/ / - - -
i f ( O r d e r s I D = = 0 )
{
f o r ( i n t c n t = 0 ; c n t < S t r i n g L e n ( S y m b o l U s e ) ; c n t + + ) M a g i c N u m b e r + = ( S t r i n g G e t C h a r ( S y m b o l U s e , c n t ) * ( c n t + 1 ) ) + M a g i c S e t ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / G e t s t o p l e v e l
S t o p L e v e l = N o r m a l i z e D o u b l e ( M a t h M a x ( M a r k e t I n f o ( S y m b o l U s e , M O D E _ F R E E Z E L E V E L ) , M a r k e t I n f o ( S y m b o l U s e , M O D E _ S T O P L E V E L ) ) / M u l t i p l i e r P o i n t , 2 ) ;
i f ( A c c e p t S t o p L e v e l < S t o p L e v e l ) S t o p T r a d e = t r u e ;
i f ( ( I s T e s t i n g ( ) ) | | ( I s V i s u a l M o d e ( ) ) ) S t o p T r a d e = f a l s e ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / S e t d i s t a n c e f o r o r d e r s
P i p s L e v e l P e n d i n g = P e n d i n g O r d e r s D i s t ;
P i p s L e v e l L o s s = O r d e r s S t o p L o s s ;
P i p s L e v e l P r o f i t = O r d e r s T a k e P r o f i t ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / C o n f i r m p i p s d i s t a n c e
i f ( P i p s L e v e l P e n d i n g < S t o p L e v e l ) P i p s L e v e l P e n d i n g = S t o p L e v e l ;
i f ( P i p s L e v e l L o s s < S t o p L e v e l ) P i p s L e v e l L o s s = S t o p L e v e l ;
i f ( P i p s L e v e l P r o f i t < S t o p L e v e l ) P i p s L e v e l P r o f i t = S t o p L e v e l ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / L o c k e d c h e c k
/ / - - - E x p i r y
i f ( ( T i m e C u r r e n t ( ) > = E x p i r y D a t e ) & & ( L o c k e d D a t e = = t r u e ) )
{
L o c k e d = t r u e ;
L o c k e d I n f o = S t r i n g C o n c a t e n a t e ( " E x p e r t h a s e x p i r e d ( " + T i m e T o S t r i n g ( E x p i r y D a t e , T I M E _ D A T E ) + " ) " ) ;
}
/ / - - - A c c o u n t
i f ( L o c k e d A c c o u n t = = t r u e )
{
i f ( ( ! I s D e m o ( ) ) & & ( A c c o u n t N u m b e r ( ) ! = A c c o u n t N o 1 ) & & ( A c c o u n t N u m b e r ( ) ! = A c c o u n t N o 2 ) & & ( A c c o u n t N u m b e r ( ) ! = A c c o u n t N o 3 ) )
{
L o c k e d = t r u e ;
L o c k e d I n f o = S t r i n g C o n c a t e n a t e ( " L o c k e d v e r s i o n . E x p e r t r u n o n l y o n s p e c i f i c a c c o u n t . " ) ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / S e t s u s e f o r b a c k t e s t
i f ( ( I s T e s t i n g ( ) ) | | ( I s O p t i m i z a t i o n ( ) ) )
{
T y p e O f S p r e a d U s e = 2 ;
D e l e t e O b j e c t s = f a l s e ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / C a l l o n t i c k
i f ( ( ! I s T e s t i n g ( ) ) | | ( ! I s V i s u a l M o d e ( ) ) ) O n T i c k ( ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / M o d e
i f ( ( I s T e s t i n g ( ) ) | | ( I s V i s u a l M o d e ( ) ) ) T e s t i n g M o d e = t r u e ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
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 )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / D e l e t e p e n d i n g o r d e r
b o o l D e l e t e O r d e r I D = f a l s e ;
/ / - - -
f o r ( i n t i P o s = O r d e r s T o t a l ( ) - 1 ; i P o s > = 0 ; i P o s - - )
{
i f ( O r d e r S e l e c t ( i P o s , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) )
{
i f ( ( O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r ) & & ( ( O r d e r T y p e ( ) = = O P _ B U Y S T O P ) | | ( O r d e r T y p e ( ) = = O P _ S E L L S T O P ) ) ) D e l e t e O r d e r I D = O r d e r D e l e t e ( O r d e r T i c k e t ( ) ) ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / P r i n t a v r g d u r a t i o n i n b a c k t e s t i n g
i f ( ( I s T e s t i n g ( ) ) & & ( B a c k t e s t i n g I n f o = = t r u e ) )
{
H i s t o r y R e s u l t s ( ) ;
P r i n t ( " < = = = = = B A C K T E S T / H I S T O R Y R E P O R T = = = = = > " ) ;
P r i n t ( " A v e r a g e D u r a t i o n : " + D o u b l e T o S t r ( A v r g D u r a t i o n , 2 ) + " s e c | | T o t a l T r a d e s : " + D o u b l e T o S t r ( T o t a l T r a d e s , 0 ) ) ;
P r i n t ( " A v e r a g e P r o f i t s : " + D o u b l e T o S t r ( A v r g P i p s P r o f i t , 2 ) + " p i p s | | W i n T r a d e s : " + D o u b l e T o S t r ( W i n T r a d e s , 0 ) ) ;
P r i n t ( " A v e r a g e L o s s : " + D o u b l e T o S t r ( A v r g P i p s L o s s , 2 ) + " p i p s | | L o s s T r a d e s : " + D o u b l e T o S t r ( L o s s T r a d e s , 0 ) ) ;
P r i n t ( " S e n d M e s s a g e s : " + D o u b l e T o S t r ( S e n d M e s s a g e s , 0 ) ) ;
P r i n t ( " < = = = = = B A C K T E S T / H I S T O R Y R E P O R T = = = = = > " ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / C l e a r c h a r t
E v e n t K i l l T i m e r ( ) ;
O b j e c t D e l e t e ( B a c k g r o u n d N a m e ) ;
C o m m e n t ( " " ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d O n T i c k ( )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / R e s e t v a l u e s
C a l l M a i n = t r u e ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / L o c k e d m e s s a g e
i f ( L o c k e d = = t r u e )
{
P r i n t ( L o c k e d I n f o + " | | P l e a s e c o n t a c t a t n i k o l a o s p a n t z o s @ g m a i l . c o m " ) ;
S c r e e n C o m m e n t ( 5 ) ;
C a l l M a i n = f a l s e ;
S l e e p ( 3 0 0 0 0 0 ) ;
r e t u r n ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / S t o p l e v e l w a r n i n g
i f ( S t o p T r a d e = = t r u e )
{
i f ( I s T e s t i n g ( ) ) P r i n t ( " B r o k e r S t o p L e v e l I s T o o H i g h , E x p e r t N o t T r a d e ! ! ! " ) ;
S c r e e n C o m m e n t ( 4 ) ;
S l e e p ( 3 0 0 0 0 0 ) ;
r e t u r n ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / I n b a c k t e s t i n g
i f ( ( I s T e s t i n g ( ) ) | | ( I s O p t i m i z a t i o n ( ) ) | | ( I s V i s u a l M o d e ( ) ) )
{
C a l l M a i n = f a l s e ;
M a i n F u n c t i o n ( ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d O n T i m e r ( )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / I n b a c k t e s t i n g
i f ( ( I s T e s t i n g ( ) ) | | ( I s O p t i m i z a t i o n ( ) ) | | ( I s V i s u a l M o d e ( ) ) ) r e t u r n ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / C a l l m a i n f u n c t i o n
i f ( I s T r a d e A l l o w e d ( ) = = t r u e )
{
i f ( C a l l M a i n = = t r u e ) M a i n F u n c t i o n ( ) ;
}
e l s e
S c r e e n C o m m e n t ( 7 ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d M a i n F u n c t i o n ( )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / R e s e t v a l u e
M o d i f y B S = f a l s e ;
M o d i f y S S = f a l s e ;
S p r e a d O K = t r u e ;
S t a r t N e w C y c l e = f a l s e ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / C h e c k D i f f r e n t p r i c e
i f ( ( N o r m a l i z e D o u b l e ( B i d , D i g i t s ) ! = N o r m a l i z e D o u b l e ( L a s t B i d , D i g i t s ) ) | | ( N o r m a l i z e D o u b l e ( A s k , D i g i t s ) ! = N o r m a l i z e D o u b l e ( L a s t A s k , D i g i t s ) ) | | ( I s T e s t i n g ( ) ) )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / C h e c k t o m o d i f y
i f ( N o r m a l i z e D o u b l e ( A s k , D i g i t s ) ! = N o r m a l i z e D o u b l e ( L a s t A s k , D i g i t s ) ) M o d i f y B S = t r u e ;
i f ( N o r m a l i z e D o u b l e ( B i d , D i g i t s ) ! = N o r m a l i z e D o u b l e ( L a s t B i d , D i g i t s ) ) M o d i f y S S = t r u e ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / G e t l a s t p r i c e s
L a s t B i d = N o r m a l i z e D o u b l e ( B i d , D i g i t s ) ;
L a s t A s k = N o r m a l i z e D o u b l e ( A s k , D i g i t s ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / E r r o r s ( M a r k e t i s c l o s e d , T r a d e i s d i s a b l e d )
i f ( ( G e t L a s t E r r o r ( ) = = 1 3 2 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 3 ) ) r e t u r n ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / C l e a r c h a r t
i f ( D e l e t e O b j e c t s = = t r u e ) C l e a r C h a r t ( ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / C h e c k o r d e r s
C o u n t O r d e r s ( ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / G e t s p r e a d
S p r e a d P i p s = ( A s k - B i d ) / D i g i t s P o i n t s ;
i f ( C o u n t A v g S p r e a d = = t r u e ) G e t A v r g S p r e a d ( S p r e a d P i p s ) ;
i f ( T y p e O f S p r e a d U s e = = 1 ) S p r e a d L i m i t = A v g S p r e a d ; / / U s e a v e r a g e
i f ( T y p e O f S p r e a d U s e = = 2 ) S p r e a d L i m i t = S p r e a d P i p s ; / / U s e c u r r e n t
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / S e t c o m m i s s i o n
i f ( G e t C o m m i s s i o n A u t o = = f a l s e ) R e a l C o m m i s s i o n = B r o k e r C o m m i s s i o n ;
i f ( ( G e t C o m m i s s i o n A u t o = = t r u e ) & & ( C n t B u y + C n t S e l l = = 0 ) & & ( N o t H a v e O p e n O r d e r s = = t r u e ) ) { R e a l C o m m i s s i o n = B r o k e r C o m m i s s i o n ; S h o w I n f o C o m m i s s i o n = " W a i t i n g T r a d e s . . . " ; }
i f ( ( G e t C o m m i s s i o n A u t o = = t r u e ) & & ( C n t B u y + C n t S e l l ! = 0 ) ) { R e a l C o m m i s s i o n = ( G e t C o m m i s s i o n P a i r / M a t h M a x ( 1 , M o d e T i c k V a l u e ) ) ; S h o w I n f o C o m m i s s i o n = D o u b l e T o S t r ( R e a l C o m m i s s i o n , 2 ) + " ( p i p s ) " ; N o t H a v e O p e n O r d e r s = f a l s e ; }
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / T i m e f i l t e r i n f o
i f ( U s e T i m e F i l t e r = = t r u e )
{
T i m e T o T r a d e = f a l s e ;
/ / - - -
i f ( ( S t r i n g T o T i m e ( T i m e S t a r t T r a d e ) < S t r i n g T o T i m e ( T i m e S t o p T r a d e ) ) & & ( ( T i m e G M T ( ) > = S t r i n g T o T i m e ( T i m e S t a r t T r a d e ) ) & & ( T i m e G M T ( ) < S t r i n g T o T i m e ( T i m e S t o p T r a d e ) ) ) ) T i m e T o T r a d e = t r u e ;
i f ( ( S t r i n g T o T i m e ( T i m e S t a r t T r a d e ) > S t r i n g T o T i m e ( T i m e S t o p T r a d e ) ) & & ( ( T i m e G M T ( ) > = S t r i n g T o T i m e ( T i m e S t a r t T r a d e ) ) | | ( T i m e G M T ( ) < S t r i n g T o T i m e ( T i m e S t o p T r a d e ) ) ) ) T i m e T o T r a d e = t r u e ;
/ / - - -
i f ( T i m e T o T r a d e = = f a l s e )
{
S c r e e n C o m m e n t ( 6 ) ;
}
}
e l s e
T i m e T o T r a d e = t r u e ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / S p r e a d w a r n i n g
i f ( ( S p r e a d L i m i t + R e a l C o m m i s s i o n > M a x S p r e a d ) & & ( M a x S p r e a d > 0 ) & & ( T i m e T o T r a d e = = t r u e ) )
{
i f ( I s T e s t i n g ( ) ) P r i n t ( " S p r e a d I s T o o H i g h , E x p e r t N o t T r a d e ! ! ! " ) ;
S c r e e n C o m m e n t ( 2 ) ;
S p r e a d O K = f a l s e ;
}
e l s e
{
S c r e e n C o m m e n t ( 1 ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / C o u n t l o t s i z e
i f ( A u t o L o t S i z e = = t r u e ) L o t S i z e = M a t h M i n ( M a t h M a x ( ( M a t h R o u n d ( ( A c c o u n t F r e e M a r g i n ( ) * R i s k F a c t o r / 1 0 0 0 0 0 ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ L O T S T E P ) ) * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ L O T S T E P ) ) , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M I N L O T ) ) , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M A X L O T ) ) ;
i f ( A u t o L o t S i z e = = f a l s e ) L o t S i z e = M a t h M i n ( M a t h M a x ( ( M a t h R o u n d ( M a n u a l L o t S i z e / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ L O T S T E P ) ) * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ L O T S T E P ) ) , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M I N L O T ) ) , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M A X L O T ) ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / R e s e t v a l u e
i f ( C n t B u y S t o p = = 0 ) C o u n t T i c k B u y S t o p = 0 ;
i f ( C n t S e l l S t o p = = 0 ) C o u n t T i c k S e l l S t o p = 0 ;
S t e p F o r M o d i f y = S t e p M o d i f y O r d e r s ;
D e l a y F o r M o d i f y = D e l a y M o d i f y O r d e r s ;
i f ( ( C n t B u y S t o p = = 0 ) & & ( C n t S e l l S t o p = = 0 ) ) S t a r t N e w C y c l e = t r u e ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / O p e r a t i o n s i n s p r e a d a n d t i m e l i m i t
i f ( T o t a l O r d e r s > 0 )
{
i f ( ( ( S p r e a d L i m i t + R e a l C o m m i s s i o n > M a x S p r e a d ) & & ( M a x S p r e a d > 0 ) ) | | ( T i m e T o T r a d e = = f a l s e ) )
{
i f ( M o d i f y M a r k e t = = t r u e )
{
i f ( C n t B u y > 0 ) M o d i f y O r d e r s ( O P _ B U Y , 0 , 0 ) ;
i f ( C n t S e l l > 0 ) M o d i f y O r d e r s ( O P _ S E L L , 0 , 0 ) ;
}
i f ( C n t B u y S t o p > 0 ) D e l e t e O r d e r s ( O P _ B U Y S T O P ) ;
i f ( C n t S e l l S t o p > 0 ) D e l e t e O r d e r s ( O P _ S E L L S T O P ) ;
r e t u r n ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / M o d i f y m a r k e t o r d e r s
i f ( M o d i f y M a r k e t = = t r u e )
{
i f ( C n t B u y > 0 ) M o d i f y O r d e r s ( O P _ B U Y , 0 , 0 ) ;
i f ( C n t S e l l > 0 ) M o d i f y O r d e r s ( O P _ S E L L , 0 , 0 ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / M a n a g e r e m a i n o r d e r
i f ( M a n a g e R e m a i n P e n d i n g = = 0 )
{
/ / - - - D e l e t e o r p h a n b u y s t o p
i f ( ( C n t S e l l > 0 ) & & ( C n t B u y S t o p > 0 ) )
{
D e l e t e O r d e r s ( O P _ B U Y S T O P ) ;
r e t u r n ;
}
/ / - - - D e l e t e o r p h a n s e l l s t o p
i f ( ( C n t B u y > 0 ) & & ( C n t S e l l S t o p > 0 ) )
{
D e l e t e O r d e r s ( O P _ S E L L S T O P ) ;
r e t u r n ;
}
}
/ / - - -
i f ( M a n a g e R e m a i n P e n d i n g = = 1 )
{
/ / - - - M o d i f y o r p h a n b u y s t o p
i f ( ( C n t S e l l > 0 ) & & ( C n t B u y S t o p > 0 ) )
{
S t e p F o r M o d i f y = 0 ;
D e l a y F o r M o d i f y = 0 ;
M o d i f y O r d e r s ( O P _ B U Y S T O P , P i p s L e v e l L o s s , 1 ) ;
r e t u r n ;
}
/ / - - - M o d i f y o r p h a n s e l l s t o p
i f ( ( C n t B u y > 0 ) & & ( C n t S e l l S t o p > 0 ) )
{
S t e p F o r M o d i f y = 0 ;
D e l a y F o r M o d i f y = 0 ;
M o d i f y O r d e r s ( O P _ S E L L S T O P , P i p s L e v e l L o s s , 1 ) ;
r e t u r n ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / M o d i f y p e n d i n g o r d e r s
i f ( M o d i f y P e n d i n g = = t r u e )
{
i f ( C n t B u y S t o p > 0 ) M o d i f y O r d e r s ( O P _ B U Y S T O P , P i p s L e v e l P e n d i n g , 0 ) ;
i f ( C n t S e l l S t o p > 0 ) M o d i f y O r d e r s ( O P _ S E L L S T O P , P i p s L e v e l P e n d i n g , 0 ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / G e t h i s t o r y r e s u l t s
i f ( C o u n t H i s t o r y < 3 )
{
C o u n t H i s t o r y + + ;
H i s t o r y R e s u l t s ( ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / R e t u r n i f t h e r e a r e t w o p e n d i n g o r d e r s
i f ( ( C n t B u y S t o p > 0 ) & & ( C n t S e l l S t o p > 0 ) ) r e t u r n ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / O p e n o r d e r s
i f ( ( ( T o t a l O r d e r s = = 0 ) | | ( ( C n t B u y S t o p + C n t S e l l S t o p = = 1 ) & & ( C n t B u y + C n t S e l l = = 0 ) ) ) & & ( S p r e a d O K = = t r u e ) & & ( T i m e T o T r a d e = = t r u e ) & & ( C h e c k M a r g i n ( ) = = 1 ) & & ( S t a r t N e w C y c l e = = t r u e ) )
{
i f ( C n t B u y S t o p = = 0 ) O p e n O r d e r s ( O P _ B U Y S T O P ) ;
i f ( C n t S e l l S t o p = = 0 ) O p e n O r d e r s ( O P _ S E L L S T O P ) ;
H i s t o r y R e s u l t s ( ) ;
T i c k e t L a s t S t o p L o s s = 0 ;
L a s t S t o p L o s s = 0 ;
i f ( C o u n t A v g S l i p p a g e = = t r u e ) C o u n t A v r g S l i p p a g e ( S l i p p a g e O r d e r s ) ;
}
e l s e
{
i f ( ( C h e c k M a r g i n ( ) = = 0 ) & & ( C n t B u y S t o p = = 1 ) ) D e l e t e O r d e r s ( O P _ B U Y S T O P ) ;
i f ( ( C h e c k M a r g i n ( ) = = 0 ) & & ( C n t S e l l S t o p = = 1 ) ) D e l e t e O r d e r s ( O P _ S E L L S T O P ) ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
i n t C h e c k M a r g i n ( )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C h e c k M a r g i n 1 = 0 ;
C h e c k M a r g i n 2 = 0 ;
S u m M a r g i n = 0 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C h e c k M a r g i n 1 = A c c o u n t F r e e M a r g i n ( ) - A c c o u n t F r e e M a r g i n C h e c k ( S y m b o l ( ) , O P _ B U Y , L o t S i z e ) ;
C h e c k M a r g i n 2 = A c c o u n t F r e e M a r g i n ( ) - A c c o u n t F r e e M a r g i n C h e c k ( S y m b o l ( ) , O P _ S E L L , L o t S i z e ) ;
S u m M a r g i n = A c c o u n t F r e e M a r g i n ( ) - M a t h M a x ( C h e c k M a r g i n 1 , C h e c k M a r g i n 2 ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( S u m M a r g i n < = 0 . 0 )
{
i f ( I s T e s t i n g ( ) ) P r i n t ( " M a r g i n A c c o u n t I s T o o L o w , E x p e r t N o t T r a d e ! ! ! " ) ;
S c r e e n C o m m e n t ( 3 ) ;
r e t u r n ( 0 ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
r e t u r n ( 1 ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d O p e n O r d e r s ( i n t T y p e O f O r d e r )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i n t T i c k e t B u y S t o p = - 1 ;
i n t T i c k e t S e l l S t o p = - 1 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
T r y T i m e s = 0 ;
P r i c e B S = 0 ;
P r i c e S S = 0 ;
S L _ B S = 0 ;
T P _ B S = 0 ;
S L _ S S = 0 ;
T P _ S S = 0 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / O p e n o r d e r s
w h i l e ( t r u e )
{
T r y T i m e s + + ;
O p e r a t i o n D e l a y = 0 ;
T i m e T o S e n d = G e t T i c k C o u n t ( ) ;
/ / - - - O p e n B u y S t o p
i f ( T y p e O f O r d e r = = O P _ B U Y S T O P )
{
P r i c e B S = N o r m a l i z e D o u b l e ( A s k + P i p s L e v e l P e n d i n g * D i g i t s P o i n t s , D i g i t s ) ;
S L _ B S = N o r m a l i z e D o u b l e ( B i d + ( P i p s L e v e l P e n d i n g - P i p s L e v e l L o s s ) * D i g i t s P o i n t s , D i g i t s ) ;
i f ( U s e T a k e P r o f i t = = t r u e ) T P _ B S = N o r m a l i z e D o u b l e ( A s k + ( ( P i p s L e v e l P e n d i n g + P i p s L e v e l P r o f i t ) * D i g i t s P o i n t s ) , D i g i t s ) ;
/ / - - -
T i c k e t B u y S t o p = O r d e r S e n d ( S y m b o l ( ) , O P _ B U Y S T O P , L o t S i z e , P r i c e B S , S l i p p a g e , S L _ B S , T P _ B S , E x p e r t C o m m e n t s , M a g i c N u m b e r , E x p i r e , c l r B l u e ) ;
/ / - - -
i f ( T e s t i n g M o d e = = t r u e ) S e n d M e s s a g e s + + ;
/ / - - - E x i t l o o p
i f ( T i c k e t B u y S t o p > 0 )
{
O p e r a t i o n D e l a y = G e t T i c k C o u n t ( ) - T i m e T o S e n d ;
i f ( O p e r a t i o n D e l a y > 0 )
{
L a s t O p e r a t i o n D e l a y = O p e r a t i o n D e l a y ;
i f ( T i c k s G e t < 3 0 ) T i c k s G e t + + ;
i f ( C o u n t A v g E x e c u t i o n = = t r u e ) C o u n t A v r g E x e c u t i o n ( O p e r a t i o n D e l a y ) ;
}
b r e a k ;
}
e l s e
{
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s n e w d a t a a n d t r y a g a i n o p e n b u y s t o p o r d e r " ) ;
i f ( T r y T i m e s > = 3 ) b r e a k ;
}
}
/ / - - - O p e n S e l l S t o p
i f ( T y p e O f O r d e r = = O P _ S E L L S T O P )
{
P r i c e S S = N o r m a l i z e D o u b l e ( B i d - P i p s L e v e l P e n d i n g * D i g i t s P o i n t s , D i g i t s ) ;
S L _ S S = N o r m a l i z e D o u b l e ( A s k - ( P i p s L e v e l P e n d i n g - P i p s L e v e l L o s s ) * D i g i t s P o i n t s , D i g i t s ) ;
i f ( U s e T a k e P r o f i t = = t r u e ) T P _ S S = N o r m a l i z e D o u b l e ( B i d - ( ( P i p s L e v e l P e n d i n g + P i p s L e v e l P r o f i t ) * D i g i t s P o i n t s ) , D i g i t s ) ;
/ / - - -
T i c k e t S e l l S t o p = O r d e r S e n d ( S y m b o l ( ) , O P _ S E L L S T O P , L o t S i z e , P r i c e S S , S l i p p a g e , S L _ S S , T P _ S S , E x p e r t C o m m e n t s , M a g i c N u m b e r , E x p i r e , c l r R e d ) ;
/ / - - -
i f ( T e s t i n g M o d e = = t r u e ) S e n d M e s s a g e s + + ;
/ / - - - E x i t l o o p
i f ( T i c k e t S e l l S t o p > 0 )
{
O p e r a t i o n D e l a y = G e t T i c k C o u n t ( ) - T i m e T o S e n d ;
i f ( O p e r a t i o n D e l a y > 0 )
{
L a s t O p e r a t i o n D e l a y = O p e r a t i o n D e l a y ;
i f ( T i c k s G e t < 3 0 ) T i c k s G e t + + ;
i f ( C o u n t A v g E x e c u t i o n = = t r u e ) C o u n t A v r g E x e c u t i o n ( O p e r a t i o n D e l a y ) ;
}
b r e a k ;
}
e l s e
{
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s n e w d a t a a n d t r y a g a i n o p e n s e l l s t o p o r d e r " ) ;
i f ( T r y T i m e s > = 3 ) b r e a k ;
}
}
R e f r e s h R a t e s ( ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( ( G e t L a s t E r r o r ( ) = = 1 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 2 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 3 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 7 ) | | ( G e t L a s t E r r o r ( ) = = 4 1 0 8 ) | | ( G e t L a s t E r r o r ( ) = = 4 1 0 9 ) )
{
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s a n e r r o r o p e n p e n d i n g o r d e r " ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d M o d i f y O r d e r s ( i n t T y p e O f O r d e r , d o u b l e P i p s D i s t a n c e , i n t M o d i f y M o d e )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b o o l M o d i f y B u y S t o p = f a l s e ;
b o o l M o d i f y S e l l S t o p = f a l s e ;
b o o l M o d i f y B u y = f a l s e ;
b o o l M o d i f y S e l l = f a l s e ;
d o u b l e T r a i l i n g B u y ;
d o u b l e T r a i l i n g S e l l ;
d o u b l e T a k e P r o f i t B u y = 0 ;
d o u b l e T a k e P r o f i t S e l l = 0 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
P r i c e B S = 0 ;
P r i c e S S = 0 ;
S L _ B S = 0 ;
T P _ B S = 0 ;
S L _ S S = 0 ;
T P _ S S = 0 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
f o r ( i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S ) = = t r u e )
{
i f ( ( O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r ) & & ( O r d e r S y m b o l ( ) = = S y m b o l ( ) ) )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / M o d i f y B u y S t o p
i f ( ( O r d e r T y p e ( ) = = O P _ B U Y S T O P ) & & ( T y p e O f O r d e r = = O P _ B U Y S T O P ) & & ( M o d i f y B S = = t r u e ) )
{
R e f r e s h R a t e s ( ) ;
/ / - - - C h e c k t o m o d i f y
C o u n t T i c k B u y S t o p + + ;
i f ( C o u n t T i c k B u y S t o p > = D e l a y F o r M o d i f y )
{
P r i c e B S = N o r m a l i z e D o u b l e ( A s k + ( P i p s D i s t a n c e * D i g i t s P o i n t s ) , D i g i t s ) ;
S L _ B S = N o r m a l i z e D o u b l e ( B i d + ( ( P i p s D i s t a n c e - P i p s L e v e l L o s s ) * D i g i t s P o i n t s ) , D i g i t s ) ;
i f ( U s e T a k e P r o f i t = = t r u e ) T P _ B S = N o r m a l i z e D o u b l e ( A s k + ( ( P i p s D i s t a n c e + P i p s L e v e l P r o f i t ) * D i g i t s P o i n t s ) , D i g i t s ) ;
/ / - - -
i f ( ( ( ( ( N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ! = N o r m a l i z e D o u b l e ( P r i c e B S , D i g i t s ) ) & & ( T y p e M o d i f y P e n d i n g s = = 0 ) & &
( ( N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) - N o r m a l i z e D o u b l e ( A s k , D i g i t s ) < = N o r m a l i z e D o u b l e ( ( ( P i p s D i s t a n c e - S t e p F o r M o d i f y ) * D i g i t s P o i n t s ) , D i g i t s ) ) | |
( N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) - N o r m a l i z e D o u b l e ( A s k , D i g i t s ) > = N o r m a l i z e D o u b l e ( ( ( P i p s D i s t a n c e + S t e p F o r M o d i f y ) * D i g i t s P o i n t s ) , D i g i t s ) ) | |
( S t e p F o r M o d i f y = = 0 ) ) ) | |
( ( N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ! = N o r m a l i z e D o u b l e ( P r i c e B S , D i g i t s ) ) & & ( T y p e M o d i f y P e n d i n g s = = 1 ) & &
( ( N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) - N o r m a l i z e D o u b l e ( A s k , D i g i t s ) < = N o r m a l i z e D o u b l e ( ( ( P i p s D i s t a n c e - S t e p F o r M o d i f y ) * D i g i t s P o i n t s ) , D i g i t s ) ) | |
( ( N o r m a l i z e D o u b l e ( B i d , D i g i t s ) - N o r m a l i z e D o u b l e ( P r i c e S e l l S t o p , D i g i t s ) > = N o r m a l i z e D o u b l e ( ( ( P i p s D i s t a n c e + S t e p F o r M o d i f y ) * D i g i t s P o i n t s ) , D i g i t s ) ) & &
( N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) - N o r m a l i z e D o u b l e ( A s k , D i g i t s ) > = N o r m a l i z e D o u b l e ( ( ( P i p s D i s t a n c e + S t e p F o r M o d i f y ) * D i g i t s P o i n t s ) , D i g i t s ) ) ) | |
( S t e p F o r M o d i f y = = 0 ) ) ) ) & & ( M o d i f y M o d e = = 0 ) ) | |
( ( M o d i f y M o d e = = 1 ) & & ( N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) - N o r m a l i z e D o u b l e ( A s k , D i g i t s ) > N o r m a l i z e D o u b l e ( ( ( P i p s D i s t a n c e + S t e p F o r M o d i f y ) * D i g i t s P o i n t s ) , D i g i t s ) ) ) )
{
T r y T i m e s = 0 ;
w h i l e ( t r u e )
{
T r y T i m e s + + ;
O p e r a t i o n D e l a y = 0 ;
T i m e T o S e n d = G e t T i c k C o u n t ( ) ;
/ / - - - M o d i f y
M o d i f y B u y S t o p = O r d e r M o d i f y ( O r d e r T i c k e t ( ) , P r i c e B S , S L _ B S , T P _ B S , E x p i r e , c l r B l u e ) ;
/ / - - -
i f ( T e s t i n g M o d e = = t r u e ) S e n d M e s s a g e s + + ;
/ / - - -
i f ( M o d i f y B u y S t o p = = t r u e )
{
C o u n t T i c k B u y S t o p = 0 ;
O p e r a t i o n D e l a y = G e t T i c k C o u n t ( ) - T i m e T o S e n d ;
i f ( O p e r a t i o n D e l a y > 0 )
{
L a s t O p e r a t i o n D e l a y = O p e r a t i o n D e l a y ;
i f ( T i c k s G e t < 3 0 ) T i c k s G e t + + ;
i f ( C o u n t A v g E x e c u t i o n = = t r u e ) C o u n t A v r g E x e c u t i o n ( O p e r a t i o n D e l a y ) ;
}
b r e a k ;
}
e l s e
{
R e f r e s h R a t e s ( ) ;
P r i c e B S = N o r m a l i z e D o u b l e ( A s k + ( P i p s D i s t a n c e * D i g i t s P o i n t s ) , D i g i t s ) ;
S L _ B S = N o r m a l i z e D o u b l e ( B i d + ( ( P i p s D i s t a n c e - P i p s L e v e l L o s s ) * D i g i t s P o i n t s ) , D i g i t s ) ;
i f ( U s e T a k e P r o f i t = = t r u e ) T P _ B S = N o r m a l i z e D o u b l e ( A s k + ( ( P i p s D i s t a n c e + P i p s L e v e l P r o f i t ) * D i g i t s P o i n t s ) , D i g i t s ) ;
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s n e w d a t a a n d t r y a g a i n m o d i f y b u y s t o p o r d e r " ) ;
i f ( T r y T i m e s > = 3 ) b r e a k ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( ( G e t L a s t E r r o r ( ) = = 1 ) | | ( G e t L a s t E r r o r ( ) = = 3 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 0 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 2 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 3 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 7 ) | | ( G e t L a s t E r r o r ( ) = = 4 1 0 8 ) | | ( G e t L a s t E r r o r ( ) = = 4 1 0 9 ) )
{
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s a n e r r o r m o d i f y b u y s t o p o r d e r " ) ;
}
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / M o d i f y S e l l S t o p
i f ( ( O r d e r T y p e ( ) = = O P _ S E L L S T O P ) & & ( T y p e O f O r d e r = = O P _ S E L L S T O P ) & & ( M o d i f y S S = = t r u e ) )
{
R e f r e s h R a t e s ( ) ;
/ / - - - C h e c k t o m o d i f y
C o u n t T i c k S e l l S t o p + + ;
i f ( C o u n t T i c k S e l l S t o p > = D e l a y F o r M o d i f y )
{
P r i c e S S = N o r m a l i z e D o u b l e ( B i d - ( P i p s D i s t a n c e * D i g i t s P o i n t s ) , D i g i t s ) ;
S L _ S S = N o r m a l i z e D o u b l e ( A s k - ( ( P i p s D i s t a n c e - P i p s L e v e l L o s s ) * D i g i t s P o i n t s ) , D i g i t s ) ;
i f ( U s e T a k e P r o f i t = = t r u e ) T P _ S S = N o r m a l i z e D o u b l e ( B i d - ( ( P i p s D i s t a n c e + P i p s L e v e l P r o f i t ) * D i g i t s P o i n t s ) , D i g i t s ) ;
/ / - - -
i f ( ( ( ( ( N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ! = N o r m a l i z e D o u b l e ( P r i c e S S , D i g i t s ) ) & & ( T y p e M o d i f y P e n d i n g s = = 0 ) & &
( ( N o r m a l i z e D o u b l e ( B i d , D i g i t s ) - N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) < = N o r m a l i z e D o u b l e ( ( ( P i p s D i s t a n c e - S t e p F o r M o d i f y ) * D i g i t s P o i n t s ) , D i g i t s ) ) | |
( N o r m a l i z e D o u b l e ( B i d , D i g i t s ) - N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) > = N o r m a l i z e D o u b l e ( ( ( P i p s D i s t a n c e + S t e p F o r M o d i f y ) * D i g i t s P o i n t s ) , D i g i t s ) ) | |
( S t e p F o r M o d i f y = = 0 ) ) ) | |
( ( N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ! = N o r m a l i z e D o u b l e ( P r i c e S S , D i g i t s ) ) & & ( T y p e M o d i f y P e n d i n g s = = 1 ) & &
( ( N o r m a l i z e D o u b l e ( B i d , D i g i t s ) - N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) < = N o r m a l i z e D o u b l e ( ( ( P i p s D i s t a n c e - S t e p F o r M o d i f y ) * D i g i t s P o i n t s ) , D i g i t s ) ) | |
( ( N o r m a l i z e D o u b l e ( P r i c e B u y S t o p , D i g i t s ) - N o r m a l i z e D o u b l e ( A s k , D i g i t s ) > = N o r m a l i z e D o u b l e ( ( ( P i p s D i s t a n c e + S t e p F o r M o d i f y ) * D i g i t s P o i n t s ) , D i g i t s ) ) & &
( N o r m a l i z e D o u b l e ( B i d , D i g i t s ) - N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) > = N o r m a l i z e D o u b l e ( ( ( P i p s D i s t a n c e + S t e p F o r M o d i f y ) * D i g i t s P o i n t s ) , D i g i t s ) ) ) | |
( S t e p F o r M o d i f y = = 0 ) ) ) ) & & ( M o d i f y M o d e = = 0 ) ) | |
( ( M o d i f y M o d e = = 1 ) & & ( N o r m a l i z e D o u b l e ( B i d , D i g i t s ) - N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) > N o r m a l i z e D o u b l e ( ( ( P i p s D i s t a n c e + S t e p F o r M o d i f y ) * D i g i t s P o i n t s ) , D i g i t s ) ) ) )
{
T r y T i m e s = 0 ;
w h i l e ( t r u e )
{
T r y T i m e s + + ;
O p e r a t i o n D e l a y = 0 ;
T i m e T o S e n d = G e t T i c k C o u n t ( ) ;
/ / - - - M o d i f y
M o d i f y S e l l S t o p = O r d e r M o d i f y ( O r d e r T i c k e t ( ) , P r i c e S S , S L _ S S , T P _ S S , E x p i r e , c l r R e d ) ;
/ / - - -
i f ( T e s t i n g M o d e = = t r u e ) S e n d M e s s a g e s + + ;
i f ( M o d i f y S e l l S t o p = = t r u e )
{
C o u n t T i c k S e l l S t o p = 0 ;
O p e r a t i o n D e l a y = G e t T i c k C o u n t ( ) - T i m e T o S e n d ;
i f ( O p e r a t i o n D e l a y > 0 )
{
L a s t O p e r a t i o n D e l a y = O p e r a t i o n D e l a y ;
i f ( T i c k s G e t < 3 0 ) T i c k s G e t + + ;
i f ( C o u n t A v g E x e c u t i o n = = t r u e ) C o u n t A v r g E x e c u t i o n ( O p e r a t i o n D e l a y ) ;
}
b r e a k ;
}
e l s e
{
R e f r e s h R a t e s ( ) ;
P r i c e S S = N o r m a l i z e D o u b l e ( B i d - ( P i p s D i s t a n c e * D i g i t s P o i n t s ) , D i g i t s ) ;
S L _ S S = N o r m a l i z e D o u b l e ( A s k - ( ( P i p s D i s t a n c e - P i p s L e v e l L o s s ) * D i g i t s P o i n t s ) , D i g i t s ) ;
i f ( U s e T a k e P r o f i t = = t r u e ) T P _ S S = N o r m a l i z e D o u b l e ( B i d - ( ( P i p s D i s t a n c e + P i p s L e v e l P r o f i t ) * D i g i t s P o i n t s ) , D i g i t s ) ;
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s n e w d a t a a n d t r y a g a i n m o d i f y s e l l s t o p o r d e r " ) ;
i f ( T r y T i m e s > = 3 ) b r e a k ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( ( G e t L a s t E r r o r ( ) = = 1 ) | | ( G e t L a s t E r r o r ( ) = = 3 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 0 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 2 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 3 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 7 ) | | ( G e t L a s t E r r o r ( ) = = 4 1 0 8 ) | | ( G e t L a s t E r r o r ( ) = = 4 1 0 9 ) )
{
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s a n e r r o r m o d i f y s e l l s t o p o r d e r " ) ;
}
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / M o d i f y B u y
i f ( ( O r d e r T y p e ( ) = = O P _ B U Y ) & & ( T y p e O f O r d e r = = O P _ B U Y ) )
{
R e f r e s h R a t e s ( ) ;
T r a i l i n g B u y = N o r m a l i z e D o u b l e ( B i d - ( P i p s L e v e l L o s s * D i g i t s P o i n t s ) , D i g i t s ) ;
i f ( U s e T a k e P r o f i t = = t r u e ) T a k e P r o f i t B u y = N o r m a l i z e D o u b l e ( O r d e r T a k e P r o f i t ( ) , D i g i t s ) ;
/ / - - -
i f ( ( O r d e r S t o p L o s s ( ) = = 0 ) | | ( ( O r d e r S t o p L o s s ( ) ! = 0 ) & & ( N o r m a l i z e D o u b l e ( O r d e r S t o p L o s s ( ) , D i g i t s ) < N o r m a l i z e D o u b l e ( T r a i l i n g B u y , D i g i t s ) ) ) )
{
T r y T i m e s = 0 ;
w h i l e ( t r u e )
{
T r y T i m e s + + ;
O p e r a t i o n D e l a y = 0 ;
T i m e T o S e n d = G e t T i c k C o u n t ( ) ;
/ / - - - M o d i f y
M o d i f y B u y = O r d e r M o d i f y ( O r d e r T i c k e t ( ) , 0 , T r a i l i n g B u y , T a k e P r o f i t B u y , 0 , c l r B l u e ) ;
/ / - - -
i f ( T e s t i n g M o d e = = t r u e ) S e n d M e s s a g e s + + ;
i f ( M o d i f y B u y = = t r u e )
{
O p e r a t i o n D e l a y = G e t T i c k C o u n t ( ) - T i m e T o S e n d ;
i f ( O p e r a t i o n D e l a y > 0 )
{
L a s t O p e r a t i o n D e l a y = O p e r a t i o n D e l a y ;
i f ( T i c k s G e t < 3 0 ) T i c k s G e t + + ;
i f ( C o u n t A v g E x e c u t i o n = = t r u e ) C o u n t A v r g E x e c u t i o n ( O p e r a t i o n D e l a y ) ;
}
b r e a k ;
}
e l s e
{
R e f r e s h R a t e s ( ) ;
T r a i l i n g B u y = N o r m a l i z e D o u b l e ( B i d - ( P i p s L e v e l L o s s * D i g i t s P o i n t s ) , D i g i t s ) ;
i f ( U s e T a k e P r o f i t = = t r u e ) T a k e P r o f i t B u y = N o r m a l i z e D o u b l e ( O r d e r T a k e P r o f i t ( ) , D i g i t s ) ;
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s n e w d a t a a n d t r y a g a i n m o d i f y b u y o r d e r " ) ;
i f ( T r y T i m e s > = 3 ) b r e a k ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( ( G e t L a s t E r r o r ( ) = = 1 ) | | ( G e t L a s t E r r o r ( ) = = 3 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 0 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 2 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 3 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 7 ) | | ( G e t L a s t E r r o r ( ) = = 4 1 0 8 ) | | ( G e t L a s t E r r o r ( ) = = 4 1 0 9 ) )
{
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s a n e r r o r m o d i f y b u y o r d e r " ) ;
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / M o d i f y S e l l
i f ( ( O r d e r T y p e ( ) = = O P _ S E L L ) & & ( T y p e O f O r d e r = = O P _ S E L L ) )
{
R e f r e s h R a t e s ( ) ;
T r a i l i n g S e l l = N o r m a l i z e D o u b l e ( A s k + ( P i p s L e v e l L o s s * D i g i t s P o i n t s ) , D i g i t s ) ;
i f ( U s e T a k e P r o f i t = = t r u e ) T a k e P r o f i t S e l l = N o r m a l i z e D o u b l e ( O r d e r T a k e P r o f i t ( ) , D i g i t s ) ;
/ / - - -
i f ( ( O r d e r S t o p L o s s ( ) = = 0 ) | | ( ( O r d e r S t o p L o s s ( ) ! = 0 ) & & ( N o r m a l i z e D o u b l e ( O r d e r S t o p L o s s ( ) , D i g i t s ) > N o r m a l i z e D o u b l e ( T r a i l i n g S e l l , D i g i t s ) ) ) )
{
T r y T i m e s = 0 ;
w h i l e ( t r u e )
{
T r y T i m e s + + ;
O p e r a t i o n D e l a y = 0 ;
T i m e T o S e n d = G e t T i c k C o u n t ( ) ;
/ / - - - M o d i f y
M o d i f y S e l l = O r d e r M o d i f y ( O r d e r T i c k e t ( ) , 0 , T r a i l i n g S e l l , T a k e P r o f i t S e l l , 0 , c l r R e d ) ;
/ / - - -
i f ( T e s t i n g M o d e = = t r u e ) S e n d M e s s a g e s + + ;
i f ( M o d i f y S e l l = = t r u e )
{
O p e r a t i o n D e l a y = G e t T i c k C o u n t ( ) - T i m e T o S e n d ;
i f ( O p e r a t i o n D e l a y > 0 )
{
L a s t O p e r a t i o n D e l a y = O p e r a t i o n D e l a y ;
i f ( T i c k s G e t < 3 0 ) T i c k s G e t + + ;
i f ( C o u n t A v g E x e c u t i o n = = t r u e ) C o u n t A v r g E x e c u t i o n ( O p e r a t i o n D e l a y ) ;
}
b r e a k ;
}
e l s e
{
R e f r e s h R a t e s ( ) ;
T r a i l i n g S e l l = N o r m a l i z e D o u b l e ( A s k + ( P i p s L e v e l L o s s * D i g i t s P o i n t s ) , D i g i t s ) ;
i f ( U s e T a k e P r o f i t = = t r u e ) T a k e P r o f i t S e l l = N o r m a l i z e D o u b l e ( O r d e r T a k e P r o f i t ( ) , D i g i t s ) ;
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s n e w d a t a a n d t r y a g a i n m o d i f y s e l l o r d e r " ) ;
i f ( T r y T i m e s > = 3 ) b r e a k ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( ( G e t L a s t E r r o r ( ) = = 1 ) | | ( G e t L a s t E r r o r ( ) = = 3 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 0 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 2 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 3 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 7 ) | | ( G e t L a s t E r r o r ( ) = = 4 1 0 8 ) | | ( G e t L a s t E r r o r ( ) = = 4 1 0 9 ) )
{
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s a n e r r o r m o d i f y s e l l o r d e r " ) ;
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d D e l e t e O r d e r s ( i n t T y p e O f O r d e r )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b o o l D e l e t e O r d e r s = f a l s e ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / D e l e t e p e n d i n g o r d e r s
f o r ( i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S ) = = t r u e )
{
i f ( ( O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r ) & & ( O r d e r S y m b o l ( ) = = S y m b o l ( ) ) & & ( O r d e r T y p e ( ) = = T y p e O f O r d e r ) )
{
T r y T i m e s = 0 ;
w h i l e ( t r u e )
{
T r y T i m e s + + ;
O p e r a t i o n D e l a y = 0 ;
D e l e t e O r d e r s = f a l s e ;
T i m e T o S e n d = G e t T i c k C o u n t ( ) ;
/ / - - -
D e l e t e O r d e r s = O r d e r D e l e t e ( O r d e r T i c k e t ( ) , c l r N O N E ) ;
/ / - - -
i f ( T e s t i n g M o d e = = t r u e ) S e n d M e s s a g e s + + ;
i f ( D e l e t e O r d e r s = = t r u e )
{
O p e r a t i o n D e l a y = G e t T i c k C o u n t ( ) - T i m e T o S e n d ;
i f ( O p e r a t i o n D e l a y > 0 )
{
L a s t O p e r a t i o n D e l a y = O p e r a t i o n D e l a y ;
i f ( T i c k s G e t < 3 0 ) T i c k s G e t + + ;
i f ( C o u n t A v g E x e c u t i o n = = t r u e ) C o u n t A v r g E x e c u t i o n ( O p e r a t i o n D e l a y ) ;
}
b r e a k ;
}
e l s e
{
R e f r e s h R a t e s ( ) ;
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s n e w d a t a a n d t r y a g a i n d e l e t e b u y s t o p o r d e r " ) ;
i f ( T r y T i m e s > = 3 ) b r e a k ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / P r i n t e r r o r s
i f ( ( G e t L a s t E r r o r ( ) = = 1 ) | | ( G e t L a s t E r r o r ( ) = = 3 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 0 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 2 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 3 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 7 ) | | ( G e t L a s t E r r o r ( ) = = 4 1 0 8 ) | | ( G e t L a s t E r r o r ( ) = = 4 1 0 9 ) )
{
P r i n t ( " E r r o r : " , D o u b l e T o S t r ( G e t L a s t E r r o r ( ) , 0 ) + " | | " + E x p e r t C o m m e n t s + " : r e c e i v e s a n e r r o r d e l e t e o r d e r " ) ;
}
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d C o u n t O r d e r s ( )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
T o t a l O r d e r s = 0 ;
C n t B u y = 0 ;
C n t S e l l = 0 ;
C n t B u y S t o p = 0 ;
C n t S e l l S t o p = 0 ;
P r i c e B u y S t o p = 0 ;
P r i c e S e l l S t o p = 0 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( O r d e r s T o t a l ( ) > 0 )
{
f o r ( i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S ) = = t r u e )
{
i f ( ( O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r ) & & ( O r d e r S y m b o l ( ) = = S y m b o l ( ) ) )
{
T o t a l O r d e r s + + ;
T i c k e t L a s t S t o p L o s s = O r d e r T i c k e t ( ) ;
L a s t S t o p L o s s = N o r m a l i z e D o u b l e ( O r d e r S t o p L o s s ( ) , D i g i t s ) ;
i f ( O r d e r T y p e ( ) = = O P _ B U Y ) C n t B u y + + ;
i f ( O r d e r T y p e ( ) = = O P _ S E L L ) C n t S e l l + + ;
i f ( O r d e r T y p e ( ) = = O P _ B U Y S T O P ) { C n t B u y S t o p + + ; P r i c e B u y S t o p = N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ; }
i f ( O r d e r T y p e ( ) = = O P _ S E L L S T O P ) { C n t S e l l S t o p + + ; P r i c e S e l l S t o p = N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ; }
i f ( ( ( O r d e r T y p e ( ) = = O P _ B U Y ) | | ( O r d e r T y p e ( ) = = O P _ S E L L ) ) & & ( G e t C o m m i s s i o n P a i r = = 0 ) ) G e t C o m m i s s i o n P a i r = M a t h A b s ( O r d e r C o m m i s s i o n ( ) / O r d e r L o t s ( ) ) ;
}
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d H i s t o r y R e s u l t s ( )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
T o t a l T r a d e s = 0 ;
T o t a l P r o f i t L o s s = 0 ;
H i s t o r y P i p s = 0 ;
A v r g D u r a t i o n = 0 ;
A v r g P i p s P r o f i t = 0 ;
A v r g P i p s L o s s = 0 ;
W i n T r a d e s = 0 ;
L o s s T r a d e s = 0 ;
S l i p p a g e O r d e r s = 0 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( O r d e r s H i s t o r y T o t a l ( ) > 0 )
{
f o r ( i = 0 ; i < O r d e r s H i s t o r y T o t a l ( ) ; i + + )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ H I S T O R Y ) = = f a l s e ) c o n t i n u e ;
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ H I S T O R Y ) )
{
i f ( ( O r d e r M a g i c N u m b e r ( ) ! = M a g i c N u m b e r ) | | ( O r d e r S y m b o l ( ) ! = S y m b o l ( ) ) ) c o n t i n u e ;
i f ( ( O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r ) & & ( O r d e r S y m b o l ( ) = = S y m b o l ( ) ) )
{
i f ( ( O r d e r T y p e ( ) = = O P _ B U Y ) | | ( O r d e r T y p e ( ) = = O P _ S E L L ) )
{
T o t a l T r a d e s + + ;
i f ( T e s t i n g M o d e = = t r u e )
{
i f ( ! ( ( T i m e D a y O f W e e k ( O r d e r O p e n T i m e ( ) ) = = 5 ) & & ( T i m e D a y O f W e e k ( O r d e r C l o s e T i m e ( ) ) = = 1 ) ) ) A v r g D u r a t i o n + = T i m e S e c o n d s ( O r d e r C l o s e T i m e ( ) - O r d e r O p e n T i m e ( ) ) ;
}
T o t a l P r o f i t L o s s + = O r d e r P r o f i t ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) ;
i f ( O r d e r T y p e ( ) = = O P _ B U Y )
{
i f ( O r d e r T i c k e t ( ) = = T i c k e t L a s t S t o p L o s s ) S l i p p a g e O r d e r s = ( O r d e r C l o s e P r i c e ( ) - L a s t S t o p L o s s ) / D i g i t s P o i n t s ;
H i s t o r y P i p s + = ( O r d e r C l o s e P r i c e ( ) - O r d e r O p e n P r i c e ( ) ) / D i g i t s P o i n t s ;
i f ( T e s t i n g M o d e = = t r u e )
{
i f ( O r d e r C l o s e P r i c e ( ) > O r d e r O p e n P r i c e ( ) ) { A v r g P i p s P r o f i t + = ( O r d e r C l o s e P r i c e ( ) - O r d e r O p e n P r i c e ( ) ) / D i g i t s P o i n t s ; W i n T r a d e s + + ; }
i f ( O r d e r C l o s e P r i c e ( ) < O r d e r O p e n P r i c e ( ) ) { A v r g P i p s L o s s + = ( O r d e r C l o s e P r i c e ( ) - O r d e r O p e n P r i c e ( ) ) / D i g i t s P o i n t s ; L o s s T r a d e s + + ; }
}
}
i f ( O r d e r T y p e ( ) = = O P _ S E L L )
{
i f ( O r d e r T i c k e t ( ) = = T i c k e t L a s t S t o p L o s s ) S l i p p a g e O r d e r s = ( L a s t S t o p L o s s - O r d e r C l o s e P r i c e ( ) ) / D i g i t s P o i n t s ;
H i s t o r y P i p s + = ( O r d e r O p e n P r i c e ( ) - O r d e r C l o s e P r i c e ( ) ) / D i g i t s P o i n t s ;
i f ( T e s t i n g M o d e = = t r u e )
{
i f ( O r d e r C l o s e P r i c e ( ) < O r d e r O p e n P r i c e ( ) ) { A v r g P i p s P r o f i t + = ( O r d e r O p e n P r i c e ( ) - O r d e r C l o s e P r i c e ( ) ) / D i g i t s P o i n t s ; W i n T r a d e s + + ; }
i f ( O r d e r C l o s e P r i c e ( ) > O r d e r O p e n P r i c e ( ) ) { A v r g P i p s L o s s + = ( O r d e r O p e n P r i c e ( ) - O r d e r C l o s e P r i c e ( ) ) / D i g i t s P o i n t s ; L o s s T r a d e s + + ; }
}
}
}
}
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / G e t a v e r a g e v a l u e s
i f ( T e s t i n g M o d e = = t r u e )
{
i f ( T o t a l T r a d e s > 0 ) A v r g D u r a t i o n / = T o t a l T r a d e s ;
i f ( W i n T r a d e s > 0 ) A v r g P i p s P r o f i t / = W i n T r a d e s ;
i f ( L o s s T r a d e s > 0 ) A v r g P i p s L o s s / = L o s s T r a d e s ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d G e t A v r g S p r e a d ( d o u b l e C u r r S p r e a d )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e S u m S p r e a d = 0 ;
i n t L o o p C o u n t = T i m e s F o r A v e r a g e - 1 ;
A v g S p r e a d = 0 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( C o u n t T i c k S p r e a d P a i r < T i m e s F o r A v e r a g e ) C o u n t T i c k S p r e a d P a i r + + ;
C o u n t T i c k S p r e a d = C o u n t T i c k S p r e a d P a i r ;
A r r a y C o p y ( A r r a y S p r e a d P a i r , A r r a y S p r e a d P a i r , 0 , 1 , T i m e s F o r A v e r a g e - 1 ) ;
A r r a y S p r e a d P a i r [ T i m e s F o r A v e r a g e - 1 ] = C u r r S p r e a d ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
f o r ( C o u n t = 0 ; C o u n t < C o u n t T i c k S p r e a d P a i r ; C o u n t + + )
{
S u m S p r e a d + = A r r a y S p r e a d P a i r [ L o o p C o u n t ] ;
L o o p C o u n t - - ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( C o u n t T i c k S p r e a d > 0 ) A v g S p r e a d = N o r m a l i z e D o u b l e ( S u m S p r e a d / C o u n t T i c k S p r e a d , 2 ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d C o u n t A v r g E x e c u t i o n ( d a t e t i m e L a t e n c y )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d a t e t i m e S u m E x e c u t i o n = 0 ;
i n t L o o p C o u n t = T i m e s F o r A v e r a g e - 1 ;
A v g E x e c u t i o n = 0 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( C o u n t T i m e s M o d i f y < T i m e s F o r A v e r a g e ) C o u n t T i m e s M o d i f y + + ;
T i m e s M o d i f y = C o u n t T i m e s M o d i f y ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
A r r a y C o p y ( A r r a y E x e c u t i o n , A r r a y E x e c u t i o n , 0 , 1 , T i m e s F o r A v e r a g e - 1 ) ;
A r r a y E x e c u t i o n [ T i m e s F o r A v e r a g e - 1 ] = L a t e n c y ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
f o r ( C o u n t = 0 ; C o u n t < C o u n t T i m e s M o d i f y ; C o u n t + + )
{
S u m E x e c u t i o n + = A r r a y E x e c u t i o n [ L o o p C o u n t ] ;
L o o p C o u n t - - ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( T i m e s M o d i f y > 0 ) A v g E x e c u t i o n = N o r m a l i z e D o u b l e ( S u m E x e c u t i o n / T i m e s M o d i f y , 2 ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d C o u n t A v r g S l i p p a g e ( d o u b l e S l i p p i n g )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e S u m S l i p p a g e = 0 ;
i n t L o o p C o u n t = T i m e s F o r A v e r a g e - 1 ;
A v g S l i p p a g e = 0 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( C o u n t T i m e s C l o s e < T i m e s F o r A v e r a g e ) C o u n t T i m e s C l o s e + + ;
T i m e s C l o s e = C o u n t T i m e s C l o s e ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
A r r a y C o p y ( A r r a y S l i p p a g e , A r r a y S l i p p a g e , 0 , 1 , T i m e s F o r A v e r a g e - 1 ) ;
A r r a y S l i p p a g e [ T i m e s F o r A v e r a g e - 1 ] = S l i p p i n g ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
f o r ( C o u n t = 0 ; C o u n t < C o u n t T i m e s C l o s e ; C o u n t + + )
{
S u m S l i p p a g e + = A r r a y S l i p p a g e [ L o o p C o u n t ] ;
L o o p C o u n t - - ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( T i m e s C l o s e > 0 ) A v g S l i p p a g e = N o r m a l i z e D o u b l e ( S u m S l i p p a g e / T i m e s C l o s e , 2 ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d C l e a r C h a r t ( )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( T i m e C u r r e n t ( ) - T i m e D e l e t e O b j e c t s > = D e l e t e M i n u t e s * 6 0 )
{
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( O b j e c t N a m e ( i ) ! = B a c k g r o u n d N a m e ) O b j e c t D e l e t e ( O b j e c t N a m e ( i ) ) ;
T i m e D e l e t e O b j e c t s = T i m e C u r r e n t ( ) ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d C h a r t B a c k g r o u n d ( s t r i n g S t r i n g N a m e , c o l o r I m a g e C o l o r , i n t X p o s i t i o n , i n t Y p o s i t i o n , i n t X s i z e , i n t Y s i z e )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( O b j e c t F i n d ( 0 , S t r i n g N a m e ) = = - 1 )
{
O b j e c t C r e a t e ( 0 , S t r i n g N a m e , O B J _ R E C T A N G L E _ L A B E L , 0 , 0 , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , S t r i n g N a m e , O B J P R O P _ X D I S T A N C E , X p o s i t i o n ) ;
O b j e c t S e t I n t e g e r ( 0 , S t r i n g N a m e , O B J P R O P _ Y D I S T A N C E , Y p o s i t i o n ) ;
O b j e c t S e t I n t e g e r ( 0 , S t r i n g N a m e , O B J P R O P _ X S I Z E , X s i z e ) ;
O b j e c t S e t I n t e g e r ( 0 , S t r i n g N a m e , O B J P R O P _ Y S I Z E , Y s i z e ) ;
O b j e c t S e t I n t e g e r ( 0 , S t r i n g N a m e , O B J P R O P _ B G C O L O R , I m a g e C o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , S t r i n g 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 ( 0 , S t r i n g 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 B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , S t r i n g 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 ( 0 , S t r i n g 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 ( 0 , S t r i n g N a m e , O B J P R O P _ S E L E C T E D , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , S t r i n g N a m e , O B J P R O P _ H I D D E N , t r u e ) ;
O b j e c t S e t I n t e g e r ( 0 , S t r i n g N a m e , O B J P R O P _ Z O R D E R , 0 ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
v o i d S c r e e n C o m m e n t ( i n t T y p e C o m m )
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / S t r i n g s
s t r i n g L a s t L i n e 1 ;
s t r i n g L a s t L i n e 2 ;
d o u b l e S h o w A v g S p r e a d ;
d o u b l e S h o w A v g E x e c u t i o n ;
d o u b l e S h o w A v g S l i p p a g e ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / - - - N o r m a l
i f ( T y p e C o m m = = 1 )
{
L a s t L i n e 1 = " H i s t o r y O r d e r s / P i p s : " + D o u b l e T o S t r ( T o t a l T r a d e s , 0 ) + " / " + D o u b l e T o S t r ( H i s t o r y P i p s , 2 ) ;
L a s t L i n e 2 = " H i s t o r y P r o f i t / L o s s : " + D o u b l e T o S t r ( T o t a l P r o f i t L o s s , 2 ) ;
}
/ / - - - S p r e a d
i f ( T y p e C o m m = = 2 )
{
L a s t L i n e 1 = " S p r e a d + C o m m i s s i o n i s t o o h i g h ! ! ! " ;
L a s t L i n e 2 = " E x p e r t S t o p p e d T o T r a d e ! ! ! " ;
}
/ / - - - M a r g i n
i f ( T y p e C o m m = = 3 )
{
L a s t L i n e 1 = " A c c o u n t F r e e M a r g i n I s T o o L o w ! ! ! " ;
L a s t L i n e 2 = " E x p e r t S t o p p e d T o T r a d e ! ! ! " ;
}
/ / - - - S t o p l e v e l
i f ( T y p e C o m m = = 4 )
{
L a s t L i n e 1 = " B r o k e r S t o p L e v e l i s T o o H i g h ! ! ! " ;
L a s t L i n e 2 = " E x p e r t S t o p p e d T o T r a d e ! ! ! " ;
}
/ / - - - L o c k e d
i f ( T y p e C o m m = = 5 )
{
L a s t L i n e 1 = L o c k e d I n f o ;
L a s t L i n e 2 = " n i k o l a o s p a n t z o s @ g m a i l . c o m " ;
}
/ / - - - T i m e
i f ( T y p e C o m m = = 6 )
{
L a s t L i n e 1 = " O u t O f S e s s i o n M a r k e t ! ! ! " ;
L a s t L i n e 2 = " E x p e r t S t o p p e d T o T r a d e ! ! ! " ;
}
/ / - - - A u t o t r a d i n g
i f ( T y p e C o m m = = 7 )
{
L a s t L i n e 1 = " P l e a s e T u r n O n ' A u t o T r a d i n g ' " ;
L a s t L i n e 2 = " E x p e r t w a i t T o T r a d e ! ! ! " ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / S e t a v e r a g e s v a l u e
i f ( C o u n t A v g S p r e a d = = f a l s e ) S h o w A v g S p r e a d = 0 ; e l s e S h o w A v g S p r e a d = A v g S p r e a d + R e a l C o m m i s s i o n ;
i f ( C o u n t A v g E x e c u t i o n = = f a l s e ) S h o w A v g E x e c u t i o n = 0 ; e l s e S h o w A v g E x e c u t i o n = A v g E x e c u t i o n ;
i f ( C o u n t A v g S l i p p a g e = = f a l s e ) S h o w A v g S l i p p a g e = 0 ; e l s e S h o w A v g S l i p p a g e = A v g S l i p p a g e ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / S c r e e n i n f o a n d c o m m e n t s
C o m m e n t ( " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "
+ " \ n " + E x p e r t C o m m e n t s + " 2 0 1 8 b y P a n n i k ® "
+ " \ n - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "
+ " \ n O r d e r s I D : " + D o u b l e T o S t r ( M a g i c N u m b e r , 0 )
+ " \ n L o t S i z e : " + D o u b l e T o S t r ( L o t S i z e , 2 )
+ " \ n S t o p L e v e l : " + D o u b l e T o S t r ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S T O P L E V E L ) / M u l t i p l i e r P o i n t , 2 )
+ " \ n L i m i t S p r e a d : " + D o u b l e T o S t r ( M a x S p r e a d , 2 )
+ " \ n S p r e a d / A v r g : " + D o u b l e T o S t r ( S p r e a d P i p s , 2 ) + " / " + D o u b l e T o S t r ( S h o w A v g S p r e a d , 2 ) + " ( p i p s ) "
+ " \ n E x e c u t i o n / A v r g : " + D o u b l e T o S t r ( L a s t O p e r a t i o n D e l a y , 0 ) + " / " + D o u b l e T o S t r ( S h o w A v g E x e c u t i o n , 0 ) + " ( m s ) "
+ " \ n S l i p p a g e / A v r g : " + D o u b l e T o S t r ( S l i p p a g e O r d e r s , 2 ) + " / " + D o u b l e T o S t r ( S h o w A v g S l i p p a g e , 2 ) + " ( p i p s ) "
+ " \ n C o m m i s s i o n s : " + S h o w I n f o C o m m i s s i o n
+ " \ n - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "
+ " \ n " + L a s t L i n e 1
+ " \ n " + L a s t L i n e 2
+ " \ n - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - " ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = / /
Comments