881 lines
52 KiB
MQL5
881 lines
52 KiB
MQL5
|
<EFBFBD><EFBFBD># i f n d e f S E T K A _ M Q H
|
|||
|
|
# d e f i n e S E T K A _ M Q H
|
|||
|
|
|
|||
|
|
/ / A?>;L7>20=85 181;8>B5:8 C L o g 4 m q l
|
|||
|
|
# i f d e f U S E _ L O G 4 M Q L
|
|||
|
|
# i n c l u d e " . . \ L i b s \ l o g 4 m q l . m q h "
|
|||
|
|
C L o g 4 m q l * l o g 4 = C L o g 4 m q l : : g e t I n s t a n c e ( ) ;
|
|||
|
|
# e l s e
|
|||
|
|
# d e f i n e _ T R A C E ( m s g ) ;
|
|||
|
|
# d e f i n e _ D E B U G ( m s g ) ;
|
|||
|
|
# d e f i n e _ I N F O ( m s g ) ;
|
|||
|
|
# d e f i n e _ W A R N ( m s g ) ;
|
|||
|
|
# d e f i n e _ E R R O R ( m s g ) ;
|
|||
|
|
# d e f i n e _ C R I T ( m s g ) ;
|
|||
|
|
# d e f i n e _ B 2 S ( B ) ( ( B ) ? " T r u e " : " F a l s e " )
|
|||
|
|
# d e f i n e _ C H E C K _ T R A C E ( n a m e , c a c h e , v a l ) ;
|
|||
|
|
# e n d i f
|
|||
|
|
|
|||
|
|
# i f d e f T R A C E
|
|||
|
|
# d e f i n e a d x m 5 t _ a d x
|
|||
|
|
# i n c l u d e < M Q L 5 T r a c e \ V i e w \ T r a c e V i e w . m q h >
|
|||
|
|
# u n d e f a d x
|
|||
|
|
# e l s e
|
|||
|
|
# d e f i n e _ I N ( d e s c ) ;
|
|||
|
|
# d e f i n e _ I N 1 ( d e s c ) ;
|
|||
|
|
# d e f i n e _ I N 2 ( d e s c ) ;
|
|||
|
|
# d e f i n e _ I N 3 ( d e s c ) ;
|
|||
|
|
# d e f i n e _ I N 4 ( d e s c ) ;
|
|||
|
|
# d e f i n e _ I N 5 ( d e s c ) ;
|
|||
|
|
# d e f i n e _ W A T C H ( w , v ) ;
|
|||
|
|
# d e f i n e _ B R K U S E S ( u ) ;
|
|||
|
|
# e n d i f / / T R A C E
|
|||
|
|
# i n c l u d e " e n u m / e n u m . m q h "
|
|||
|
|
# i n c l u d e " d e f i n e s . m q h "
|
|||
|
|
# i n c l u d e " l o g i c _ h a n d l e r . m q h "
|
|||
|
|
# i n c l u d e " a p i . m q h "
|
|||
|
|
|
|||
|
|
|
|||
|
|
# i f n d e f F O R _ O P T I M I Z A T I O N
|
|||
|
|
# i n c l u d e " . . \ L i b s \ C t r l P a n e l \ C t r l P a n e l . m q h "
|
|||
|
|
C C t r l P a n e l B a s e * C t r l P a n e l = N U L L ;
|
|||
|
|
# e n d i f / / F O R _ O P T I M I Z A T I O N
|
|||
|
|
|
|||
|
|
|
|||
|
|
# p r o p e r t y v e r s i o n V E R
|
|||
|
|
# d e f i n e T O S T R ( A ) " " + # A + " = " + ( s t r i n g ) T i c k . A
|
|||
|
|
|
|||
|
|
|
|||
|
|
l o g i c _ h a n d l e r * s h o r t _ h d ;
|
|||
|
|
l o g i c _ h a n d l e r * l o n g _ h d ;
|
|||
|
|
t i m e r _ t * l i f e _ t i m e r ;
|
|||
|
|
b o o l _ i n i t _ f a i l e d = f a l s e ;
|
|||
|
|
|
|||
|
|
# i f d e f F O R _ O P T I M I Z A T I O N
|
|||
|
|
i n t _ l a s t _ o r d e r _ c o u n t ;
|
|||
|
|
M q l D a t e T i m e _ p r e v _ d a t e ;
|
|||
|
|
/ / d a t e t i m e _ p r e v _ d a t e ;
|
|||
|
|
# e n d i f / / F O R _ O P T I M I Z A T I O N
|
|||
|
|
# i f d e f U S E _ F I L T E R S
|
|||
|
|
# i n c l u d e " f i l t e r s / e n t r y _ p o i n t . m q h "
|
|||
|
|
# e n d i f
|
|||
|
|
|
|||
|
|
# i f d e f R S I _ C C I
|
|||
|
|
# i n c l u d e " r s i _ c c i / c a l c _ r c . m q h "
|
|||
|
|
# i n c l u d e " r s i _ c c i / e n t r y _ p o i n t . m q h "
|
|||
|
|
# e n d i f
|
|||
|
|
|
|||
|
|
# i f n d e f F O R _ O P T I M I Z A T I O N
|
|||
|
|
|
|||
|
|
# i n c l u d e " t e s t / t e s t . m q h "
|
|||
|
|
|
|||
|
|
|
|||
|
|
/ / # d e f i n e B 2 S ( B ) B ? " T r u e " : " F a l s e "
|
|||
|
|
|
|||
|
|
v o i d s h o w _ m a r k e t _ i n f o ( )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
M q l T i c k T i c k ;
|
|||
|
|
S y m b o l I n f o T i c k ( C U R R E N T _ S Y M B O L , T i c k ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ L O W , d t o s ( k e r n e l _ m a r k e t : : p r i c e _ d a y _ m i n ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ H I G H , d t o s ( k e r n e l _ m a r k e t : : p r i c e _ d a y _ m a x ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ T I M E , T i m e T o S t r i n g ( k e r n e l _ m a r k e t : : t i c k _ l a s t _ t i m e ( ) , T I M E _ D A T E | T I M E _ M I N U T E S | T I M E _ S E C O N D S ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ B I D , d t o s ( l a y e r _ m a r k e t : : p r i c e _ b u y ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ A S K , d t o s ( l a y e r _ m a r k e t : : p r i c e _ s e l l ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ P O I N T , d t o s ( l a y e r _ m a r k e t : : p o i n t ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ D I G I T S , i t o s ( k e r n e l _ m a r k e t : : d i g i t s ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ S P R E A D , i t o s ( l a y e r _ m a r k e t : : s p r e a d ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ S T O P L E V E L , d t o s ( l a y e r _ m a r k e t : : s t o p _ l e v e l ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ L O T S I Z E , d t o s ( l a y e r _ m a r k e t : : l o t _ s i z e ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ T I C K V A L U E , d t o s ( l a y e r _ m a r k e t : : t i c k _ v a l u e ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ T I C K S I Z E , d t o s ( l a y e r _ m a r k e t : : t i c k _ s i z e ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ S W A P L O N G , d t o s ( k e r n e l _ m a r k e t : : s w a p _ l o n g ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ S W A P S H O R T , d t o s ( k e r n e l _ m a r k e t : : s w a p _ s h o r t ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ S T A R T I N G , T i m e T o S t r i n g ( k e r n e l _ m a r k e t : : s t a r t i n g ( ) , T I M E _ D A T E | T I M E _ M I N U T E S | T I M E _ S E C O N D S ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ E X P I R A T I O N , T i m e T o S t r i n g ( k e r n e l _ m a r k e t : : e x p i r a t i o n ( ) , T I M E _ D A T E | T I M E _ M I N U T E S | T I M E _ S E C O N D S ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ T R A D E A L L O W E D , k e r n e l _ m a r k e t : : t r a d e _ a l l o w e d ( ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ M I N L O T , d t o s ( l a y e r _ m a r k e t : : l o t _ m i n ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ L O T S T E P , d t o s ( l a y e r _ m a r k e t : : l o t _ s t e p ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ M A X L O T , d t o s ( k e r n e l _ m a r k e t : : l o t _ m a x ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ S W A P T Y P E , E n u m T o S t r i n g ( k e r n e l _ m a r k e t : : s w a p _ t y p e ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ P R O F I T C A L C M O D E , E n u m T o S t r i n g ( k e r n e l _ m a r k e t : : p r o f i t _ c a l c _ t y p e ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ M A R G I N C A L C M O D E , E n u m T o S t r i n g ( k e r n e l _ m a r k e t : : m a r g i n _ c a l c _ t y p e ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ M A R G I N I N I T , d t o s ( k e r n e l _ m a r k e t : : m a r g i n _ i n i t ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ M A R G I N M A I N T E N A N C E , d t o s ( k e r n e l _ m a r k e t : : m a r g i n _ m a i n t e n a n c e ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ M A R G I N H E D G E D , d t o s ( k e r n e l _ m a r k e t : : m a r g i n _ h e d g e d ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ M A R G I N R E Q U I R E D , d t o s ( l a y e r _ m a r k e t : : m a r g i n _ r e q u i r e d ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ M O D E _ F R E E Z E L E V E L , d t o s ( k e r n e l _ m a r k e t : : f r e e z e _ l e v e l ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ T E R M I N A L _ V E R S I O N _ M S G , i t o s ( T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ B U I L D ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ V E R S I O N _ M S G , V E R , i t o s ( B U I L D ) , t t o s ( _ _ D A T E T I M E _ _ ) , ( " " + " t i m e = " + T i m e T o S t r i n g ( T i c k . t i m e ) + " . " + : : I n t e g e r T o S t r i n g ( T i c k . t i m e _ m s c % 1 0 0 0 , 3 , ' 0 ' ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ A C C O U N T _ C O M P A N Y , k e r n e l _ a c c o u n t : : c o m p a n y ( ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ A C C O U N T _ C U R R E N C Y , l a y e r _ a c c o u n t : : c u r r e n c y ( ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ A C C O U N T _ L E V E R A G E , i t o s ( l a y e r : : a c c o u n t _ l e v e r a g e ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( e x t _ s t r i n g : : g e t _ h a s h ( i t o s ( k e r n e l _ a c c o u n t : : n u m b e r ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ A C C O U N T _ S E R V E R , k e r n e l _ a c c o u n t : : s e r v e r ( ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ A C C O U N T _ S T O P O U T , i t o s ( ( i n t ) k e r n e l _ a c c o u n t : : s t o p o u t _ l e v e l ( ) ) ) ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ A C C O U N T _ S T O P O U T _ M O D E , i t o s ( k e r n e l _ a c c o u n t : : s t o p o u t _ m o d e ( ) ) ) ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i n t O n I n i t ( )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
# i f d e f T R A C E
|
|||
|
|
/ / * * * * * * * * * * * * * * * * T R A C E
|
|||
|
|
m _ t r a c e v i e w = n e w C T r a c e V i e w ; / / A>740;8 >B>1@065=85 3@0D
|
|||
|
|
m _ t r a c e = n e w C T r a c e C t r l ; / / A>740;8 3@0D
|
|||
|
|
m _ t r a c e v i e w . m _ t r a c e = m _ t r a c e ; / / ?>4A>548=8;8 3@0D
|
|||
|
|
m _ t r a c e . m _ t r a c e v i e w = m _ t r a c e v i e w ; / / ?>4A>548=8;8 >B>1@065=85 3@0D0
|
|||
|
|
|
|||
|
|
i f ( ! k e r n e l _ a c c o u n t : : i s _ t e s t i n g ( ) )
|
|||
|
|
m _ t r a c e v i e w . C r e a t e ( C h a r t I D ( ) ) ; / / A>740;8 G0@B
|
|||
|
|
/ / * * * * * * * * * * * * * * * *
|
|||
|
|
# e n d i f / / T R A C E
|
|||
|
|
/ / - - -
|
|||
|
|
/ / - - - r u n t i m e r
|
|||
|
|
i f ( ! k e r n e l _ a c c o u n t : : i s _ t e s t i n g ( ) )
|
|||
|
|
E v e n t S e t T i m e r ( 1 ) ;
|
|||
|
|
O n T i m e r ( ) ;
|
|||
|
|
/ / - - - d o n e
|
|||
|
|
_ i n i t _ f a i l e d = f a l s e ;
|
|||
|
|
|
|||
|
|
g c : : i n i t ( ) ;
|
|||
|
|
t o o l _ c a c h e : : u p d a t e _ i n s t a n c e _ s t a t e ( ) ;
|
|||
|
|
|
|||
|
|
i f ( ! l a y e r _ a c c o u n t : : i s _ t e s t i n g ( ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l i f e _ t i m e r = t i m e r _ t : : c r e a t e ( 6 0 ) ;
|
|||
|
|
g c : : p u s h ( g c _ d i s p o s e _ t y p e _ o n _ e n d _ d e i n i t , l i f e _ t i m e r ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
s h o w _ m a r k e t _ i n f o ( ) ;
|
|||
|
|
|
|||
|
|
d o u b l e l o t _ s t e p = l a y e r _ m a r k e t : : l o t _ s t e p ( ) ;
|
|||
|
|
i n t l o t _ e x p = g e t _ l o t _ e x p _ b y _ m i n l o t ( l o t _ s t e p ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ C O U N T _ S Y M B O L _ F O R _ A V G , ( i n t ) l o t _ e x p ) ) ;
|
|||
|
|
|
|||
|
|
i f ( l o t _ e x p = = - 1 ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l o g _ e r r o r ( S t r i n g F o r m a t ( S R C _ S E T K A _ N O T _ G O O D _ L O T S T E P , l o t _ s t e p ) ) ;
|
|||
|
|
_ i n i t _ f a i l e d = t r u e ;
|
|||
|
|
r e t u r n I N I T _ F A I L E D ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i f ( ! d e f i n e s _ v a l i d a t e ( ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l o g _ e r r o r ( S R C _ S E T K A _ V A L I D _ N O T _ G O O D ) ;
|
|||
|
|
_ i n i t _ f a i l e d = t r u e ;
|
|||
|
|
r e t u r n I N I T _ F A I L E D ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i f ( ! t e s t : : a l l ( ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l o g _ e r r o r ( S R C _ S E T K A _ T E S T _ N O T _ G O O D ) ;
|
|||
|
|
_ i n i t _ f a i l e d = t r u e ;
|
|||
|
|
r e t u r n I N I T _ F A I L E D ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
l o g _ i n f o ( S R C _ S E T K A _ T E S T _ G O O D ) ;
|
|||
|
|
|
|||
|
|
s e t t i n g _ t * s h o r t _ s e t t i n g s = d e f i n e s _ c r e a t e ( f a l s e , l o t _ e x p ) ;
|
|||
|
|
g c : : p u s h ( g c _ d i s p o s e _ t y p e _ o n _ e n d _ d e i n i t , s h o r t _ s e t t i n g s ) ;
|
|||
|
|
s e t t i n g _ t * l o n g _ s e t t i n g s = d e f i n e s _ c r e a t e ( t r u e , l o t _ e x p ) ;
|
|||
|
|
g c : : p u s h ( g c _ d i s p o s e _ t y p e _ o n _ e n d _ d e i n i t , l o n g _ s e t t i n g s ) ;
|
|||
|
|
|
|||
|
|
l a y e r _ o r d e r : : i n i t ( ) ;
|
|||
|
|
s h o r t _ h d = n e w l o g i c _ h a n d l e r ( f a l s e , s h o r t _ s e t t i n g s ) ;
|
|||
|
|
l o n g _ h d = n e w l o g i c _ h a n d l e r ( t r u e , l o n g _ s e t t i n g s ) ;
|
|||
|
|
|
|||
|
|
i n t m a x _ o r d e r _ c o u n t = s h o r t _ s e t t i n g s . m a x _ o p e n _ o r d e r s + l o n g _ s e t t i n g s . m a x _ o p e n _ o r d e r s ;
|
|||
|
|
f a c t o r y _ c _ o r d e r : : i n i t ( m a x _ o r d e r _ c o u n t ) ;
|
|||
|
|
f a c t o r y _ o r d e r _ o p e r a t i o n : : i n i t ( m a x _ o r d e r _ c o u n t ) ;
|
|||
|
|
|
|||
|
|
i f ( ! l a y e r _ a c c o u n t : : i s _ t e s t i n g ( ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
a p i : : s e t _ s h o r t _ h a n d l e r ( s h o r t _ h d ) ;
|
|||
|
|
a p i : : s e t _ l o n g _ h a n d l e r ( l o n g _ h d ) ;
|
|||
|
|
a p i : : s e t _ t i m e s ( G l o b a l P a r a m s U p d a t e T i m i n g ) ;
|
|||
|
|
a p i : : i n i t ( ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
d e f i n e s _ i n i t _ s c h e d u l e r ( ) ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
# i f d e f U S E _ F I L T E R S
|
|||
|
|
/ / I n d i c a t o r s i n t i t i a l i s a t i o n - - -
|
|||
|
|
i f ( c a l c _ a d x : : I n i t ( s h o r t _ s e t t i n g s ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n ( I N I T _ F A I L E D ) ;
|
|||
|
|
} ;
|
|||
|
|
|
|||
|
|
i f ( c a l c _ o s c : : I n i t ( s h o r t _ s e t t i n g s ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n ( I N I T _ F A I L E D ) ;
|
|||
|
|
} ;
|
|||
|
|
# e n d i f
|
|||
|
|
# i f d e f R S I _ C C I
|
|||
|
|
i f ( c a l c _ r c : : I n i t ( s h o r t _ s e t t i n g s ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n ( I N I T _ F A I L E D ) ;
|
|||
|
|
} ;
|
|||
|
|
# e n d i f
|
|||
|
|
/ / - - - e l a v r 2 0 2 0 1 1 0 2 C t r l P a n e l
|
|||
|
|
C t r l P a n e l = C r e a t e C t r l P a n e l ( ) ;
|
|||
|
|
i f ( C t r l P a n e l = = N U L L | | ! C t r l P a n e l . O n I n i t E v e n t ( ) )
|
|||
|
|
{
|
|||
|
|
r e t u r n ( I N I T _ F A I L E D ) ;
|
|||
|
|
}
|
|||
|
|
C t r l P a n e l . D r a w P a n e l I n f o ( ) ;
|
|||
|
|
|
|||
|
|
l o g _ i n f o ( S R C _ S E T K A _ I N I T _ C O M P L E T E D ) ;
|
|||
|
|
|
|||
|
|
r e t u r n I N I T _ S U C C E E D E D ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# e l s e / / F O R _ O P T I M I Z A T I O N
|
|||
|
|
|
|||
|
|
i n t O n I n i t ( )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
# i f d e f T R A C E
|
|||
|
|
/ / * * * * * * * * * * * * * * * * T R A C E
|
|||
|
|
m _ t r a c e v i e w = n e w C T r a c e V i e w ; / / A>740;8 >B>1@065=85 3@0D
|
|||
|
|
m _ t r a c e = n e w C T r a c e C t r l ; / / A>740;8 3@0D
|
|||
|
|
m _ t r a c e v i e w . m _ t r a c e = m _ t r a c e ; / / ?>4A>548=8;8 3@0D
|
|||
|
|
m _ t r a c e . m _ t r a c e v i e w = m _ t r a c e v i e w ; / / ?>4A>548=8;8 >B>1@065=85 3@0D0
|
|||
|
|
m _ t r a c e v i e w . C r e a t e ( C h a r t I D ( ) ) ; / / A>740;8 G0@B
|
|||
|
|
/ / * * * * * * * * * * * * * * * *
|
|||
|
|
# e n d i f / / T R A C E
|
|||
|
|
|
|||
|
|
/ / - - - r u n t i m e r
|
|||
|
|
i f ( ! k e r n e l _ a c c o u n t : : i s _ t e s t i n g ( ) )
|
|||
|
|
E v e n t S e t T i m e r ( 1 ) ;
|
|||
|
|
O n T i m e r ( ) ;
|
|||
|
|
/ / - - - d o n e
|
|||
|
|
Z e r o M e m o r y ( _ p r e v _ d a t e ) ;
|
|||
|
|
_ i n i t _ f a i l e d = f a l s e ;
|
|||
|
|
|
|||
|
|
i f ( ! l a y e r _ a c c o u n t : : i s _ o p t i m i z a t i o n ( )
|
|||
|
|
& & ! l a y e r _ a c c o u n t : : i s _ t e s t i n g ( ) )
|
|||
|
|
{
|
|||
|
|
_ i n i t _ f a i l e d = t r u e ;
|
|||
|
|
A l e r t ( S t r i n g F o r m a t ( " % s " , S R C _ S E T K A _ E R R O R _ O P T _ F O R _ R E A L ) ) ;
|
|||
|
|
r e t u r n I N I T _ F A I L E D ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
g c : : i n i t ( ) ;
|
|||
|
|
t o o l _ c a c h e : : u p d a t e _ i n s t a n c e _ s t a t e ( ) ;
|
|||
|
|
|
|||
|
|
d o u b l e l o t _ s t e p = l a y e r _ m a r k e t : : l o t _ s t e p ( ) ;
|
|||
|
|
i n t l o t _ e x p = g e t _ l o t _ e x p _ b y _ m i n l o t ( l o t _ s t e p ) ;
|
|||
|
|
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ C O U N T _ S Y M B O L _ F O R _ A V G , ( i n t ) l o t _ e x p ) ) ;
|
|||
|
|
|
|||
|
|
i f ( l o t _ e x p = = - 1 ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l o g _ e r r o r ( S t r i n g F o r m a t ( S R C _ S E T K A _ N O T _ G O O D _ L O T S T E P , l o t _ s t e p ) ) ;
|
|||
|
|
_ i n i t _ f a i l e d = t r u e ;
|
|||
|
|
r e t u r n I N I T _ F A I L E D ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i f ( ! d e f i n e s _ v a l i d a t e ( ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l o g _ e r r o r ( S R C _ S E T K A _ V A L I D _ N O T _ G O O D ) ;
|
|||
|
|
_ i n i t _ f a i l e d = t r u e ;
|
|||
|
|
r e t u r n I N I T _ P A R A M E T E R S _ I N C O R R E C T ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
s e t t i n g _ t * s h o r t _ s e t t i n g s = d e f i n e s _ c r e a t e ( f a l s e , l o t _ e x p ) ;
|
|||
|
|
g c : : p u s h ( g c _ d i s p o s e _ t y p e _ o n _ e n d _ d e i n i t , s h o r t _ s e t t i n g s ) ;
|
|||
|
|
s e t t i n g _ t * l o n g _ s e t t i n g s = d e f i n e s _ c r e a t e ( t r u e , l o t _ e x p ) ;
|
|||
|
|
g c : : p u s h ( g c _ d i s p o s e _ t y p e _ o n _ e n d _ d e i n i t , l o n g _ s e t t i n g s ) ;
|
|||
|
|
|
|||
|
|
l a y e r _ o r d e r : : i n i t ( ) ;
|
|||
|
|
s h o r t _ h d = n e w l o g i c _ h a n d l e r ( f a l s e , s h o r t _ s e t t i n g s ) ;
|
|||
|
|
l o n g _ h d = n e w l o g i c _ h a n d l e r ( t r u e , l o n g _ s e t t i n g s ) ;
|
|||
|
|
|
|||
|
|
i n t m a x _ o r d e r _ c o u n t = s h o r t _ s e t t i n g s . m a x _ o p e n _ o r d e r s + l o n g _ s e t t i n g s . m a x _ o p e n _ o r d e r s ;
|
|||
|
|
f a c t o r y _ c _ o r d e r : : i n i t ( m a x _ o r d e r _ c o u n t ) ;
|
|||
|
|
f a c t o r y _ o r d e r _ o p e r a t i o n : : i n i t ( m a x _ o r d e r _ c o u n t ) ;
|
|||
|
|
|
|||
|
|
d e f i n e s _ i n i t _ s c h e d u l e r ( ) ;
|
|||
|
|
|
|||
|
|
# i f d e f R S I _ C C I
|
|||
|
|
i f ( c a l c _ r c : : I n i t ( s h o r t _ s e t t i n g s ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n ( I N I T _ F A I L E D ) ;
|
|||
|
|
} ;
|
|||
|
|
# e n d i f
|
|||
|
|
# i f d e f U S E _ F I L T E R S
|
|||
|
|
/ / I n d i c a t o r s i n t i t i a l i s a t i o n - - -
|
|||
|
|
i f ( c a l c _ a d x : : I n i t ( s h o r t _ s e t t i n g s ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n ( I N I T _ F A I L E D ) ;
|
|||
|
|
} ;
|
|||
|
|
i f ( c a l c _ o s c : : I n i t ( s h o r t _ s e t t i n g s ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n ( I N I T _ F A I L E D ) ;
|
|||
|
|
} ;
|
|||
|
|
# e n d i f
|
|||
|
|
|
|||
|
|
r e t u r n I N I T _ S U C C E E D E D ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# e n d i f
|
|||
|
|
|
|||
|
|
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 )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
s t r i n g r e a s o n _ s t r = e r r o r _ d e i n i t _ r e a s o n ( r e a s o n ) ;
|
|||
|
|
|
|||
|
|
i f ( r e a s o n _ s t r ! = N U L L ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ D E I N I T _ R E A S O N , r e a s o n _ s t r ) ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/ / - - - e l a v r :>=B@>; ?0=5;L
|
|||
|
|
# i f n d e f F O R _ O P T I M I Z A T I O N
|
|||
|
|
i f ( C t r l P a n e l ! = N U L L )
|
|||
|
|
{
|
|||
|
|
C t r l P a n e l . O n D e i n i t E v e n t ( r e a s o n ) ;
|
|||
|
|
d e l e t e C t r l P a n e l ;
|
|||
|
|
C t r l P a n e l = N U L L ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# e n d i f
|
|||
|
|
|
|||
|
|
i f ( s h o r t _ h d ! = N U L L ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
d e l e t e s h o r t _ h d ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i f ( l o n g _ h d ! = N U L L ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
d e l e t e l o n g _ h d ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
a p i : : d e i n i t ( ) ;
|
|||
|
|
g c : : d e i n i t ( ) ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
# i f n d e f F O R _ O P T I M I Z A T I O N
|
|||
|
|
/ / - - - L o g 4 M Q L d e i n i t
|
|||
|
|
/ / A?>;L7>20=85 181;8>B5:8 C L o g 4 m q l
|
|||
|
|
# i f d e f U S E _ L O G 4 M Q L
|
|||
|
|
l o g 4 . r e l e a s e ( ) ;
|
|||
|
|
# e n d i f
|
|||
|
|
|
|||
|
|
# e n d i f
|
|||
|
|
|
|||
|
|
|
|||
|
|
# i f d e f T R A C E
|
|||
|
|
/ / * * * * * * * * * * * * * * * * T R A C E
|
|||
|
|
d e l e t e m _ t r a c e v i e w ;
|
|||
|
|
d e l e t e m _ t r a c e ;
|
|||
|
|
/ / * * * * * * * * * * * * * * * *
|
|||
|
|
# e n d i f / / T R A C E
|
|||
|
|
/ / - - - c a p t e e n 1 9 0 4 2 2
|
|||
|
|
# i f d e f R S I _ C C I
|
|||
|
|
c a l c _ r c : : D e i n i t ( ) ;
|
|||
|
|
# e n d i f
|
|||
|
|
/ / - - - c a p t e e n 1 9 0 4 2 2
|
|||
|
|
/ / - - - c a p t e e n 1 9 0 3 2 2 - - - - - - - - - - - - - - - -
|
|||
|
|
# i f d e f U S E _ F I L T E R S
|
|||
|
|
c a l c _ a d x : : D e i n i t ( ) ;
|
|||
|
|
c a l c _ o s c : : D e i n i t ( ) ;
|
|||
|
|
# e n d i f
|
|||
|
|
P r i n t ( S t r i n g F o r m a t ( S R C _ S E T K A _ D E I N I T _ R E A S O N , B O T _ N A M E , V E R , r e a s o n _ s t r , T e s t e r S t a t i s t i c s ( S T A T _ G R O S S _ P R O F I T ) , T e s t e r S t a t i s t i c s ( S T A T _ G R O S S _ L O S S ) , 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 ) ) ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
d o u b l e g e t _ r e c o v e r y _ f a c t o r ( )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
d o u b l e r f = 0 ,
|
|||
|
|
t t = T e s t e r S t a t i s t i c s ( S T A T _ T R A D E S ) ,
|
|||
|
|
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 ) ,
|
|||
|
|
d d p = 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 _ P E R C E N T ) ,
|
|||
|
|
g p = T e s t e r S t a t i s t i c s ( S T A T _ G R O S S _ P R O F I T ) ,
|
|||
|
|
g l = M a t h A b s ( T e s t e r S t a t i s t i c s ( S T A T _ G R O S S _ L O S S ) ) ,
|
|||
|
|
c t l = T e s t e r S t a t i s t i c s ( S T A T _ M A X _ C O N L O S S _ T R A D E S ) ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
i f ( O n T e s t e r _ M i n _ T r a d e ! = 0 )
|
|||
|
|
{
|
|||
|
|
i f ( O n T e s t e r _ M i n _ T r a d e > t t & & t t > 0 )
|
|||
|
|
r e t u r n - 2 ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i f ( O n T e s t e r _ M a x _ D D _ P e r c e n t ! = 0 )
|
|||
|
|
{
|
|||
|
|
i f ( O n T e s t e r _ M a x _ D D _ P e r c e n t < d d p & & d d p > 0 )
|
|||
|
|
r e t u r n - 1 ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
r f = ( C P ( d d ) ! = 0 . 0 ) ? N o r m a l i z e D o u b l e ( ( g p - g l ) / d d , 5 ) : T e s t e r S t a t i s t i c s ( S T A T _ R E C O V E R Y _ F A C T O R ) ;
|
|||
|
|
|
|||
|
|
i f ( O n T e s t e r _ M a x _ C o n l o s s _ T r a d e s ! = 0 )
|
|||
|
|
{
|
|||
|
|
i f ( c t l > O n T e s t e r _ M a x _ C o n l o s s _ T r a d e s )
|
|||
|
|
r f - = ( c t l / 1 0 0 . 0 ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
P r i n t ( S t r i n g F o r m a t ( S R C _ S E T K A _ P R O F I T _ R E C O V E R Y _ F A C T O R , 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 _ F A C T O R ) , r f ) ) ;
|
|||
|
|
r e t u r n r f ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
d o u b l e O n T e s t e r ( )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
r e t u r n g e t _ r e c o v e r y _ f a c t o r ( ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
v o i d O n T i c k ( )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
i f ( _ i n i t _ f a i l e d ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
p r e _ t i c k _ h a n d l e r ( ) ;
|
|||
|
|
t i c k _ h a n d l e r ( ) ;
|
|||
|
|
p o s t _ t i c k _ h a n d l e r ( ) ;
|
|||
|
|
|
|||
|
|
/ / - - - e l a v r :>=B@>;L ?0=5;L.
|
|||
|
|
# i f n d e f F O R _ O P T I M I Z A T I O N
|
|||
|
|
i f ( C t r l P a n e l ! = N U L L & & ( C t r l P a n e l . I s E n a b l e T i c k C a l c u l a t e E v e n t ( ) ) )
|
|||
|
|
{
|
|||
|
|
C t r l P a n e l . O n T i c k C a l c u l a t e E v e n t ( ) ;
|
|||
|
|
|
|||
|
|
i f ( C t r l P a n e l . I s R e a d y F o r U p d a t e ( ) )
|
|||
|
|
C t r l P a n e l . D r a w P a n e l I n f o ( ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# e n d i f
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
|
|||
|
|
/ / | O n C h a r t E v e n t |
|
|||
|
|
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
|
|||
|
|
v o i d O n C h a r t E v e n t ( c o n s t i n t i d , c o n s t l o n g & l p a r a m , c o n s t d o u b l e & d p a r a m , c o n s t s t r i n g & s p a r a m )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
/ / - - - e l a v r :>=B@>;L ?0=5;L.
|
|||
|
|
# i f n d e f F O R _ O P T I M I Z A T I O N
|
|||
|
|
i f ( C t r l P a n e l ! = N U L L )
|
|||
|
|
{
|
|||
|
|
C t r l P a n e l . O n E v e n t ( i d , l p a r a m , d p a r a m , s p a r a m ) ;
|
|||
|
|
}
|
|||
|
|
# e n d i f
|
|||
|
|
|
|||
|
|
# i f d e f T R A C E
|
|||
|
|
/ / * * * * * * * * * * * * * * * * T R A C E
|
|||
|
|
m _ t r a c e v i e w . O n C h a r t E v e n t ( i d , l p a r a m , d p a r a m , s p a r a m ) ;
|
|||
|
|
S l e e p ( 5 0 ) ;
|
|||
|
|
/ / * * * * * * * * * * * * * * * *
|
|||
|
|
# e n d i f
|
|||
|
|
}
|
|||
|
|
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
|
|||
|
|
/ / | O n T i m e r |
|
|||
|
|
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
|
|||
|
|
v o i d O n T i m e r ( v o i d )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
/ / - - - e l a v r :>=B@>;L ?0=5;L.
|
|||
|
|
# i f n d e f F O R _ O P T I M I Z A T I O N
|
|||
|
|
i f ( C t r l P a n e l ! = N U L L )
|
|||
|
|
{
|
|||
|
|
C t r l P a n e l . O n T i m e r E v e n t ( ) ;
|
|||
|
|
}
|
|||
|
|
# e n d i f
|
|||
|
|
|
|||
|
|
# i f d e f T R A C E
|
|||
|
|
/ / * * * * * * * * * * * * * * * * T R A C E
|
|||
|
|
i f ( ! m _ t r a c e v i e w . I s O p e n V i e w ( ) ) { m _ t r a c e v i e w . D e i n i t ( ) ; m _ t r a c e v i e w . C r e a t e ( C h a r t I D ( ) ) ; } / / 5A;8 >:=> 1K;> A;CG09=> 70:@KB>
|
|||
|
|
e l s e m _ t r a c e v i e w . O n T i m e r ( ) ;
|
|||
|
|
/ / * * * * * * * * * * * * * * * *
|
|||
|
|
# e n d i f / / T R A C E
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
v o i d p r e _ t i c k _ h a n d l e r ( )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
M q l T i c k T i c k ;
|
|||
|
|
S y m b o l I n f o T i c k ( S y m b o l ( ) , T i c k ) ;
|
|||
|
|
O n T i m e r ( ) ;
|
|||
|
|
l a y e r _ e r r o r : : r e s e t ( ) ;
|
|||
|
|
t o o l _ c a c h e : : u p d a t e _ t i c k _ s t a t e ( ) ;
|
|||
|
|
|
|||
|
|
i f ( s h o r t _ h d . i s _ s t r o n g _ s l e e p ( ) & & l o n g _ h d . i s _ s t r o n g _ s l e e p ( ) )
|
|||
|
|
{
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# i f n d e f F O R _ O P T I M I Z A T I O N
|
|||
|
|
f a c t o r y _ c _ o r d e r : : r e s e t ( ) ;
|
|||
|
|
f a c t o r y _ o r d e r _ o p e r a t i o n : : r e s e t ( ) ;
|
|||
|
|
l a y e r _ o r d e r : : r e f r e s h _ a l l ( ) ;
|
|||
|
|
# e l s e / / F O R _ O P T I M I Z A T I O N
|
|||
|
|
|
|||
|
|
M q l D a t e T i m e _ c u r r e n t _ d a t e ;
|
|||
|
|
T i m e C u r r e n t ( _ c u r r e n t _ d a t e ) ;
|
|||
|
|
d a t e t i m e _ c u r r e n t _ d a t e _ t = T i m e C u r r e n t ( ) ;
|
|||
|
|
s t a t i c u s h o r t t i c k _ c o u n t e r = 0 ;
|
|||
|
|
i f ( _ l a s t _ o r d e r _ c o u n t ! = k e r n e l _ o r d e r : : c o u n t ( )
|
|||
|
|
/ / | | ( _ l a s t _ t i c k e t ! = ! G C _ C H E C K _ P T R ( _ l a s t _ o r d e r ) ? - 1 . 0 : _ l a s t _ o r d e r . t i c k e t )
|
|||
|
|
| | ( _ p r e v _ d a t e . d a y _ o f _ y e a r < _ c u r r e n t _ d a t e . d a y _ o f _ y e a r & & _ c u r r e n t _ d a t e . m i n > = 0 )
|
|||
|
|
| | _ c u r r e n t _ d a t e . d a y _ o f _ y e a r = = 0
|
|||
|
|
/ / | | _ c u r r e n t _ d a t e _ t - _ p r e v _ d a t e > 3 0 0 / / BAG8BK205< 1 5 A5@:C=4
|
|||
|
|
/ / | | _ p r e v _ d a t e = = 0
|
|||
|
|
/ / | | t i c k _ c o u n t e r > = 1 0 0 0 0
|
|||
|
|
)
|
|||
|
|
{
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
f a c t o r y _ c _ o r d e r : : r e s e t ( ) ;
|
|||
|
|
f a c t o r y _ o r d e r _ o p e r a t i o n : : r e s e t ( ) ;
|
|||
|
|
l a y e r _ o r d e r : : r e f r e s h _ a l l ( ) ;
|
|||
|
|
_ l a s t _ o r d e r _ c o u n t = k e r n e l _ o r d e r : : c o u n t ( ) ;
|
|||
|
|
_ p r e v _ d a t e = _ c u r r e n t _ d a t e ;
|
|||
|
|
t i c k _ c o u n t e r = 0 ;
|
|||
|
|
}
|
|||
|
|
t i c k _ c o u n t e r + + ;
|
|||
|
|
|
|||
|
|
# e n d i f / / F O R _ O P T I M I Z A T I O N
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
v o i d t i c k _ h a n d l e r ( )
|
|||
|
|
{
|
|||
|
|
|
|||
|
|
# i f d e f I N F O _ P A N E L
|
|||
|
|
r e t u r n ;
|
|||
|
|
# e n d i f
|
|||
|
|
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
i f ( s h o r t _ h d . i s _ s t r o n g _ s l e e p ( ) & & l o n g _ h d . i s _ s t r o n g _ s l e e p ( ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i f ( ! l a y e r _ a c c o u n t : : i s _ t r a d e _ a l l o w e d ( ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l o g _ i n f o ( S R C _ S E T K A _ T R A D E _ N O T _ A L L O W E D ) ;
|
|||
|
|
r e t u r n ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
e n u m _ t r a d e _ m o d e _ t y p e t r a d e _ m o d e = l a y e r _ s y m b o l : : t r a d e _ m o d e ( C U R R E N T _ S Y M B O L ) ;
|
|||
|
|
|
|||
|
|
i f ( t r a d e _ m o d e ! = t r a d e _ m o d e _ t y p e _ f u l l ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
s w i t c h ( t r a d e _ m o d e ) {
|
|||
|
|
c a s e t r a d e _ m o d e _ t y p e _ d i s a b l e d :
|
|||
|
|
l o g _ i n f o ( S R C _ S E T K A _ S Y M B O L _ T R A D E _ M O D E _ D I S A B L E D ) ;
|
|||
|
|
r e t u r n ;
|
|||
|
|
|
|||
|
|
c a s e t r a d e _ m o d e _ t y p e _ l o n g _ o n l y :
|
|||
|
|
l o g _ i n f o ( S R C _ S E T K A _ S Y M B O L _ T R A D E _ M O D E _ L O N G O N L Y ) ;
|
|||
|
|
b r e a k ;
|
|||
|
|
|
|||
|
|
c a s e t r a d e _ m o d e _ t y p e _ s h o r t _ o n l y :
|
|||
|
|
l o g _ i n f o ( S R C _ S E T K A _ S Y M B O L _ T R A D E _ M O D E _ S H O R T O N L Y ) ;
|
|||
|
|
b r e a k ;
|
|||
|
|
|
|||
|
|
c a s e t r a d e _ m o d e _ t y p e _ c l o s e _ o n l y :
|
|||
|
|
l o g _ i n f o ( S R C _ S E T K A _ S Y M B O L _ T R A D E _ M O D E _ C L O S E O N L Y ) ;
|
|||
|
|
b r e a k ;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
d o u b l e a c c o u n t _ b a l a n c e = k e r n e l _ a c c o u n t : : b a l a n c e ( ) ;
|
|||
|
|
|
|||
|
|
i f ( a c c o u n t _ b a l a n c e = = 0 . 0 0 ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l o g _ i n f o ( S R C _ S E T K A _ N O _ M O N E Y ) ;
|
|||
|
|
r e t u r n ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
d o u b l e a c c o u n t _ d r a w d o w n _ p e r c e n t = ( 1 - ( k e r n e l _ a c c o u n t : : e q u i t y ( ) / a c c o u n t _ b a l a n c e ) ) * 1 0 0 ;
|
|||
|
|
|
|||
|
|
s h o r t _ h d . d r a w d o w n _ c h a n g e d _ h a n d l e r ( a c c o u n t _ d r a w d o w n _ p e r c e n t ) ;
|
|||
|
|
l o n g _ h d . d r a w d o w n _ c h a n g e d _ h a n d l e r ( a c c o u n t _ d r a w d o w n _ p e r c e n t ) ;
|
|||
|
|
s h o r t _ h d . m a r k _ b l o c k _ w o r k _ b y _ s t o p _ t r a d e ( f a l s e ) ;
|
|||
|
|
l o n g _ h d . m a r k _ b l o c k _ w o r k _ b y _ s t o p _ t r a d e ( f a l s e ) ;
|
|||
|
|
|
|||
|
|
b o o l i s _ c l o s e _ b y _ p r o f i t _ p e r c e n t = ( C l o s e A l l O r d e r s _ B y P r o f i t P e r c e n t > 0 ) & & i s _ c l o s e _ o r d e r s _ p r o f i t _ i n _ p e r c e n t ( l a y e r _ a c c o u n t : : p r o f i t _ c l e a r _ p e r c e n t ( ) ) ;
|
|||
|
|
b o o l i s _ c l o s e _ b y _ p r o f i t _ c u r r e n c y = C l o s e A l l O r d e r s _ B y P r o f i t M o n e y > 0 & & i s _ c l o s e _ o r d e r s _ p r o f i t _ i n _ m o n e y ( l a y e r _ a c c o u n t : : p r o f i t _ c l e a r _ c u r r e n c y ( ) ) ;
|
|||
|
|
b o o l i s _ c l o s e _ b y _ d r a w d o w n _ p e r c e n t = C l o s e A l l O r d e r s _ B y D r a w d o w n P e r c e n t > 0 & & i s _ c l o s e _ o r d e r s _ d r a w d o w n _ i n _ p e r c e n t ( l a y e r _ a c c o u n t : : d r a w d o w n _ p e r c e n t ( ) ) ;
|
|||
|
|
b o o l i s _ c l o s e _ b y _ d r a w d o w n _ c u r r e n c y = C l o s e A l l O r d e r s _ B y D r a w d o w n M o n e y > 0 & & i s _ c l o s e _ o r d e r s _ d r a w d o w n _ i n _ m o n e y ( l a y e r _ a c c o u n t : : d r a w d o w n _ c u r r e n c y ( ) ) ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
b o o l i s _ c l o s e _ b y _ d d _ 0 0 1 l o t _ s h o r t = i s _ c l o s e _ o r d e r s _ d r a w d o w n _ i n _ m o n e y _ b y _ 0 0 1 l o t ( s h o r t _ h d ) ;
|
|||
|
|
b o o l i s _ c l o s e _ b y _ d d _ 0 0 1 l o t _ l o n g = i s _ c l o s e _ o r d e r s _ d r a w d o w n _ i n _ m o n e y _ b y _ 0 0 1 l o t ( l o n g _ h d ) ;
|
|||
|
|
|
|||
|
|
b o o l i s _ c l o s e _ b y _ d d _ t p r a t i o _ s h o r t = i s _ c l o s e _ o r d e r s _ d r a w d o w n _ t p _ r a t i o ( s h o r t _ h d ) ;
|
|||
|
|
b o o l i s _ c l o s e _ b y _ d d _ t p r a t i o _ l o n g = i s _ c l o s e _ o r d e r s _ d r a w d o w n _ t p _ r a t i o ( l o n g _ h d ) ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
b o o l i s _ c l o s e _ b y _ p r o f i t = i s _ c l o s e _ b y _ p r o f i t _ c u r r e n c y
|
|||
|
|
| | i s _ c l o s e _ b y _ p r o f i t _ p e r c e n t ;
|
|||
|
|
b o o l i s _ c l o s e _ b y _ d r a w d o w n = i s _ c l o s e _ b y _ d r a w d o w n _ c u r r e n c y
|
|||
|
|
| | i s _ c l o s e _ b y _ d r a w d o w n _ p e r c e n t ;
|
|||
|
|
b o o l i s _ n e e d _ c l o s e = i s _ c l o s e _ b y _ p r o f i t
|
|||
|
|
| | i s _ c l o s e _ b y _ d r a w d o w n ;
|
|||
|
|
b o o l i s _ c l o s e _ b y _ p e r c e n t = i s _ c l o s e _ b y _ p r o f i t _ p e r c e n t
|
|||
|
|
| | i s _ c l o s e _ b y _ d r a w d o w n _ p e r c e n t ;
|
|||
|
|
|
|||
|
|
i f ( ( ! s h o r t _ h d . i s _ c l o s e _ m o d u l e _ a c t i v a t e d ( ) & & s h o r t _ h d . i s _ c a n _ c l o s e ( ) & & ( i s _ c l o s e _ b y _ d d _ 0 0 1 l o t _ s h o r t | | i s _ c l o s e _ b y _ d d _ t p r a t i o _ s h o r t ) )
|
|||
|
|
| | ( ! l o n g _ h d . i s _ c l o s e _ m o d u l e _ a c t i v a t e d ( ) & & l o n g _ h d . i s _ c a n _ c l o s e ( ) & & ( i s _ c l o s e _ b y _ d d _ 0 0 1 l o t _ l o n g | | i s _ c l o s e _ b y _ d d _ t p r a t i o _ l o n g ) ) ) {
|
|||
|
|
|
|||
|
|
i f ( i s _ c l o s e _ b y _ d d _ 0 0 1 l o t _ s h o r t | | i s _ c l o s e _ b y _ d d _ t p r a t i o _ s h o r t )
|
|||
|
|
{
|
|||
|
|
l o g _ a l e r t ( S t r i n g F o r m a t ( S R C _ S E T K A _ D R A W D O W N _ C L O S E _ A L L _ B Y _ D R A W D O W N _ M S G ,
|
|||
|
|
D o u b l e T o S t r i n g ( ( s h o r t _ h d . g e t _ p r o f i t ( ) * - 1 ) , 2 ) ,
|
|||
|
|
D o u b l e T o S t r i n g ( i s _ c l o s e _ b y _ d d _ 0 0 1 l o t _ s h o r t ? s h o r t _ h d . c a l c _ d r a w d o w n _ p e r _ 0 0 1 l o t ( ) : s h o r t _ h d . c a l c _ d r a w d o w n _ t p _ r a t i o ( ) , 2 ) ) ) ;
|
|||
|
|
|
|||
|
|
s h o r t _ h d . m a r k _ c l o s e _ a l l _ o r d e r s ( 0 , t r u e , ( i s _ c l o s e _ b y _ d d _ 0 0 1 l o t _ s h o r t | | i s _ c l o s e _ b y _ d d _ t p r a t i o _ s h o r t ) ) ;
|
|||
|
|
|
|||
|
|
i f ( s h o r t _ h d . _ i s _ b l o c k _ w o r k ) {
|
|||
|
|
l o g _ a l e r t ( S R C _ S E T K A _ D R A W D O W N _ C L O S E _ A L L _ S T O P _ T R A D E _ M S G ) ;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i f ( i s _ c l o s e _ b y _ d d _ 0 0 1 l o t _ l o n g | | i s _ c l o s e _ b y _ d d _ t p r a t i o _ l o n g )
|
|||
|
|
{
|
|||
|
|
l o g _ a l e r t ( S t r i n g F o r m a t ( S R C _ S E T K A _ D R A W D O W N _ C L O S E _ A L L _ B Y _ D R A W D O W N _ M S G ,
|
|||
|
|
D o u b l e T o S t r i n g ( ( l o n g _ h d . g e t _ p r o f i t ( ) * - 1 ) , 2 ) ,
|
|||
|
|
D o u b l e T o S t r i n g ( i s _ c l o s e _ b y _ d d _ 0 0 1 l o t _ l o n g ? l o n g _ h d . c a l c _ d r a w d o w n _ p e r _ 0 0 1 l o t ( ) : l o n g _ h d . c a l c _ d r a w d o w n _ t p _ r a t i o ( ) , 2 ) ) ) ;
|
|||
|
|
|
|||
|
|
l o n g _ h d . m a r k _ c l o s e _ a l l _ o r d e r s ( 0 , t r u e , ( i s _ c l o s e _ b y _ d d _ 0 0 1 l o t _ l o n g | | i s _ c l o s e _ b y _ d d _ t p r a t i o _ l o n g ) ) ;
|
|||
|
|
|
|||
|
|
i f ( l o n g _ h d . _ i s _ b l o c k _ w o r k ) {
|
|||
|
|
l o g _ a l e r t ( S R C _ S E T K A _ D R A W D O W N _ C L O S E _ A L L _ S T O P _ T R A D E _ M S G ) ;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
e l s e i f ( ! s h o r t _ h d . i s _ c l o s e _ m o d u l e _ a c t i v a t e d ( )
|
|||
|
|
& & ! l o n g _ h d . i s _ c l o s e _ m o d u l e _ a c t i v a t e d ( )
|
|||
|
|
& & s h o r t _ h d . i s _ c a n _ c l o s e ( )
|
|||
|
|
& & l o n g _ h d . i s _ c a n _ c l o s e ( )
|
|||
|
|
& & i s _ n e e d _ c l o s e ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
|
|||
|
|
i f ( i s _ c l o s e _ b y _ d r a w d o w n ) {
|
|||
|
|
_ I N 3 ( " " ) ;
|
|||
|
|
l o g _ a l e r t ( S t r i n g F o r m a t ( S R C _ S E T K A _ D R A W D O W N _ C L O S E _ A L L _ B Y _ D R A W D O W N _ M S G ,
|
|||
|
|
i s _ c l o s e _ b y _ p e r c e n t ?
|
|||
|
|
D o u b l e T o S t r i n g ( l a y e r _ a c c o u n t : : d r a w d o w n _ p e r c e n t ( ) , 2 ) + " % " :
|
|||
|
|
D o u b l e T o S t r i n g ( l a y e r _ a c c o u n t : : d r a w d o w n _ c u r r e n c y ( ) , 2 ) ,
|
|||
|
|
i s _ c l o s e _ b y _ p e r c e n t ?
|
|||
|
|
D o u b l e T o S t r i n g ( C l o s e A l l O r d e r s _ B y D r a w d o w n P e r c e n t , 2 ) + " % " :
|
|||
|
|
D o u b l e T o S t r i n g ( C l o s e A l l O r d e r s _ B y D r a w d o w n M o n e y , 2 ) ) ) ;
|
|||
|
|
} e l s e {
|
|||
|
|
_ I N 3 ( " " ) ;
|
|||
|
|
l o g _ a l e r t ( S t r i n g F o r m a t ( S R C _ S E T K A _ D R A W D O W N _ C L O S E _ A L L _ B Y _ P R O F I T _ M S G ,
|
|||
|
|
i s _ c l o s e _ b y _ p e r c e n t ?
|
|||
|
|
D o u b l e T o S t r i n g ( l a y e r _ a c c o u n t : : p r o f i t _ c l e a r _ p e r c e n t ( ) , 2 ) + " % " :
|
|||
|
|
D o u b l e T o S t r i n g ( l a y e r _ a c c o u n t : : p r o f i t _ c l e a r _ c u r r e n c y ( ) , 2 ) ,
|
|||
|
|
i s _ c l o s e _ b y _ p e r c e n t ?
|
|||
|
|
D o u b l e T o S t r i n g ( C l o s e A l l O r d e r s _ B y P r o f i t P e r c e n t , 2 ) + " % " :
|
|||
|
|
D o u b l e T o S t r i n g ( C l o s e A l l O r d e r s _ B y P r o f i t M o n e y , 2 ) ) ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
s h o r t _ h d . m a r k _ c l o s e _ a l l _ o r d e r s ( 0 , t r u e , i s _ c l o s e _ b y _ d r a w d o w n ) ;
|
|||
|
|
l o n g _ h d . m a r k _ c l o s e _ a l l _ o r d e r s ( 0 , t r u e , i s _ c l o s e _ b y _ d r a w d o w n ) ;
|
|||
|
|
|
|||
|
|
i f ( s h o r t _ h d . _ i s _ b l o c k _ w o r k ) {
|
|||
|
|
l o g _ a l e r t ( S R C _ S E T K A _ D R A W D O W N _ C L O S E _ A L L _ S T O P _ T R A D E _ M S G ) ;
|
|||
|
|
}
|
|||
|
|
} e l s e i f ( i s _ s t o p _ t r a d e _ d r a w d o w n _ i n _ p e r c e n t ( l a y e r _ a c c o u n t : : d r a w d o w n _ p e r c e n t ( ) )
|
|||
|
|
| | i s _ s t o p _ t r a d e _ d r a w d o w n _ i n _ m o n e y ( l a y e r _ a c c o u n t : : d r a w d o w n _ c u r r e n c y ( ) ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l o g _ i n f o ( S t r i n g F o r m a t ( S R C _ S E T K A _ D R A W D O W N _ M S G ,
|
|||
|
|
D o u b l e T o S t r i n g ( l a y e r _ a c c o u n t : : d r a w d o w n _ p e r c e n t ( ) , 0 ) + " % " ) ) ;
|
|||
|
|
|
|||
|
|
i f ( s h o r t _ h d . g e t _ p r o f i t ( ) > l o n g _ h d . g e t _ p r o f i t ( ) ) {
|
|||
|
|
_ I N 3 ( " " ) ;
|
|||
|
|
l o n g _ h d . m a r k _ b l o c k _ w o r k _ b y _ s t o p _ t r a d e ( t r u e ) ;
|
|||
|
|
} e l s e {
|
|||
|
|
_ I N 3 ( " " ) ;
|
|||
|
|
s h o r t _ h d . m a r k _ b l o c k _ w o r k _ b y _ s t o p _ t r a d e ( t r u e ) ;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
i f ( l a y e r _ m a r k e t : : i s _ c l o s e d ( ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
s h o r t _ h d . t i c k _ h a n d l e r ( ) ;
|
|||
|
|
|
|||
|
|
l o n g _ h d . t i c k _ h a n d l e r ( ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
v o i d p o s t _ t i c k _ h a n d l e r ( )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
i f ( l a y e r _ m a r k e t : : i s _ c l o s e d ( ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l o g _ i n f o ( S R C _ S E T K A _ M A R K E T _ C L O S E _ E R R O R ) ;
|
|||
|
|
s h o r t _ h d . r e s e t _ s t a t e s ( ) ;
|
|||
|
|
l o n g _ h d . r e s e t _ s t a t e s ( ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
a p i : : p r o c e s s ( ) ;
|
|||
|
|
g c : : d i s p o s e ( ) ;
|
|||
|
|
|
|||
|
|
i f ( k e r n e l _ a c c o u n t : : i s _ t e s t i n g ( ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
O n T i m e r ( ) ;
|
|||
|
|
l o n g l p a r a m = 0 ;
|
|||
|
|
d o u b l e d p a r a m = 0 ;
|
|||
|
|
s t r i n g s p a r a m = " " ;
|
|||
|
|
O n C h a r t E v e n t ( 0 , l p a r a m , d p a r a m , s p a r a m ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i f ( l i f e _ t i m e r ! = N U L L & & l i f e _ t i m e r . i s _ e l a p s e d ( ) ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l i f e _ t i m e r . r e s e t ( ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
b o o l i s _ c l o s e _ o r d e r s _ d r a w d o w n _ i n _ p e r c e n t ( d o u b l e d r a w d o w n _ p e r c e n t )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
r e t u r n C l o s e A l l O r d e r s _ B y D r a w d o w n P e r c e n t > 0
|
|||
|
|
& & d r a w d o w n _ p e r c e n t > = C l o s e A l l O r d e r s _ B y D r a w d o w n P e r c e n t ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
b o o l i s _ c l o s e _ o r d e r s _ d r a w d o w n _ i n _ m o n e y _ b y _ 0 0 1 l o t ( l o g i c _ h a n d l e r * h d l )
|
|||
|
|
{
|
|||
|
|
r e t u r n h d l . _ s e t t i n g s . c l o s e _ o r d e r s _ b y _ d r a w d o w n _ f o r _ 0 0 1 l o t > 0
|
|||
|
|
& & h d l . c a l c _ d r a w d o w n _ p e r _ 0 0 1 l o t ( ) > 0
|
|||
|
|
& & ( h d l . g e t _ p r o f i t ( ) * - 1 ) > = h d l . c a l c _ d r a w d o w n _ p e r _ 0 0 1 l o t ( ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
b o o l i s _ c l o s e _ o r d e r s _ d r a w d o w n _ t p _ r a t i o ( l o g i c _ h a n d l e r * h d l )
|
|||
|
|
{
|
|||
|
|
r e t u r n h d l . _ s e t t i n g s . c l o s e _ o r d e r s _ b y _ d r a w d o w n _ t p _ r a t i o > 0
|
|||
|
|
& & h d l . c a l c _ d r a w d o w n _ t p _ r a t i o ( ) > 0
|
|||
|
|
& & ( h d l . g e t _ p r o f i t ( ) * - 1 ) > = h d l . c a l c _ d r a w d o w n _ t p _ r a t i o ( ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
b o o l i s _ c l o s e _ o r d e r s _ d r a w d o w n _ i n _ m o n e y ( d o u b l e d r a w d o w n _ c u r r e n c y )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
r e t u r n C l o s e A l l O r d e r s _ B y D r a w d o w n M o n e y > 0
|
|||
|
|
& & d r a w d o w n _ c u r r e n c y > = C l o s e A l l O r d e r s _ B y D r a w d o w n M o n e y ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
b o o l i s _ c l o s e _ o r d e r s _ p r o f i t _ i n _ p e r c e n t ( d o u b l e p r o f i t _ p e r c e n t )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
r e t u r n C l o s e A l l O r d e r s _ B y P r o f i t P e r c e n t > 0
|
|||
|
|
& & p r o f i t _ p e r c e n t > = C l o s e A l l O r d e r s _ B y P r o f i t P e r c e n t ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
b o o l i s _ c l o s e _ o r d e r s _ p r o f i t _ i n _ m o n e y ( d o u b l e p r o f i t _ c u r r e n c y )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
r e t u r n C l o s e A l l O r d e r s _ B y P r o f i t M o n e y > 0
|
|||
|
|
& & p r o f i t _ c u r r e n c y > = C l o s e A l l O r d e r s _ B y P r o f i t M o n e y ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
b o o l _ s t o p _ t r a d e _ b y _ d r a w d o w n _ i n _ p e r c e n t _ e n a b l e d = f a l s e ;
|
|||
|
|
b o o l i s _ s t o p _ t r a d e _ d r a w d o w n _ i n _ p e r c e n t ( d o u b l e d r a w d o w n _ p e r c e n t )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
i f ( S t o p T r a d e _ B y D r a w d o w n P e r c e n t = = 0 ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n f a l s e ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i f ( _ s t o p _ t r a d e _ b y _ d r a w d o w n _ i n _ p e r c e n t _ e n a b l e d ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
i f ( d r a w d o w n _ p e r c e n t > = S t o p T r a d e _ B y D r a w d o w n P e r c e n t _ O f f ) {
|
|||
|
|
_ I N 3 ( " " ) ;
|
|||
|
|
r e t u r n t r u e ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
l o g _ a l e r t ( S t r i n g F o r m a t ( S R C _ S E T K A _ S T O P _ D R A W D O W N _ O F F ,
|
|||
|
|
D o u b l e T o S t r i n g ( d r a w d o w n _ p e r c e n t , 2 ) + " % " ,
|
|||
|
|
D o u b l e T o S t r i n g ( S t o p T r a d e _ B y D r a w d o w n P e r c e n t _ O f f , 2 ) + " % " ) ) ;
|
|||
|
|
_ s t o p _ t r a d e _ b y _ d r a w d o w n _ i n _ p e r c e n t _ e n a b l e d = f a l s e ;
|
|||
|
|
r e t u r n f a l s e ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
b o o l r e s u l t = d r a w d o w n _ p e r c e n t > = S t o p T r a d e _ B y D r a w d o w n P e r c e n t ;
|
|||
|
|
|
|||
|
|
i f ( r e s u l t
|
|||
|
|
& & S t o p T r a d e _ B y D r a w d o w n P e r c e n t _ O f f ! = 0 ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l o g _ a l e r t ( S t r i n g F o r m a t ( S R C _ S E T K A _ S T O P _ D R A W D O W N _ O N ,
|
|||
|
|
D o u b l e T o S t r i n g ( d r a w d o w n _ p e r c e n t , 2 ) + " % " ,
|
|||
|
|
D o u b l e T o S t r i n g ( S t o p T r a d e _ B y D r a w d o w n P e r c e n t _ O f f , 2 ) + " % " ) ) ;
|
|||
|
|
_ s t o p _ t r a d e _ b y _ d r a w d o w n _ i n _ p e r c e n t _ e n a b l e d = t r u e ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
r e t u r n r e s u l t ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
b o o l _ s t o p _ t r a d e _ b y _ d r a w d o w n _ i n _ m o n e y _ e n a b l e d = f a l s e ;
|
|||
|
|
b o o l i s _ s t o p _ t r a d e _ d r a w d o w n _ i n _ m o n e y ( d o u b l e d r a w d o w n _ c u r r e n c y )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
i f ( S t o p T r a d e _ B y D r a w d o w n M o n e y = = 0 ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n f a l s e ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i f ( _ s t o p _ t r a d e _ b y _ d r a w d o w n _ i n _ m o n e y _ e n a b l e d ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
i f ( d r a w d o w n _ c u r r e n c y > = S t o p T r a d e _ B y D r a w d o w n M o n e y _ O f f ) {
|
|||
|
|
_ I N 3 ( " " ) ;
|
|||
|
|
r e t u r n t r u e ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
l o g _ a l e r t ( S t r i n g F o r m a t ( S R C _ S E T K A _ S T O P _ D R A W D O W N _ O F F ,
|
|||
|
|
D o u b l e T o S t r i n g ( d r a w d o w n _ c u r r e n c y , 2 ) ,
|
|||
|
|
D o u b l e T o S t r i n g ( S t o p T r a d e _ B y D r a w d o w n M o n e y _ O f f , 2 ) ) ) ;
|
|||
|
|
_ s t o p _ t r a d e _ b y _ d r a w d o w n _ i n _ m o n e y _ e n a b l e d = f a l s e ;
|
|||
|
|
r e t u r n f a l s e ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
b o o l r e s u l t = d r a w d o w n _ c u r r e n c y > = S t o p T r a d e _ B y D r a w d o w n M o n e y ;
|
|||
|
|
|
|||
|
|
i f ( r e s u l t
|
|||
|
|
& & S t o p T r a d e _ B y D r a w d o w n M o n e y _ O f f ! = 0 ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
l o g _ a l e r t ( S t r i n g F o r m a t ( S R C _ S E T K A _ S T O P _ D R A W D O W N _ O N ,
|
|||
|
|
D o u b l e T o S t r i n g ( d r a w d o w n _ c u r r e n c y , 2 ) ,
|
|||
|
|
D o u b l e T o S t r i n g ( S t o p T r a d e _ B y D r a w d o w n M o n e y _ O f f , 2 ) ) ) ;
|
|||
|
|
_ s t o p _ t r a d e _ b y _ d r a w d o w n _ i n _ m o n e y _ e n a b l e d = t r u e ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
r e t u r n r e s u l t ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i n t g e t _ l o t _ e x p _ b y _ m i n l o t ( d o u b l e m i n l o t )
|
|||
|
|
{
|
|||
|
|
_ I N 1 ( " " ) ;
|
|||
|
|
i n t r e s u l t = - 1 ;
|
|||
|
|
|
|||
|
|
i f ( m i n l o t > = 1 . 0 ) {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e t u r n r e s u l t ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
d o {
|
|||
|
|
_ I N 2 ( " " ) ;
|
|||
|
|
r e s u l t + + ;
|
|||
|
|
} w h i l e ( ( m i n l o t * = 1 0 ) < = 1 . 0 ) ;
|
|||
|
|
|
|||
|
|
r e t u r n r e s u l t ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# e n d i f
|