5
Views
0
Downloads
0
Favorites
KS-ADX.2
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | K S - A D X . 2 . m q 4 |
/ / | C o p y r i g h t 2 0 1 9 , K & S |
/ / | h t t p : / / A n - S M . r u |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# 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 9 , K & S "
# p r o p e r t y l i n k " h t t p s : / / A n - S M . r u "
# p r o p e r t y v e r s i o n " 2 . 0 0 "
# p r o p e r t y s t r i c t
/ / - - - i n p u t p a r a m e t e r s
i n p u t E N U M _ T I M E F R A M E S t i m e f r a m e _ a l l = 6 0 ;
i n p u t i n t p e r i o d _ a l l = 2 6 ;
i n p u t i n t l i n e U p U p = 3 0 ; / / 5@E=89 ?@545; :>@84>@0
i n p u t i n t l i n e U p = 2 5 ; / / 86=89 ?@545; :>@84>@0
i n p u t i n t l i n e D n = 1 5 ; / / 5@5A5G5=85 A D X 8 ( D I + | | D I - )
e x t e r n d o u b l e L o t = 0 . 0 1 ; / / 07<5@ ;>B0
i n p u t i n t T P = 0 ; / / @8 0 70:@KB85 ?> B@59;8=3C
e x t e r n b o o l o p e n t y p e 1 = t r u e ; / / B:@KB85 ?> B8?C 1
i n p u t i n t S L = 0 ; / / !B>?;>AA 4;O 1 B8?0 ( 0 ?> D@0:B0;C)
e x t e r n b o o l o p e n t y p e 2 = t r u e ; / / B:@KB85 ?> B8?C 2
i n p u t i n t S L 2 = 0 ; / / !B>?;>AA 4;O 2 B8?0
e x t e r n i n t s l i p p a g e = 3 ; / / @>A:0;L7K20=85
e x t e r n i n t t r a l = 1 5 0 ; / / "@59;8=3 2 ?8?A0E
e x t e r n i n t M a g i c = 0 ;
e x t e r n b o o l p r o f i t _ t e s t = t r u e ; / / >=B@>;8@>20BL ?@>D8B?
e x t e r n d o u b l e p r o c e n t = 2 5 ; / / @>F5=B ?@>A04:8
e x t e r n b o o l c e l e b r a t e = t r u e ; / / 5 B>@3>20BL 2 ?@074=8:8 8 ?>A;54=89 45=L
e x t e r n b o o l h o u r _ 0 0 = t r u e ;
e x t e r n b o o l h o u r _ 0 1 = t r u e ;
e x t e r n b o o l h o u r _ 0 2 = t r u e ;
e x t e r n b o o l h o u r _ 0 3 = t r u e ;
e x t e r n b o o l h o u r _ 0 4 = t r u e ;
e x t e r n b o o l h o u r _ 0 5 = t r u e ;
e x t e r n b o o l h o u r _ 0 6 = t r u e ;
e x t e r n b o o l h o u r _ 0 7 = t r u e ;
e x t e r n b o o l h o u r _ 0 8 = t r u e ;
e x t e r n b o o l h o u r _ 0 9 = t r u e ;
e x t e r n b o o l h o u r _ 1 0 = t r u e ;
e x t e r n b o o l h o u r _ 1 1 = t r u e ;
e x t e r n b o o l h o u r _ 1 2 = t r u e ;
e x t e r n b o o l h o u r _ 1 3 = t r u e ;
e x t e r n b o o l h o u r _ 1 4 = t r u e ;
e x t e r n b o o l h o u r _ 1 5 = t r u e ;
e x t e r n b o o l h o u r _ 1 6 = t r u e ;
e x t e r n b o o l h o u r _ 1 7 = t r u e ;
e x t e r n b o o l h o u r _ 1 8 = t r u e ;
e x t e r n b o o l h o u r _ 1 9 = t r u e ;
e x t e r n b o o l h o u r _ 2 0 = t r u e ;
e x t e r n b o o l h o u r _ 2 1 = t r u e ;
e x t e r n b o o l h o u r _ 2 2 = t r u e ;
e x t e r n b o o l h o u r _ 2 3 = t r u e ;
d a t e t i m e T i m e B a r = 0 ;
d o u b l e M I N L O T , M A X L O T ;
d o u b l e l a s t F r a c t a l U p , l a s t F r a c t a l D n ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t i n i t i a l i z a t i o n f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O n I n i t ( )
{
/ / - - - c r e a t e t i m e r
E v e n t S e t T i m e r ( 6 0 ) ;
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 I N L O T ) ;
M A X 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 t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t d e i n i t i a l i z a t i o n f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 s t r o y t i m e r
E v e n t K i l l T i m e r ( ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t t i c k f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i c k ( )
{
/ / - - -
d o u b l e M a x O r d e r B u y = 0 , M i n O r d e r S e l l = 0 , M i n O r d e r B u y = 0 , M a x O r d e r S e l l = 0 , O L = 0 , L B = 0 , L S = 0 , P B = 0 , P S = 0 ;
d o u b l e P r o f i t = 0 , P r o f i t B = 0 , P r o f i t S = 0 , t S L = 0 , t T P = 0 ;
d o u b l e p i p s = 0 ;
i n t i = 0 , b = 0 , s = 0 , t i p ;
d o u b l e O O P ;
b o o l t m p ;
/ / i n t i , b = 0 , s = 0 , t i p ;
i f ( i F r a c t a l s ( N U L L , t i m e f r a m e _ a l l , M O D E _ U P P E R , 2 ) > 0 ) l a s t F r a c t a l U p = i F r a c t a l s ( N U L L , t i m e f r a m e _ a l l , M O D E _ U P P E R , 2 ) ;
i f ( i F r a c t a l s ( N U L L , t i m e f r a m e _ a l l , M O D E _ L O W E R , 2 ) > 0 ) l a s t F r a c t a l D n = i F r a c t a l s ( N U L L , t i m e f r a m e _ a l l , M O D E _ L O W E R , 2 ) ;
i f ( T i m e B a r = = i T i m e ( N U L L , t i m e f r a m e _ a l l , 0 ) ) r e t u r n ;
d o u b l e L o t s = 0 , R S I 1 = 0 , R S I 0 = 0 , A D X m 1 = 0 , A D X p 1 = 0 , A D X g 1 = 0 , A D X m 2 = 0 , A D X p 2 = 0 , A D X g 2 = 0 , A D X m 3 = 0 , A D X p 3 = 0 , A D X g 3 = 0 ,
M A C D m 0 = 0 , M A C D s 0 = 0 , M A C D m 1 = 0 , M A C D s 1 = 0 ,
E n v H = 0 , E n v L = 0 , B o l M = 0 , i b u = 0 , i b e = 0 , F r a c U p = 0 , F r a c D n = 0 ;
/ / B o l M = i B a n d s ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , o t k l o n e n i e , 0 , P R I C E _ C L O S E , M O D E _ M A I N , 2 ) ;
/ / E n v H = i E n v e l o p e s ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , M O D E _ S M A , 0 , P R I C E _ C L O S E , o t k l o n e n i e , M O D E _ U P P E R , 2 ) ;
/ / E n v L = i E n v e l o p e s ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , M O D E _ S M A , 0 , P R I C E _ C L O S E , o t k l o n e n i e , M O D E _ L O W E R , 2 ) ;
/ / F r a c U p = i F r a c t a l s ( N U L L , t i m e f r a m e _ a l l , M O D E _ U P P E R , 2 ) ;
/ / F r a c D n = i F r a c t a l s ( N U L L , t i m e f r a m e _ a l l , M O D E _ L O W E R , 2 ) ;
A D X g 1 = i A D X ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , P R I C E _ C L O S E , M O D E _ M A I N , 1 ) ;
A D X p 1 = i A D X ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , P R I C E _ C L O S E , M O D E _ P L U S D I , 1 ) ;
A D X m 1 = i A D X ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , P R I C E _ C L O S E , M O D E _ M I N U S D I , 1 ) ;
A D X g 2 = i A D X ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , P R I C E _ C L O S E , M O D E _ M A I N , 2 ) ;
A D X p 2 = i A D X ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , P R I C E _ C L O S E , M O D E _ P L U S D I , 2 ) ;
A D X m 2 = i A D X ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , P R I C E _ C L O S E , M O D E _ M I N U S D I , 2 ) ;
A D X g 3 = i A D X ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , P R I C E _ C L O S E , M O D E _ M A I N , 3 ) ;
A D X p 3 = i A D X ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , P R I C E _ C L O S E , M O D E _ P L U S D I , 3 ) ;
A D X m 3 = i A D X ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , P R I C E _ C L O S E , M O D E _ M I N U S D I , 3 ) ;
/ / P r i n t ( F r a c U p , " - " , F r a c D n ) ;
/ / P r i n t ( " F r a c D n < B o l L " , L o w [ 1 ] , " < " , B o l L , " | A D X 0 < l i n e " , A D X 0 , " < " , l i n e , " | A D X m > l i n e " , A D X m , " > " , l i n e ) ;
/ / @>25@:0 CA;>289 4;O >B:@KB8O 2 B U Y 20@80=B 1
i f ( o p e n t y p e 1 & & ! c e l e b r a t e _ e n d d a y ( ) & & h o u r _ t e s t ( ) & & A D X g 3 < A D X g 2 & & A D X g 2 < A D X g 1 & &
A D X m 2 > A D X g 2 & & A D X m 1 < A D X g 1 & & A D X g 2 < l i n e D n & & A D X p 2 > l i n e U p & & A D X p 2 < l i n e U p U p & &
/ / i W P R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l * 2 , 1 ) < - 2 0 & & i W P R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l * 2 , 1 ) > - 5 0 )
i A T R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , 3 ) < i A T R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , 1 ) )
{
{
L o t s = N o r m a l i z e D o u b l e ( L o t , D i g i t s ) ;
i f ( L o t s > M A X L O T ) L o t s = M A X L O T ;
i f ( L o t s < M I N L O T ) L o t s = M I N L O T ;
t S L = 0 ;
i f ( S L = = 0 ) t S L = N o r m a l i z e D o u b l e ( l a s t F r a c t a l D n , D i g i t s ) ;
e l s e t S L = N o r m a l i z e D o u b l e ( A s k - S L * P o i n t , D i g i t s ) ;
i f ( A s k - t S L < 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 ) * P o i n t ) t S L = N o r m a l i z e D o u b l e ( A s k - 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 ) * P o i n t , D i g i t s ) ;
/ / P r i n t ( " A s k - " , A s k , " S L - " , N o r m a l i z e D o u b l e ( A s k - S L * P o i n t , D i g i t s ) , " T P - " , N o r m a l i z e D o u b l e ( A s k + T P * P o i n t , D i g i t s ) ) ;
/ / P r i n t ( " t S L - " , t S L , " A s k - " , A s k , " M i n S L - " , 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 ) * P o i n t ) ;
i f ( T P ! = 0 ) t T P = N o r m a l i z e D o u b l e ( A s k + T P * P o i n t , D i g i t s ) ;
e l s e t T P = 0 ;
i f ( C h e c k _ S L _ T P ( O R D E R _ T Y P E _ B U Y , t S L , t T P ) & & C h e c k M o n e y F o r T r a d e ( N U L L , L o t s , O P _ B U Y ) )
{
i f ( O r d e r S e n d ( S y m b o l ( ) , O P _ B U Y , L o 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 ) , s l i p p a g e , t S L , t T P , " A D X . 1 " , M a g i c , 0 , C L R _ N O N E ) = = - 1 )
P r i n t ( " H81:0 " , G e t L a s t E r r o r ( ) , " >B:@KB8O >@45@0 " ) ;
e l s e T i m e B a r = i T i m e ( N U L L , t i m e f r a m e _ a l l , 0 ) ;
}
}
}
/ / @>25@:0 CA;>289 4;O >B:@KB8O 2 S E L L 20@80=B 1
L o t s = 0 ;
/ / P r i n t ( " F r a c U p > B o l H " , H i g h [ 1 ] , " > " , B o l H , " | A D X 0 < l i n e " , A D X 0 , " < " , l i n e , " | A D X p > l i n e " , A D X p , " > " , l i n e ) ;
i f ( o p e n t y p e 1 & & ! c e l e b r a t e _ e n d d a y ( ) & & h o u r _ t e s t ( ) & & A D X g 3 < A D X g 2 & & A D X g 2 < A D X g 1 & &
A D X p 2 > A D X g 2 & & A D X p 1 < A D X g 1 & & A D X g 2 < l i n e D n & & A D X m 2 > l i n e U p & & A D X m 2 < l i n e U p U p & &
/ / i W P R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l * 2 , 1 ) < - 5 0 & & i W P R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l * 2 , 1 ) > - 8 0 )
i A T R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , 3 ) > i A T R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , 1 ) )
{
{
L o t s = N o r m a l i z e D o u b l e ( L o t , D i g i t s ) ;
i f ( L o t s > M A X L O T ) L o t s = M A X L O T ;
i f ( L o t s < M I N L O T ) L o t s = M I N L O T ;
t S L = 0 ;
i f ( S L = = 0 ) t S L = N o r m a l i z e D o u b l e ( l a s t F r a c t a l U p , D i g i t s ) ;
e l s e t S L = N o r m a l i z e D o u b l e ( B i d + S L * P o i n t , D i g i t s ) ;
i f ( t S L - B i d < 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 ) * P o i n t ) t S L = N o r m a l i z e D o u b l e ( B i d + 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 ) * P o i n t , D i g i t s ) ;
/ / P r i n t ( " B i d - " , B i d , " S L - " , N o r m a l i z e D o u b l e ( B i d + S L * P o i n t , D i g i t s ) , " T P - " , N o r m a l i z e D o u b l e ( B i d - T P * P o i n t , D i g i t s ) ) ;
/ / P r i n t ( " t S L - " , t S L , " B i d - " , B i d , " M i n S L - " , 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 ) * P o i n t ) ;
i f ( T P ! = 0 ) t T P = N o r m a l i z e D o u b l e ( B i d - T P * P o i n t , D i g i t s ) ;
e l s e t T P = 0 ;
i f ( C h e c k _ S L _ T P ( O R D E R _ T Y P E _ S E L L , t S L , t T P ) & & C h e c k M o n e y F o r T r a d e ( N U L L , L o t s , O P _ S E L L ) )
{
i f ( O r d e r S e n d ( S y m b o l ( ) , O P _ S E L L , L o 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 ) , s l i p p a g e , t S L , t T P , " A D X . 1 " , M a g i c , 0 , C L R _ N O N E ) = = - 1 )
P r i n t ( " H81:0 " , G e t L a s t E r r o r ( ) , " >B:@KB8O >@45@0 " ) ;
e l s e T i m e B a r = i T i m e ( N U L L , t i m e f r a m e _ a l l , 0 ) ;
}
}
}
/ / @>25@:0 CA;>289 4;O >B:@KB8O 2 B U Y 20@80=B 2
/ / P r i n t ( " A D X m 1 - " , A D X m 1 , " A D X m 2 - " , A D X m 2 , " A D X m 3 - " , A D X m 3 ) ;
/ / P r i n t ( " A D X p 1 - " , A D X p 1 , " A D X p 2 - " , A D X p 2 , " A D X p 3 - " , A D X p 3 ) ;
/ / P r i n t ( " A D X g 1 - " , A D X g 1 , " A D X g 2 - " , A D X g 2 , " A D X g 3 - " , A D X g 3 ) ;
i f ( o p e n t y p e 2 & & ! c e l e b r a t e _ e n d d a y ( ) & & h o u r _ t e s t ( ) & & A D X g 3 < A D X g 2 & & A D X g 2 < A D X g 1 & &
A D X m 2 > A D X g 2 & & A D X m 1 < A D X g 1 & & A D X g 1 > l i n e U p & & A D X p 1 < l i n e D n & &
/ / i W P R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , 1 ) < - 8 0 )
i A T R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , 3 ) < i A T R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , 1 ) )
{
{
L o t s = N o r m a l i z e D o u b l e ( L o t , D i g i t s ) ;
i f ( L o t s > M A X L O T ) L o t s = M A X L O T ;
i f ( L o t s < M I N L O T ) L o t s = M I N L O T ;
t S L = 0 ;
i f ( S L 2 = = 0 ) t S L = 0 ;
e l s e t S L = N o r m a l i z e D o u b l e ( A s k - S L 2 * P o i n t , D i g i t s ) ;
i f ( t S L ! = 0 & & A s k - t S L < 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 ) * P o i n t ) t S L = N o r m a l i z e D o u b l e ( A s k - 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 ) * P o i n t , D i g i t s ) ;
/ / P r i n t ( " A s k - " , A s k , " S L - " , N o r m a l i z e D o u b l e ( A s k - S L * P o i n t , D i g i t s ) , " T P - " , N o r m a l i z e D o u b l e ( A s k + T P * P o i n t , D i g i t s ) ) ;
/ / P r i n t ( " t S L - " , t S L , " A s k - " , A s k , " M i n S L - " , 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 ) * P o i n t ) ;
i f ( T P ! = 0 ) t T P = N o r m a l i z e D o u b l e ( A s k + T P * P o i n t , D i g i t s ) ;
e l s e t T P = 0 ;
i f ( C h e c k _ S L _ T P ( O R D E R _ T Y P E _ B U Y , t S L , t T P ) & & C h e c k M o n e y F o r T r a d e ( N U L L , L o t s , O P _ B U Y ) )
{
i f ( O r d e r S e n d ( S y m b o l ( ) , O P _ B U Y , L o 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 ) , s l i p p a g e , t S L , t T P , " A D X . 2 " , M a g i c , 0 , C L R _ N O N E ) = = - 1 )
P r i n t ( " H81:0 " , G e t L a s t E r r o r ( ) , " >B:@KB8O >@45@0 " ) ;
e l s e T i m e B a r = i T i m e ( N U L L , t i m e f r a m e _ a l l , 0 ) ;
}
}
}
/ / @>25@:0 CA;>289 4;O >B:@KB8O 2 S E L L 20@80=B 2
L o t s = 0 ;
/ / P r i n t ( " F r a c U p > B o l H " , H i g h [ 1 ] , " > " , B o l H , " | A D X 0 < l i n e " , A D X 0 , " < " , l i n e , " | A D X p > l i n e " , A D X p , " > " , l i n e ) ;
i f ( o p e n t y p e 2 & & ! c e l e b r a t e _ e n d d a y ( ) & & h o u r _ t e s t ( ) & & A D X g 3 < A D X g 2 & & A D X g 2 < A D X g 1 & &
A D X p 2 > A D X g 2 & & A D X p 1 < A D X g 1 & & A D X g 1 > l i n e U p & & A D X m 1 < l i n e D n & &
/ / i W P R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , 1 ) > - 2 0 )
i A T R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , 3 ) > i A T R ( N U L L , t i m e f r a m e _ a l l , p e r i o d _ a l l , 1 ) )
{
{
L o t s = N o r m a l i z e D o u b l e ( L o t , D i g i t s ) ;
i f ( L o t s > M A X L O T ) L o t s = M A X L O T ;
i f ( L o t s < M I N L O T ) L o t s = M I N L O T ;
t S L = 0 ;
i f ( S L 2 = = 0 ) t S L = 0 ;
e l s e t S L = N o r m a l i z e D o u b l e ( B i d + S L 2 * P o i n t , D i g i t s ) ;
i f ( t S L ! = 0 & & t S L - B i d < 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 ) * P o i n t ) t S L = N o r m a l i z e D o u b l e ( B i d + 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 ) * P o i n t , D i g i t s ) ;
/ / P r i n t ( " B i d - " , B i d , " S L - " , N o r m a l i z e D o u b l e ( B i d + S L * P o i n t , D i g i t s ) , " T P - " , N o r m a l i z e D o u b l e ( B i d - T P * P o i n t , D i g i t s ) ) ;
/ / P r i n t ( " t S L - " , t S L , " B i d - " , B i d , " M i n S L - " , 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 ) * P o i n t ) ;
i f ( T P ! = 0 ) t T P = N o r m a l i z e D o u b l e ( B i d - T P * P o i n t , D i g i t s ) ;
e l s e t T P = 0 ;
i f ( C h e c k _ S L _ T P ( O R D E R _ T Y P E _ S E L L , t S L , t T P ) & & C h e c k M o n e y F o r T r a d e ( N U L L , L o t s , O P _ S E L L ) )
{
i f ( O r d e r S e n d ( S y m b o l ( ) , O P _ S E L L , L o 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 ) , s l i p p a g e , t S L , t T P , " A D X . 2 " , M a g i c , 0 , C L R _ N O N E ) = = - 1 )
P r i n t ( " H81:0 " , G e t L a s t E r r o r ( ) , " >B:@KB8O >@45@0 " ) ;
e l s e T i m e B a r = i T i m e ( N U L L , t i m e f r a m e _ a l l , 0 ) ;
}
}
}
/ / @>25@:0 =0 B@59;8=3
f o r ( i = 0 ; i < O r d e r s 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 _ T R A D E S ) )
{
i f ( O r d e r S y m b o l ( ) = = S y m b o l ( ) & & M a g i c = = O r d e r M a g i c N u m b e r ( ) )
{
t i p = O r d e r T y p e ( ) ;
O 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 ) ;
O L = O r d e r L o t s ( ) ;
i f ( t i p = = O P _ B U Y )
{
P B + = O O P * O L ; L B + = O L ;
P r o f i t B + = 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 ( ) ;
b + + ;
i f ( P r o f i t B > 0 & & B i d > N o r m a l i z e D o u b l e ( ( O O P + ( t r a l + 5 ) * P o i n t ) , D i g i t s ) )
{
i f ( O r d e r S t o p L o s s ( ) < O r d e r O p e n P r i c e ( ) | | O r d e r S t o p L o s s ( ) = = 0 )
{
i f ( O r d e r S t o p L o s s ( ) ! = N o r m a l i z e D o u b l e ( ( O O P + t r a l * P o i n t ) , D i g i t s ) )
{
t S L = N o r m a l i z e D o u b l e ( ( O O P + t r a l * P o i n t ) , D i g i t s ) ;
t T P = O r d e r T a k e P r o f i t ( ) ;
i f ( C h e c k _ S L _ T P ( O R D E R _ T Y P E _ B U Y , t S L , t T P ) )
t m p = O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , t S L , t T P , O r d e r E x p i r a t i o n ( ) , c l r N O N E ) ;
}
}
e l s e
i f ( O r d e r 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 ( ) + ( 5 ) * P o i n t ) , D i g i t s ) )
{
t S L = 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 ( ) + ( 5 ) * P o i n t ) , D i g i t s ) ;
t T P = O r d e r T a k e P r o f i t ( ) ;
i f ( C h e c k _ S L _ T P ( O R D E R _ T Y P E _ B U Y , t S L , t T P ) )
t m p = O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , t S L , t T P , O r d e r E x p i r a t i o n ( ) , c l r N O N E ) ;
}
i f ( G e t L a s t E r r o r ( ) = = 4 0 5 1 ) P r i n t ( " H81:0 " , G e t L a s t E r r o r ( ) , " t r a l >@45@0 B U Y " ) ;
}
}
i f ( t i p = = O P _ S E L L )
{
P S + = O O P * O L ; L S + = O L ;
P r o f i t 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 ( ) ;
s + + ;
i f ( P r o f i t S > 0 & & A s k < N o r m a l i z e D o u b l e ( ( O O P - ( t r a l + 5 ) * P o i n t ) , D i g i t s ) )
{
/ / P r i n t ( A s k , " < " , N o r m a l i z e D o u b l e ( ( O O P - ( t r a l + 5 ) * P o i n t ) , D i g i t s ) ) ;
/ / P r i n t ( O r d e r S t o p L o s s ( ) , " > " , O r d e r O p e n P r i c e ( ) ) ;
i f ( O r d e r S t o p L o s s ( ) > O r d e r O p e n P r i c e ( ) | | O r d e r S t o p L o s s ( ) = = 0 )
{
i f ( O r d e r S t o p L o s s ( ) ! = N o r m a l i z e D o u b l e ( ( O O P - t r a l * P o i n t ) , D i g i t s ) )
{
t S L = N o r m a l i z e D o u b l e ( ( O O P - t r a l * P o i n t ) , D i g i t s ) ;
t T P = O r d e r T a k e P r o f i t ( ) ;
i f ( C h e c k _ S L _ T P ( O R D E R _ T Y P E _ S E L L , t S L , t T P ) )
t m p = O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , t S L , t T P , O r d e r E x p i r a t i o n ( ) , c l r N O N E ) ;
}
}
e l s e
{
/ / P r i n t ( O r d e r 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 ( ) - ( 5 ) * P o i n t ) , D i g i t s ) ) ;
i f ( O r d e r 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 ( ) - ( 5 ) * P o i n t ) , D i g i t s ) )
{
t S L = 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 ( ) - ( 5 ) * P o i n t ) , D i g i t s ) ;
t T P = O r d e r T a k e P r o f i t ( ) ;
i f ( C h e c k _ S L _ T P ( O R D E R _ T Y P E _ S E L L , t S L , t T P ) )
t m p = O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , t S L , t T P , O r d e r E x p i r a t i o n ( ) , c l r N O N E ) ;
}
}
i f ( G e t L a s t E r r o r ( ) = = 4 0 5 1 ) P r i n t ( " H81:0 " , G e t L a s t E r r o r ( ) , " t r a l >@45@0 S E L L " ) ;
}
}
}
}
}
/ / 0:@KB85 2A5E B U Y ?@8 ?@>D8B5 <5=55 p r o c e n t
i f ( p r o f i t _ t e s t & & P r o f i t B < - p r o c e n t * A c c o u n t B a l a n c e ( ) / 1 0 0 )
{
/ / P r i n t ( P r o f i t B , " < " , p r o c e n t , " / " , 1 0 0 , " * " , A c c o u n t B a l a n c e ( ) , " = " , - p r o c e n t * A c c o u n t B a l a n c e ( ) / 1 0 0 ) ;
f o r ( i = 0 ; i < O r d e r s 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 _ T R A D E S ) )
{
i f ( O r d e r S y m b o l ( ) = = S y m b o l ( ) & & M a g i c = = O r d e r M a g i c N u m b e r ( ) )
{
t i p = O r d e r T y p e ( ) ;
i f ( t i p = = O P _ B U Y )
{
t m p = O r d e r C l o s e ( O r d e r T i c k e t ( ) , O r d e r L o t s ( ) , B i d , s l i p p a g e , c l r N O N E ) ;
}
}
}
}
}
/ / 0:@KB85 2A5E S E L L ?@8 ?@>D8B5 <5=55 p r o c e n t
i f ( p r o f i t _ t e s t & & P r o f i t S < - p r o c e n t * A c c o u n t B a l a n c e ( ) / 1 0 0 )
{
/ / P r i n t ( P r o f i t S , " < " , p r o c e n t , " / " , 1 0 0 , " * " , A c c o u n t B a l a n c e ( ) , " = " , - p r o c e n t * A c c o u n t B a l a n c e ( ) / 1 0 0 ) ;
f o r ( i = 0 ; i < O r d e r s 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 _ T R A D E S ) )
{
i f ( O r d e r S y m b o l ( ) = = S y m b o l ( ) & & M a g i c = = O r d e r M a g i c N u m b e r ( ) )
{
t i p = O r d e r T y p e ( ) ;
i f ( t i p = = O P _ S E L L )
{
t m p = O r d e r C l o s e ( O r d e r T i c k e t ( ) , O r d e r L o t s ( ) , A s k , s l i p p a g e , c l r N O N E ) ;
}
}
}
}
}
} / / >=5F F8:;0
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C h e c k _ S L _ T P ( E N U M _ O R D E R _ T Y P E t y p e , d o u b l e t t S L , d o u b l e t t T P )
{
/ / - - - ?>;CG8< C@>25=L S Y M B O L _ T R A D E _ S T O P S _ L E V E L
i n t s t o p s _ 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 b o l , S Y M B O L _ T R A D E _ S T O P S _ L E V E L ) ;
/ / i f ( s t o p s _ l e v e l ! = 0 )
/ / {
/ / P r i n t F o r m a t ( " S Y M B O L _ T R A D E _ S T O P S _ L E V E L = % d : S t o p L o s s 8 T a k e P r o f i t 4>;6=K 1KBL" +
/ / " =5 1;865 % d ?C=:B>2 >B F5=K 70:@KB8O" , s t o p s _ l e v e l , s t o p s _ l e v e l ) ;
/ / }
/ / - - -
b o o l S L _ c h e c k = f a l s e , T P _ c h e c k = f a l s e ;
/ / - - - ?@>25@O5< B>;L:> 420 B8?0 >@45@>2
s w i t c h ( t y p e )
{
/ / - - - >?5@0F8O ?>:C?:0
c a s e O R D E R _ T Y P E _ B U Y :
{
/ / - - - ?@>25@8< S t o p L o s s
i f ( t t S L ! = 0 ) S L _ c h e c k = ( B i d - t t S L > s t o p s _ l e v e l * _ P o i n t ) ; e l s e S L _ c h e c k = t r u e ;
i f ( ! S L _ c h e c k )
P r i n t F o r m a t ( " F o r o r d e r % s S t o p L o s s = % . 5 f m u s t b e l e s s t h a n % . 5 f " +
" ( B i d = % . 5 f - S Y M B O L _ T R A D E _ S T O P S _ L E V E L = % d ?C=:B>2) " ,
E n u m T o S t r i n g ( t y p e ) , t t S L , B i d - s t o p s _ l e v e l * _ P o i n t , B i d , s t o p s _ l e v e l ) ;
/ / - - - ?@>25@8< T a k e P r o f i t
i f ( t t T P ! = 0 ) T P _ c h e c k = ( t t T P - B i d > s t o p s _ l e v e l * _ P o i n t ) ; e l s e T P _ c h e c k = t r u e ;
i f ( ! T P _ c h e c k )
P r i n t F o r m a t ( " F o r o r d e r % s T a k e P r o f i t = % . 5 f m u s t b e g r e a t e r t h a n % . 5 f " +
" ( B i d = % . 5 f + S Y M B O L _ T R A D E _ S T O P S _ L E V E L = % d ?C=:B>2) " ,
E n u m T o S t r i n g ( t y p e ) , t t T P , B i d + s t o p s _ l e v e l * _ P o i n t , B i d , s t o p s _ l e v e l ) ;
/ / - - - 25@=5< @57C;LB0B ?@>25@:8
r e t u r n ( S L _ c h e c k & & T P _ c h e c k ) ;
}
/ / - - - >?5@0F8O ?@>4060
c a s e O R D E R _ T Y P E _ S E L L :
{
/ / - - - ?@>25@8< S t o p L o s s
i f ( t t S L ! = 0 ) S L _ c h e c k = ( t t S L - A s k > s t o p s _ l e v e l * _ P o i n t ) ; e l s e S L _ c h e c k = t r u e ;
i f ( ! S L _ c h e c k )
P r i n t F o r m a t ( " F o r o r d e r % s S t o p L o s s = % . 5 f m u s t b e g r e a t e r t h a n % . 5 f " +
" ( A s k = % . 5 f + S Y M B O L _ T R A D E _ S T O P S _ L E V E L = % d ?C=:B>2) " ,
E n u m T o S t r i n g ( t y p e ) , t t S L , A s k + s t o p s _ l e v e l * _ P o i n t , A s k , s t o p s _ l e v e l ) ;
/ / - - - ?@>25@8< T a k e P r o f i t
i f ( t t T P ! = 0 ) T P _ c h e c k = ( A s k - t t T P > s t o p s _ l e v e l * _ P o i n t ) ; e l s e T P _ c h e c k = t r u e ;
i f ( ! T P _ c h e c k )
P r i n t F o r m a t ( " F o r o r d e r % s T a k e P r o f i t = % . 5 f m u s t b e l e s s t h a n % . 5 f " +
" ( A s k = % . 5 f - S Y M B O L _ T R A D E _ S T O P S _ L E V E L = % d ?C=:B>2) " ,
E n u m T o S t r i n g ( t y p e ) , t t T P , A s k - s t o p s _ l e v e l * _ P o i n t , A s k , s t o p s _ l e v e l ) ;
/ / - - - 25@=5< @57C;LB0B ?@>25@:8
r e t u r n ( T P _ c h e c k & & S L _ c h e c k ) ;
}
b r e a k ;
}
/ / - - - 4;O >B;>65==KE >@45@>2 =C6=0 =5<=>3> 4@C30O DC=:F8O
r e t u r n f a l s e ;
}
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 , i n t t y p e )
{
d o u b l e 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 , t y p e , l o t s ) ;
/ / - - 5A;8 45=53 =5 E20B05B
i f ( f r e e _ m a r g i n < 0 )
{
s t r i n g o p e r = ( t y p e = = O P _ B U Y ) ? " B u y " : " S e l l " ;
P r i n t ( " N o t e n o u g h m o n e y f o r " , o p e r , " " , l o t s , " " , s y m b , " E r r o r c o d e = " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - ?@>25@:0 ?@>H;0 CA?5H=>
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | T i m e r f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i m e r ( )
{
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l c e l e b r a t e _ e n d d a y ( )
{
b o o l c e l e b = f a l s e ;
s w i t c h ( M o n t h ( ) )
{
c a s e 1 : i f ( D a y ( ) > = 1 & & D a y ( ) < 8 ) c e l e b = t r u e ; b r e a k ;
c a s e 2 : i f ( D a y ( ) = = 2 8 | | D a y ( ) = = 2 9 ) c e l e b = t r u e ; b r e a k ;
c a s e 3 : i f ( D a y ( ) = = 3 1 ) c e l e b = t r u e ; b r e a k ;
c a s e 4 : i f ( D a y ( ) = = 3 0 ) c e l e b = t r u e ; b r e a k ;
c a s e 5 : i f ( D a y ( ) = = 3 1 ) c e l e b = t r u e ; b r e a k ;
c a s e 6 : i f ( D a y ( ) = = 3 0 ) c e l e b = t r u e ; b r e a k ;
c a s e 7 : i f ( D a y ( ) = = 3 1 ) c e l e b = t r u e ; b r e a k ;
c a s e 8 : i f ( D a y ( ) = = 3 1 ) c e l e b = t r u e ; b r e a k ;
c a s e 9 : i f ( D a y ( ) = = 3 0 ) c e l e b = t r u e ; b r e a k ;
c a s e 1 0 : i f ( D a y ( ) = = 3 1 ) c e l e b = t r u e ; b r e a k ;
c a s e 1 1 : i f ( D a y ( ) = = 3 0 ) c e l e b = t r u e ; b r e a k ;
c a s e 1 2 : i f ( D a y ( ) > 2 3 & & D a y ( ) < = 3 1 ) c e l e b = t r u e ; b r e a k ;
d e f a u l t : c e l e b = f a l s e ; b r e a k ;
}
i f ( c e l e b r a t e ) r e t u r n ( c e l e b ) ;
e l s e r e t u r n ( f a l s e ) ;
}
/ / P r o v e r k a p o c h a s a m
b o o l h o u r _ t e s t ( )
{
b o o l t e s t = f a l s e ;
s w i t c h ( H o u r ( ) )
{
c a s e 0 : i f ( h o u r _ 0 0 ) t e s t = t r u e ; b r e a k ;
c a s e 1 : i f ( h o u r _ 0 1 ) t e s t = t r u e ; b r e a k ;
c a s e 2 : i f ( h o u r _ 0 2 ) t e s t = t r u e ; b r e a k ;
c a s e 3 : i f ( h o u r _ 0 3 ) t e s t = t r u e ; b r e a k ;
c a s e 4 : i f ( h o u r _ 0 4 ) t e s t = t r u e ; b r e a k ;
c a s e 5 : i f ( h o u r _ 0 5 ) t e s t = t r u e ; b r e a k ;
c a s e 6 : i f ( h o u r _ 0 6 ) t e s t = t r u e ; b r e a k ;
c a s e 7 : i f ( h o u r _ 0 7 ) t e s t = t r u e ; b r e a k ;
c a s e 8 : i f ( h o u r _ 0 8 ) t e s t = t r u e ; b r e a k ;
c a s e 9 : i f ( h o u r _ 0 9 ) t e s t = t r u e ; b r e a k ;
c a s e 1 0 : i f ( h o u r _ 1 0 ) t e s t = t r u e ; b r e a k ;
c a s e 1 1 : i f ( h o u r _ 1 1 ) t e s t = t r u e ; b r e a k ;
c a s e 1 2 : i f ( h o u r _ 1 2 ) t e s t = t r u e ; b r e a k ;
c a s e 1 3 : i f ( h o u r _ 1 3 ) t e s t = t r u e ; b r e a k ;
c a s e 1 4 : i f ( h o u r _ 1 4 ) t e s t = t r u e ; b r e a k ;
c a s e 1 5 : i f ( h o u r _ 1 5 ) t e s t = t r u e ; b r e a k ;
c a s e 1 6 : i f ( h o u r _ 1 6 ) t e s t = t r u e ; b r e a k ;
c a s e 1 7 : i f ( h o u r _ 1 7 ) t e s t = t r u e ; b r e a k ;
c a s e 1 8 : i f ( h o u r _ 1 8 ) t e s t = t r u e ; b r e a k ;
c a s e 1 9 : i f ( h o u r _ 1 9 ) t e s t = t r u e ; b r e a k ;
c a s e 2 0 : i f ( h o u r _ 2 0 ) t e s t = t r u e ; b r e a k ;
c a s e 2 1 : i f ( h o u r _ 2 1 ) t e s t = t r u e ; b r e a k ;
c a s e 2 2 : i f ( h o u r _ 2 2 ) t e s t = t r u e ; b r e a k ;
c a s e 2 3 : i f ( h o u r _ 2 3 ) t e s t = t r u e ; b r e a k ;
}
i f ( t e s t ) 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 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | T e s t e r f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e G e t R e c o v e r y F a c t o r ( v o i d )
{
d o u b l e R e s = 0 ;
d o u b l e M a x D D = T e s t e r S t a t i s t i c s ( S T A T _ E Q U I T Y _ D D ) ;
i f ( M a x D D ! = 0 )
R e s = T e s t e r S t a t i s t i c s ( S T A T _ P R O F I T ) / M a x D D ;
r e t u r n ( R e s ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e O n T e s t e r ( v o i d )
{
r e t u r n ( G e t R e c o v e r y F a c t o r ( ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
Comments