0
Views
1
Downloads
0
Favorites
Divergence + ema + rsi close buy only EA
# p r o p e r t y c o p y r i g h t " "
# p r o p e r t y l i n k " m e t a t r o o p e r . s t o r e "
# p r o p e r t y d e s c r i p t i o n " "
# p r o p e r t y v e r s i o n " 1 . 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 , G L O B A L V A R I A B L E S , C O N S T A N T S , I M P O R T S a n d I N C L U D E S | / /
/ / | S y s t e m a n d C u s t o m v a r i a b l e s a n d o t h e r d e f i n i t i o n s u s e d i n t h e p r o j e c t | / /
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + / /
/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V / /
/ / S y s t e m c o n s t a n t s ( p r o j e c t s e t t i n g s ) / /
/ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / /
/ / - -
# d e f i n e P R O J E C T _ I D " m t 5 - 6 6 3 3 "
/ / - -
/ / P o i n t F o r m a t R u l e s
# d e f i n e P O I N T _ F O R M A T _ R U L E S " 0 . 0 0 1 = 0 . 0 1 , 0 . 0 0 0 0 1 = 0 . 0 0 0 1 , 0 . 0 0 0 0 0 1 = 0 . 0 0 0 1 " / / t h i s i s d e s e r i a l i z e d i n a s p e c i a l f u n c t i o n l a t e r
# d e f i n e E N A B L E _ S P R E A D _ M E T E R t r u e
# d e f i n e E N A B L E _ S T A T U S t r u e
# d e f i n e E N A B L E _ T E S T _ I N D I C A T O R S t r u e
/ / - -
/ / E v e n t s O n / O f f
# d e f i n e E N A B L E _ E V E N T _ T I C K 1 / / e n a b l e " T i c k " e v e n t
# d e f i n e E N A B L E _ E V E N T _ T R A D E 0 / / e n a b l e " T r a d e " e v e n t
# d e f i n e E N A B L E _ E V E N T _ T I M E R 0 / / e n a b l e " T i m e r " e v e n t
/ / - -
/ / V i r t u a l S t o p s
# d e f i n e V I R T U A L _ S T O P S _ E N A B L E D 0 / / e n a b l e v i r t u a l s t o p s
# d e f i n e V I R T U A L _ S T O P S _ T I M E O U T 0 / / v i r t u a l s t o p s t i m e o u t
# d e f i n e U S E _ E M E R G E N C Y _ S T O P S " n o " / / " y e s " t o u s e e m e r g e n c y ( h a r d s t o p s ) w h e n v i r t u a l s t o p s a r e i n u s e . " a l w a y s " t o u s e E M E R G E N C Y _ S T O P S _ A D D a s e m e r g e n c y s t o p s w h e n t h e r e i s n o v i r t u a l s t o p .
# d e f i n e E M E R G E N C Y _ S T O P S _ R E L 0 / / u s e 0 t o d i s a b l e h a r d s t o p s w h e n v i r t u a l s t o p s a r e e n a b l e d . U s e a v a l u e > = 0 t o a u t o m a t i c a l l y s e t h a r d s t o p s w i t h v i r t u a l . E x a m p l e : i f 2 i s u s e d , t h e n h a r d s t o p s w i l l b e 2 t i m e s b i g g e r t h a n v i r t u a l o n e s .
# d e f i n e E M E R G E N C Y _ S T O P S _ A D D 0 / / a d d p i p s t o r e l a t i v e s i z e o f e m e r g e n c y s t o p s ( h a r d s t o p s )
/ / - -
/ / S e t t i n g s f o r e v e n t s
# d e f i n e O N _ T I M E R _ P E R I O D 6 0 / / T i m e r e v e n t p e r i o d ( i n s e c o n d s )
/ / V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V / /
/ / S y s t e m c o n s t a n t s ( p r e d e f i n e d c o n s t a n t s ) / /
/ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / /
/ / - -
# d e f i n e T L O B J P R O P _ T I M E 1 8 0 1
# d e f i n e O B J P R O P _ T L _ P R I C E _ B Y _ S H I F T 8 0 2
# d e f i n e O B J P R O P _ T L _ S H I F T _ B Y _ P R I C E 8 0 3
# d e f i n e O B J P R O P _ F I B O V A L U E 8 0 4
# d e f i n e O B J P R O P _ F I B O P R I C E V A L U E 8 0 5
# d e f i n e O B J P R O P _ F I R S T L E V E L 8 0 6
# d e f i n e O B J P R O P _ T I M E 1 8 0 7
# d e f i n e O B J P R O P _ T I M E 2 8 0 8
# d e f i n e O B J P R O P _ T I M E 3 8 0 9
# d e f i n e O B J P R O P _ P R I C E 1 8 1 0
# d e f i n e O B J P R O P _ P R I C E 2 8 1 1
# d e f i n e O B J P R O P _ P R I C E 3 8 1 2
# d e f i n e O B J P R O P _ B A R S H I F T 1 8 1 3
# d e f i n e O B J P R O P _ B A R S H I F T 2 8 1 4
# d e f i n e O B J P R O P _ B A R S H I F T 3 8 1 5
# d e f i n e S E L _ C U R R E N T 0
# d e f i n e S E L _ I N I T I A L 1
/ / V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V / /
/ / E n u m e r a t i o n s , I m p o r t s , C o n s t a n t s , V a r i a b l e s / /
/ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / /
/ / - -
/ / C o n s t a n t s ( I n p u t P a r a m e t e r s )
i n p u t d o u b l e m u l t i = 4 . 0 ;
i n p u t i n t M a g i c S t a r t = 9 7 2 4 ; / / M a g i c N u m b e r , k i n d o f . . .
c l a s s c
{
p u b l i c :
s t a t i c d o u b l e m u l t i ;
s t a t i c i n t M a g i c S t a r t ;
} ;
d o u b l e c : : m u l t i ;
i n t c : : M a g i c S t a r t ;
/ / - -
/ / V a r i a b l e s ( G l o b a l V a r i a b l e s )
c l a s s v
{
p u b l i c :
} ;
/ / - -
/ / E x t e r n s ( G l o b a l V a r i a b l e s )
i n p u t i n t i n p 4 _ f a s t E M A = 6 ;
i n p u t i n t i n p 4 _ s l o w E M A = 1 3 ;
i n p u t i n t i n p 4 _ s i g n a l S M A = 5 ;
i n p u t d o u b l e i n p 4 _ m a c d T h r e s h o l d = 0 . 0 0 0 3 ;
i n p u t E N U M _ T I M E F R A M E S i n p 4 _ P e r i o d = P E R I O D _ M 5 ;
i n p u t i n t i n p 1 2 _ L o _ M A p e r i o d = 9 ;
i n p u t E N U M _ T I M E F R A M E S i n p 1 2 _ L o _ P e r i o d = P E R I O D _ D 1 ;
i n p u t i n t i n p 1 2 _ R o _ M A p e r i o d = 2 0 ;
i n p u t E N U M _ T I M E F R A M E S i n p 1 2 _ R o _ P e r i o d = P E R I O D _ D 1 ;
i n p u t E N U M _ T I M E F R A M E S i n p 1 8 _ L o _ P e r i o d = P E R I O D _ M 5 ;
i n p u t i n t i n p 1 8 _ R o _ M A p e r i o d = 9 ;
i n p u t E N U M _ T I M E F R A M E S i n p 1 8 _ R o _ P e r i o d = P E R I O D _ D 1 ;
i n p u t i n t i n p 2 5 _ L o _ K p e r i o d = 3 0 ;
i n p u t i n t i n p 2 5 _ L o _ D p e r i o d = 5 ;
i n p u t i n t i n p 2 5 _ L o _ S l o w i n g = 9 ;
i n p u t i n t i n p 2 5 _ L o _ M o d e = 0 ;
i n p u t E N U M _ T I M E F R A M E S i n p 2 5 _ L o _ P e r i o d = P E R I O D _ H 1 ;
i n p u t i n t i n p 2 5 _ R o _ K p e r i o d = 3 0 ;
i n p u t i n t i n p 2 5 _ R o _ D p e r i o d = 5 ;
i n p u t i n t i n p 2 5 _ R o _ S l o w i n g = 9 ;
i n p u t i n t i n p 2 5 _ R o _ M o d e = 1 ;
i n p u t E N U M _ T I M E F R A M E S i n p 2 5 _ R o _ P e r i o d = P E R I O D _ H 1 ;
i n p u t i n t i n p 2 9 _ I n d i c a t o r _ K p e r i o d = 3 0 ;
i n p u t i n t i n p 2 9 _ I n d i c a t o r _ D p e r i o d = 5 ;
i n p u t i n t i n p 2 9 _ I n d i c a t o r _ S l o w i n g = 9 ;
i n p u t E N U M _ T I M E F R A M E S i n p 2 9 _ I n d i c a t o r _ P e r i o d = P E R I O D _ H 1 ;
i n p u t i n t i n p 2 9 _ C a n d l e s S h i f t = 1 ;
i n p u t i n t i n p 2 9 _ C a n d l e s P e r i o d = 1 ;
i n p u t i n t i n p 2 9 _ E x c e p t i o n C a n d l e s = 0 ;
i n p u t d o u b l e i n p 2 9 _ U p p e r L e v e l = 4 0 . 0 ;
i n p u t d o u b l e i n p 2 9 _ L o w e r L e v e l = 0 . 0 ;
i n p u t i n t i n p 3 0 _ L o _ K p e r i o d = 3 0 ;
i n p u t i n t i n p 3 0 _ L o _ D p e r i o d = 5 ;
i n p u t i n t i n p 3 0 _ L o _ S l o w i n g = 9 ;
i n p u t i n t i n p 3 0 _ L o _ M o d e = 0 ;
i n p u t E N U M _ T I M E F R A M E S i n p 3 0 _ L o _ P e r i o d = P E R I O D _ H 1 ;
i n p u t i n t i n p 3 0 _ R o _ K p e r i o d = 3 0 ;
i n p u t i n t i n p 3 0 _ R o _ D p e r i o d = 5 ;
i n p u t i n t i n p 3 0 _ R o _ S l o w i n g = 9 ;
i n p u t i n t i n p 3 0 _ R o _ M o d e = 1 ;
i n p u t E N U M _ T I M E F R A M E S i n p 3 0 _ R o _ P e r i o d = P E R I O D _ H 1 ;
i n p u t i n t i n p 3 4 _ I n d i c a t o r _ K p e r i o d = 3 0 ;
i n p u t i n t i n p 3 4 _ I n d i c a t o r _ D p e r i o d = 5 ;
i n p u t i n t i n p 3 4 _ I n d i c a t o r _ S l o w i n g = 9 ;
i n p u t E N U M _ T I M E F R A M E S i n p 3 4 _ I n d i c a t o r _ P e r i o d = P E R I O D _ H 1 ;
i n p u t i n t i n p 3 4 _ C a n d l e s S h i f t = 1 ;
i n p u t i n t i n p 3 4 _ C a n d l e s P e r i o d = 1 ;
i n p u t i n t i n p 3 4 _ E x c e p t i o n C a n d l e s = 0 ;
i n p u t d o u b l e i n p 3 4 _ U p p e r L e v e l = 4 0 . 0 ;
i n p u t d o u b l e i n p 3 4 _ L o w e r L e v e l = 0 . 0 ;
i n p u t d o u b l e i n p 3 5 _ V o l u m e S i z e = 0 . 0 1 ;
i n p u t d o u b l e i n p 3 5 _ S t o p L o s s P i p s = 1 0 0 . 0 ;
i n p u t d o u b l e i n p 3 5 _ T a k e P r o f i t P i p s = 2 0 0 . 0 ;
i n p u t i n t i n p 3 6 _ L o _ R S I p e r i o d = 7 ;
i n p u t E N U M _ T I M E F R A M E S i n p 3 6 _ L o _ P e r i o d = P E R I O D _ M 5 ;
i n p u t d o u b l e i n p 3 6 _ R o _ V a l u e = 7 7 . 0 ;
c l a s s _ e x t e r n s
{
p u b l i c :
s t a t i c i n t i n p 4 _ f a s t E M A ;
s t a t i c i n t i n p 4 _ s l o w E M A ;
s t a t i c i n t i n p 4 _ s i g n a l S M A ;
s t a t i c d o u b l e i n p 4 _ m a c d T h r e s h o l d ;
s t a t i c E N U M _ T I M E F R A M E S i n p 4 _ P e r i o d ;
s t a t i c i n t i n p 1 2 _ L o _ M A p e r i o d ;
s t a t i c E N U M _ T I M E F R A M E S i n p 1 2 _ L o _ P e r i o d ;
s t a t i c i n t i n p 1 2 _ R o _ M A p e r i o d ;
s t a t i c E N U M _ T I M E F R A M E S i n p 1 2 _ R o _ P e r i o d ;
s t a t i c E N U M _ T I M E F R A M E S i n p 1 8 _ L o _ P e r i o d ;
s t a t i c i n t i n p 1 8 _ R o _ M A p e r i o d ;
s t a t i c E N U M _ T I M E F R A M E S i n p 1 8 _ R o _ P e r i o d ;
s t a t i c i n t i n p 2 5 _ L o _ K p e r i o d ;
s t a t i c i n t i n p 2 5 _ L o _ D p e r i o d ;
s t a t i c i n t i n p 2 5 _ L o _ S l o w i n g ;
s t a t i c i n t i n p 2 5 _ L o _ M o d e ;
s t a t i c E N U M _ T I M E F R A M E S i n p 2 5 _ L o _ P e r i o d ;
s t a t i c i n t i n p 2 5 _ R o _ K p e r i o d ;
s t a t i c i n t i n p 2 5 _ R o _ D p e r i o d ;
s t a t i c i n t i n p 2 5 _ R o _ S l o w i n g ;
s t a t i c i n t i n p 2 5 _ R o _ M o d e ;
s t a t i c E N U M _ T I M E F R A M E S i n p 2 5 _ R o _ P e r i o d ;
s t a t i c i n t i n p 2 9 _ I n d i c a t o r _ K p e r i o d ;
s t a t i c i n t i n p 2 9 _ I n d i c a t o r _ D p e r i o d ;
s t a t i c i n t i n p 2 9 _ I n d i c a t o r _ S l o w i n g ;
s t a t i c E N U M _ T I M E F R A M E S i n p 2 9 _ I n d i c a t o r _ P e r i o d ;
s t a t i c i n t i n p 2 9 _ C a n d l e s S h i f t ;
s t a t i c i n t i n p 2 9 _ C a n d l e s P e r i o d ;
s t a t i c i n t i n p 2 9 _ E x c e p t i o n C a n d l e s ;
s t a t i c d o u b l e i n p 2 9 _ U p p e r L e v e l ;
s t a t i c d o u b l e i n p 2 9 _ L o w e r L e v e l ;
s t a t i c i n t i n p 3 0 _ L o _ K p e r i o d ;
s t a t i c i n t i n p 3 0 _ L o _ D p e r i o d ;
s t a t i c i n t i n p 3 0 _ L o _ S l o w i n g ;
s t a t i c i n t i n p 3 0 _ L o _ M o d e ;
s t a t i c E N U M _ T I M E F R A M E S i n p 3 0 _ L o _ P e r i o d ;
s t a t i c i n t i n p 3 0 _ R o _ K p e r i o d ;
s t a t i c i n t i n p 3 0 _ R o _ D p e r i o d ;
s t a t i c i n t i n p 3 0 _ R o _ S l o w i n g ;
s t a t i c i n t i n p 3 0 _ R o _ M o d e ;
s t a t i c E N U M _ T I M E F R A M E S i n p 3 0 _ R o _ P e r i o d ;
s t a t i c i n t i n p 3 4 _ I n d i c a t o r _ K p e r i o d ;
s t a t i c i n t i n p 3 4 _ I n d i c a t o r _ D p e r i o d ;
s t a t i c i n t i n p 3 4 _ I n d i c a t o r _ S l o w i n g ;
s t a t i c E N U M _ T I M E F R A M E S i n p 3 4 _ I n d i c a t o r _ P e r i o d ;
s t a t i c i n t i n p 3 4 _ C a n d l e s S h i f t ;
s t a t i c i n t i n p 3 4 _ C a n d l e s P e r i o d ;
s t a t i c i n t i n p 3 4 _ E x c e p t i o n C a n d l e s ;
s t a t i c d o u b l e i n p 3 4 _ U p p e r L e v e l ;
s t a t i c d o u b l e i n p 3 4 _ L o w e r L e v e l ;
s t a t i c d o u b l e i n p 3 5 _ V o l u m e S i z e ;
s t a t i c d o u b l e i n p 3 5 _ S t o p L o s s P i p s ;
s t a t i c d o u b l e i n p 3 5 _ T a k e P r o f i t P i p s ;
s t a t i c i n t i n p 3 6 _ L o _ R S I p e r i o d ;
s t a t i c E N U M _ T I M E F R A M E S i n p 3 6 _ L o _ P e r i o d ;
s t a t i c d o u b l e i n p 3 6 _ R o _ V a l u e ;
} ;
i n t _ e x t e r n s : : i n p 4 _ f a s t E M A ;
i n t _ e x t e r n s : : i n p 4 _ s l o w E M A ;
i n t _ e x t e r n s : : i n p 4 _ s i g n a l S M A ;
d o u b l e _ e x t e r n s : : i n p 4 _ m a c d T h r e s h o l d ;
E N U M _ T I M E F R A M E S _ e x t e r n s : : i n p 4 _ P e r i o d ;
i n t _ e x t e r n s : : i n p 1 2 _ L o _ M A p e r i o d ;
E N U M _ T I M E F R A M E S _ e x t e r n s : : i n p 1 2 _ L o _ P e r i o d ;
i n t _ e x t e r n s : : i n p 1 2 _ R o _ M A p e r i o d ;
E N U M _ T I M E F R A M E S _ e x t e r n s : : i n p 1 2 _ R o _ P e r i o d ;
E N U M _ T I M E F R A M E S _ e x t e r n s : : i n p 1 8 _ L o _ P e r i o d ;
i n t _ e x t e r n s : : i n p 1 8 _ R o _ M A p e r i o d ;
E N U M _ T I M E F R A M E S _ e x t e r n s : : i n p 1 8 _ R o _ P e r i o d ;
i n t _ e x t e r n s : : i n p 2 5 _ L o _ K p e r i o d ;
i n t _ e x t e r n s : : i n p 2 5 _ L o _ D p e r i o d ;
i n t _ e x t e r n s : : i n p 2 5 _ L o _ S l o w i n g ;
i n t _ e x t e r n s : : i n p 2 5 _ L o _ M o d e ;
E N U M _ T I M E F R A M E S _ e x t e r n s : : i n p 2 5 _ L o _ P e r i o d ;
i n t _ e x t e r n s : : i n p 2 5 _ R o _ K p e r i o d ;
i n t _ e x t e r n s : : i n p 2 5 _ R o _ D p e r i o d ;
i n t _ e x t e r n s : : i n p 2 5 _ R o _ S l o w i n g ;
i n t _ e x t e r n s : : i n p 2 5 _ R o _ M o d e ;
E N U M _ T I M E F R A M E S _ e x t e r n s : : i n p 2 5 _ R o _ P e r i o d ;
i n t _ e x t e r n s : : i n p 2 9 _ I n d i c a t o r _ K p e r i o d ;
i n t _ e x t e r n s : : i n p 2 9 _ I n d i c a t o r _ D p e r i o d ;
i n t _ e x t e r n s : : i n p 2 9 _ I n d i c a t o r _ S l o w i n g ;
E N U M _ T I M E F R A M E S _ e x t e r n s : : i n p 2 9 _ I n d i c a t o r _ P e r i o d ;
i n t _ e x t e r n s : : i n p 2 9 _ C a n d l e s S h i f t ;
i n t _ e x t e r n s : : i n p 2 9 _ C a n d l e s P e r i o d ;
i n t _ e x t e r n s : : i n p 2 9 _ E x c e p t i o n C a n d l e s ;
d o u b l e _ e x t e r n s : : i n p 2 9 _ U p p e r L e v e l ;
d o u b l e _ e x t e r n s : : i n p 2 9 _ L o w e r L e v e l ;
i n t _ e x t e r n s : : i n p 3 0 _ L o _ K p e r i o d ;
i n t _ e x t e r n s : : i n p 3 0 _ L o _ D p e r i o d ;
i n t _ e x t e r n s : : i n p 3 0 _ L o _ S l o w i n g ;
i n t _ e x t e r n s : : i n p 3 0 _ L o _ M o d e ;
E N U M _ T I M E F R A M E S _ e x t e r n s : : i n p 3 0 _ L o _ P e r i o d ;
i n t _ e x t e r n s : : i n p 3 0 _ R o _ K p e r i o d ;
i n t _ e x t e r n s : : i n p 3 0 _ R o _ D p e r i o d ;
i n t _ e x t e r n s : : i n p 3 0 _ R o _ S l o w i n g ;
i n t _ e x t e r n s : : i n p 3 0 _ R o _ M o d e ;
E N U M _ T I M E F R A M E S _ e x t e r n s : : i n p 3 0 _ R o _ P e r i o d ;
i n t _ e x t e r n s : : i n p 3 4 _ I n d i c a t o r _ K p e r i o d ;
i n t _ e x t e r n s : : i n p 3 4 _ I n d i c a t o r _ D p e r i o d ;
i n t _ e x t e r n s : : i n p 3 4 _ I n d i c a t o r _ S l o w i n g ;
E N U M _ T I M E F R A M E S _ e x t e r n s : : i n p 3 4 _ I n d i c a t o r _ P e r i o d ;
i n t _ e x t e r n s : : i n p 3 4 _ C a n d l e s S h i f t ;
i n t _ e x t e r n s : : i n p 3 4 _ C a n d l e s P e r i o d ;
i n t _ e x t e r n s : : i n p 3 4 _ E x c e p t i o n C a n d l e s ;
d o u b l e _ e x t e r n s : : i n p 3 4 _ U p p e r L e v e l ;
d o u b l e _ e x t e r n s : : i n p 3 4 _ L o w e r L e v e l ;
d o u b l e _ e x t e r n s : : i n p 3 5 _ V o l u m e S i z e ;
d o u b l e _ e x t e r n s : : i n p 3 5 _ S t o p L o s s P i p s ;
d o u b l e _ e x t e r n s : : i n p 3 5 _ T a k e P r o f i t P i p s ;
i n t _ e x t e r n s : : i n p 3 6 _ L o _ R S I p e r i o d ;
E N U M _ T I M E F R A M E S _ e x t e r n s : : i n p 3 6 _ L o _ P e r i o d ;
d o u b l e _ e x t e r n s : : i n p 3 6 _ R o _ V a l u e ;
/ / V V V V V V V V V V V V V V V V V V V V V V V V V / /
/ / S y s t e m g l o b a l v a r i a b l e s / /
/ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / /
/ / - -
/ / B l o c k s L o o k u p F u n c t i o n s
s t r i n g f x d B l o c k s L o o k u p T a b l e [ ] ;
i n t F X D _ C U R R E N T _ F U N C T I O N _ I D = 0 ;
d o u b l e F X D _ M I L S _ I N I T _ E N D = 0 ;
i n t F X D _ T I C K S _ F R O M _ S T A R T = 0 ;
i n t F X D _ M O R E _ S H I F T = 0 ;
b o o l F X D _ D R A W _ S P R E A D _ I N F O = f a l s e ;
b o o l F X D _ F I R S T _ T I C K _ P A S S E D = f a l s e ;
b o o l F X D _ B R E A K = f a l s e ;
b o o l F X D _ C O N T I N U E = f a l s e ;
b o o l U S E _ V I R T U A L _ S T O P S = V I R T U A L _ S T O P S _ E N A B L E D ;
s t r i n g F X D _ C U R R E N T _ S Y M B O L = " " ;
i n t F X D _ B L O C K S _ C O U N T = 1 2 ;
d a t e t i m e F X D _ T I C K S K I P _ U N T I L = 0 ;
i n t F X D _ I C U S T O M _ H A N D L E S _ I D S [ ] ; / / o n l y u s e d i n M Q L 5
s t r i n g F X D _ I C U S T O M _ H A N D L E S _ K E Y S [ ] ; / / o n l y u s e d i n M Q L 5
/ / - f o r u s e i n O n C h a r t ( ) e v e n t
s t r u c t f x d _ o n c h a r t
{
i n t i d ;
l o n g l p a r a m ;
d o u b l e d p a r a m ;
s t r i n g s p a r a m ;
} ;
f x d _ o n c h a r t F X D _ O N C H A R T ;
/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + / /
/ / | E V E N T F U N C T I O N S | / /
/ / | T h e s e a r e t h e m a i n f u n c t i o n s t h a t c o n t r o l s t h e w h o l e p r o j e c t | / /
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + / /
/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V / /
/ / T h i s f u n c t i o n i s e x e c u t e d o n c e w h e n t h e p r o g r a m s t a r t s / /
/ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / /
i n t O n I n i t ( )
{
/ / I n i t i a t e C o n s t a n t s
c : : m u l t i = m u l t i ;
c : : M a g i c S t a r t = M a g i c S t a r t ;
/ / I n i t i a t e E x t e r n s
_ e x t e r n s : : i n p 4 _ f a s t E M A = i n p 4 _ f a s t E M A ;
_ e x t e r n s : : i n p 4 _ s l o w E M A = i n p 4 _ s l o w E M A ;
_ e x t e r n s : : i n p 4 _ s i g n a l S M A = i n p 4 _ s i g n a l S M A ;
_ e x t e r n s : : i n p 4 _ m a c d T h r e s h o l d = i n p 4 _ m a c d T h r e s h o l d ;
_ e x t e r n s : : i n p 4 _ P e r i o d = i n p 4 _ P e r i o d ;
_ e x t e r n s : : i n p 1 2 _ L o _ M A p e r i o d = i n p 1 2 _ L o _ M A p e r i o d ;
_ e x t e r n s : : i n p 1 2 _ L o _ P e r i o d = i n p 1 2 _ L o _ P e r i o d ;
_ e x t e r n s : : i n p 1 2 _ R o _ M A p e r i o d = i n p 1 2 _ R o _ M A p e r i o d ;
_ e x t e r n s : : i n p 1 2 _ R o _ P e r i o d = i n p 1 2 _ R o _ P e r i o d ;
_ e x t e r n s : : i n p 1 8 _ L o _ P e r i o d = i n p 1 8 _ L o _ P e r i o d ;
_ e x t e r n s : : i n p 1 8 _ R o _ M A p e r i o d = i n p 1 8 _ R o _ M A p e r i o d ;
_ e x t e r n s : : i n p 1 8 _ R o _ P e r i o d = i n p 1 8 _ R o _ P e r i o d ;
_ e x t e r n s : : i n p 2 5 _ L o _ K p e r i o d = i n p 2 5 _ L o _ K p e r i o d ;
_ e x t e r n s : : i n p 2 5 _ L o _ D p e r i o d = i n p 2 5 _ L o _ D p e r i o d ;
_ e x t e r n s : : i n p 2 5 _ L o _ S l o w i n g = i n p 2 5 _ L o _ S l o w i n g ;
_ e x t e r n s : : i n p 2 5 _ L o _ M o d e = i n p 2 5 _ L o _ M o d e ;
_ e x t e r n s : : i n p 2 5 _ L o _ P e r i o d = i n p 2 5 _ L o _ P e r i o d ;
_ e x t e r n s : : i n p 2 5 _ R o _ K p e r i o d = i n p 2 5 _ R o _ K p e r i o d ;
_ e x t e r n s : : i n p 2 5 _ R o _ D p e r i o d = i n p 2 5 _ R o _ D p e r i o d ;
_ e x t e r n s : : i n p 2 5 _ R o _ S l o w i n g = i n p 2 5 _ R o _ S l o w i n g ;
_ e x t e r n s : : i n p 2 5 _ R o _ M o d e = i n p 2 5 _ R o _ M o d e ;
_ e x t e r n s : : i n p 2 5 _ R o _ P e r i o d = i n p 2 5 _ R o _ P e r i o d ;
_ e x t e r n s : : i n p 2 9 _ I n d i c a t o r _ K p e r i o d = i n p 2 9 _ I n d i c a t o r _ K p e r i o d ;
_ e x t e r n s : : i n p 2 9 _ I n d i c a t o r _ D p e r i o d = i n p 2 9 _ I n d i c a t o r _ D p e r i o d ;
_ e x t e r n s : : i n p 2 9 _ I n d i c a t o r _ S l o w i n g = i n p 2 9 _ I n d i c a t o r _ S l o w i n g ;
_ e x t e r n s : : i n p 2 9 _ I n d i c a t o r _ P e r i o d = i n p 2 9 _ I n d i c a t o r _ P e r i o d ;
_ e x t e r n s : : i n p 2 9 _ C a n d l e s S h i f t = i n p 2 9 _ C a n d l e s S h i f t ;
_ e x t e r n s : : i n p 2 9 _ C a n d l e s P e r i o d = i n p 2 9 _ C a n d l e s P e r i o d ;
_ e x t e r n s : : i n p 2 9 _ E x c e p t i o n C a n d l e s = i n p 2 9 _ E x c e p t i o n C a n d l e s ;
_ e x t e r n s : : i n p 2 9 _ U p p e r L e v e l = i n p 2 9 _ U p p e r L e v e l ;
_ e x t e r n s : : i n p 2 9 _ L o w e r L e v e l = i n p 2 9 _ L o w e r L e v e l ;
_ e x t e r n s : : i n p 3 0 _ L o _ K p e r i o d = i n p 3 0 _ L o _ K p e r i o d ;
_ e x t e r n s : : i n p 3 0 _ L o _ D p e r i o d = i n p 3 0 _ L o _ D p e r i o d ;
_ e x t e r n s : : i n p 3 0 _ L o _ S l o w i n g = i n p 3 0 _ L o _ S l o w i n g ;
_ e x t e r n s : : i n p 3 0 _ L o _ M o d e = i n p 3 0 _ L o _ M o d e ;
_ e x t e r n s : : i n p 3 0 _ L o _ P e r i o d = i n p 3 0 _ L o _ P e r i o d ;
_ e x t e r n s : : i n p 3 0 _ R o _ K p e r i o d = i n p 3 0 _ R o _ K p e r i o d ;
_ e x t e r n s : : i n p 3 0 _ R o _ D p e r i o d = i n p 3 0 _ R o _ D p e r i o d ;
_ e x t e r n s : : i n p 3 0 _ R o _ S l o w i n g = i n p 3 0 _ R o _ S l o w i n g ;
_ e x t e r n s : : i n p 3 0 _ R o _ M o d e = i n p 3 0 _ R o _ M o d e ;
_ e x t e r n s : : i n p 3 0 _ R o _ P e r i o d = i n p 3 0 _ R o _ P e r i o d ;
_ e x t e r n s : : i n p 3 4 _ I n d i c a t o r _ K p e r i o d = i n p 3 4 _ I n d i c a t o r _ K p e r i o d ;
_ e x t e r n s : : i n p 3 4 _ I n d i c a t o r _ D p e r i o d = i n p 3 4 _ I n d i c a t o r _ D p e r i o d ;
_ e x t e r n s : : i n p 3 4 _ I n d i c a t o r _ S l o w i n g = i n p 3 4 _ I n d i c a t o r _ S l o w i n g ;
_ e x t e r n s : : i n p 3 4 _ I n d i c a t o r _ P e r i o d = i n p 3 4 _ I n d i c a t o r _ P e r i o d ;
_ e x t e r n s : : i n p 3 4 _ C a n d l e s S h i f t = i n p 3 4 _ C a n d l e s S h i f t ;
_ e x t e r n s : : i n p 3 4 _ C a n d l e s P e r i o d = i n p 3 4 _ C a n d l e s P e r i o d ;
_ e x t e r n s : : i n p 3 4 _ E x c e p t i o n C a n d l e s = i n p 3 4 _ E x c e p t i o n C a n d l e s ;
_ e x t e r n s : : i n p 3 4 _ U p p e r L e v e l = i n p 3 4 _ U p p e r L e v e l ;
_ e x t e r n s : : i n p 3 4 _ L o w e r L e v e l = i n p 3 4 _ L o w e r L e v e l ;
_ e x t e r n s : : i n p 3 5 _ V o l u m e S i z e = i n p 3 5 _ V o l u m e S i z e ;
_ e x t e r n s : : i n p 3 5 _ S t o p L o s s P i p s = i n p 3 5 _ S t o p L o s s P i p s ;
_ e x t e r n s : : i n p 3 5 _ T a k e P r o f i t P i p s = i n p 3 5 _ T a k e P r o f i t P i p s ;
_ e x t e r n s : : i n p 3 6 _ L o _ R S I p e r i o d = i n p 3 6 _ L o _ R S I p e r i o d ;
_ e x t e r n s : : i n p 3 6 _ L o _ P e r i o d = i n p 3 6 _ L o _ P e r i o d ;
_ e x t e r n s : : i n p 3 6 _ R o _ V a l u e = i n p 3 6 _ R o _ V a l u e ;
/ / d o o r d o n o t n o t i n i t i l i a l i z e o n r e l o a d
i f ( U n i n i t i a l i z e R e a s o n ( ) ! = 0 )
{
i f ( U n i n i t i a l i z e R e a s o n ( ) = = R E A S O N _ C H A R T C H A N G E )
{
/ / i f t h e s y m b o l i s t h e s a m e , d o n o t r e l o a d , o t h e r w i s e c o n t i n u e b e l o w
i f ( F X D _ C U R R E N T _ S Y M B O L = = S y m b o l ( ) ) { r e t u r n I N I T _ S U C C E E D E D ; }
}
e l s e
{
r e t u r n I N I T _ S U C C E E D E D ;
}
}
F X D _ C U R R E N T _ S Y M B O L = S y m b o l ( ) ;
C u r r e n t S y m b o l ( F X D _ C U R R E N T _ S Y M B O L ) ; / / C u r r e n t S y m b o l ( ) h a s i n t e r n a l m e m o r y t h a t s h o u l d b e s e t f r o m h e r e w h e n t h e s y m b o l l i s c h a n g e d
C u r r e n t T i m e f r a m e ( P E R I O D _ C U R R E N T ) ;
C o m m e n t ( " " ) ;
f o r ( i n t i = O b j e c t s T o t a l ( C h a r t I D ( ) ) ; i > = 0 ; i - - )
{
s t r i n g n a m e = O b j e c t N a m e ( C h a r t I D ( ) , i ) ;
i f ( S t r i n g S u b s t r ( n a m e , 0 , 8 ) = = " f x d _ c m n t " ) { O b j e c t D e l e t e ( C h a r t I D ( ) , n a m e ) ; }
}
C h a r t R e d r a w ( ) ;
/ / - - d i s a b l e v i r t u a l s t o p s i n o p t i m i z a t i o n , b e c a u s e g r a p h i c a l o b j e c t s d o e s n o t w o r k
/ / h t t p : / / d o c s . m q l 4 . c o m / r u n t i m e / t e s t i n g
i f ( M Q L I n f o I n t e g e r ( M Q L _ O P T I M I Z A T I O N ) ) {
U S E _ V I R T U A L _ S T O P S = f a l s e ;
}
/ / - - s e t i n i t i a l l o c a l a n d s e r v e r t i m e
T i m e A t S t a r t ( " s e t " ) ;
/ / - - s e t i n i t i a l b a l a n c e
A c c o u n t B a l a n c e A t S t a r t ( ) ;
/ / - - d r a w t h e i n i t i a l s p r e a d i n f o m e t e r
i f ( E N A B L E _ S P R E A D _ M E T E R = = f a l s e ) {
F X D _ D R A W _ S P R E A D _ I N F O = f a l s e ;
}
e l s e {
F X D _ D R A W _ S P R E A D _ I N F O = ! ( M Q L I n f o I n t e g e r ( M Q L _ T E S T E R ) & & ! M Q L I n f o I n t e g e r ( M Q L _ V I S U A L _ M O D E ) ) ;
}
i f ( F X D _ D R A W _ S P R E A D _ I N F O ) D r a w S p r e a d I n f o ( ) ;
/ / - - d r a w i n i t i a l s t a t u s
i f ( E N A B L E _ S T A T U S ) D r a w S t a t u s ( " w a i t i n g f o r t i c k . . . " ) ;
/ / - - d r a w i n d i c a t o r s a f t e r t e s t
T e s t e r H i d e I n d i c a t o r s ( ! E N A B L E _ T E S T _ I N D I C A T O R S ) ;
i f ( E N A B L E _ E V E N T _ T I M E R ) {
O n T i m e r S e t ( O N _ T I M E R _ P E R I O D ) ;
}
/ / - - I n i t i a l i z e b l o c k s c l a s s e s
A r r a y R e s i z e ( _ b l o c k s _ , 1 2 ) ;
_ b l o c k s _ [ 0 ] = n e w B l o c k 0 ( ) ;
_ b l o c k s _ [ 1 ] = n e w B l o c k 1 ( ) ;
_ b l o c k s _ [ 2 ] = n e w B l o c k 2 ( ) ;
_ b l o c k s _ [ 3 ] = n e w B l o c k 3 ( ) ;
_ b l o c k s _ [ 4 ] = n e w B l o c k 4 ( ) ;
_ b l o c k s _ [ 5 ] = n e w B l o c k 5 ( ) ;
_ b l o c k s _ [ 6 ] = n e w B l o c k 6 ( ) ;
_ b l o c k s _ [ 7 ] = n e w B l o c k 7 ( ) ;
_ b l o c k s _ [ 8 ] = n e w B l o c k 8 ( ) ;
_ b l o c k s _ [ 9 ] = n e w B l o c k 9 ( ) ;
_ b l o c k s _ [ 1 0 ] = n e w B l o c k 1 0 ( ) ;
_ b l o c k s _ [ 1 1 ] = n e w B l o c k 1 1 ( ) ;
/ / f i l l t h e l o o k u p t a b l e
A r r a y R e s i z e ( f x d B l o c k s L o o k u p T a b l e , A r r a y S i z e ( _ b l o c k s _ ) ) ;
f o r ( i n t i = 0 ; i < A r r a y S i z e ( _ b l o c k s _ ) ; i + + )
{
f x d B l o c k s L o o k u p T a b l e [ i ] = _ b l o c k s _ [ i ] . _ _ b l o c k _ u s e r _ n u m b e r ;
}
/ / f i l l t h e l i s t o f i n b o u n d b l o c k s f o r e a c h B l o c k C a l l s i n s t a n c e
f o r ( i n t i = 0 ; i < A r r a y S i z e ( _ b l o c k s _ ) ; i + + )
{
_ b l o c k s _ [ i ] . _ _ a n n o u n c e T h i s B l o c k ( ) ;
}
/ / L i s t o f i n i t i a l l y d i s a b l e d b l o c k s
i n t d i s a b l e d _ b l o c k s _ l i s t [ ] = { } ;
f o r ( i n t l = 0 ; l < A r r a y S i z e ( d i s a b l e d _ b l o c k s _ l i s t ) ; l + + ) {
_ b l o c k s _ [ d i s a b l e d _ b l o c k s _ l i s t [ l ] ] . _ _ d i s a b l e d = t r u e ;
}
F X D _ M I L S _ I N I T _ E N D = ( d o u b l e ) G e t T i c k C o u n t ( ) ;
F X D _ F I R S T _ T I C K _ P A S S E D = f a l s e ; / / r e s e t i s n e e d e d w h e n c h a n g i n g i n p u t s
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V / /
/ / T h i s f u n c t i o n i s e x e c u t e d o n e v e r y i n c o m i n g t i c k / /
/ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / /
v o i d O n T i c k ( )
{
F X D _ T I C K S _ F R O M _ S T A R T + + ;
i f ( E N A B L E _ S T A T U S & & F X D _ T I C K S _ F R O M _ S T A R T = = 1 ) D r a w S t a t u s ( " w o r k i n g " ) ;
/ / - - s p e c i a l s y s t e m a c t i o n s
i f ( F X D _ D R A W _ S P R E A D _ I N F O ) D r a w S p r e a d I n f o ( ) ;
T i c k s D a t a ( " " ) ; / / C o l l e c t t i c k s ( i f n e e d e d )
T i c k s P e r S e c o n d ( f a l s e , t r u e ) ; / / C o l l e c t t i c k s p e r s e c o n d
i f ( U S E _ V I R T U A L _ S T O P S ) { V i r t u a l S t o p s D r i v e r ( ) ; }
i f ( f a l s e ) E x p i r a t i o n W o r k e r * e x p i r a t i o n D u m m y = n e w E x p i r a t i o n W o r k e r ( ) ;
e x p i r a t i o n W o r k e r . R u n ( ) ;
O C O D r i v e r ( ) ; / / C h e c k a n d c l o s e O C O o r d e r s
/ / s k i p t i c k s
i f ( T i m e L o c a l ( ) < F X D _ T I C K S K I P _ U N T I L ) { r e t u r n ; }
/ / - - r u n b l o c k s
i n t b l o c k s _ t o _ r u n [ ] = { 0 , 7 } ;
f o r ( i n t i = 0 ; i < A r r a y S i z e ( b l o c k s _ t o _ r u n ) ; i + + ) {
_ b l o c k s _ [ b l o c k s _ t o _ r u n [ i ] ] . r u n ( ) ;
}
r e t u r n ;
}
/ / V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V / /
/ / T h i s f u n c t i o n i s e x e c u t e d o n t r a d e e v e n t s - o p e n , c l o s e , m o d i f y / /
/ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / /
v o i d O n T r a d e ( )
{
/ / T h i s i s n e e d e d s o t h a t t h e O n T r a d e E v e n t D e t e c t o r c l a s s i s a d d e d i n t o t h e c o d e
i f ( f a l s e ) O n T r a d e E v e n t D e t e c t o r * d u m m y = n e w O n T r a d e E v e n t D e t e c t o r ( ) ;
}
/ / V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V / /
/ / T h i s f u n c t i o n i s e x e c u t e d o n a p e r i o d b a s i s / /
/ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / /
v o i d O n T i m e r ( )
{
}
/ / V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V / /
/ / T h i s f u n c t i o n i s e x e c u t e d w h e n c h a r t e v e n t h a p p e n s / /
/ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / /
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 , / / E v e n t I D
c o n s t l o n g & l p a r a m , / / P a r a m e t e r o f t y p e l o n g e v e n t
c o n s t d o u b l e & d p a r a m , / / P a r a m e t e r o f t y p e d o u b l e e v e n t
c o n s t s t r i n g & s p a r a m / / P a r a m e t e r o f t y p e s t r i n g e v e n t s
)
{
/ / - - w r i t e p a r a m e t e r t o t h e s y s t e m g l o b a l v a r i a b l e s
F X D _ O N C H A R T . i d = i d ;
F X D _ O N C H A R T . l p a r a m = l p a r a m ;
F X D _ O N C H A R T . d p a r a m = d p a r a m ;
F X D _ O N C H A R T . s p a r a m = s p a r a m ;
r e t u r n ;
}
/ / V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V / /
/ / T h i s f u n c t i o n i s e x e c u t e d o n c e w h e n t h e p r o g r a m e n d s / /
/ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / /
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 t r e s o n = U n i n i t i a l i z e R e a s o n ( ) ;
i f ( r e s o n = = R E A S O N _ C H A R T C H A N G E | | r e s o n = = R E A S O N _ P A R A M E T E R S | | r e a s o n = = R E A S O N _ T E M P L A T E | | r e a s o n = = R E A S O N _ A C C O U N T ) { r e t u r n ; }
/ / - - i f T i m e r w a s s e t , k i l l i t h e r e
E v e n t K i l l T i m e r ( ) ;
i f ( E N A B L E _ S T A T U S ) D r a w S t a t u s ( " s t o p p e d " ) ;
i f ( E N A B L E _ S P R E A D _ M E T E R ) D r a w S p r e a d I n f o ( ) ;
i f ( M Q L I n f o I n t e g e r ( M Q L _ T E S T E R ) ) {
P r i n t ( " B a c k t e s t e d i n " + D o u b l e T o S t r i n g ( ( G e t T i c k C o u n t ( ) - F X D _ M I L S _ I N I T _ E N D ) / 1 0 0 0 , 2 ) + " s e c o n d s " ) ;
d o u b l e t c = G e t T i c k C o u n t ( ) - F X D _ M I L S _ I N I T _ E N D ;
i f ( t c > 0 )
{
P r i n t ( " A v e r a g e t i c k s p e r s e c o n d : " + D o u b l e T o S t r i n g ( F X D _ T I C K S _ F R O M _ S T A R T / t c , 0 ) ) ;
}
}
i f ( M Q L I n f o I n t e g e r ( M Q L _ P R O G R A M _ T Y P E ) = = P R O G R A M _ E X P E R T )
{
s w i t c h ( U n i n i t i a l i z e R e a s o n ( ) )
{
c a s e R E A S O N _ P R O G R A M : P r i n t ( " E x p e r t A d v i s o r s e l f t e r m i n a t e d " ) ; b r e a k ;
c a s e R E A S O N _ R E M O V E : P r i n t ( " E x p e r t A d v i s o r r e m o v e d f r o m t h e c h a r t " ) ; b r e a k ;
c a s e R E A S O N _ R E C O M P I L E : P r i n t ( " E x p e r t A d v i s o r h a s b e e n r e c o m p i l e d " ) ; b r e a k ;
c a s e R E A S O N _ C H A R T C H A N G E : P r i n t ( " S y m b o l o r c h a r t p e r i o d h a s b e e n c h a n g e d " ) ; b r e a k ;
c a s e R E A S O N _ C H A R T C L O S E : P r i n t ( " C h a r t h a s b e e n c l o s e d " ) ; b r e a k ;
c a s e R E A S O N _ P A R A M E T E R S : P r i n t ( " I n p u t p a r a m e t e r s h a v e b e e n c h a n g e d b y a u s e r " ) ; b r e a k ;
c a s e R E A S O N _ A C C O U N T : P r i n t ( " A n o t h e r a c c o u n t h a s b e e n a c t i v a t e d o r r e c o n n e c t i o n t o t h e t r a d e s e r v e r h a s o c c u r r e d d u e t o c h a n g e s i n t h e a c c o u n t s e t t i n g s " ) ; b r e a k ;
c a s e R E A S O N _ T E M P L A T E : P r i n t ( " A n e w t e m p l a t e h a s b e e n a p p l i e d " ) ; b r e a k ;
c a s e R E A S O N _ I N I T F A I L E D : P r i n t ( " O n I n i t ( ) h a n d l e r h a s r e t u r n e d a n o n z e r o v a l u e " ) ; b r e a k ;
c a s e R E A S O N _ C L O S E : P r i n t ( " T e r m i n a l h a s b e e n c l o s e d " ) ; b r e a k ;
}
}
/ / d e l e t e d y n a m i c p o i n t e r s
f o r ( i n t i = 0 ; i < A r r a y S i z e ( _ b l o c k s _ ) ; i + + )
{
d e l e t e _ b l o c k s _ [ i ] ;
_ b l o c k s _ [ i ] = N U L L ;
}
A r r a y R e s i z e ( _ b l o c k s _ , 0 ) ;
r e t u r n ;
}
/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + / /
/ / | C l a s s e s o f b l o c k s | / /
/ / | C l a s s e s t h a t c o n t a i n t h e a c t u a l c o d e o f t h e b l o c k s a n d t h e i r i n p u t p a r a m e t e r s a s w e l l | / /
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + / /
/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * *
T h e b a s e c l a s s f o r a l l b l o c k c a l l s
* /
c l a s s B l o c k C a l l s
{
p u b l i c :
b o o l _ _ d i s a b l e d ; / / w h e t h e r o r n o t t h e b l o c k i s d i s a b l e d
s t r i n g _ _ b l o c k _ u s e r _ n u m b e r ;
i n t _ _ b l o c k _ n u m b e r ;
i n t _ _ b l o c k _ w a i t i n g ;
i n t _ _ p a r e n t _ n u m b e r ;
i n t _ _ i n b o u n d _ b l o c k s [ ] ;
i n t _ _ o u t b o u n d _ b l o c k s [ ] ;
v o i d _ _ a d d I n b o u n d B l o c k ( i n t i d = 0 ) {
i n t s i z e = A r r a y S i z e ( _ _ i n b o u n d _ b l o c k s ) ;
f o r ( i n t i = 0 ; i < s i z e ; i + + ) {
i f ( _ _ i n b o u n d _ b l o c k s [ i ] = = i d ) {
r e t u r n ;
}
}
A r r a y R e s i z e ( _ _ i n b o u n d _ b l o c k s , s i z e + 1 ) ;
_ _ i n b o u n d _ b l o c k s [ s i z e ] = i d ;
}
v o i d B l o c k C a l l s ( ) {
_ _ d i s a b l e d = f a l s e ;
_ _ b l o c k _ u s e r _ n u m b e r = " " ;
_ _ b l o c k _ n u m b e r = 0 ;
_ _ b l o c k _ w a i t i n g = 0 ;
_ _ p a r e n t _ n u m b e r = 0 ;
}
/ * *
A n n o u n c e t h i s b l o c k t o t h e l i s t o f i n b o u n d c o n n e c t i o n s o f a l l t h e b l o c k s t o w h i c h t h i s b l o c k i s c o n n e c t e d t o
* /
v o i d _ _ a n n o u n c e T h i s B l o c k ( )
{
/ / a d d t h e c u r r e n t b l o c k n u m b e r t o t h e l i s t o f i n b o u n d b l o c k s
/ / f o r e a c h o u t b o u n d b l o c k t h a t i s p r o v i d e d
f o r ( i n t i = 0 ; i < A r r a y S i z e ( _ _ o u t b o u n d _ b l o c k s ) ; i + + )
{
i n t b l o c k = _ _ o u t b o u n d _ b l o c k s [ i ] ; / / o u t b o u n d b l o c k n u m b e r
i n t s i z e = A r r a y S i z e ( _ b l o c k s _ [ b l o c k ] . _ _ i n b o u n d _ b l o c k s ) ; / / t h e s i z e o f i t s i n b o u n d l i s t
/ / s k i p i f t h e c u r r e n t b l o c k w a s a l r e a d y a d d e d
f o r ( i n t j = 0 ; j < s i z e ; j + + ) {
i f ( _ b l o c k s _ [ b l o c k ] . _ _ i n b o u n d _ b l o c k s [ j ] = = _ _ b l o c k _ n u m b e r )
{
r e t u r n ;
}
}
/ / a d d t h e c u r r e n t b l o c k n u m b e r t o t h e l i s t o f i n b o u n d b l o c k s o f t h e o t h e r b l o c k
A r r a y R e s i z e ( _ b l o c k s _ [ b l o c k ] . _ _ i n b o u n d _ b l o c k s , s i z e + 1 ) ;
_ b l o c k s _ [ b l o c k ] . _ _ i n b o u n d _ b l o c k s [ s i z e ] = _ _ b l o c k _ n u m b e r ;
}
}
/ / t h i s i s h e r e , b e c a u s e i t i s u s e d i n t h e " r u n " f u n c t i o n
v i r t u a l v o i d _ e x e c u t e _ ( ) = 0 ;
/ * *
I n t h e d e r i v e d c l a s s t h i s m e t h o d s h o u l d b e u s e d t o s e t d y n a m i c p a r a m e t e r s o r o t h e r s t u f f b e f o r e t h e m a i n e x e c u t e .
T h i s m e t h o d i s a u t o m a t i c a l l y c a l l e d w i t h i n t h e m a i n " r u n " m e t h o d b e l o w , b e f o r e t h e e x e c u t i o n o f t h e m a i n c l a s s .
* /
v i r t u a l v o i d _ b e f o r e E x e c u t e _ ( ) { r e t u r n ; } ;
b o o l _ b e f o r e E x e c u t e E n a b l e d ; / / f o r s p e e d
/ * *
S a m e a s _ b e f o r e E x e c u t e _ , b u t t o w o r k a f t e r t h e e x e c u t e m e t h o d .
* /
v i r t u a l v o i d _ a f t e r E x e c u t e _ ( ) { r e t u r n ; } ;
b o o l _ a f t e r E x e c u t e E n a b l e d ; / / f o r s p e e d
/ * *
T h i s i s t h e m e t h o d t h a t i s u s e d t o r u n t h e b l o c k
* /
v i r t u a l v o i d r u n ( i n t _ p a r e n t _ = 0 ) {
_ _ p a r e n t _ n u m b e r = _ p a r e n t _ ;
i f ( _ _ d i s a b l e d | | F X D _ B R E A K ) { r e t u r n ; }
F X D _ C U R R E N T _ F U N C T I O N _ I D = _ _ b l o c k _ n u m b e r ;
i f ( _ b e f o r e E x e c u t e E n a b l e d ) { _ b e f o r e E x e c u t e _ ( ) ; }
_ e x e c u t e _ ( ) ;
i f ( _ a f t e r E x e c u t e E n a b l e d ) { _ a f t e r E x e c u t e _ ( ) ; }
i f ( _ _ b l o c k _ w a i t i n g & & F X D _ C U R R E N T _ F U N C T I O N _ I D = = _ _ b l o c k _ n u m b e r ) { f x d W a i t . A c c u m u l a t e ( F X D _ C U R R E N T _ F U N C T I O N _ I D ) ; }
}
} ;
B l o c k C a l l s * _ b l o c k s _ [ ] ;
/ / " O n c e p e r b a r " m o d e l
t e m p l a t e < t y p e n a m e T 1 , t y p e n a m e T 2 , t y p e n a m e T 3 >
c l a s s M D L _ O n c e P e r B a r : p u b l i c B l o c k C a l l s
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
T 1 S y m b o l ;
T 2 P e r i o d ;
T 3 P a s s M a x T i m e s ;
/ * S t a t i c P a r a m e t e r s * /
s t r i n g t o k e n s [ ] ;
i n t p a s s e s [ ] ;
d a t e t i m e o l d _ v a l u e s [ ] ;
d a t e t i m e t i m e [ ] ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L _ O n c e P e r B a r ( )
{
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
P e r i o d = ( E N U M _ T I M E F R A M E S ) C u r r e n t T i m e f r a m e ( ) ;
P a s s M a x T i m e s = ( i n t ) 1 ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
v i r t u a l v o i d _ e x e c u t e _ ( )
{
/ / t h i s i s s t a t i c f o r s p e e d r e a s o n s
b o o l n e x t = f a l s e ;
s t r i n g t o k e n = S y m b o l + I n t e g e r T o S t r i n g ( P e r i o d ) ;
i n t i n d e x = A r r a y S e a r c h ( t o k e n s , t o k e n ) ;
i f ( i n d e x = = - 1 )
{
i n d e x = A r r a y S i z e ( t o k e n s ) ;
A r r a y R e s i z e ( t o k e n s , i n d e x + 1 ) ;
A r r a y R e s i z e ( o l d _ v a l u e s , i n d e x + 1 ) ;
A r r a y R e s i z e ( p a s s e s , i n d e x + 1 ) ;
t o k e n s [ i n d e x ] = t o k e n ;
p a s s e s [ i n d e x ] = 0 ;
o l d _ v a l u e s [ i n d e x ] = 0 ;
}
i f ( P a s s M a x T i m e s > 0 )
{
C o p y T i m e ( S y m b o l , P e r i o d , 1 , 1 , t i m e ) ;
d a t e t i m e n e w _ v a l u e = t i m e [ 0 ] ;
i f ( n e w _ v a l u e > o l d _ v a l u e s [ i n d e x ] )
{
p a s s e s [ i n d e x ] + + ;
i f ( p a s s e s [ i n d e x ] > = P a s s M a x T i m e s )
{
o l d _ v a l u e s [ i n d e x ] = n e w _ v a l u e ;
p a s s e s [ i n d e x ] = 0 ;
}
n e x t = t r u e ;
}
}
i f ( n e x t ) { _ c a l l b a c k _ ( 1 ) ; } e l s e { _ c a l l b a c k _ ( 0 ) ; }
}
} ;
/ / " M A C D D i v e r g e n c e ( B u l l i s h ) " m o d e l
t e m p l a t e < t y p e n a m e T 1 , t y p e n a m e T 2 , t y p e n a m e T 3 , t y p e n a m e T 4 , t y p e n a m e T 5 , t y p e n a m e T 6 >
c l a s s M D L _ m a c d D i v B u l l : p u b l i c B l o c k C a l l s
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
T 1 S y m b o l ;
T 2 f a s t E M A ;
T 3 s l o w E M A ;
T 4 s i g n a l S M A ;
T 5 m a c d T h r e s h o l d ;
T 6 P e r i o d ;
/ * S t a t i c P a r a m e t e r s * /
d a t e t i m e B a r T i m e ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L _ m a c d D i v B u l l ( )
{
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
f a s t E M A = ( i n t ) 1 2 ;
s l o w E M A = ( i n t ) 2 6 ;
s i g n a l S M A = ( i n t ) 9 ;
m a c d T h r e s h o l d = ( d o u b l e ) 0 . 0 0 0 3 ;
P e r i o d = ( E N U M _ T I M E F R A M E S ) C u r r e n t T i m e f r a m e ( ) ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
v i r t u a l v o i d _ e x e c u t e _ ( )
{
d o u b l e m a c d [ ] ; A r r a y R e s i z e ( m a c d , 0 ) ;
i n t o f f s e t 1 = 0 , o f f s e t 2 = 0 ;
d o u b l e d i p 1 = 0 , d i p 2 = 0 ;
b o o l d r a w I t = f a l s e ;
d o u b l e m a c d 0 = 0 ;
i n t d e p t h = 0 ;
i n t i = 0 , j = 0 ;
i f ( B a r T i m e < ( i n t ) i T i m e ( S y m b o l , P e r i o d , 1 ) )
{
B a r T i m e = ( i n t ) i T i m e ( S y m b o l , P e r i o d , 1 ) ;
/ / L o a d i n g i n i t i a l d a t a
f o r ( i = 0 ; i < = 5 ; i + + )
{
A r r a y R e s i z e ( m a c d , A r r a y S i z e ( m a c d ) + 1 ) ;
m a c d [ i ] = i M A C D ( S y m b o l , P e r i o d , f a s t E M A , s l o w E M A , s i g n a l S M A , P R I C E _ C L O S E , 0 , i ) ;
}
/ / W e a r e o n m a c d d i p n o w ?
i f (
m a c d [ 1 ] < - 1 * m a c d T h r e s h o l d
& & m a c d [ 2 ] < - 1 * m a c d T h r e s h o l d
& & m a c d [ 3 ] < - 1 * m a c d T h r e s h o l d
& & m a c d [ 4 ] < - 1 * m a c d T h r e s h o l d
& & m a c d [ 1 ] > m a c d [ 2 ]
& & m a c d [ 3 ] > m a c d [ 2 ]
& & m a c d [ 4 ] > m a c d [ 2 ]
)
{
/ / L o c a t e p r i c e d i p v a l u e a n d i t ' s o f f s e t
f o r ( i = 0 ; i < = 1 5 ; i + + )
{
i f (
i L o w ( S y m b o l , P e r i o d , i ) < i L o w ( S y m b o l , P e r i o d , i + 1 )
& & i L o w ( S y m b o l , P e r i o d , i ) < i L o w ( S y m b o l , P e r i o d , i + 2 )
& & i L o w ( S y m b o l , P e r i o d , i ) < i L o w ( S y m b o l , P e r i o d , i + 3 )
& & i L o w ( S y m b o l , P e r i o d , i ) < i L o w ( S y m b o l , P e r i o d , i + 4 )
)
{
d i p 2 = i L o w ( S y m b o l , P e r i o d , i ) ;
o f f s e t 2 = i ;
b r e a k ;
}
}
/ / L o c a t e p r e v i o u s m a c d d i p / s
f o r ( i = 6 ; i < = i B a r s ( S y m b o l , P e r i o d ) ; i + + )
{
A r r a y R e s i z e ( m a c d , A r r a y S i z e ( m a c d ) + 1 ) ;
m a c d [ i ] = i M A C D ( S y m b o l , P e r i o d , f a s t E M A , s l o w E M A , s i g n a l S M A , P R I C E _ C L O S E , 0 , i ) ;
i f (
i > 1 0
& & m a c d [ i ] < - 1 * m a c d T h r e s h o l d
& & m a c d [ i - 1 ] < - 1 * m a c d T h r e s h o l d
& & m a c d [ i - 2 ] < - 1 * m a c d T h r e s h o l d
& & m a c d [ i - 3 ] < - 1 * m a c d T h r e s h o l d
& & m a c d [ i - 4 ] < - 1 * m a c d T h r e s h o l d
& & m a c d [ i ] > m a c d [ i - 2 ]
& & m a c d [ i - 1 ] > m a c d [ i - 2 ]
& & m a c d [ i - 2 ] < m a c d [ i - 3 ]
& & m a c d [ i - 2 ] < m a c d [ i - 4 ]
)
{
i f ( m a c d 0 = = 0 | | ( m a c d [ i - 2 ] < m a c d 0 & & d e p t h > = 1 ) )
{
m a c d 0 = m a c d [ i - 2 ] ;
}
e l s e
{
b r e a k ;
}
d e p t h + + ;
/ / L o c a t e p r e v i o u s p r i c e p e a k v a l u e a n d i t ' s o f f s e t
f o r ( j = i - 4 ; j < = i + 1 5 ; j + + )
{
i f (
i L o w ( S y m b o l , P e r i o d , j ) < i L o w ( S y m b o l , P e r i o d , j + 1 )
& & i L o w ( S y m b o l , P e r i o d , j ) < i L o w ( S y m b o l , P e r i o d , j + 2 )
& & i L o w ( S y m b o l , P e r i o d , j ) < i L o w ( S y m b o l , P e r i o d , j + 3 )
& & i L o w ( S y m b o l , P e r i o d , j ) < i L o w ( S y m b o l , P e r i o d , j + 4 )
)
{
d i p 1 = i L o w ( S y m b o l , P e r i o d , j ) ;
o f f s e t 1 = j ;
b r e a k ;
}
}
/ / C h e c k i f t h e r e i s a d i v e r g e n c e
i f (
d e p t h < = 1 8
& & ( ( m a c d [ i - 2 ] > m a c d [ 2 ] & & d i p 1 < d i p 2 ) | | ( m a c d [ i - 2 ] < m a c d [ 2 ] & & d i p 1 > d i p 2 ) )
)
{
d r a w I t = t r u e ;
b r e a k ;
}
}
}
}
i f ( d r a w I t = = t r u e )
{
/ / D r a w d i v e r g e n c e l i n e
s t r i n g l a b e l = " m a c d D i v e r g e n c e B u l l i s h " + ( s t r i n g ) T i m e C u r r e n t ( ) ;
O b j e c t C r e a t e ( 0 , l a b e l , O B J _ T R E N D , 0 , i T i m e ( S y m b o l , P e r i o d , o f f s e t 1 ) , i L o w ( S y m b o l , P e r i o d , o f f s e t 1 ) , i T i m e ( S y m b o l , P e r i o d , o f f s e t 2 ) , i L o w ( S y m b o l , P e r i o d , o f f s e t 2 ) , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , l a b e l , O B J P R O P _ S T Y L E , S T Y L E _ S O L I D ) ;
O b j e c t S e t I n t e g e r ( 0 , l a b e l , O B J P R O P _ C O L O R , c l r D a r k G r a y ) ;
O b j e c t S e t I n t e g e r ( 0 , l a b e l , O B J P R O P _ R A Y , 0 ) ;
}
}
i f ( d r a w I t = = t r u e ) { _ c a l l b a c k _ ( 1 ) ; } e l s e { _ c a l l b a c k _ ( 0 ) ; }
}
} ;
/ / " N o p o s i t i o n " m o d e l
t e m p l a t e < t y p e n a m e T 1 , t y p e n a m e T 2 , t y p e n a m e T 3 , t y p e n a m e T 4 , t y p e n a m e T 5 >
c l a s s M D L _ N o O p e n e d O r d e r s : p u b l i c B l o c k C a l l s
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
T 1 G r o u p M o d e ;
T 2 G r o u p ;
T 3 S y m b o l M o d e ;
T 4 S y m b o l ;
T 5 B u y s O r S e l l s ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L _ N o O p e n e d O r d e r s ( )
{
G r o u p M o d e = ( s t r i n g ) " g r o u p " ;
G r o u p = ( s t r i n g ) " " ;
S y m b o l M o d e = ( s t r i n g ) " s y m b o l " ;
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
B u y s O r S e l l s = ( s t r i n g ) " b o t h " ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
v i r t u a l v o i d _ e x e c u t e _ ( )
{
b o o l e x i s t = f a l s e ;
f o r ( i n t i n d e x = T r a d e s T o t a l ( ) - 1 ; i n d e x > = 0 ; i n d e x - - )
{
i f ( T r a d e S e l e c t B y I n d e x ( i n d e x , G r o u p M o d e , G r o u p , S y m b o l M o d e , S y m b o l , B u y s O r S e l l s ) )
{
e x i s t = t r u e ;
b r e a k ;
}
}
i f ( e x i s t = = f a l s e ) { _ c a l l b a c k _ ( 1 ) ; } e l s e { _ c a l l b a c k _ ( 0 ) ; }
}
} ;
/ / " C o n d i t i o n " m o d e l
t e m p l a t e < t y p e n a m e T 1 , t y p e n a m e _ T 1 _ , t y p e n a m e T 2 , t y p e n a m e T 3 , t y p e n a m e _ T 3 _ , t y p e n a m e T 4 >
c l a s s M D L _ C o n d i t i o n : p u b l i c B l o c k C a l l s
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
T 1 L o ; v i r t u a l _ T 1 _ _ L o _ ( ) { r e t u r n ( _ T 1 _ ) 0 ; }
T 2 c o m p a r e ;
T 3 R o ; v i r t u a l _ T 3 _ _ R o _ ( ) { r e t u r n ( _ T 3 _ ) 0 ; }
T 4 c r o s s w i d t h ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L _ C o n d i t i o n ( )
{
c o m p a r e = ( s t r i n g ) " > " ;
c r o s s w i d t h = ( i n t ) 1 ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
v i r t u a l v o i d _ e x e c u t e _ ( )
{
b o o l o u t p u t 1 = f a l s e , o u t p u t 2 = f a l s e ; / / o u t p u t 1 a n d o u t p u t 2
i n t c r o s s o v e r = 0 ;
i f ( c o m p a r e = = " x > " | | c o m p a r e = = " x < " ) { c r o s s o v e r = 1 ; }
f o r ( i n t i = 0 ; i < = c r o s s o v e r ; i + + )
{
/ / i = 0 - n o r m a l p a s s , i = 1 - c r o s s o v e r p a s s
/ / L e f t o p e r a n d o f t h e c o n d i t i o n
F X D _ M O R E _ S H I F T = i * c r o s s w i d t h ;
_ T 1 _ l o = _ L o _ ( ) ;
i f ( M a t h A b s ( l o ) = = E M P T Y _ V A L U E ) { r e t u r n ; }
/ / R i g h t o p e r a n d o f t h e c o n d i t i o n
F X D _ M O R E _ S H I F T = i * c r o s s w i d t h ;
_ T 3 _ r o = _ R o _ ( ) ;
i f ( M a t h A b s ( r o ) = = E M P T Y _ V A L U E ) { r e t u r n ; }
/ / C o n d i t i o n s
i f ( C o m p a r e V a l u e s ( c o m p a r e , l o , r o ) )
{
i f ( i = = 0 )
{
o u t p u t 1 = t r u e ;
}
}
e l s e
{
i f ( i = = 0 )
{
o u t p u t 2 = t r u e ;
}
e l s e
{
o u t p u t 2 = f a l s e ;
}
}
i f ( c r o s s o v e r = = 1 )
{
i f ( C o m p a r e V a l u e s ( c o m p a r e , r o , l o ) )
{
i f ( i = = 0 )
{
o u t p u t 2 = t r u e ;
}
}
e l s e
{
i f ( i = = 1 )
{
o u t p u t 1 = f a l s e ;
}
}
}
}
F X D _ M O R E _ S H I F T = 0 ; / / r e s e t
i f ( o u t p u t 1 = = t r u e ) { _ c a l l b a c k _ ( 1 ) ; }
e l s e i f ( o u t p u t 2 = = t r u e ) { _ c a l l b a c k _ ( 0 ) ; }
}
} ;
/ / " I n d i c a t o r m o v e s w i t h i n l i m i t s " m o d e l
t e m p l a t e < t y p e n a m e T 1 , t y p e n a m e _ T 1 _ , t y p e n a m e T 2 , t y p e n a m e T 3 , t y p e n a m e T 4 , t y p e n a m e T 5 , t y p e n a m e T 6 , t y p e n a m e T 7 , t y p e n a m e _ T 7 _ , t y p e n a m e T 8 , t y p e n a m e T 9 , t y p e n a m e T 1 0 , t y p e n a m e _ T 1 0 _ >
c l a s s M D L _ I n d i c a t o r W i t h i n L i m i t s : p u b l i c B l o c k C a l l s
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
T 1 I n d i c a t o r ; v i r t u a l _ T 1 _ _ I n d i c a t o r _ ( ) { r e t u r n ( _ T 1 _ ) 0 ; }
T 2 C a n d l e s S h i f t ;
T 3 C a n d l e s P e r i o d ;
T 4 E x c e p t i o n C a n d l e s ;
T 5 U p p e r L e v e l M o d e ;
T 6 U p p e r L e v e l ;
T 7 d U p p e r L e v e l ; v i r t u a l _ T 7 _ _ d U p p e r L e v e l _ ( ) { r e t u r n ( _ T 7 _ ) 0 ; }
T 8 L o w e r L e v e l M o d e ;
T 9 L o w e r L e v e l ;
T 1 0 d L o w e r L e v e l ; v i r t u a l _ T 1 0 _ _ d L o w e r L e v e l _ ( ) { r e t u r n ( _ T 1 0 _ ) 0 ; }
/ * S t a t i c P a r a m e t e r s * /
d a t e t i m e l a s t _ b a r _ t i m e ;
b o o l f a i l e d ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L _ I n d i c a t o r W i t h i n L i m i t s ( )
{
C a n d l e s S h i f t = ( i n t ) 1 ;
C a n d l e s P e r i o d = ( i n t ) 1 0 ;
E x c e p t i o n C a n d l e s = ( i n t ) 0 ;
U p p e r L e v e l M o d e = ( s t r i n g ) " f i x e d " ;
U p p e r L e v e l = ( d o u b l e ) 7 0 . 0 ;
L o w e r L e v e l M o d e = ( s t r i n g ) " f i x e d " ;
L o w e r L e v e l = ( d o u b l e ) 3 0 . 0 ;
/ * S t a t i c P a r a m e t e r s ( i n i t i a l v a l u e ) * /
l a s t _ b a r _ t i m e = 0 ;
f a i l e d = 0 ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
v i r t u a l v o i d _ e x e c u t e _ ( )
{
i n t l a s t _ c a n d l e = C a n d l e s S h i f t + C a n d l e s P e r i o d - 1 ;
i n t c o u n t _ t r u e = 0 ; / / t h e c o u n t o f c a n d l e s w h e r e t h e v a l u e i s w i t h i n t h e l i m i t s
i n t c o u n t _ f a i l e d = 0 ; / / t h e c o u n t o f c a n d l e s w h e r e t h e v a l u e i s o u t s i d e l i m i t s
/ / i n t c o u n t _ n e e d e d = C a n d l e s P e r i o d ;
/ / i f ( E x c e p t i o n C a n d l e s > 0 ) {
/ / c o u n t _ n e e d e d = C a n d l e s P e r i o d - E x c e p t i o n C a n d l e s ;
/ / }
f o r ( i n t i = C a n d l e s S h i f t ; i < = l a s t _ c a n d l e ; i + + )
{
/ / T O D O : i f C a n d l e S h i f t = = 0 ( f i r s t c a n d l e ) t o c h e c k o n l y t h i s c a n d l e i f o l d e r c a n d l e s a r e c h e c k e d .
/ / d o n ' t f o r g e t t o c h e c k c a n d l e 0 t i m e
/ / d o n ' t f o r g e t t o c h e c k e x c e p t i o n s
/ *
/ / t h i s i s t h e c a c h e , b u t I r e m o v e d i t b e c a u s e o f s p e c i f i c s i t u a t i o n
i f ( i = = C a n d l e s S h i f t & & C a n d l e s S h i f t > 0 ) {
d a t e t i m e c u r r e n t _ b a r _ t i m e = i T i m e ( C u r r e n t S y m b o l ( ) , C u r r e n t T i m e f r a m e ( ) , 0 ) ;
i f ( l a s t _ b a r _ t i m e = = c u r r e n t _ b a r _ t i m e ) { b r e a k ; } e l s e { f a i l e d = f a l s e ; }
l a s t _ b a r _ t i m e = c u r r e n t _ b a r _ t i m e ;
}
* /
f a i l e d = f a l s e ;
F X D _ M O R E _ S H I F T = i ;
_ T 1 _ i v a l u e = _ I n d i c a t o r _ ( ) ;
F X D _ M O R E _ S H I F T = 0 ;
d o u b l e u p l e v e l = E M P T Y _ V A L U E ;
d o u b l e d n l e v e l = - E M P T Y _ V A L U E ;
i f ( U p p e r L e v e l M o d e ! = " " )
{
i f ( U p p e r L e v e l M o d e = = " f i x e d " )
{
u p l e v e l = U p p e r L e v e l ;
}
e l s e
/ / i f ( U p p e r L e v e l M o d e = = " d y n a m i c " )
{
F X D _ M O R E _ S H I F T = i ;
u p l e v e l = _ d U p p e r L e v e l _ ( ) ;
F X D _ M O R E _ S H I F T = 0 ;
}
}
i f ( L o w e r L e v e l M o d e ! = " " )
{
i f ( L o w e r L e v e l M o d e = = " f i x e d " )
{
d n l e v e l = L o w e r L e v e l ;
}
e l s e
/ / i f ( L o w e r L e v e l M o d e = = " d y n a m i c " )
{
F X D _ M O R E _ S H I F T = i ;
d n l e v e l = _ d L o w e r L e v e l _ ( ) ;
F X D _ M O R E _ S H I F T = 0 ;
}
}
/ / - - l e v e l s a r e i n v e r t e d , n o r m a l i z e t h e m
i f ( u p l e v e l < d n l e v e l )
{
d o u b l e t m p l e v e l = u p l e v e l ;
u p l e v e l = d n l e v e l ;
d n l e v e l = t m p l e v e l ;
}
i f ( i v a l u e > u p l e v e l | | i v a l u e < d n l e v e l )
{
f a i l e d = t r u e ;
}
i f ( f a i l e d = = t r u e )
{
i f ( E x c e p t i o n C a n d l e s < = 0 )
{
b r e a k ;
}
e l s e
{
c o u n t _ f a i l e d + + ;
i f ( c o u n t _ f a i l e d > E x c e p t i o n C a n d l e s )
{
b r e a k ;
}
}
}
/ / i f ( f a i l e d = = f a l s e ) {
/ / c o u n t _ t r u e + + ;
/ / i f ( c o u n t _ t r u e > = c o u n t _ n e e d e d ) { b r e a k ; }
/ / }
}
F X D _ M O R E _ S H I F T = 0 ;
i f ( f a i l e d = = f a l s e ) { _ c a l l b a c k _ ( 1 ) ; } e l s e { _ c a l l b a c k _ ( 0 ) ; }
}
} ;
/ / " B u y n o w " m o d e l
t e m p l a t e < t y p e n a m e T 1 , t y p e n a m e T 2 , t y p e n a m e T 3 , t y p e n a m e T 4 , t y p e n a m e T 5 , t y p e n a m e T 6 , t y p e n a m e T 7 , t y p e n a m e T 8 , t y p e n a m e T 9 , t y p e n a m e _ T 9 _ , t y p e n a m e T 1 0 , t y p e n a m e T 1 1 , t y p e n a m e T 1 2 , t y p e n a m e T 1 3 , t y p e n a m e T 1 4 , t y p e n a m e T 1 5 , t y p e n a m e T 1 6 , t y p e n a m e T 1 7 , t y p e n a m e T 1 8 , t y p e n a m e T 1 9 , t y p e n a m e T 2 0 , t y p e n a m e T 2 1 , t y p e n a m e T 2 2 , t y p e n a m e T 2 3 , t y p e n a m e T 2 4 , t y p e n a m e T 2 5 , t y p e n a m e T 2 6 , t y p e n a m e T 2 7 , t y p e n a m e T 2 8 , t y p e n a m e T 2 9 , t y p e n a m e T 3 0 , t y p e n a m e T 3 1 , t y p e n a m e T 3 2 , t y p e n a m e T 3 3 , t y p e n a m e T 3 4 , t y p e n a m e T 3 5 , t y p e n a m e T 3 6 , t y p e n a m e T 3 7 , t y p e n a m e _ T 3 7 _ , t y p e n a m e T 3 8 , t y p e n a m e _ T 3 8 _ , t y p e n a m e T 3 9 , t y p e n a m e _ T 3 9 _ , t y p e n a m e T 4 0 , t y p e n a m e T 4 1 , t y p e n a m e T 4 2 , t y p e n a m e T 4 3 , t y p e n a m e T 4 4 , t y p e n a m e _ T 4 4 _ , t y p e n a m e T 4 5 , t y p e n a m e _ T 4 5 _ , t y p e n a m e T 4 6 , t y p e n a m e _ T 4 6 _ , t y p e n a m e T 4 7 , t y p e n a m e T 4 8 , t y p e n a m e T 4 9 , t y p e n a m e T 5 0 , t y p e n a m e T 5 1 , t y p e n a m e _ T 5 1 _ , t y p e n a m e T 5 2 , t y p e n a m e T 5 3 , t y p e n a m e T 5 4 >
c l a s s M D L _ B u y N o w : p u b l i c B l o c k C a l l s
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
T 1 G r o u p ;
T 2 S y m b o l ;
T 3 V o l u m e M o d e ;
T 4 V o l u m e S i z e ;
T 5 V o l u m e S i z e R i s k ;
T 6 V o l u m e R i s k ;
T 7 V o l u m e P e r c e n t ;
T 8 V o l u m e B l o c k P e r c e n t ;
T 9 d V o l u m e S i z e ; v i r t u a l _ T 9 _ _ d V o l u m e S i z e _ ( ) { r e t u r n ( _ T 9 _ ) 0 ; }
T 1 0 F i x e d R a t i o U n i t S i z e ;
T 1 1 F i x e d R a t i o D e l t a ;
T 1 2 m m T r a d e s P o o l ;
T 1 3 m m M g I n i t i a l L o t s ;
T 1 4 m m M g M u l t i p l y O n L o s s ;
T 1 5 m m M g M u l t i p l y O n P r o f i t ;
T 1 6 m m M g A d d L o t s O n L o s s ;
T 1 7 m m M g A d d L o t s O n P r o f i t ;
T 1 8 m m M g R e s e t O n L o s s ;
T 1 9 m m M g R e s e t O n P r o f i t ;
T 2 0 m m 1 3 2 6 I n i t i a l L o t s ;
T 2 1 m m 1 3 2 6 R e v e r s e ;
T 2 2 m m F i b o I n i t i a l L o t s ;
T 2 3 m m D a l e m b e r t I n i t i a l L o t s ;
T 2 4 m m D a l e m b e r t R e v e r s e ;
T 2 5 m m L a b o u c h e r e I n i t i a l L o t s ;
T 2 6 m m L a b o u c h e r e L i s t ;
T 2 7 m m L a b o u c h e r e R e v e r s e ;
T 2 8 m m S e q B a s e L o t s ;
T 2 9 m m S e q O n L o s s ;
T 3 0 m m S e q O n P r o f i t ;
T 3 1 m m S e q R e v e r s e ;
T 3 2 V o l u m e U p p e r L i m i t ;
T 3 3 S t o p L o s s M o d e ;
T 3 4 S t o p L o s s P i p s ;
T 3 5 S t o p L o s s P e r c e n t P r i c e ;
T 3 6 S t o p L o s s P e r c e n t T P ;
T 3 7 d l S t o p L o s s ; v i r t u a l _ T 3 7 _ _ d l S t o p L o s s _ ( ) { r e t u r n ( _ T 3 7 _ ) 0 ; }
T 3 8 d p S t o p L o s s ; v i r t u a l _ T 3 8 _ _ d p S t o p L o s s _ ( ) { r e t u r n ( _ T 3 8 _ ) 0 ; }
T 3 9 d d S t o p L o s s ; v i r t u a l _ T 3 9 _ _ d d S t o p L o s s _ ( ) { r e t u r n ( _ T 3 9 _ ) 0 ; }
T 4 0 T a k e P r o f i t M o d e ;
T 4 1 T a k e P r o f i t P i p s ;
T 4 2 T a k e P r o f i t P e r c e n t P r i c e ;
T 4 3 T a k e P r o f i t P e r c e n t S L ;
T 4 4 d l T a k e P r o f i t ; v i r t u a l _ T 4 4 _ _ d l T a k e P r o f i t _ ( ) { r e t u r n ( _ T 4 4 _ ) 0 ; }
T 4 5 d p T a k e P r o f i t ; v i r t u a l _ T 4 5 _ _ d p T a k e P r o f i t _ ( ) { r e t u r n ( _ T 4 5 _ ) 0 ; }
T 4 6 d d T a k e P r o f i t ; v i r t u a l _ T 4 6 _ _ d d T a k e P r o f i t _ ( ) { r e t u r n ( _ T 4 6 _ ) 0 ; }
T 4 7 E x p M o d e ;
T 4 8 E x p D a y s ;
T 4 9 E x p H o u r s ;
T 5 0 E x p M i n u t e s ;
T 5 1 d E x p ; v i r t u a l _ T 5 1 _ _ d E x p _ ( ) { r e t u r n ( _ T 5 1 _ ) 0 ; }
T 5 2 S l i p p a g e ;
T 5 3 M y C o m m e n t ;
T 5 4 A r r o w C o l o r B u y ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L _ B u y N o w ( )
{
G r o u p = ( s t r i n g ) " " ;
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
V o l u m e M o d e = ( s t r i n g ) " f i x e d " ;
V o l u m e S i z e = ( d o u b l e ) 0 . 1 ;
V o l u m e S i z e R i s k = ( d o u b l e ) 5 0 . 0 ;
V o l u m e R i s k = ( d o u b l e ) 2 . 5 ;
V o l u m e P e r c e n t = ( d o u b l e ) 1 0 0 . 0 ;
V o l u m e B l o c k P e r c e n t = ( d o u b l e ) 3 . 0 ;
F i x e d R a t i o U n i t S i z e = ( d o u b l e ) 0 . 0 1 ;
F i x e d R a t i o D e l t a = ( d o u b l e ) 2 0 . 0 ;
m m T r a d e s P o o l = ( i n t ) 0 ;
m m M g I n i t i a l L o t s = ( d o u b l e ) 0 . 1 ;
m m M g M u l t i p l y O n L o s s = ( d o u b l e ) 2 . 0 ;
m m M g M u l t i p l y O n P r o f i t = ( d o u b l e ) 1 . 0 ;
m m M g A d d L o t s O n L o s s = ( d o u b l e ) 0 . 0 ;
m m M g A d d L o t s O n P r o f i t = ( d o u b l e ) 0 . 0 ;
m m M g R e s e t O n L o s s = ( i n t ) 0 ;
m m M g R e s e t O n P r o f i t = ( i n t ) 1 ;
m m 1 3 2 6 I n i t i a l L o t s = ( d o u b l e ) 0 . 1 ;
m m 1 3 2 6 R e v e r s e = ( b o o l ) f a l s e ;
m m F i b o I n i t i a l L o t s = ( d o u b l e ) 0 . 1 ;
m m D a l e m b e r t I n i t i a l L o t s = ( d o u b l e ) 0 . 1 ;
m m D a l e m b e r t R e v e r s e = ( b o o l ) f a l s e ;
m m L a b o u c h e r e I n i t i a l L o t s = ( d o u b l e ) 0 . 1 ;
m m L a b o u c h e r e L i s t = ( s t r i n g ) " 1 , 2 , 3 , 4 , 5 , 6 " ;
m m L a b o u c h e r e R e v e r s e = ( b o o l ) f a l s e ;
m m S e q B a s e L o t s = ( d o u b l e ) 0 . 1 ;
m m S e q O n L o s s = ( s t r i n g ) " 3 , 2 , 6 " ;
m m S e q O n P r o f i t = ( s t r i n g ) " 1 " ;
m m S e q R e v e r s e = ( b o o l ) f a l s e ;
V o l u m e U p p e r L i m i t = ( d o u b l e ) 0 . 0 ;
S t o p L o s s M o d e = ( s t r i n g ) " f i x e d " ;
S t o p L o s s P i p s = ( d o u b l e ) 5 0 . 0 ;
S t o p L o s s P e r c e n t P r i c e = ( d o u b l e ) 0 . 5 5 ;
S t o p L o s s P e r c e n t T P = ( d o u b l e ) 1 0 0 . 0 ;
T a k e P r o f i t M o d e = ( s t r i n g ) " f i x e d " ;
T a k e P r o f i t P i p s = ( d o u b l e ) 5 0 . 0 ;
T a k e P r o f i t P e r c e n t P r i c e = ( d o u b l e ) 0 . 5 5 ;
T a k e P r o f i t P e r c e n t S L = ( d o u b l e ) 1 0 0 . 0 ;
E x p M o d e = ( s t r i n g ) " G T C " ;
E x p D a y s = ( i n t ) 0 ;
E x p H o u r s = ( i n t ) 1 ;
E x p M i n u t e s = ( i n t ) 0 ;
S l i p p a g e = ( u l o n g ) 4 ;
M y C o m m e n t = ( s t r i n g ) " " ;
A r r o w C o l o r B u y = ( c o l o r ) c l r B l u e ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
v i r t u a l v o i d _ e x e c u t e _ ( )
{
/ / - - s t o p s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e s l l = 0 , s l p = 0 , t p l = 0 , t p p = 0 ;
i f ( S t o p L o s s M o d e = = " f i x e d " ) { s l p = S t o p L o s s P i p s ; }
e l s e i f ( S t o p L o s s M o d e = = " d y n a m i c P i p s " ) { s l p = _ d p S t o p L o s s _ ( ) ; }
e l s e i f ( S t o p L o s s M o d e = = " d y n a m i c D i g i t s " ) { s l p = t o P i p s ( _ d d S t o p L o s s _ ( ) , S y m b o l ) ; }
e l s e i f ( S t o p L o s s M o d e = = " d y n a m i c L e v e l " ) { s l l = _ d l S t o p L o s s _ ( ) ; }
e l s e i f ( S t o p L o s s M o d e = = " p e r c e n t P r i c e " ) { s l l = S y m b o l A s k ( S y m b o l ) - ( S y m b o l A s k ( S y m b o l ) * S t o p L o s s P e r c e n t P r i c e / 1 0 0 ) ; }
i f ( T a k e P r o f i t M o d e = = " f i x e d " ) { t p p = T a k e P r o f i t P i p s ; }
e l s e i f ( T a k e P r o f i t M o d e = = " d y n a m i c P i p s " ) { t p p = _ d p T a k e P r o f i t _ ( ) ; }
e l s e i f ( T a k e P r o f i t M o d e = = " d y n a m i c D i g i t s " ) { t p p = t o P i p s ( _ d d T a k e P r o f i t _ ( ) , S y m b o l ) ; }
e l s e i f ( T a k e P r o f i t M o d e = = " d y n a m i c L e v e l " ) { t p l = _ d l T a k e P r o f i t _ ( ) ; }
e l s e i f ( T a k e P r o f i t M o d e = = " p e r c e n t P r i c e " ) { t p l = S y m b o l A s k ( S y m b o l ) + ( S y m b o l A s k ( S y m b o l ) * T a k e P r o f i t P e r c e n t P r i c e / 1 0 0 ) ; }
i f ( S t o p L o s s M o d e = = " p e r c e n t T P " ) {
i f ( t p p > 0 ) { s l p = t p p * S t o p L o s s P e r c e n t T P / 1 0 0 ; }
i f ( t p l > 0 ) { s l p = t o P i p s ( M a t h A b s ( S y m b o l A s k ( S y m b o l ) - t p l ) , S y m b o l ) * S t o p L o s s P e r c e n t T P / 1 0 0 ; }
}
i f ( T a k e P r o f i t M o d e = = " p e r c e n t S L " ) {
i f ( s l p > 0 ) { t p p = s l p * T a k e P r o f i t P e r c e n t S L / 1 0 0 ; }
i f ( s l l > 0 ) { t p p = t o P i p s ( M a t h A b s ( S y m b o l A s k ( S y m b o l ) - s l l ) , S y m b o l ) * T a k e P r o f i t P e r c e n t S L / 1 0 0 ; }
}
/ / - - l o t s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e l o t s = 0 ;
d o u b l e p r e _ s l l = s l l ;
i f ( p r e _ s l l = = 0 ) {
p r e _ s l l = S y m b o l A s k ( S y m b o l ) ;
}
d o u b l e p r e _ s l _ p i p s = t o P i p s ( S y m b o l A s k ( S y m b o l ) - ( p r e _ s l l - t o D i g i t s ( s l p , S y m b o l ) ) , S y m b o l ) ;
i f ( V o l u m e M o d e = = " f i x e d " ) { l o t s = D y n a m i c L o t s ( S y m b o l , V o l u m e M o d e , V o l u m e S i z e ) ; }
e l s e i f ( V o l u m e M o d e = = " b l o c k - e q u i t y " ) { l o t s = D y n a m i c L o t s ( S y m b o l , V o l u m e M o d e , V o l u m e B l o c k P e r c e n t ) ; }
e l s e i f ( V o l u m e M o d e = = " b l o c k - b a l a n c e " ) { l o t s = D y n a m i c L o t s ( S y m b o l , V o l u m e M o d e , V o l u m e B l o c k P e r c e n t ) ; }
e l s e i f ( V o l u m e M o d e = = " b l o c k - f r e e m a r g i n " ) { l o t s = D y n a m i c L o t s ( S y m b o l , V o l u m e M o d e , V o l u m e B l o c k P e r c e n t ) ; }
e l s e i f ( V o l u m e M o d e = = " e q u i t y " ) { l o t s = D y n a m i c L o t s ( S y m b o l , V o l u m e M o d e , V o l u m e P e r c e n t ) ; }
e l s e i f ( V o l u m e M o d e = = " b a l a n c e " ) { l o t s = D y n a m i c L o t s ( S y m b o l , V o l u m e M o d e , V o l u m e P e r c e n t ) ; }
e l s e i f ( V o l u m e M o d e = = " f r e e m a r g i n " ) { l o t s = D y n a m i c L o t s ( S y m b o l , V o l u m e M o d e , V o l u m e P e r c e n t ) ; }
e l s e i f ( V o l u m e M o d e = = " e q u i t y R i s k " ) { l o t s = D y n a m i c L o t s ( S y m b o l , V o l u m e M o d e , V o l u m e R i s k , p r e _ s l _ p i p s ) ; }
e l s e i f ( V o l u m e M o d e = = " b a l a n c e R i s k " ) { l o t s = D y n a m i c L o t s ( S y m b o l , V o l u m e M o d e , V o l u m e R i s k , p r e _ s l _ p i p s ) ; }
e l s e i f ( V o l u m e M o d e = = " f r e e m a r g i n R i s k " ) { l o t s = D y n a m i c L o t s ( S y m b o l , V o l u m e M o d e , V o l u m e R i s k , p r e _ s l _ p i p s ) ; }
e l s e i f ( V o l u m e M o d e = = " f i x e d R i s k " ) { l o t s = D y n a m i c L o t s ( S y m b o l , V o l u m e M o d e , V o l u m e S i z e R i s k , p r e _ s l _ p i p s ) ; }
e l s e i f ( V o l u m e M o d e = = " f i x e d R a t i o " ) { l o t s = D y n a m i c L o t s ( S y m b o l , V o l u m e M o d e , F i x e d R a t i o U n i t S i z e , F i x e d R a t i o D e l t a ) ; }
e l s e i f ( V o l u m e M o d e = = " d y n a m i c " ) { l o t s = _ d V o l u m e S i z e _ ( ) ; }
e l s e i f ( V o l u m e M o d e = = " 1 3 2 6 " ) { l o t s = B e t 1 3 2 6 ( G r o u p , S y m b o l , m m T r a d e s P o o l , m m 1 3 2 6 I n i t i a l L o t s , m m 1 3 2 6 R e v e r s e ) ; }
e l s e i f ( V o l u m e M o d e = = " f i b o n a c c i " ) { l o t s = B e t F i b o n a c c i ( G r o u p , S y m b o l , m m T r a d e s P o o l , m m F i b o I n i t i a l L o t s ) ; }
e l s e i f ( V o l u m e M o d e = = " d a l e m b e r t " ) { l o t s = B e t D a l e m b e r t ( G r o u p , S y m b o l , m m T r a d e s P o o l , m m D a l e m b e r t I n i t i a l L o t s , m m D a l e m b e r t R e v e r s e ) ; }
e l s e i f ( V o l u m e M o d e = = " l a b o u c h e r e " ) { l o t s = B e t L a b o u c h e r e ( G r o u p , S y m b o l , m m T r a d e s P o o l , m m L a b o u c h e r e I n i t i a l L o t s , m m L a b o u c h e r e L i s t , m m L a b o u c h e r e R e v e r s e ) ; }
e l s e i f ( V o l u m e M o d e = = " m a r t i n g a l e " ) { l o t s = B e t M a r t i n g a l e ( G r o u p , S y m b o l , m m T r a d e s P o o l , m m M g I n i t i a l L o t s , m m M g M u l t i p l y O n L o s s , m m M g M u l t i p l y O n P r o f i t , m m M g A d d L o t s O n L o s s , m m M g A d d L o t s O n P r o f i t , m m M g R e s e t O n L o s s , m m M g R e s e t O n P r o f i t ) ; }
e l s e i f ( V o l u m e M o d e = = " s e q u e n c e " ) { l o t s = B e t S e q u e n c e ( G r o u p , S y m b o l , m m T r a d e s P o o l , m m S e q B a s e L o t s , m m S e q O n L o s s , m m S e q O n P r o f i t , m m S e q R e v e r s e ) ; }
l o t s = A l i g n L o t s ( S y m b o l , l o t s , 0 , V o l u m e U p p e r L i m i t ) ;
d a t e t i m e e x p = E x p i r a t i o n T i m e ( E x p M o d e , E x p D a y s , E x p H o u r s , E x p M i n u t e s , _ d E x p _ ( ) ) ;
/ / - - s e n d - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
l o n g t i c k e t = B u y N o w ( S y m b o l , l o t s , s l l , t p l , s l p , t p p , S l i p p a g e , ( M a g i c S t a r t + ( i n t ) G r o u p ) , M y C o m m e n t , A r r o w C o l o r B u y , e x p ) ;
i f ( t i c k e t > 0 ) { _ c a l l b a c k _ ( 1 ) ; } e l s e { _ c a l l b a c k _ ( 0 ) ; }
}
} ;
/ / " C l o s e p o s i t i o n s " m o d e l
t e m p l a t e < t y p e n a m e T 1 , t y p e n a m e T 2 , t y p e n a m e T 3 , t y p e n a m e T 4 , t y p e n a m e T 5 , t y p e n a m e T 6 , t y p e n a m e T 7 , t y p e n a m e T 8 >
c l a s s M D L _ C l o s e O p e n e d : p u b l i c B l o c k C a l l s
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
T 1 G r o u p M o d e ;
T 2 G r o u p ;
T 3 S y m b o l M o d e ;
T 4 S y m b o l ;
T 5 B u y s O r S e l l s ;
T 6 O r d e r M i n u t e s ;
T 7 S l i p p a g e ;
T 8 A r r o w C o l o r ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L _ C l o s e O p e n e d ( )
{
G r o u p M o d e = ( s t r i n g ) " g r o u p " ;
G r o u p = ( s t r i n g ) " " ;
S y m b o l M o d e = ( s t r i n g ) " s y m b o l " ;
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
B u y s O r S e l l s = ( s t r i n g ) " b o t h " ;
O r d e r M i n u t e s = ( i n t ) 0 ;
S l i p p a g e = ( u l o n g ) 4 ;
A r r o w C o l o r = ( c o l o r ) c l r D e e p P i n k ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
v i r t u a l v o i d _ e x e c u t e _ ( )
{
i n t c l o s e d _ c o u n t = 0 ;
b o o l f i n i s h e d = f a l s e ;
w h i l e ( f i n i s h e d = = f a l s e )
{
i n t c o u n t = 0 ;
f o r ( i n t i n d e x = T r a d e s T o t a l ( ) - 1 ; i n d e x > = 0 ; i n d e x - - )
{
i f ( T r a d e S e l e c t B y I n d e x ( i n d e x , G r o u p M o d e , G r o u p , S y m b o l M o d e , S y m b o l , B u y s O r S e l l s ) )
{
d a t e t i m e t i m e _ d i f f = T i m e C u r r e n t ( ) - O r d e r O p e n T i m e ( ) ;
i f ( t i m e _ d i f f < 0 ) { t i m e _ d i f f = 0 ; } / / t h i s a c t u a l l y h a p p e n s s o m e t i m e s
i f ( t i m e _ d i f f > = 6 0 * O r d e r M i n u t e s )
{
i f ( C l o s e T r a d e ( O r d e r T i c k e t ( ) , S l i p p a g e , A r r o w C o l o r ) )
{
c l o s e d _ c o u n t + + ;
}
c o u n t + + ;
}
}
}
i f ( c o u n t = = 0 ) { f i n i s h e d = t r u e ; }
}
_ c a l l b a c k _ ( 1 ) ;
}
} ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / " M o v i n g A v e r a g e " m o d e l
c l a s s M D L I C _ i n d i c a t o r s _ i M A
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
i n t M A p e r i o d ;
i n t M A s h i f t ;
E N U M _ M A _ M E T H O D M A m e t h o d ;
E N U M _ A P P L I E D _ P R I C E A p p l i e d P r i c e ;
s t r i n g S y m b o l ;
E N U M _ T I M E F R A M E S P e r i o d ;
i n t S h i f t ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L I C _ i n d i c a t o r s _ i M A ( )
{
M A p e r i o d = ( i n t ) 1 4 ;
M A s h i f t = ( i n t ) 0 ;
M A m e t h o d = ( E N U M _ M A _ M E T H O D ) M O D E _ S M A ;
A p p l i e d P r i c e = ( E N U M _ A P P L I E D _ P R I C E ) P R I C E _ C L O S E ;
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
P e r i o d = ( E N U M _ T I M E F R A M E S ) C u r r e n t T i m e f r a m e ( ) ;
S h i f t = ( i n t ) 0 ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
d o u b l e _ e x e c u t e _ ( )
{
r e t u r n i M A ( S y m b o l , P e r i o d , M A p e r i o d , M A s h i f t , M A m e t h o d , A p p l i e d P r i c e , S h i f t + F X D _ M O R E _ S H I F T ) ;
}
} ;
/ / " C a n d l e " m o d e l
c l a s s M D L I C _ c a n d l e s _ c a n d l e s
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
s t r i n g i O H L C ;
s t r i n g M o d e C a n d l e F i n d B y ;
i n t C a n d l e I D ;
s t r i n g T i m e S t a m p ;
s t r i n g S y m b o l ;
E N U M _ T I M E F R A M E S P e r i o d ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L I C _ c a n d l e s _ c a n d l e s ( )
{
i O H L C = ( s t r i n g ) " i C l o s e " ;
M o d e C a n d l e F i n d B y = ( s t r i n g ) " i d " ;
C a n d l e I D = ( i n t ) 0 ;
T i m e S t a m p = ( s t r i n g ) " 0 0 : 0 0 " ;
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
P e r i o d = ( E N U M _ T I M E F R A M E S ) C u r r e n t T i m e f r a m e ( ) ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
d o u b l e _ e x e c u t e _ ( )
{
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( S y m b o l , S Y M B O L _ D I G I T S ) ;
d o u b l e O [ ] ;
d o u b l e H [ ] ;
d o u b l e L [ ] ;
d o u b l e C [ ] ;
l o n g c T i c k V o l u m e [ ] ;
l o n g c R e a l V o l u m e [ ] ;
d a t e t i m e T [ ] ;
d o u b l e r e t v a l = E M P T Y _ V A L U E ;
/ / c a n d l e ' s i d w i l l c h a n g e , s o w e d o n ' t w a n t t o m e s s w i t h t h e v a r i a b l e C a n d l e I D ;
i n t c I D = C a n d l e I D ;
i f ( M o d e C a n d l e F i n d B y = = " t i m e " )
{
c I D = i C a n d l e I D ( S y m b o l , P e r i o d , S t r i n g T o T i m e E x ( T i m e S t a m p , " s e r v e r " ) ) ;
}
c I D = c I D + F X D _ M O R E _ S H I F T ;
/ / - - t h e c o m m o n l e v e l s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( i O H L C = = " i O p e n " )
{
i f ( C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1 ) r e t v a l = O [ 0 ] ;
}
e l s e i f ( i O H L C = = " i H i g h " )
{
i f ( C o p y H i g h ( S y m b o l , P e r i o d , c I D , 1 , H ) > - 1 ) r e t v a l = H [ 0 ] ;
}
e l s e i f ( i O H L C = = " i L o w " )
{
i f ( C o p y L o w ( S y m b o l , P e r i o d , c I D , 1 , L ) > - 1 ) r e t v a l = L [ 0 ] ;
}
e l s e i f ( i O H L C = = " i C l o s e " )
{
i f ( C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1 ) r e t v a l = C [ 0 ] ;
}
/ / - - n o n - p r i c e v a l u e s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
e l s e i f ( i O H L C = = " i V o l u m e " | | i O H L C = = " i T i c k V o l u m e " )
{
i f ( C o p y T i c k V o l u m e ( S y m b o l , P e r i o d , c I D , 1 , c T i c k V o l u m e ) > - 1 ) r e t v a l = ( d o u b l e ) c T i c k V o l u m e [ 0 ] ;
r e t u r n r e t v a l ;
}
e l s e i f ( i O H L C = = " i R e a l V o l u m e " )
{
i f ( C o p y R e a l V o l u m e ( S y m b o l , P e r i o d , c I D , 1 , c R e a l V o l u m e ) > - 1 ) r e t v a l = ( d o u b l e ) c R e a l V o l u m e [ 0 ] ;
r e t u r n r e t v a l ;
}
e l s e i f ( i O H L C = = " i T i m e " )
{
i f ( C o p y T i m e ( S y m b o l , P e r i o d , c I D , 1 , T ) > - 1 ) r e t v a l = ( d o u b l e ) T [ 0 ] ;
r e t u r n r e t v a l ;
}
/ / - - s i m p l e c a l c u l a t i o n s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
e l s e i f ( i O H L C = = " i M e d i a n " )
{
i f (
C o p y L o w ( S y m b o l , P e r i o d , c I D , 1 , L ) > - 1
& & C o p y H i g h ( S y m b o l , P e r i o d , c I D , 1 , H ) > - 1
)
{
r e t v a l = ( ( L [ 0 ] + H [ 0 ] ) / 2 ) ;
}
}
e l s e i f ( i O H L C = = " i T y p i c a l " )
{
i f (
C o p y L o w ( S y m b o l , P e r i o d , c I D , 1 , L ) > - 1
& & C o p y H i g h ( S y m b o l , P e r i o d , c I D , 1 , H ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
)
{
r e t v a l = ( ( L [ 0 ] + H [ 0 ] + C [ 0 ] ) / 3 ) ;
}
}
e l s e i f ( i O H L C = = " i A v e r a g e " )
{
i f (
C o p y L o w ( S y m b o l , P e r i o d , c I D , 1 , L ) > - 1
& & C o p y H i g h ( S y m b o l , P e r i o d , c I D , 1 , H ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
)
{
r e t v a l = ( ( L [ 0 ] + H [ 0 ] + C [ 0 ] + C [ 0 ] ) / 4 ) ;
}
}
/ / - - m o r e c o m p l e x l e v e l s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
e l s e i f ( i O H L C = = " i T o t a l " )
{
i f (
C o p y H i g h ( S y m b o l , P e r i o d , c I D , 1 , H ) > - 1
& & C o p y L o w ( S y m b o l , P e r i o d , c I D , 1 , L ) > - 1
)
{
r e t v a l = t o P i p s ( M a t h A b s ( H [ 0 ] - L [ 0 ] ) , S y m b o l ) ;
}
}
e l s e i f ( i O H L C = = " i B o d y " )
{
i f (
C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
)
{
r e t v a l = t o P i p s ( M a t h A b s ( C [ 0 ] - O [ 0 ] ) , S y m b o l ) ;
}
}
e l s e i f ( i O H L C = = " i U p p e r W i c k " )
{
i f (
C o p y H i g h ( S y m b o l , P e r i o d , c I D , 1 , H ) > - 1
& & C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
& & C o p y L o w ( S y m b o l , P e r i o d , c I D , 1 , L ) > - 1
)
{
r e t v a l = ( C [ 0 ] > O [ 0 ] ) ? t o P i p s ( M a t h A b s ( H [ 0 ] - C [ 0 ] ) , S y m b o l ) : t o P i p s ( M a t h A b s ( H [ 0 ] - O [ 0 ] ) , S y m b o l ) ;
}
}
e l s e i f ( i O H L C = = " i B o t t o m W i c k " )
{
i f (
C o p y H i g h ( S y m b o l , P e r i o d , c I D , 1 , H ) > - 1
& & C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
& & C o p y L o w ( S y m b o l , P e r i o d , c I D , 1 , L ) > - 1
)
{
r e t v a l = ( C [ 0 ] > O [ 0 ] ) ? t o P i p s ( M a t h A b s ( O [ 0 ] - L [ 0 ] ) , S y m b o l ) : t o P i p s ( M a t h A b s ( C [ 0 ] - L [ 0 ] ) , S y m b o l ) ;
}
}
e l s e i f ( i O H L C = = " i G a p " )
{
i f (
C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D + 1 , 1 , C ) > - 1
)
{
r e t v a l = t o P i p s ( M a t h A b s ( O [ 0 ] - C [ 0 ] ) , S y m b o l ) ;
}
}
e l s e i f ( i O H L C = = " i B u l l T o t a l " )
{
i f (
C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
& & C o p y H i g h ( S y m b o l , P e r i o d , c I D , 1 , H ) > - 1
& & C o p y L o w ( S y m b o l , P e r i o d , c I D , 1 , L ) > - 1
& & C [ 0 ] > O [ 0 ]
)
{
r e t v a l = t o P i p s ( ( H [ 0 ] - L [ 0 ] ) , S y m b o l ) ;
}
}
e l s e i f ( i O H L C = = " i B u l l B o d y " )
{
i f (
C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
& & C [ 0 ] > O [ 0 ]
)
{
r e t v a l = t o P i p s ( ( C [ 0 ] - O [ 0 ] ) , S y m b o l ) ;
}
}
e l s e i f ( i O H L C = = " i B u l l U p p e r W i c k " )
{
i f (
C o p y H i g h ( S y m b o l , P e r i o d , c I D , 1 , H ) > - 1
& & C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
& & C [ 0 ] > O [ 0 ]
)
{
r e t v a l = t o P i p s ( ( H [ 0 ] - C [ 0 ] ) , S y m b o l ) ;
}
}
e l s e i f ( i O H L C = = " i B u l l B o t t o m W i c k " )
{
i f (
C o p y L o w ( S y m b o l , P e r i o d , c I D , 1 , L ) > - 1
& & C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
& & C [ 0 ] > O [ 0 ]
)
{
r e t v a l = t o P i p s ( ( O [ 0 ] - L [ 0 ] ) , S y m b o l ) ;
}
}
e l s e i f ( i O H L C = = " i B e a r T o t a l " )
{
i f (
C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
& & C o p y H i g h ( S y m b o l , P e r i o d , c I D , 1 , H ) > - 1
& & C o p y L o w ( S y m b o l , P e r i o d , c I D , 1 , L ) > - 1
& & C [ 0 ] < O [ 0 ]
)
{
r e t v a l = t o P i p s ( ( H [ 0 ] - L [ 0 ] ) , S y m b o l ) ;
}
}
e l s e i f ( i O H L C = = " i B e a r B o d y " )
{
i f (
C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
& & C [ 0 ] < O [ 0 ]
)
{
r e t v a l = t o P i p s ( ( O [ 0 ] - C [ 0 ] ) , S y m b o l ) ;
}
}
e l s e i f ( i O H L C = = " i B e a r U p p e r W i c k " )
{
i f (
C o p y H i g h ( S y m b o l , P e r i o d , c I D , 1 , H ) > - 1
& & C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
& & C [ 0 ] < O [ 0 ]
)
{
r e t v a l = t o P i p s ( ( H [ 0 ] - O [ 0 ] ) , S y m b o l ) ;
}
}
e l s e i f ( i O H L C = = " i B e a r B o t t o m W i c k " )
{
i f (
C o p y L o w ( S y m b o l , P e r i o d , c I D , 1 , L ) > - 1
& & C o p y O p e n ( S y m b o l , P e r i o d , c I D , 1 , O ) > - 1
& & C o p y C l o s e ( S y m b o l , P e r i o d , c I D , 1 , C ) > - 1
& & C [ 0 ] < O [ 0 ]
)
{
r e t v a l = t o P i p s ( ( C [ 0 ] - L [ 0 ] ) , S y m b o l ) ;
}
}
r e t u r n N o r m a l i z e D o u b l e ( r e t v a l , d i g i t s ) ;
}
} ;
/ / " S t o c h a s t i c O s c i l l a t o r " m o d e l
c l a s s M D L I C _ i n d i c a t o r s _ i S t o c h a s t i c
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
i n t K p e r i o d ;
i n t D p e r i o d ;
i n t S l o w i n g ;
E N U M _ M A _ M E T H O D M A m e t h o d ;
E N U M _ S T O _ P R I C E P r i c e F i e l d ;
i n t M o d e ;
s t r i n g S y m b o l ;
E N U M _ T I M E F R A M E S P e r i o d ;
i n t S h i f t ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L I C _ i n d i c a t o r s _ i S t o c h a s t i c ( )
{
K p e r i o d = ( i n t ) 5 ;
D p e r i o d = ( i n t ) 3 ;
S l o w i n g = ( i n t ) 3 ;
M A m e t h o d = ( E N U M _ M A _ M E T H O D ) M O D E _ S M A ;
P r i c e F i e l d = ( E N U M _ S T O _ P R I C E ) S T O _ L O W H I G H ;
M o d e = ( i n t ) 0 ;
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
P e r i o d = ( E N U M _ T I M E F R A M E S ) C u r r e n t T i m e f r a m e ( ) ;
S h i f t = ( i n t ) 0 ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
d o u b l e _ e x e c u t e _ ( )
{
r e t u r n i S t o c h a s t i c ( S y m b o l , P e r i o d , K p e r i o d , D p e r i o d , S l o w i n g , M A m e t h o d , P r i c e F i e l d , M o d e , S h i f t + F X D _ M O R E _ S H I F T ) ;
}
} ;
/ / " N u m e r i c " m o d e l
c l a s s M D L I C _ v a l u e _ v a l u e
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
d o u b l e V a l u e ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L I C _ v a l u e _ v a l u e ( )
{
V a l u e = ( d o u b l e ) 1 . 0 ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
d o u b l e _ e x e c u t e _ ( )
{
r e t u r n V a l u e ;
}
} ;
/ / " T i m e " m o d e l
c l a s s M D L I C _ v a l u e _ t i m e
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
i n t M o d e T i m e ;
i n t T i m e S o u r c e ;
s t r i n g T i m e S t a m p ;
i n t T i m e C a n d l e I D ;
s t r i n g T i m e M a r k e t ;
E N U M _ T I M E F R A M E S T i m e C a n d l e T i m e f r a m e ;
i n t T i m e C o m p o n e n t Y e a r ;
i n t T i m e C o m p o n e n t M o n t h ;
d o u b l e T i m e C o m p o n e n t D a y ;
d o u b l e T i m e C o m p o n e n t H o u r ;
d o u b l e T i m e C o m p o n e n t M i n u t e ;
i n t T i m e C o m p o n e n t S e c o n d ;
d a t e t i m e T i m e V a l u e ;
i n t M o d e T i m e S h i f t ;
i n t T i m e S h i f t Y e a r s ;
i n t T i m e S h i f t M o n t h s ;
i n t T i m e S h i f t W e e k s ;
d o u b l e T i m e S h i f t D a y s ;
d o u b l e T i m e S h i f t H o u r s ;
d o u b l e T i m e S h i f t M i n u t e s ;
i n t T i m e S h i f t S e c o n d s ;
b o o l T i m e S k i p W e e k d a y s ;
/ * S t a t i c P a r a m e t e r s * /
d a t e t i m e r e t v a l ;
d a t e t i m e r e t v a l 0 ;
d a t e t i m e T i m e [ ] ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L I C _ v a l u e _ t i m e ( )
{
M o d e T i m e = ( i n t ) 0 ;
T i m e S o u r c e = ( i n t ) 0 ;
T i m e S t a m p = ( s t r i n g ) " 0 0 : 0 0 " ;
T i m e C a n d l e I D = ( i n t ) 1 ;
T i m e M a r k e t = ( s t r i n g ) " " ;
T i m e C a n d l e T i m e f r a m e = ( E N U M _ T I M E F R A M E S ) 0 ;
T i m e C o m p o n e n t Y e a r = ( i n t ) 0 ;
T i m e C o m p o n e n t M o n t h = ( i n t ) 0 ;
T i m e C o m p o n e n t D a y = ( d o u b l e ) 0 . 0 ;
T i m e C o m p o n e n t H o u r = ( d o u b l e ) 1 2 . 0 ;
T i m e C o m p o n e n t M i n u t e = ( d o u b l e ) 0 . 0 ;
T i m e C o m p o n e n t S e c o n d = ( i n t ) 0 ;
T i m e V a l u e = ( d a t e t i m e ) 0 ;
M o d e T i m e S h i f t = ( i n t ) 0 ;
T i m e S h i f t Y e a r s = ( i n t ) 0 ;
T i m e S h i f t M o n t h s = ( i n t ) 0 ;
T i m e S h i f t W e e k s = ( i n t ) 0 ;
T i m e S h i f t D a y s = ( d o u b l e ) 0 . 0 ;
T i m e S h i f t H o u r s = ( d o u b l e ) 0 . 0 ;
T i m e S h i f t M i n u t e s = ( d o u b l e ) 0 . 0 ;
T i m e S h i f t S e c o n d s = ( i n t ) 0 ;
T i m e S k i p W e e k d a y s = ( b o o l ) f a l s e ;
/ * S t a t i c P a r a m e t e r s ( i n i t i a l v a l u e ) * /
r e t v a l = 0 ;
r e t v a l 0 = 0 ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
d a t e t i m e _ e x e c u t e _ ( )
{
/ / t h i s i s s t a t i c f o r s p e e d r e a s o n s
i f ( T i m e M a r k e t = = " " ) T i m e M a r k e t = S y m b o l ( ) ;
i f ( M o d e T i m e = = 0 )
{
i f ( T i m e S o u r c e = = 0 ) { r e t v a l = T i m e C u r r e n t ( ) ; }
e l s e i f ( T i m e S o u r c e = = 1 ) { r e t v a l = T i m e L o c a l ( ) + ( T i m e C u r r e n t ( ) - T i m e L o c a l ( ) ) ; }
e l s e i f ( T i m e S o u r c e = = 2 ) { r e t v a l = T i m e G M T ( ) + ( T i m e C u r r e n t ( ) - T i m e G M T ( ) ) ; }
}
e l s e i f ( M o d e T i m e = = 1 )
{
r e t v a l = S t r i n g T o T i m e ( T i m e S t a m p ) ;
r e t v a l 0 = r e t v a l ;
}
e l s e i f ( M o d e T i m e = = 2 )
{
r e t v a l = T i m e F r o m C o m p o n e n t s ( T i m e S o u r c e , T i m e C o m p o n e n t Y e a r , T i m e C o m p o n e n t M o n t h , T i m e C o m p o n e n t D a y , T i m e C o m p o n e n t H o u r , T i m e C o m p o n e n t M i n u t e , T i m e C o m p o n e n t S e c o n d ) ;
}
e l s e i f ( M o d e T i m e = = 3 )
{
A r r a y S e t A s S e r i e s ( T i m e , t r u e ) ;
C o p y T i m e ( T i m e M a r k e t , T i m e C a n d l e T i m e f r a m e , T i m e C a n d l e I D , 1 , T i m e ) ;
r e t v a l = T i m e [ 0 ] ;
}
e l s e i f ( M o d e T i m e = = 4 )
{
r e t v a l = T i m e V a l u e ;
}
i f ( M o d e T i m e S h i f t > 0 )
{
i n t s h = 1 ;
i f ( M o d e T i m e S h i f t = = 1 ) { s h = - 1 ; }
i f ( T i m e S h i f t Y e a r s > 0 | | T i m e S h i f t M o n t h s > 0 )
{
i n t y e a r = 0 , m o n t h = 0 , w e e k = 0 , d a y = 0 , h o u r = 0 , m i n u t e = 0 , s e c o n d = 0 ;
i f ( M o d e T i m e = = 3 )
{
y e a r = T i m e C o m p o n e n t Y e a r ;
m o n t h = T i m e C o m p o n e n t Y e a r ;
d a y = ( i n t ) M a t h F l o o r ( T i m e C o m p o n e n t D a y ) ;
h o u r = ( i n t ) ( M a t h F l o o r ( T i m e C o m p o n e n t H o u r ) + ( 2 4 * ( T i m e C o m p o n e n t D a y - M a t h F l o o r ( T i m e C o m p o n e n t D a y ) ) ) ) ;
m i n u t e = ( i n t ) ( M a t h F l o o r ( T i m e C o m p o n e n t M i n u t e ) + ( 6 0 * ( T i m e C o m p o n e n t H o u r - M a t h F l o o r ( T i m e C o m p o n e n t H o u r ) ) ) ) ;
s e c o n d = ( i n t ) ( T i m e C o m p o n e n t S e c o n d + ( 6 0 * ( T i m e C o m p o n e n t M i n u t e - M a t h F l o o r ( T i m e C o m p o n e n t M i n u t e ) ) ) ) ;
}
e l s e {
y e a r = T i m e Y e a r ( r e t v a l ) ;
m o n t h = T i m e M o n t h ( r e t v a l ) ;
d a y = T i m e D a y ( r e t v a l ) ;
h o u r = T i m e H o u r ( r e t v a l ) ;
m i n u t e = T i m e M i n u t e ( r e t v a l ) ;
s e c o n d = T i m e S e c o n d s ( r e t v a l ) ;
}
y e a r = y e a r + T i m e S h i f t Y e a r s * s h ;
m o n t h = m o n t h + T i m e S h i f t M o n t h s * s h ;
i f ( m o n t h < 0 ) { m o n t h = 1 2 - m o n t h ; }
e l s e i f ( m o n t h > 1 2 ) { m o n t h = m o n t h - 1 2 ; }
r e t v a l = S t r i n g T o T i m e ( I n t e g e r T o S t r i n g ( y e a r ) + " . " + I n t e g e r T o S t r i n g ( m o n t h ) + " . " + I n t e g e r T o S t r i n g ( d a y ) + " " + I n t e g e r T o S t r i n g ( h o u r ) + " : " + I n t e g e r T o S t r i n g ( m i n u t e ) + " : " + I n t e g e r T o S t r i n g ( s e c o n d ) ) ;
}
r e t v a l = r e t v a l + ( s h * ( ( 6 0 4 8 0 0 * T i m e S h i f t W e e k s ) + S e c o n d s F r o m C o m p o n e n t s ( T i m e S h i f t D a y s , T i m e S h i f t H o u r s , T i m e S h i f t M i n u t e s , T i m e S h i f t S e c o n d s ) ) ) ;
i f ( T i m e S k i p W e e k d a y s = = t r u e )
{
i n t w e e k d a y = T i m e D a y O f W e e k ( r e t v a l ) ;
i f ( s h > 0 ) { / / f o r w a r d
i f ( w e e k d a y = = 0 ) { r e t v a l = r e t v a l + 8 6 4 0 0 ; }
e l s e i f ( w e e k d a y = = 6 ) { r e t v a l = r e t v a l + 1 7 2 8 0 0 ; }
}
e l s e i f ( s h < 0 ) { / / b a c k
i f ( w e e k d a y = = 0 ) { r e t v a l = r e t v a l - 1 7 2 8 0 0 ; }
e l s e i f ( w e e k d a y = = 6 ) { r e t v a l = r e t v a l - 8 6 4 0 0 ; }
}
}
}
r e t u r n ( d a t e t i m e ) r e t v a l ;
}
} ;
/ / " R e l a t i v e S t r e n g t h I n d e x " m o d e l
c l a s s M D L I C _ i n d i c a t o r s _ i R S I
{
p u b l i c : / * I n p u t P a r a m e t e r s * /
i n t R S I p e r i o d ;
E N U M _ A P P L I E D _ P R I C E A p p l i e d P r i c e ;
s t r i n g S y m b o l ;
E N U M _ T I M E F R A M E S P e r i o d ;
i n t S h i f t ;
v i r t u a l v o i d _ c a l l b a c k _ ( i n t r ) { r e t u r n ; }
p u b l i c : / * C o n s t r u c t o r * /
M D L I C _ i n d i c a t o r s _ i R S I ( )
{
R S I p e r i o d = ( i n t ) 1 4 ;
A p p l i e d P r i c e = ( E N U M _ A P P L I E D _ P R I C E ) P R I C E _ C L O S E ;
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
P e r i o d = ( E N U M _ T I M E F R A M E S ) C u r r e n t T i m e f r a m e ( ) ;
S h i f t = ( i n t ) 0 ;
}
p u b l i c : / * T h e m a i n m e t h o d * /
d o u b l e _ e x e c u t e _ ( )
{
r e t u r n i R S I ( S y m b o l , P e r i o d , R S I p e r i o d , A p p l i e d P r i c e , S h i f t + F X D _ M O R E _ S H I F T ) ;
}
} ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / B l o c k 2 ( O n c e p e r b a r )
c l a s s B l o c k 0 : p u b l i c M D L _ O n c e P e r B a r < s t r i n g , E N U M _ T I M E F R A M E S , i n t >
{
p u b l i c : / * C o n s t r u c t o r * /
B l o c k 0 ( ) {
_ _ b l o c k _ n u m b e r = 0 ;
_ _ b l o c k _ u s e r _ n u m b e r = " 2 " ;
_ b e f o r e E x e c u t e E n a b l e d = t r u e ;
/ / F i l l t h e l i s t o f o u t b o u n d b l o c k s
i n t _ _ _ o u t b o u n d _ b l o c k s [ 1 ] = { 2 } ;
A r r a y C o p y ( _ _ o u t b o u n d _ b l o c k s , _ _ _ o u t b o u n d _ b l o c k s ) ;
}
p u b l i c : / * C a l l b a c k & R u n * /
v i r t u a l v o i d _ c a l l b a c k _ ( i n t v a l u e ) {
i f ( v a l u e = = 1 ) {
_ b l o c k s _ [ 2 ] . r u n ( 0 ) ;
}
}
v i r t u a l v o i d _ b e f o r e E x e c u t e _ ( )
{
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
P e r i o d = ( E N U M _ T I M E F R A M E S ) C u r r e n t T i m e f r a m e ( ) ;
}
} ;
/ / B l o c k 4 ( M A C D D i v e r g e n c e ( B u l l i s h ) )
c l a s s B l o c k 1 : p u b l i c M D L _ m a c d D i v B u l l < s t r i n g , i n t , i n t , i n t , d o u b l e , E N U M _ T I M E F R A M E S >
{
p u b l i c : / * C o n s t r u c t o r * /
B l o c k 1 ( ) {
_ _ b l o c k _ n u m b e r = 1 ;
_ _ b l o c k _ u s e r _ n u m b e r = " 4 " ;
_ b e f o r e E x e c u t e E n a b l e d = t r u e ;
/ / F i l l t h e l i s t o f o u t b o u n d b l o c k s
i n t _ _ _ o u t b o u n d _ b l o c k s [ 1 ] = { 3 } ;
A r r a y C o p y ( _ _ o u t b o u n d _ b l o c k s , _ _ _ o u t b o u n d _ b l o c k s ) ;
}
p u b l i c : / * C a l l b a c k & R u n * /
v i r t u a l v o i d _ c a l l b a c k _ ( i n t v a l u e ) {
i f ( v a l u e = = 1 ) {
_ b l o c k s _ [ 3 ] . r u n ( 1 ) ;
}
}
v i r t u a l v o i d _ b e f o r e E x e c u t e _ ( )
{
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
f a s t E M A = ( i n t ) _ e x t e r n s : : i n p 4 _ f a s t E M A ;
s l o w E M A = ( i n t ) _ e x t e r n s : : i n p 4 _ s l o w E M A ;
s i g n a l S M A = ( i n t ) _ e x t e r n s : : i n p 4 _ s i g n a l S M A ;
m a c d T h r e s h o l d = ( d o u b l e ) _ e x t e r n s : : i n p 4 _ m a c d T h r e s h o l d ;
P e r i o d = ( E N U M _ T I M E F R A M E S ) _ e x t e r n s : : i n p 4 _ P e r i o d ;
}
} ;
/ / B l o c k 1 1 ( N o p o s i t i o n )
c l a s s B l o c k 2 : p u b l i c M D L _ N o O p e n e d O r d e r s < s t r i n g , s t r i n g , s t r i n g , s t r i n g , s t r i n g >
{
p u b l i c : / * C o n s t r u c t o r * /
B l o c k 2 ( ) {
_ _ b l o c k _ n u m b e r = 2 ;
_ _ b l o c k _ u s e r _ n u m b e r = " 1 1 " ;
_ b e f o r e E x e c u t e E n a b l e d = t r u e ;
/ / F i l l t h e l i s t o f o u t b o u n d b l o c k s
i n t _ _ _ o u t b o u n d _ b l o c k s [ 2 ] = { 1 0 , 5 } ;
A r r a y C o p y ( _ _ o u t b o u n d _ b l o c k s , _ _ _ o u t b o u n d _ b l o c k s ) ;
}
p u b l i c : / * C a l l b a c k & R u n * /
v i r t u a l v o i d _ c a l l b a c k _ ( i n t v a l u e ) {
i f ( v a l u e = = 0 ) {
_ b l o c k s _ [ 1 0 ] . r u n ( 2 ) ;
}
e l s e i f ( v a l u e = = 1 ) {
_ b l o c k s _ [ 5 ] . r u n ( 2 ) ;
}
}
v i r t u a l v o i d _ b e f o r e E x e c u t e _ ( )
{
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
}
} ;
/ / B l o c k 1 2 ( C o n d i t i o n )
c l a s s B l o c k 3 : p u b l i c M D L _ C o n d i t i o n < M D L I C _ i n d i c a t o r s _ i M A , d o u b l e , s t r i n g , M D L I C _ i n d i c a t o r s _ i M A , d o u b l e , i n t >
{
p u b l i c : / * C o n s t r u c t o r * /
B l o c k 3 ( ) {
_ _ b l o c k _ n u m b e r = 3 ;
_ _ b l o c k _ u s e r _ n u m b e r = " 1 2 " ;
/ / F i l l t h e l i s t o f o u t b o u n d b l o c k s
i n t _ _ _ o u t b o u n d _ b l o c k s [ 1 ] = { 4 } ;
A r r a y C o p y ( _ _ o u t b o u n d _ b l o c k s , _ _ _ o u t b o u n d _ b l o c k s ) ;
/ / I C i n p u t p a r a m e t e r s
L o . S h i f t = 1 ;
R o . S h i f t = 1 ;
}
p u b l i c : / * C u s t o m m e t h o d s * /
v i r t u a l d o u b l e _ L o _ ( ) {
L o . M A p e r i o d = _ e x t e r n s : : i n p 1 2 _ L o _ M A p e r i o d ;
L o . M A m e t h o d = M O D E _ E M A ;
L o . A p p l i e d P r i c e = P R I C E _ C L O S E ;
L o . S y m b o l = C u r r e n t S y m b o l ( ) ;
L o . P e r i o d = _ e x t e r n s : : i n p 1 2 _ L o _ P e r i o d ;
r e t u r n L o . _ e x e c u t e _ ( ) ;
}
v i r t u a l d o u b l e _ R o _ ( ) {
R o . M A p e r i o d = _ e x t e r n s : : i n p 1 2 _ R o _ M A p e r i o d ;
R o . M A m e t h o d = M O D E _ E M A ;
R o . A p p l i e d P r i c e = P R I C E _ C L O S E ;
R o . S y m b o l = C u r r e n t S y m b o l ( ) ;
R o . P e r i o d = _ e x t e r n s : : i n p 1 2 _ R o _ P e r i o d ;
r e t u r n R o . _ e x e c u t e _ ( ) ;
}
p u b l i c : / * C a l l b a c k & R u n * /
v i r t u a l v o i d _ c a l l b a c k _ ( i n t v a l u e ) {
i f ( v a l u e = = 1 ) {
_ b l o c k s _ [ 4 ] . r u n ( 3 ) ;
}
}
} ;
/ / B l o c k 1 8 ( C o n d i t i o n )
c l a s s B l o c k 4 : p u b l i c M D L _ C o n d i t i o n < M D L I C _ c a n d l e s _ c a n d l e s , d o u b l e , s t r i n g , M D L I C _ i n d i c a t o r s _ i M A , d o u b l e , i n t >
{
p u b l i c : / * C o n s t r u c t o r * /
B l o c k 4 ( ) {
_ _ b l o c k _ n u m b e r = 4 ;
_ _ b l o c k _ u s e r _ n u m b e r = " 1 8 " ;
/ / F i l l t h e l i s t o f o u t b o u n d b l o c k s
i n t _ _ _ o u t b o u n d _ b l o c k s [ 1 ] = { 9 } ;
A r r a y C o p y ( _ _ o u t b o u n d _ b l o c k s , _ _ _ o u t b o u n d _ b l o c k s ) ;
/ / I C i n p u t p a r a m e t e r s
L o . C a n d l e I D = 1 ;
R o . S h i f t = 1 ;
/ / B l o c k i n p u t p a r a m e t e r s
c o m p a r e = " < " ;
}
p u b l i c : / * C u s t o m m e t h o d s * /
v i r t u a l d o u b l e _ L o _ ( ) {
L o . S y m b o l = C u r r e n t S y m b o l ( ) ;
L o . P e r i o d = _ e x t e r n s : : i n p 1 8 _ L o _ P e r i o d ;
r e t u r n L o . _ e x e c u t e _ ( ) ;
}
v i r t u a l d o u b l e _ R o _ ( ) {
R o . M A p e r i o d = _ e x t e r n s : : i n p 1 8 _ R o _ M A p e r i o d ;
R o . M A m e t h o d = M O D E _ E M A ;
R o . A p p l i e d P r i c e = P R I C E _ C L O S E ;
R o . S y m b o l = C u r r e n t S y m b o l ( ) ;
R o . P e r i o d = _ e x t e r n s : : i n p 1 8 _ R o _ P e r i o d ;
r e t u r n R o . _ e x e c u t e _ ( ) ;
}
p u b l i c : / * C a l l b a c k & R u n * /
v i r t u a l v o i d _ c a l l b a c k _ ( i n t v a l u e ) {
i f ( v a l u e = = 1 ) {
_ b l o c k s _ [ 9 ] . r u n ( 4 ) ;
}
}
} ;
/ / B l o c k 2 5 ( C o n d i t i o n )
c l a s s B l o c k 5 : p u b l i c M D L _ C o n d i t i o n < M D L I C _ i n d i c a t o r s _ i S t o c h a s t i c , d o u b l e , s t r i n g , M D L I C _ i n d i c a t o r s _ i S t o c h a s t i c , d o u b l e , i n t >
{
p u b l i c : / * C o n s t r u c t o r * /
B l o c k 5 ( ) {
_ _ b l o c k _ n u m b e r = 5 ;
_ _ b l o c k _ u s e r _ n u m b e r = " 2 5 " ;
/ / F i l l t h e l i s t o f o u t b o u n d b l o c k s
i n t _ _ _ o u t b o u n d _ b l o c k s [ 1 ] = { 6 } ;
A r r a y C o p y ( _ _ o u t b o u n d _ b l o c k s , _ _ _ o u t b o u n d _ b l o c k s ) ;
/ / I C i n p u t p a r a m e t e r s
L o . S h i f t = 1 ;
R o . S h i f t = 1 ;
}
p u b l i c : / * C u s t o m m e t h o d s * /
v i r t u a l d o u b l e _ L o _ ( ) {
L o . K p e r i o d = _ e x t e r n s : : i n p 2 5 _ L o _ K p e r i o d ;
L o . D p e r i o d = _ e x t e r n s : : i n p 2 5 _ L o _ D p e r i o d ;
L o . S l o w i n g = _ e x t e r n s : : i n p 2 5 _ L o _ S l o w i n g ;
L o . M A m e t h o d = M O D E _ S M A ;
L o . P r i c e F i e l d = S T O _ L O W H I G H ;
L o . M o d e = _ e x t e r n s : : i n p 2 5 _ L o _ M o d e ;
L o . S y m b o l = C u r r e n t S y m b o l ( ) ;
L o . P e r i o d = _ e x t e r n s : : i n p 2 5 _ L o _ P e r i o d ;
r e t u r n L o . _ e x e c u t e _ ( ) ;
}
v i r t u a l d o u b l e _ R o _ ( ) {
R o . K p e r i o d = _ e x t e r n s : : i n p 2 5 _ R o _ K p e r i o d ;
R o . D p e r i o d = _ e x t e r n s : : i n p 2 5 _ R o _ D p e r i o d ;
R o . S l o w i n g = _ e x t e r n s : : i n p 2 5 _ R o _ S l o w i n g ;
R o . M A m e t h o d = M O D E _ S M A ;
R o . P r i c e F i e l d = S T O _ L O W H I G H ;
R o . M o d e = _ e x t e r n s : : i n p 2 5 _ R o _ M o d e ;
R o . S y m b o l = C u r r e n t S y m b o l ( ) ;
R o . P e r i o d = _ e x t e r n s : : i n p 2 5 _ R o _ P e r i o d ;
r e t u r n R o . _ e x e c u t e _ ( ) ;
}
p u b l i c : / * C a l l b a c k & R u n * /
v i r t u a l v o i d _ c a l l b a c k _ ( i n t v a l u e ) {
i f ( v a l u e = = 1 ) {
_ b l o c k s _ [ 6 ] . r u n ( 5 ) ;
}
}
} ;
/ / B l o c k 2 9 ( I n d i c a t o r m o v e s w i t h i n l i m i t s )
c l a s s B l o c k 6 : p u b l i c M D L _ I n d i c a t o r W i t h i n L i m i t s < M D L I C _ i n d i c a t o r s _ i S t o c h a s t i c , d o u b l e , i n t , i n t , i n t , s t r i n g , d o u b l e , M D L I C _ v a l u e _ v a l u e , d o u b l e , s t r i n g , d o u b l e , M D L I C _ v a l u e _ v a l u e , d o u b l e >
{
p u b l i c : / * C o n s t r u c t o r * /
B l o c k 6 ( ) {
_ _ b l o c k _ n u m b e r = 6 ;
_ _ b l o c k _ u s e r _ n u m b e r = " 2 9 " ;
_ b e f o r e E x e c u t e E n a b l e d = t r u e ;
/ / F i l l t h e l i s t o f o u t b o u n d b l o c k s
i n t _ _ _ o u t b o u n d _ b l o c k s [ 1 ] = { 1 } ;
A r r a y C o p y ( _ _ o u t b o u n d _ b l o c k s , _ _ _ o u t b o u n d _ b l o c k s ) ;
/ / I C i n p u t p a r a m e t e r s
I n d i c a t o r . S h i f t = 1 ;
d U p p e r L e v e l . V a l u e = 7 0 . 0 ;
d L o w e r L e v e l . V a l u e = 3 0 . 0 ;
}
p u b l i c : / * C u s t o m m e t h o d s * /
v i r t u a l d o u b l e _ I n d i c a t o r _ ( ) {
I n d i c a t o r . K p e r i o d = _ e x t e r n s : : i n p 2 9 _ I n d i c a t o r _ K p e r i o d ;
I n d i c a t o r . D p e r i o d = _ e x t e r n s : : i n p 2 9 _ I n d i c a t o r _ D p e r i o d ;
I n d i c a t o r . S l o w i n g = _ e x t e r n s : : i n p 2 9 _ I n d i c a t o r _ S l o w i n g ;
I n d i c a t o r . M A m e t h o d = M O D E _ S M A ;
I n d i c a t o r . P r i c e F i e l d = S T O _ L O W H I G H ;
I n d i c a t o r . S y m b o l = C u r r e n t S y m b o l ( ) ;
I n d i c a t o r . P e r i o d = _ e x t e r n s : : i n p 2 9 _ I n d i c a t o r _ P e r i o d ;
r e t u r n I n d i c a t o r . _ e x e c u t e _ ( ) ;
}
v i r t u a l d o u b l e _ d U p p e r L e v e l _ ( ) { r e t u r n d U p p e r L e v e l . _ e x e c u t e _ ( ) ; }
v i r t u a l d o u b l e _ d L o w e r L e v e l _ ( ) { r e t u r n d L o w e r L e v e l . _ e x e c u t e _ ( ) ; }
p u b l i c : / * C a l l b a c k & R u n * /
v i r t u a l v o i d _ c a l l b a c k _ ( i n t v a l u e ) {
i f ( v a l u e = = 1 ) {
_ b l o c k s _ [ 1 ] . r u n ( 6 ) ;
}
}
v i r t u a l v o i d _ b e f o r e E x e c u t e _ ( )
{
C a n d l e s S h i f t = ( i n t ) _ e x t e r n s : : i n p 2 9 _ C a n d l e s S h i f t ;
C a n d l e s P e r i o d = ( i n t ) _ e x t e r n s : : i n p 2 9 _ C a n d l e s P e r i o d ;
E x c e p t i o n C a n d l e s = ( i n t ) _ e x t e r n s : : i n p 2 9 _ E x c e p t i o n C a n d l e s ;
U p p e r L e v e l = ( d o u b l e ) _ e x t e r n s : : i n p 2 9 _ U p p e r L e v e l ;
L o w e r L e v e l = ( d o u b l e ) _ e x t e r n s : : i n p 2 9 _ L o w e r L e v e l ;
}
} ;
/ / B l o c k 3 0 ( C o n d i t i o n )
c l a s s B l o c k 7 : p u b l i c M D L _ C o n d i t i o n < M D L I C _ i n d i c a t o r s _ i S t o c h a s t i c , d o u b l e , s t r i n g , M D L I C _ i n d i c a t o r s _ i S t o c h a s t i c , d o u b l e , i n t >
{
p u b l i c : / * C o n s t r u c t o r * /
B l o c k 7 ( ) {
_ _ b l o c k _ n u m b e r = 7 ;
_ _ b l o c k _ u s e r _ n u m b e r = " 3 0 " ;
/ / F i l l t h e l i s t o f o u t b o u n d b l o c k s
i n t _ _ _ o u t b o u n d _ b l o c k s [ 1 ] = { 8 } ;
A r r a y C o p y ( _ _ o u t b o u n d _ b l o c k s , _ _ _ o u t b o u n d _ b l o c k s ) ;
/ / I C i n p u t p a r a m e t e r s
L o . S h i f t = 1 ;
R o . S h i f t = 1 ;
}
p u b l i c : / * C u s t o m m e t h o d s * /
v i r t u a l d o u b l e _ L o _ ( ) {
L o . K p e r i o d = _ e x t e r n s : : i n p 3 0 _ L o _ K p e r i o d ;
L o . D p e r i o d = _ e x t e r n s : : i n p 3 0 _ L o _ D p e r i o d ;
L o . S l o w i n g = _ e x t e r n s : : i n p 3 0 _ L o _ S l o w i n g ;
L o . M A m e t h o d = M O D E _ S M A ;
L o . P r i c e F i e l d = S T O _ L O W H I G H ;
L o . M o d e = _ e x t e r n s : : i n p 3 0 _ L o _ M o d e ;
L o . S y m b o l = C u r r e n t S y m b o l ( ) ;
L o . P e r i o d = _ e x t e r n s : : i n p 3 0 _ L o _ P e r i o d ;
r e t u r n L o . _ e x e c u t e _ ( ) ;
}
v i r t u a l d o u b l e _ R o _ ( ) {
R o . K p e r i o d = _ e x t e r n s : : i n p 3 0 _ R o _ K p e r i o d ;
R o . D p e r i o d = _ e x t e r n s : : i n p 3 0 _ R o _ D p e r i o d ;
R o . S l o w i n g = _ e x t e r n s : : i n p 3 0 _ R o _ S l o w i n g ;
R o . M A m e t h o d = M O D E _ S M A ;
R o . P r i c e F i e l d = S T O _ L O W H I G H ;
R o . M o d e = _ e x t e r n s : : i n p 3 0 _ R o _ M o d e ;
R o . S y m b o l = C u r r e n t S y m b o l ( ) ;
R o . P e r i o d = _ e x t e r n s : : i n p 3 0 _ R o _ P e r i o d ;
r e t u r n R o . _ e x e c u t e _ ( ) ;
}
p u b l i c : / * C a l l b a c k & R u n * /
v i r t u a l v o i d _ c a l l b a c k _ ( i n t v a l u e ) {
i f ( v a l u e = = 1 ) {
_ b l o c k s _ [ 8 ] . r u n ( 7 ) ;
}
}
} ;
/ / B l o c k 3 4 ( I n d i c a t o r m o v e s w i t h i n l i m i t s )
c l a s s B l o c k 8 : p u b l i c M D L _ I n d i c a t o r W i t h i n L i m i t s < M D L I C _ i n d i c a t o r s _ i S t o c h a s t i c , d o u b l e , i n t , i n t , i n t , s t r i n g , d o u b l e , M D L I C _ v a l u e _ v a l u e , d o u b l e , s t r i n g , d o u b l e , M D L I C _ v a l u e _ v a l u e , d o u b l e >
{
p u b l i c : / * C o n s t r u c t o r * /
B l o c k 8 ( ) {
_ _ b l o c k _ n u m b e r = 8 ;
_ _ b l o c k _ u s e r _ n u m b e r = " 3 4 " ;
_ b e f o r e E x e c u t e E n a b l e d = t r u e ;
/ / I C i n p u t p a r a m e t e r s
I n d i c a t o r . S h i f t = 1 ;
d U p p e r L e v e l . V a l u e = 7 0 . 0 ;
d L o w e r L e v e l . V a l u e = 3 0 . 0 ;
}
p u b l i c : / * C u s t o m m e t h o d s * /
v i r t u a l d o u b l e _ I n d i c a t o r _ ( ) {
I n d i c a t o r . K p e r i o d = _ e x t e r n s : : i n p 3 4 _ I n d i c a t o r _ K p e r i o d ;
I n d i c a t o r . D p e r i o d = _ e x t e r n s : : i n p 3 4 _ I n d i c a t o r _ D p e r i o d ;
I n d i c a t o r . S l o w i n g = _ e x t e r n s : : i n p 3 4 _ I n d i c a t o r _ S l o w i n g ;
I n d i c a t o r . M A m e t h o d = M O D E _ S M A ;
I n d i c a t o r . P r i c e F i e l d = S T O _ L O W H I G H ;
I n d i c a t o r . S y m b o l = C u r r e n t S y m b o l ( ) ;
I n d i c a t o r . P e r i o d = _ e x t e r n s : : i n p 3 4 _ I n d i c a t o r _ P e r i o d ;
r e t u r n I n d i c a t o r . _ e x e c u t e _ ( ) ;
}
v i r t u a l d o u b l e _ d U p p e r L e v e l _ ( ) { r e t u r n d U p p e r L e v e l . _ e x e c u t e _ ( ) ; }
v i r t u a l d o u b l e _ d L o w e r L e v e l _ ( ) { r e t u r n d L o w e r L e v e l . _ e x e c u t e _ ( ) ; }
p u b l i c : / * C a l l b a c k & R u n * /
v i r t u a l v o i d _ c a l l b a c k _ ( i n t v a l u e ) {
}
v i r t u a l v o i d _ b e f o r e E x e c u t e _ ( )
{
C a n d l e s S h i f t = ( i n t ) _ e x t e r n s : : i n p 3 4 _ C a n d l e s S h i f t ;
C a n d l e s P e r i o d = ( i n t ) _ e x t e r n s : : i n p 3 4 _ C a n d l e s P e r i o d ;
E x c e p t i o n C a n d l e s = ( i n t ) _ e x t e r n s : : i n p 3 4 _ E x c e p t i o n C a n d l e s ;
U p p e r L e v e l = ( d o u b l e ) _ e x t e r n s : : i n p 3 4 _ U p p e r L e v e l ;
L o w e r L e v e l = ( d o u b l e ) _ e x t e r n s : : i n p 3 4 _ L o w e r L e v e l ;
}
} ;
/ / B l o c k 3 5 ( B u y n o w )
c l a s s B l o c k 9 : p u b l i c M D L _ B u y N o w < s t r i n g , s t r i n g , s t r i n g , d o u b l e , d o u b l e , d o u b l e , d o u b l e , d o u b l e , M D L I C _ v a l u e _ v a l u e , d o u b l e , d o u b l e , d o u b l e , i n t , d o u b l e , d o u b l e , d o u b l e , d o u b l e , d o u b l e , i n t , i n t , d o u b l e , b o o l , d o u b l e , d o u b l e , b o o l , d o u b l e , s t r i n g , b o o l , d o u b l e , s t r i n g , s t r i n g , b o o l , d o u b l e , s t r i n g , d o u b l e , d o u b l e , d o u b l e , M D L I C _ v a l u e _ v a l u e , d o u b l e , M D L I C _ v a l u e _ v a l u e , d o u b l e , M D L I C _ v a l u e _ v a l u e , d o u b l e , s t r i n g , d o u b l e , d o u b l e , d o u b l e , M D L I C _ v a l u e _ v a l u e , d o u b l e , M D L I C _ v a l u e _ v a l u e , d o u b l e , M D L I C _ v a l u e _ v a l u e , d o u b l e , s t r i n g , i n t , i n t , i n t , M D L I C _ v a l u e _ t i m e , d a t e t i m e , u l o n g , s t r i n g , c o l o r >
{
p u b l i c : / * C o n s t r u c t o r * /
B l o c k 9 ( ) {
_ _ b l o c k _ n u m b e r = 9 ;
_ _ b l o c k _ u s e r _ n u m b e r = " 3 5 " ;
_ b e f o r e E x e c u t e E n a b l e d = t r u e ;
/ / I C i n p u t p a r a m e t e r s
d V o l u m e S i z e . V a l u e = 0 . 1 ;
d p S t o p L o s s . V a l u e = 1 0 0 . 0 ;
d d S t o p L o s s . V a l u e = 0 . 0 1 ;
d p T a k e P r o f i t . V a l u e = 1 0 0 . 0 ;
d d T a k e P r o f i t . V a l u e = 0 . 0 1 ;
d E x p . M o d e T i m e S h i f t = 2 ;
d E x p . T i m e S h i f t D a y s = 1 . 0 ;
d E x p . T i m e S k i p W e e k d a y s = t r u e ;
}
p u b l i c : / * C u s t o m m e t h o d s * /
v i r t u a l d o u b l e _ d V o l u m e S i z e _ ( ) { r e t u r n d V o l u m e S i z e . _ e x e c u t e _ ( ) ; }
v i r t u a l d o u b l e _ d l S t o p L o s s _ ( ) { r e t u r n d l S t o p L o s s . _ e x e c u t e _ ( ) ; }
v i r t u a l d o u b l e _ d p S t o p L o s s _ ( ) { r e t u r n d p S t o p L o s s . _ e x e c u t e _ ( ) ; }
v i r t u a l d o u b l e _ d d S t o p L o s s _ ( ) { r e t u r n d d S t o p L o s s . _ e x e c u t e _ ( ) ; }
v i r t u a l d o u b l e _ d l T a k e P r o f i t _ ( ) { r e t u r n d l T a k e P r o f i t . _ e x e c u t e _ ( ) ; }
v i r t u a l d o u b l e _ d p T a k e P r o f i t _ ( ) { r e t u r n d p T a k e P r o f i t . _ e x e c u t e _ ( ) ; }
v i r t u a l d o u b l e _ d d T a k e P r o f i t _ ( ) { r e t u r n d d T a k e P r o f i t . _ e x e c u t e _ ( ) ; }
v i r t u a l d a t e t i m e _ d E x p _ ( ) { r e t u r n d E x p . _ e x e c u t e _ ( ) ; }
p u b l i c : / * C a l l b a c k & R u n * /
v i r t u a l v o i d _ c a l l b a c k _ ( i n t v a l u e ) {
}
v i r t u a l v o i d _ b e f o r e E x e c u t e _ ( )
{
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
V o l u m e S i z e = ( d o u b l e ) _ e x t e r n s : : i n p 3 5 _ V o l u m e S i z e ;
S t o p L o s s P i p s = ( d o u b l e ) _ e x t e r n s : : i n p 3 5 _ S t o p L o s s P i p s ;
T a k e P r o f i t P i p s = ( d o u b l e ) _ e x t e r n s : : i n p 3 5 _ T a k e P r o f i t P i p s ;
A r r o w C o l o r B u y = ( c o l o r ) c l r B l u e ;
}
} ;
/ / B l o c k 3 6 ( C o n d i t i o n )
c l a s s B l o c k 1 0 : p u b l i c M D L _ C o n d i t i o n < M D L I C _ i n d i c a t o r s _ i R S I , d o u b l e , s t r i n g , M D L I C _ v a l u e _ v a l u e , d o u b l e , i n t >
{
p u b l i c : / * C o n s t r u c t o r * /
B l o c k 1 0 ( ) {
_ _ b l o c k _ n u m b e r = 1 0 ;
_ _ b l o c k _ u s e r _ n u m b e r = " 3 6 " ;
/ / F i l l t h e l i s t o f o u t b o u n d b l o c k s
i n t _ _ _ o u t b o u n d _ b l o c k s [ 1 ] = { 1 1 } ;
A r r a y C o p y ( _ _ o u t b o u n d _ b l o c k s , _ _ _ o u t b o u n d _ b l o c k s ) ;
/ / I C i n p u t p a r a m e t e r s
L o . S h i f t = 1 ;
/ / B l o c k i n p u t p a r a m e t e r s
c o m p a r e = " > = " ;
}
p u b l i c : / * C u s t o m m e t h o d s * /
v i r t u a l d o u b l e _ L o _ ( ) {
L o . R S I p e r i o d = _ e x t e r n s : : i n p 3 6 _ L o _ R S I p e r i o d ;
L o . A p p l i e d P r i c e = P R I C E _ C L O S E ;
L o . S y m b o l = C u r r e n t S y m b o l ( ) ;
L o . P e r i o d = _ e x t e r n s : : i n p 3 6 _ L o _ P e r i o d ;
r e t u r n L o . _ e x e c u t e _ ( ) ;
}
v i r t u a l d o u b l e _ R o _ ( ) {
R o . V a l u e = _ e x t e r n s : : i n p 3 6 _ R o _ V a l u e ;
r e t u r n R o . _ e x e c u t e _ ( ) ;
}
p u b l i c : / * C a l l b a c k & R u n * /
v i r t u a l v o i d _ c a l l b a c k _ ( i n t v a l u e ) {
i f ( v a l u e = = 1 ) {
_ b l o c k s _ [ 1 1 ] . r u n ( 1 0 ) ;
}
}
} ;
/ / B l o c k 3 7 ( C l o s e p o s i t i o n s )
c l a s s B l o c k 1 1 : p u b l i c M D L _ C l o s e O p e n e d < s t r i n g , s t r i n g , s t r i n g , s t r i n g , s t r i n g , i n t , u l o n g , c o l o r >
{
p u b l i c : / * C o n s t r u c t o r * /
B l o c k 1 1 ( ) {
_ _ b l o c k _ n u m b e r = 1 1 ;
_ _ b l o c k _ u s e r _ n u m b e r = " 3 7 " ;
_ b e f o r e E x e c u t e E n a b l e d = t r u e ;
/ / B l o c k i n p u t p a r a m e t e r s
B u y s O r S e l l s = " b u y s " ;
}
p u b l i c : / * C a l l b a c k & R u n * /
v i r t u a l v o i d _ c a l l b a c k _ ( i n t v a l u e ) {
}
v i r t u a l v o i d _ b e f o r e E x e c u t e _ ( )
{
S y m b o l = ( s t r i n g ) C u r r e n t S y m b o l ( ) ;
A r r o w C o l o r = ( c o l o r ) c l r D e e p P i n k ;
}
} ;
/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + / /
/ / | F u n c t i o n s | / /
/ / | S y s t e m a n d C u s t o m f u n c t i o n s u s e d i n t h e p r o g r a m | / /
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + / /
/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
d o u b l e A c c o u n t B a l a n c e ( )
{
r e t u r n N o r m a l i z e D o u b l e ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) , 2 ) ;
}
d o u b l e A c c o u n t B a l a n c e A t S t a r t ( )
{
/ / T h i s f u n c t i o n M U S T b e r u n o n c e a t p o g r a m ' s s t a r t
s t a t i c d o u b l e m e m o r y = 0 ;
i f ( m e m o r y = = 0 )
{
m e m o r y = N o r m a l i z e D o u b l e ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) , 2 ) ;
}
r e t u r n m e m o r y ;
}
d o u b l e A c c o u n t E q u i t y ( )
{
r e t u r n A c c o u n t I n f o D o u b l e ( A C C O U N T _ E Q U I T Y ) ;
}
d o u b l e A c c o u n t F r e e M a r g i n ( )
{
r e t u r n A c c o u n t I n f o D o u b l e ( A C C O U N T _ F R E E M A R G I N ) ;
}
d o u b l e A l i g n L o t s ( s t r i n g s y m b o l , d o u b l e l o t s , d o u b l e l o w e r l o t s = 0 . 0 , d o u b l e u p p e r l o t s = 0 . 0 )
{
d o u b l e L o t S t e p = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ S T E P ) ;
d o u b l e L o t S i z e = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ T R A D E _ C O N T R A C T _ S I Z E ) ;
d o u b l e M i n L o t s = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M I N ) ;
d o u b l e M a x L o t s = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M A X ) ;
i f ( L o t S t e p > M i n L o t s ) M i n L o t s = L o t S t e p ;
i f ( l o t s = = E M P T Y _ V A L U E ) { l o t s = 0 . 0 ; }
l o t s = M a t h R o u n d ( l o t s / L o t S t e p ) * L o t S t e p ;
i f ( l o t s < M i n L o t s ) { l o t s = M i n L o t s ; }
i f ( l o t s > M a x L o t s ) { l o t s = M a x L o t s ; }
i f ( l o w e r l o t s > 0 . 0 )
{
l o w e r l o t s = M a t h R o u n d ( l o w e r l o t s / L o t S t e p ) * L o t S t e p ;
i f ( l o t s < l o w e r l o t s ) { l o t s = l o w e r l o t s ; }
}
i f ( u p p e r l o t s > 0 . 0 )
{
u p p e r l o t s = M a t h R o u n d ( u p p e r l o t s / L o t S t e p ) * L o t S t e p ;
i f ( l o t s > u p p e r l o t s ) { l o t s = u p p e r l o t s ; }
}
r e t u r n l o t s ;
}
d o u b l e A l i g n S t o p L o s s (
s t r i n g s y m b o l ,
i n t t y p e ,
d o u b l e p r i c e ,
d o u b l e s l o = 0 . 0 , / / o r i g i n a l s l , u s e d w h e n m o d i f y i n g
d o u b l e s l l = 0 . 0 ,
d o u b l e s l p = 0 . 0 ,
b o o l c o n s i d e r _ f r e e z e l e v e l = f a l s e
)
{
d o u b l e s l = 0 . 0 ;
i f ( M a t h A b s ( s l l ) = = E M P T Y _ V A L U E ) { s l l = 0 . 0 ; }
i f ( M a t h A b s ( s l p ) = = E M P T Y _ V A L U E ) { s l p = 0 . 0 ; }
i f ( s l l = = 0 . 0 & & s l p = = 0 . 0 )
{
r e t u r n 0 . 0 ;
}
i f ( p r i c e < = 0 . 0 )
{
P r i n t ( _ _ F U N C T I O N _ _ + " e r r o r : N o p r i c e e n t e r e d " ) ;
r e t u r n - 1 ;
}
d o u b l e p o i n t = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ P O I N T ) ;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m b o l , S Y M B O L _ D I G I T S ) ;
s l p = s l p * P i p V a l u e ( s y m b o l ) * p o i n t ;
/ / - - b u y - s e l l i d e n t i f i e r - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i n t b s = 1 ;
i f (
t y p e = = O R D E R _ T Y P E _ S E L L
| | t y p e = = O R D E R _ T Y P E _ S E L L _ S T O P
| | t y p e = = O R D E R _ T Y P E _ S E L L _ L I M I T
| | t y p e = = O R D E R _ T Y P E _ S E L L _ S T O P _ L I M I T
)
{
b s = - 1 ;
}
/ / - - p r i c e s t h a t w i l l b e u s e d - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e a s k b i d = p r i c e ;
d o u b l e b i d a s k = p r i c e ;
i f ( t y p e < 2 )
{
d o u b l e a s k = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) ;
d o u b l e b i d = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ B I D ) ;
a s k b i d = a s k ;
b i d a s k = b i d ;
i f ( b s < 0 )
{
a s k b i d = b i d ;
b i d a s k = a s k ;
}
}
/ / - - b u i l d s l l e v e l - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( s l l = = 0 . 0 & & s l p ! = 0 . 0 ) { s l l = p r i c e ; }
i f ( s l l > 0 . 0 ) { s l = s l l - s l p * b s ; }
i f ( s l < 0 . 0 )
{
r e t u r n - 1 ;
}
s l = N o r m a l i z e D o u b l e ( s l , d i g i t s ) ;
s l o = N o r m a l i z e D o u b l e ( s l o , d i g i t s ) ;
i f ( s l = = s l o )
{
r e t u r n s l ;
}
/ / - - b u i l d l i m i t l e v e l s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e m i n s t o p s = ( d o u b l e ) 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 ( c o n s i d e r _ f r e e z e l e v e l = = t r u e )
{
d o u b l e f r e e z e l e v e l = ( d o u b l e ) 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 _ F R E E Z E _ L E V E L ) ;
i f ( f r e e z e l e v e l > m i n s t o p s ) { m i n s t o p s = f r e e z e l e v e l ; }
}
m i n s t o p s = N o r m a l i z e D o u b l e ( m i n s t o p s * p o i n t , d i g i t s ) ;
d o u b l e s l l i m i t = b i d a s k - m i n s t o p s * b s ; / / S L m i n p r i c e l e v e l
/ / - - c h e c k a n d a l i g n s l , p r i n t e r r o r s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / - - d o n o t d o i t w h e n t h e s t o p i s t h e s a m e a s t h e o r i g i n a l
i f ( s l > 0 . 0 & & s l ! = s l o )
{
i f ( ( b s > 0 & & s l > a s k b i d ) | | ( b s < 0 & & s l < a s k b i d ) )
{
s t r i n g a b s t r = " " ;
i f ( b s > 0 ) { a b s t r = " B i d " ; } e l s e { a b s t r = " A s k " ; }
P r i n t (
" E r r o r : I n v a l i d S L r e q u e s t e d ( " ,
D o u b l e T o S t r ( s l , d i g i t s ) ,
" f o r " , a b s t r , " p r i c e " ,
b i d a s k ,
" ) "
) ;
r e t u r n - 1 ;
}
e l s e i f ( ( b s > 0 & & s l > s l l i m i t ) | | ( b s < 0 & & s l < s l l i m i t ) )
{
i f ( U S E _ V I R T U A L _ S T O P S )
{
r e t u r n s l ;
}
P r i n t (
" W a r n i n g : T o o s h o r t S L r e q u e s t e d ( " ,
D o u b l e T o S t r ( s l , d i g i t s ) ,
" o r " ,
D o u b l e T o S t r ( M a t h A b s ( s l - a s k b i d ) / p o i n t , 0 ) ,
" p o i n t s ) , m i n i m u m w i l l b e t a k e n ( " ,
D o u b l e T o S t r ( s l l i m i t , d i g i t s ) ,
" o r " ,
D o u b l e T o S t r ( M a t h A b s ( a s k b i d - s l l i m i t ) / p o i n t , 0 ) ,
" p o i n t s ) "
) ;
s l = s l l i m i t ;
r e t u r n s l ;
}
}
/ / a l i g n b y t h e t i c k s i z e
d o u b l e t i c k s i z e = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ T R A D E _ T I C K _ S I Z E ) ;
s l = M a t h R o u n d ( s l / t i c k s i z e ) * t i c k s i z e ;
r e t u r n s l ;
}
d o u b l e A l i g n T a k e P r o f i t (
s t r i n g s y m b o l ,
i n t t y p e ,
d o u b l e p r i c e ,
d o u b l e t p o = 0 . 0 , / / o r i g i n a l t p , u s e d w h e n m o d i f y i n g
d o u b l e t p l = 0 . 0 ,
d o u b l e t p p = 0 . 0 ,
b o o l c o n s i d e r _ f r e e z e l e v e l = f a l s e
)
{
d o u b l e t p = 0 . 0 ;
i f ( M a t h A b s ( t p l ) = = E M P T Y _ V A L U E ) { t p l = 0 . 0 ; }
i f ( M a t h A b s ( t p p ) = = E M P T Y _ V A L U E ) { t p p = 0 . 0 ; }
i f ( t p l = = 0 . 0 & & t p p = = 0 . 0 )
{
r e t u r n 0 . 0 ;
}
i f ( p r i c e < = 0 . 0 )
{
P r i n t ( _ _ F U N C T I O N _ _ + " e r r o r : N o p r i c e e n t e r e d " ) ;
r e t u r n - 1 ;
}
d o u b l e p o i n t = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ P O I N T ) ;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m b o l , S Y M B O L _ D I G I T S ) ;
t p p = t p p * P i p V a l u e ( s y m b o l ) * p o i n t ;
/ / - - b u y - s e l l i d e n t i f i e r - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i n t b s = 1 ;
i f (
t y p e = = O R D E R _ T Y P E _ S E L L
| | t y p e = = O R D E R _ T Y P E _ S E L L _ S T O P
| | t y p e = = O R D E R _ T Y P E _ S E L L _ L I M I T
| | t y p e = = O R D E R _ T Y P E _ S E L L _ S T O P _ L I M I T
)
{
b s = - 1 ;
}
/ / - - p r i c e s t h a t w i l l b e u s e d - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e a s k b i d = p r i c e ;
d o u b l e b i d a s k = p r i c e ;
i f ( t y p e < 2 )
{
d o u b l e a s k = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) ;
d o u b l e b i d = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ B I D ) ;
a s k b i d = a s k ;
b i d a s k = b i d ;
i f ( b s < 0 )
{
a s k b i d = b i d ;
b i d a s k = a s k ;
}
}
/ / - - b u i l d t p l e v e l - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( t p l = = 0 . 0 & & t p p ! = 0 . 0 ) { t p l = p r i c e ; }
i f ( t p l > 0 . 0 ) { t p = t p l + t p p * b s ; }
i f ( t p < 0 . 0 )
{
r e t u r n - 1 ;
}
t p = N o r m a l i z e D o u b l e ( t p , d i g i t s ) ;
t p o = N o r m a l i z e D o u b l e ( t p o , d i g i t s ) ;
i f ( t p = = t p o )
{
r e t u r n t p ;
}
/ / - - b u i l d l i m i t l e v e l s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e m i n s t o p s = ( d o u b l e ) 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 ( c o n s i d e r _ f r e e z e l e v e l = = t r u e )
{
d o u b l e f r e e z e l e v e l = ( d o u b l e ) 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 _ F R E E Z E _ L E V E L ) ;
i f ( f r e e z e l e v e l > m i n s t o p s ) { m i n s t o p s = f r e e z e l e v e l ; }
}
m i n s t o p s = N o r m a l i z e D o u b l e ( m i n s t o p s * p o i n t , d i g i t s ) ;
d o u b l e t p l i m i t = b i d a s k + m i n s t o p s * b s ; / / T P m i n p r i c e l e v e l
/ / - - c h e c k a n d a l i g n t p , p r i n t e r r o r s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / - - d o n o t d o i t w h e n t h e s t o p i s t h e s a m e a s t h e o r i g i n a l
i f ( t p > 0 . 0 & & t p ! = t p o )
{
i f ( ( b s > 0 & & t p < b i d a s k ) | | ( b s < 0 & & t p > b i d a s k ) )
{
s t r i n g a b s t r = " " ;
i f ( b s > 0 ) { a b s t r = " B i d " ; } e l s e { a b s t r = " A s k " ; }
P r i n t (
" E r r o r : I n v a l i d T P r e q u e s t e d ( " ,
D o u b l e T o S t r ( t p , d i g i t s ) ,
" f o r " , a b s t r , " p r i c e " ,
b i d a s k ,
" ) "
) ;
r e t u r n - 1 ;
}
e l s e i f ( ( b s > 0 & & t p < t p l i m i t ) | | ( b s < 0 & & t p > t p l i m i t ) )
{
i f ( U S E _ V I R T U A L _ S T O P S )
{
r e t u r n t p ;
}
P r i n t (
" W a r n i n g : T o o s h o r t T P r e q u e s t e d ( " ,
D o u b l e T o S t r ( t p , d i g i t s ) ,
" o r " ,
D o u b l e T o S t r ( M a t h A b s ( t p - a s k b i d ) / p o i n t , 0 ) ,
" p o i n t s ) , m i n i m u m w i l l b e t a k e n ( " ,
D o u b l e T o S t r ( t p l i m i t , d i g i t s ) ,
" o r " ,
D o u b l e T o S t r ( M a t h A b s ( a s k b i d - t p l i m i t ) / p o i n t , 0 ) ,
" p o i n t s ) "
) ;
t p = t p l i m i t ;
r e t u r n t p ;
}
}
/ / a l i g n b y t h e t i c k s i z e
d o u b l e t i c k s i z e = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ T R A D E _ T I C K _ S I Z E ) ;
t p = M a t h R o u n d ( t p / t i c k s i z e ) * t i c k s i z e ;
r e t u r n t p ;
}
t e m p l a t e < t y p e n a m e T >
b o o l A r r a y E n s u r e V a l u e ( T & a r r a y [ ] , T v a l u e )
{
i n t s i z e = A r r a y S i z e ( a r r a y ) ;
i f ( s i z e > 0 )
{
i f ( I n A r r a y ( a r r a y , v a l u e ) )
{
/ / v a l u e f o u n d - > e x i t
r e t u r n f a l s e ; / / n o v a l u e a d d e d
}
}
/ / v a l u e d o e s n o t e x i s t s - > a d d i t
A r r a y R e s i z e ( a r r a y , s i z e + 1 ) ;
a r r a y [ s i z e ] = v a l u e ;
r e t u r n t r u e ; / / v a l u e a d d e d
}
t e m p l a t e < t y p e n a m e T >
i n t A r r a y S e a r c h ( T & a r r a y [ ] , T v a l u e )
{
i n t i n d e x = - 1 ;
i n t s i z e = A r r a y S i z e ( a r r a y ) ;
f o r ( i n t i = 0 ; i < s i z e ; i + + )
{
i f ( a r r a y [ i ] = = v a l u e )
{
i n d e x = i ;
b r e a k ;
}
}
r e t u r n i n d e x ;
}
t e m p l a t e < t y p e n a m e T >
b o o l A r r a y S t r i p K e y ( T & a r r a y [ ] , i n t k e y )
{
i n t x = 0 ;
i n t s i z e = A r r a y S i z e ( a r r a y ) ;
f o r ( i n t i = 0 ; i < s i z e ; i + + )
{
i f ( i ! = k e y )
{
a r r a y [ x ] = a r r a y [ i ] ;
x + + ;
}
}
i f ( x < s i z e )
{
A r r a y R e s i z e ( a r r a y , x ) ;
r e t u r n t r u e ; / / s t r i p p e d
}
r e t u r n f a l s e ; / / n o t s t r i p p e d
}
t e m p l a t e < t y p e n a m e T >
b o o l A r r a y S t r i p V a l u e ( T & a r r a y [ ] , T v a l u e )
{
i n t x = 0 ;
i n t s i z e = A r r a y S i z e ( a r r a y ) ;
f o r ( i n t i = 0 ; i < s i z e ; i + + )
{
i f ( a r r a y [ i ] ! = v a l u e )
{
a r r a y [ x ] = a r r a y [ i ] ;
x + + ;
}
}
i f ( x < s i z e )
{
A r r a y R e s i z e ( a r r a y , x ) ;
r e t u r n t r u e ; / / s t r i p p e d
}
r e t u r n f a l s e ; / / n o t s t r i p p e d
}
d o u b l e B e t 1 3 2 6 (
s t r i n g g r o u p ,
s t r i n g s y m b o l ,
i n t p o o l ,
d o u b l e i n i t i a l L o t s ,
b o o l r e v e r s e = f a l s e
) {
d o u b l e i n f o [ ] ;
G e t B e t T r a d e s I n f o ( i n f o , g r o u p , s y m b o l , p o o l , f a l s e ) ;
d o u b l e l o t s = i n f o [ 0 ] ;
d o u b l e p r o f i t O r L o s s = i n f o [ 1 ] ; / / 0 - u n k n o w n , 1 - p r o f i t , - 1 - l o s s
/ / - - 1 - 3 - 2 - 6 L o g i c
d o u b l e m i n L o t = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M I N ) ;
i f ( i n i t i a l L o t s < m i n L o t )
{
i n i t i a l L o t s = m i n L o t ;
}
i f ( l o t s = = 0 )
{
l o t s = i n i t i a l L o t s ;
}
e l s e
{
i f (
( r e v e r s e = = f a l s e & & p r o f i t O r L o s s = = 1 )
| | ( r e v e r s e = = t r u e & & p r o f i t O r L o s s = = - 1 )
) {
d o u b l e d i v = l o t s / i n i t i a l L o t s ;
i f ( d i v < 1 . 5 ) { l o t s = i n i t i a l L o t s * 3 ; }
e l s e i f ( d i v < 2 . 5 ) { l o t s = i n i t i a l L o t s * 6 ; }
e l s e i f ( d i v < 3 . 5 ) { l o t s = i n i t i a l L o t s * 2 ; }
e l s e { l o t s = i n i t i a l L o t s ; }
}
e l s e
{
l o t s = i n i t i a l L o t s ;
}
}
r e t u r n l o t s ;
}
d o u b l e B e t D a l e m b e r t (
s t r i n g g r o u p ,
s t r i n g s y m b o l ,
i n t p o o l ,
d o u b l e i n i t i a l L o t s ,
d o u b l e r e v e r s e = f a l s e
) {
d o u b l e i n f o [ ] ;
G e t B e t T r a d e s I n f o ( i n f o , g r o u p , s y m b o l , p o o l , f a l s e ) ;
d o u b l e l o t s = i n f o [ 0 ] ;
d o u b l e p r o f i t O r L o s s = i n f o [ 1 ] ; / / 0 - u n k n o w n , 1 - p r o f i t , - 1 - l o s s
/ / - - D a l e m b e r t L o g i c
d o u b l e m i n L o t = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M I N ) ;
i f ( i n i t i a l L o t s < m i n L o t )
{
i n i t i a l L o t s = m i n L o t ;
}
i f ( l o t s = = 0 )
{
l o t s = i n i t i a l L o t s ;
}
e l s e
{
i f (
( r e v e r s e = = 0 & & p r o f i t O r L o s s = = 1 )
| | ( r e v e r s e = = 1 & & p r o f i t O r L o s s = = - 1 )
) {
l o t s = l o t s - i n i t i a l L o t s ;
i f ( l o t s < i n i t i a l L o t s ) { l o t s = i n i t i a l L o t s ; }
}
e l s e
{
l o t s = l o t s + i n i t i a l L o t s ;
}
}
r e t u r n l o t s ;
}
d o u b l e B e t F i b o n a c c i (
s t r i n g g r o u p ,
s t r i n g s y m b o l ,
i n t p o o l ,
d o u b l e i n i t i a l L o t s
) {
d o u b l e i n f o [ ] ;
G e t B e t T r a d e s I n f o ( i n f o , g r o u p , s y m b o l , p o o l , f a l s e ) ;
d o u b l e l o t s = i n f o [ 0 ] ;
d o u b l e p r o f i t O r L o s s = i n f o [ 1 ] ; / / 0 - u n k n o w n , 1 - p r o f i t , - 1 - l o s s
/ / - - F i b o n a c c i L o g i c
d o u b l e m i n L o t = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M I N ) ;
i f ( i n i t i a l L o t s < m i n L o t )
{
i n i t i a l L o t s = m i n L o t ;
}
i f ( l o t s = = 0 )
{
l o t s = i n i t i a l L o t s ;
}
e l s e
{
i n t f i b o 1 = 1 ;
i n t f i b o 2 = 0 ;
i n t f i b o 3 = 0 ;
i n t f i b o 4 = 0 ;
d o u b l e d i v = l o t s / i n i t i a l L o t s ;
i f ( d i v < = 0 ) { d i v = 1 ; }
w h i l e ( t r u e )
{
f i b o 1 = f i b o 1 + f i b o 2 ;
f i b o 3 = f i b o 2 ;
f i b o 2 = f i b o 1 - f i b o 2 ;
f i b o 4 = f i b o 2 - f i b o 3 ;
i f ( f i b o 1 > N o r m a l i z e D o u b l e ( d i v , 2 ) )
{
b r e a k ;
}
}
i f ( p r o f i t O r L o s s = = 1 )
{
i f ( f i b o 4 < = 0 ) { f i b o 4 = 1 ; }
l o t s = i n i t i a l L o t s * f i b o 4 ;
}
e l s e
{
l o t s = i n i t i a l L o t s * f i b o 1 ;
}
}
l o t s = N o r m a l i z e D o u b l e ( l o t s , 2 ) ;
r e t u r n l o t s ;
}
d o u b l e B e t L a b o u c h e r e (
s t r i n g g r o u p ,
s t r i n g s y m b o l ,
i n t p o o l ,
d o u b l e i n i t i a l L o t s ,
s t r i n g l i s t O f N u m b e r s ,
d o u b l e r e v e r s e = f a l s e
) {
d o u b l e i n f o [ ] ;
G e t B e t T r a d e s I n f o ( i n f o , g r o u p , s y m b o l , p o o l , f a l s e ) ;
d o u b l e l o t s = i n f o [ 0 ] ;
d o u b l e p r o f i t O r L o s s = i n f o [ 1 ] ; / / 0 - u n k n o w n , 1 - p r o f i t , - 1 - l o s s
/ / - - L a b o u c h e r e L o g i c
s t a t i c s t r i n g m e m G r o u p [ ] ;
s t a t i c s t r i n g m e m L i s t [ ] ;
s t a t i c l o n g m e m T i c k e t [ ] ;
i n t s t a r t A g a i n = f a l s e ;
/ / - g e t t h e l i s t o f n u m b e r s a s i t i s s t o r e d i n t h e m e m o r y , o r s t o r e i t
i n t i d = A r r a y S e a r c h ( m e m G r o u p , g r o u p ) ;
i f ( i d = = - 1 )
{
s t a r t A g a i n = t r u e ;
i f ( l i s t O f N u m b e r s = = " " ) { l i s t O f N u m b e r s = " 1 " ; }
i d = A r r a y S i z e ( m e m G r o u p ) ;
A r r a y R e s i z e ( m e m G r o u p , i d + 1 , i d + 1 ) ;
A r r a y R e s i z e ( m e m L i s t , i d + 1 , i d + 1 ) ;
A r r a y R e s i z e ( m e m T i c k e t , i d + 1 , i d + 1 ) ;
m e m G r o u p [ i d ] = g r o u p ;
m e m L i s t [ i d ] = l i s t O f N u m b e r s ;
}
i f ( m e m T i c k e t [ i d ] = = ( l o n g ) O r d e r T i c k e t ( ) )
{
/ / t h e l a s t k n o w n t i c k e t ( m e m T i c k e t [ i d ] ) s h o u l d b e d i f f e r e n t t h a n O d e r T i c k e t ( ) n o r m a l l y
/ / w h e n f a i l e d t o c r e a t e a n e w t r a d e - t h e l a s t t i c k e t r e m a i n s t h e s a m e
/ / s o w e n e e d t o r e s e t
m e m L i s t [ i d ] = l i s t O f N u m b e r s ;
}
m e m T i c k e t [ i d ] = ( l o n g ) O r d e r T i c k e t ( ) ;
/ / - n o w t u r n t h e s t r i n g i n t o i n t e g e r a r r a y
i n t l i s t [ ] ;
s t r i n g l i s t S [ ] ;
S t r i n g E x p l o d e ( " , " , m e m L i s t [ i d ] , l i s t S ) ;
A r r a y R e s i z e ( l i s t , A r r a y S i z e ( l i s t S ) ) ;
f o r ( i n t s = 0 ; s < A r r a y S i z e ( l i s t S ) ; s + + )
{
l i s t [ s ] = ( i n t ) S t r i n g T o I n t e g e r ( S t r i n g T r i m ( l i s t S [ s ] ) ) ;
}
/ / - -
i n t s i z e = A r r a y S i z e ( l i s t ) ;
d o u b l e m i n L o t = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M I N ) ;
i f ( i n i t i a l L o t s < m i n L o t )
{
i n i t i a l L o t s = m i n L o t ;
}
i f ( l o t s = = 0 )
{
s t a r t A g a i n = t r u e ;
}
i f ( s t a r t A g a i n = = t r u e )
{
i f ( s i z e = = 1 )
{
l o t s = i n i t i a l L o t s * l i s t [ 0 ] ;
}
e l s e {
l o t s = i n i t i a l L o t s * ( l i s t [ 0 ] + l i s t [ s i z e - 1 ] ) ;
}
}
e l s e
{
i f (
( r e v e r s e = = 0 & & p r o f i t O r L o s s = = 1 )
| | ( r e v e r s e = = 1 & & p r o f i t O r L o s s = = - 1 )
) {
i f ( s i z e = = 1 )
{
l o t s = i n i t i a l L o t s * l i s t [ 0 ] ;
A r r a y R e s i z e ( l i s t , 0 ) ;
}
e l s e i f ( s i z e = = 2 )
{
l o t s = i n i t i a l L o t s * ( l i s t [ 0 ] + l i s t [ 1 ] ) ;
A r r a y R e s i z e ( l i s t , 0 ) ;
}
e l s e i f ( s i z e > 2 )
{
l o t s = i n i t i a l L o t s * ( l i s t [ 0 ] + l i s t [ s i z e - 1 ] ) ;
/ / C a n c e l t h e f i r s t a n d t h e l a s t n u m b e r i n t h e l i s t
/ / s h i f t a r r a y 1 s t e p l e f t
f o r ( i n t p o s = 0 ; p o s < s i z e - 1 ; p o s + + )
{
l i s t [ p o s ] = l i s t [ p o s + 1 ] ;
}
/ / r e m o v e l a s t 2 e l e m e n t s
A r r a y R e s i z e ( l i s t , A r r a y S i z e ( l i s t ) - 2 ) ;
}
i f ( l o t s < i n i t i a l L o t s ) { l o t s = i n i t i a l L o t s ; }
}
e l s e
{
i f ( s i z e > 1 )
{
A r r a y R e s i z e ( l i s t , s i z e + 1 ) ;
l i s t [ s i z e ] = l i s t [ 0 ] + l i s t [ s i z e - 1 ] ;
l o t s = i n i t i a l L o t s * ( l i s t [ 0 ] + l i s t [ s i z e ] ) ;
}
e l s e {
l o t s = i n i t i a l L o t s * l i s t [ 0 ] ;
}
i f ( l o t s < i n i t i a l L o t s ) { l o t s = i n i t i a l L o t s ; }
}
}
P r i n t ( " L a b o u c h e r e ( f o r g r o u p "
+ ( s t r i n g ) i d
+ " ) c u r r e n t l i s t o f n u m b e r s : "
+ S t r i n g I m p l o d e ( " , " , l i s t )
) ;
s i z e = A r r a y S i z e ( l i s t ) ;
i f ( s i z e = = 0 )
{
A r r a y S t r i p K e y ( m e m G r o u p , i d ) ;
A r r a y S t r i p K e y ( m e m L i s t , i d ) ;
A r r a y S t r i p K e y ( m e m T i c k e t , i d ) ;
}
e l s e {
m e m L i s t [ i d ] = S t r i n g I m p l o d e ( " , " , l i s t ) ;
}
r e t u r n l o t s ;
}
d o u b l e B e t M a r t i n g a l e (
s t r i n g g r o u p ,
s t r i n g s y m b o l ,
i n t p o o l ,
d o u b l e i n i t i a l L o t s ,
d o u b l e m u l t i p l y O n L o s s ,
d o u b l e m u l t i p l y O n P r o f i t ,
d o u b l e a d d O n L o s s ,
d o u b l e a d d O n P r o f i t ,
i n t r e s e t O n L o s s ,
i n t r e s e t O n P r o f i t
) {
d o u b l e i n f o [ ] ;
G e t B e t T r a d e s I n f o ( i n f o , g r o u p , s y m b o l , p o o l , t r u e ) ;
d o u b l e l o t s = i n f o [ 0 ] ;
d o u b l e p r o f i t O r L o s s = i n f o [ 1 ] ; / / 0 - u n k n o w n , 1 - p r o f i t , - 1 - l o s s
d o u b l e c o n s e c u t i v e = i n f o [ 2 ] ;
/ / - - M a r t i n g a l e L o g i c
i f ( l o t s = = 0 )
{
l o t s = i n i t i a l L o t s ;
}
e l s e
{
i f ( p r o f i t O r L o s s = = 1 )
{
i f ( r e s e t O n P r o f i t > 0 & & c o n s e c u t i v e > = r e s e t O n P r o f i t )
{
l o t s = i n i t i a l L o t s ;
}
e l s e
{
i f ( m u l t i p l y O n P r o f i t < = 0 )
{
m u l t i p l y O n P r o f i t = 1 ;
}
l o t s = ( l o t s * m u l t i p l y O n P r o f i t ) + a d d O n P r o f i t ;
}
}
e l s e
{
i f ( r e s e t O n L o s s > 0 & & c o n s e c u t i v e > = r e s e t O n L o s s )
{
l o t s = i n i t i a l L o t s ;
}
e l s e
{
i f ( m u l t i p l y O n L o s s < = 0 )
{
m u l t i p l y O n L o s s = 1 ;
}
l o t s = ( l o t s * m u l t i p l y O n L o s s ) + a d d O n L o s s ;
}
}
}
r e t u r n l o t s ;
}
d o u b l e B e t S e q u e n c e (
s t r i n g g r o u p ,
s t r i n g s y m b o l ,
i n t p o o l ,
d o u b l e i n i t i a l L o t s ,
s t r i n g s e q u e n c e O n L o s s ,
s t r i n g s e q u e n c e O n P r o f i t ,
b o o l r e v e r s e = f a l s e
) {
d o u b l e i n f o [ ] ;
G e t B e t T r a d e s I n f o ( i n f o , g r o u p , s y m b o l , p o o l , f a l s e ) ;
d o u b l e l o t s = i n f o [ 0 ] ;
d o u b l e p r o f i t O r L o s s = i n f o [ 1 ] ; / / 0 - u n k n o w n , 1 - p r o f i t , - 1 - l o s s
/ / - - S e q u e n c e s t u f f
s t a t i c s t r i n g m e m G r o u p [ ] ;
s t a t i c s t r i n g m e m L o s s L i s t [ ] ;
s t a t i c s t r i n g m e m P r o f i t L i s t [ ] ;
s t a t i c l o n g m e m T i c k e t [ ] ;
/ / - g e t t h e l i s t o f n u m b e r s a s i t i s s t o r e d i n t h e m e m o r y , o r s t o r e i t
i n t i d = A r r a y S e a r c h ( m e m G r o u p , g r o u p ) ;
i f ( i d = = - 1 )
{
i f ( s e q u e n c e O n L o s s = = " " ) { s e q u e n c e O n L o s s = " 1 " ; }
i f ( s e q u e n c e O n P r o f i t = = " " ) { s e q u e n c e O n P r o f i t = " 1 " ; }
i d = A r r a y S i z e ( m e m G r o u p ) ;
A r r a y R e s i z e ( m e m G r o u p , i d + 1 , i d + 1 ) ;
A r r a y R e s i z e ( m e m L o s s L i s t , i d + 1 , i d + 1 ) ;
A r r a y R e s i z e ( m e m P r o f i t L i s t , i d + 1 , i d + 1 ) ;
A r r a y R e s i z e ( m e m T i c k e t , i d + 1 , i d + 1 ) ;
m e m G r o u p [ i d ] = g r o u p ;
m e m L o s s L i s t [ i d ] = s e q u e n c e O n L o s s ;
m e m P r o f i t L i s t [ i d ] = s e q u e n c e O n P r o f i t ;
}
b o o l l o s s R e s e t = f a l s e ;
b o o l p r o f i t R e s e t = f a l s e ;
i f ( p r o f i t O r L o s s = = - 1 & & m e m L o s s L i s t [ i d ] = = " " )
{
l o s s R e s e t = t r u e ;
m e m P r o f i t L i s t [ i d ] = " " ;
}
i f ( p r o f i t O r L o s s = = 1 & & m e m P r o f i t L i s t [ i d ] = = " " )
{
p r o f i t R e s e t = t r u e ;
m e m L o s s L i s t [ i d ] = " " ;
}
i f ( p r o f i t O r L o s s = = 1 | | m e m L o s s L i s t [ i d ] = = " " )
{
m e m L o s s L i s t [ i d ] = s e q u e n c e O n L o s s ;
i f ( l o s s R e s e t ) {
m e m L o s s L i s t [ i d ] = " 1 , " + m e m L o s s L i s t [ i d ] ;
}
}
i f ( p r o f i t O r L o s s = = - 1 | | m e m P r o f i t L i s t [ i d ] = = " " )
{
m e m P r o f i t L i s t [ i d ] = s e q u e n c e O n P r o f i t ;
i f ( p r o f i t R e s e t ) {
m e m P r o f i t L i s t [ i d ] = " 1 , " + m e m P r o f i t L i s t [ i d ] ;
}
}
i f ( m e m T i c k e t [ i d ] = = ( l o n g ) O r d e r T i c k e t ( ) )
{
/ / N o r m a l l y t h e l a s t k n o w n t i c k e t ( m e m T i c k e t [ i d ] ) s h o u l d b e d i f f e r e n t t h a n O d e r T i c k e t ( )
/ / w h e n f a i l e d t o c r e a t e a n e w t r a d e , t h e l a s t t i c k e t r e m a i n s t h e s a m e
/ / s o w e n e e d t o r e s e t
m e m L o s s L i s t [ i d ] = s e q u e n c e O n L o s s ;
m e m P r o f i t L i s t [ i d ] = s e q u e n c e O n P r o f i t ;
}
m e m T i c k e t [ i d ] = ( l o n g ) O r d e r T i c k e t ( ) ;
/ / - n o w t u r n t h e s t r i n g i n t o i n t e g e r a r r a y
i n t s = 0 ;
d o u b l e l i s t L o s s [ ] ;
d o u b l e l i s t P r o f i t [ ] ;
s t r i n g l i s t S [ ] ;
S t r i n g E x p l o d e ( " , " , m e m L o s s L i s t [ i d ] , l i s t S ) ;
A r r a y R e s i z e ( l i s t L o s s , A r r a y S i z e ( l i s t S ) , A r r a y S i z e ( l i s t S ) ) ;
f o r ( s = 0 ; s < A r r a y S i z e ( l i s t S ) ; s + + )
{
l i s t L o s s [ s ] = ( d o u b l e ) S t r i n g T o D o u b l e ( S t r i n g T r i m ( l i s t S [ s ] ) ) ;
}
S t r i n g E x p l o d e ( " , " , m e m P r o f i t L i s t [ i d ] , l i s t S ) ;
A r r a y R e s i z e ( l i s t P r o f i t , A r r a y S i z e ( l i s t S ) , A r r a y S i z e ( l i s t S ) ) ;
f o r ( s = 0 ; s < A r r a y S i z e ( l i s t S ) ; s + + )
{
l i s t P r o f i t [ s ] = ( d o u b l e ) S t r i n g T o D o u b l e ( S t r i n g T r i m ( l i s t S [ s ] ) ) ;
}
/ / - -
d o u b l e m i n L o t = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M I N ) ;
i f ( i n i t i a l L o t s < m i n L o t )
{
i n i t i a l L o t s = m i n L o t ;
}
i f ( l o t s = = 0 )
{
l o t s = i n i t i a l L o t s ;
}
e l s e
{
i f (
( r e v e r s e = = f a l s e & & p r o f i t O r L o s s = = 1 )
| | ( r e v e r s e = = t r u e & & p r o f i t O r L o s s = = - 1 )
) {
l o t s = i n i t i a l L o t s * l i s t P r o f i t [ 0 ] ;
/ / s h i f t a r r a y 1 s t e p l e f t
i n t s i z e = A r r a y S i z e ( l i s t P r o f i t ) ;
f o r ( i n t p o s = 0 ; p o s < s i z e - 1 ; p o s + + )
{
l i s t P r o f i t [ p o s ] = l i s t P r o f i t [ p o s + 1 ] ;
}
i f ( s i z e > 0 )
{
A r r a y R e s i z e ( l i s t P r o f i t , s i z e - 1 , s i z e - 1 ) ;
m e m P r o f i t L i s t [ i d ] = S t r i n g I m p l o d e ( " , " , l i s t P r o f i t ) ;
}
}
e l s e
{
l o t s = i n i t i a l L o t s * l i s t L o s s [ 0 ] ;
/ / s h i f t a r r a y 1 s t e p l e f t
i n t s i z e = A r r a y S i z e ( l i s t L o s s ) ;
f o r ( i n t p o s = 0 ; p o s < s i z e - 1 ; p o s + + )
{
l i s t L o s s [ p o s ] = l i s t L o s s [ p o s + 1 ] ;
}
i f ( s i z e > 0 )
{
A r r a y R e s i z e ( l i s t L o s s , s i z e - 1 , s i z e - 1 ) ;
m e m L o s s L i s t [ i d ] = S t r i n g I m p l o d e ( " , " , l i s t L o s s ) ;
}
}
}
r e t u r n l o t s ;
}
l o n g B u y N o w (
s t r i n g s y m b o l ,
d o u b l e l o t s ,
d o u b l e s l l ,
d o u b l e t p l ,
d o u b l e s l p ,
d o u b l e t p p ,
d o u b l e s l i p p a g e = 0 ,
i n t m a g i c = 0 ,
s t r i n g c o m m e n t = " " ,
c o l o r a r r o w c o l o r = c l r N O N E ,
d a t e t i m e e x p i r a t i o n = 0
)
{
r e t u r n O r d e r C r e a t e (
s y m b o l ,
P O S I T I O N _ T Y P E _ B U Y ,
l o t s ,
0 ,
s l l ,
t p l ,
s l p ,
t p p ,
s l i p p a g e ,
m a g i c ,
c o m m e n t ,
a r r o w c o l o r ,
e x p i r a t i o n
) ;
}
i n t C h e c k F o r T r a d i n g E r r o r ( i n t e r r o r _ c o d e = - 1 , s t r i n g m s g _ p r e f i x = " " )
{
/ / r e t u r n 0 - > n o e r r o r
/ / r e t u r n 1 - > o v e r c o m a b l e e r r o r
/ / r e t u r n 2 - > f a t a l e r r o r
i n t r e t v a l = 0 ;
s t a t i c i n t t r y o u t s = 0 ;
/ / - - e r r o r c h e c k - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
s w i t c h ( e r r o r _ c o d e )
{
/ / - - n o e r r o r
c a s e 0 :
r e t v a l = 0 ;
b r e a k ;
/ / - - o v e r c o m a b l e e r r o r s
c a s e T R A D E _ R E T C O D E _ R E Q U O T E :
c a s e T R A D E _ R E T C O D E _ R E J E C T :
c a s e T R A D E _ R E T C O D E _ E R R O R :
c a s e T R A D E _ R E T C O D E _ T I M E O U T :
c a s e T R A D E _ R E T C O D E _ I N V A L I D _ V O L U M E :
c a s e T R A D E _ R E T C O D E _ I N V A L I D _ P R I C E :
c a s e T R A D E _ R E T C O D E _ I N V A L I D _ S T O P S :
c a s e T R A D E _ R E T C O D E _ I N V A L I D _ E X P I R A T I O N :
c a s e T R A D E _ R E T C O D E _ P R I C E _ C H A N G E D :
c a s e T R A D E _ R E T C O D E _ P R I C E _ O F F :
c a s e T R A D E _ R E T C O D E _ T O O _ M A N Y _ R E Q U E S T S :
c a s e T R A D E _ R E T C O D E _ N O _ C H A N G E S :
c a s e T R A D E _ R E T C O D E _ C O N N E C T I O N :
r e t v a l = 1 ;
b r e a k ;
/ / - - c r i t i c a l e r r o r s
d e f a u l t :
r e t v a l = 2 ;
b r e a k ;
}
i f ( e r r o r _ c o d e > 0 )
{
s t r i n g m s g = " " ;
i f ( r e t v a l = = 1 )
{
S t r i n g C o n c a t e n a t e ( m s g , m s g _ p r e f i x , " : " , E r r o r M e s s a g e ( e r r o r _ c o d e ) , " . R e t r y i n g i n 5 s e c o n d s . . " ) ;
S l e e p ( 5 0 0 ) ;
}
e l s e i f ( r e t v a l = = 2 )
{
S t r i n g C o n c a t e n a t e ( m s g , m s g _ p r e f i x , " : " , E r r o r M e s s a g e ( e r r o r _ c o d e ) ) ;
}
P r i n t ( m s g ) ;
}
i f ( r e t v a l = = 0 )
{
t r y o u t s = 0 ;
}
e l s e i f ( r e t v a l = = 1 )
{
t r y o u t s + + ;
i f ( t r y o u t s > = 1 0 )
{
t r y o u t s = 0 ;
r e t v a l = 2 ;
}
e l s e
{
P r i n t ( " r e t r y # " + ( s t r i n g ) t r y o u t s + " o f 1 0 " ) ;
}
}
r e t u r n ( r e t v a l ) ;
}
b o o l C l o s e T r a d e ( u l o n g t i c k e t , u l o n g d e v i a t i o n = 0 , c o l o r c l r = c l r N O N E )
{
w h i l e ( t r u e )
{
b o o l s u c c e s s = f a l s e ;
i f ( ! P o s i t i o n S e l e c t B y T i c k e t ( t i c k e t ) )
{
r e t u r n f a l s e ;
}
s t r i n g s y m b o l = P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) ;
l o n g m a g i c = P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) ;
d o u b l e v o l u m e = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ V O L U M E ) ;
/ / W i t h s o m e C F D w e c a n o p e n p o s i t i o n w i t h t h e m a x v o l u m e m o r e t h a n o n c e ,
/ / s o w e g e t a p o s i t i o n t h a t h a s v o l u m e b i g g e r t h a n t h e m a x i m u m .
/ / T h e n w e c a n n o t c l o s e t h a t p o s i t i o n , b e c a u s e t h e v o l u m e i s t o o h i g h .
/ / F o r t h a t r e a s o n h e r e w e w i l l c l o s e i t i n p a r t s .
d o u b l e m a x _ v o l u m e = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M A X ) ;
d o u b l e p a r t _ v o l u m e = ( v o l u m e > m a x _ v o l u m e ) ? m a x _ v o l u m e : v o l u m e ;
/ / - - c l o s e - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
M q l T r a d e R e q u e s t r e q u e s t ;
M q l T r a d e R e s u l t r e s u l t ;
M q l T r a d e C h e c k R e s u l t c h e c k _ r e s u l t ;
Z e r o M e m o r y ( r e q u e s t ) ;
Z e r o M e m o r y ( r e s u l t ) ;
Z e r o M e m o r y ( c h e c k _ r e s u l t ) ;
i f ( ( E N U M _ P O S I T I O N _ T Y P E ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ B U Y )
{
/ / - - - p r e p a r e r e q u e s t f o r c l o s e B U Y p o s i t i o n
r e q u e s t . t y p e = O R D E R _ T Y P E _ S E L L ;
r e q u e s t . p r i c e = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ B I D ) ;
}
e l s e
{
/ / - - - p r e p a r e r e q u e s t f o r c l o s e S E L L p o s i t i o n
r e q u e s t . t y p e = O R D E R _ T Y P E _ B U Y ;
r e q u e s t . p r i c e = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) ;
}
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ D E A L ;
r e q u e s t . s y m b o l = s y m b o l ;
r e q u e s t . v o l u m e = p a r t _ v o l u m e ;
r e q u e s t . m a g i c = m a g i c ;
r e q u e s t . d e v i a t i o n = ( i n t ) ( d e v i a t i o n * P i p V a l u e ( s y m b o l ) ) ;
/ / f o r h e d g i n g m o d e
r e q u e s t . p o s i t i o n = t i c k e t ;
/ / f i l l i n g t y p e
i f ( I s F i l l i n g T y p e A l l o w e d ( s y m b o l , S Y M B O L _ F I L L I N G _ F O K ) )
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ F O K ;
e l s e i f ( I s F i l l i n g T y p e A l l o w e d ( s y m b o l , S Y M B O L _ F I L L I N G _ I O C ) )
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ I O C ;
e l s e i f ( I s F i l l i n g T y p e A l l o w e d ( s y m b o l , O R D E R _ F I L L I N G _ R E T U R N ) ) / / j u s t i n c a s e
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ R E T U R N ;
e l s e
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ R E T U R N ;
s u c c e s s = O r d e r S e n d ( r e q u e s t , r e s u l t ) ;
/ / - - e r r o r c h e c k - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( ! s u c c e s s | | ( r e s u l t . r e t c o d e ! = T R A D E _ R E T C O D E _ D O N E & & r e s u l t . r e t c o d e ! = T R A D E _ R E T C O D E _ P L A C E D & & r e s u l t . r e t c o d e ! = T R A D E _ R E T C O D E _ D O N E _ P A R T I A L ) )
{
s t r i n g e r r m s g p f x = " C l o s i n g p o s i t i o n / t r a d e e r r o r " ;
i n t e r r a c t i o n = C h e c k F o r T r a d i n g E r r o r ( r e s u l t . r e t c o d e , e r r m s g p f x ) ;
s w i t c h ( e r r a c t i o n )
{
c a s e 0 : b r e a k ; / / n o e r r o r
c a s e 1 : c o n t i n u e ; / / o v e r c o m a b l e e r r o r
c a s e 2 : b r e a k ; / / f a t a l e r r o r
}
r e t u r n f a l s e ;
}
/ / - - f i n i s h w o r k - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( r e s u l t . r e t c o d e = = T R A D E _ R E T C O D E _ D O N E | | r e s u l t . r e t c o d e = = T R A D E _ R E T C O D E _ P L A C E D )
{
/ / w e a r e c l o s i n g t h e p o s i t i o n i n p a r t s ?
i f ( v o l u m e ! = p a r t _ v o l u m e )
{
c o n t i n u e ; / / c o n t i n u e t h e " w h i l e " l o o p , s o t h a t t h e w h o l e v o l u m e c o u l d b e c l o s e d
}
w h i l e ( t r u e )
{
i f ( M Q L I n f o I n t e g e r ( M Q L _ T E S T E R ) | | ! P o s i t i o n S e l e c t B y T i c k e t ( t i c k e t ) )
{
b r e a k ;
}
S l e e p ( 1 0 ) ;
}
}
i f ( s u c c e s s = = t r u e )
{
i f ( U S E _ V I R T U A L _ S T O P S )
{
V i r t u a l S t o p s D r i v e r ( " c l e a r " , t i c k e t ) ;
}
e x p i r a t i o n W o r k e r . R e m o v e E x p i r a t i o n ( t i c k e t ) ;
}
b r e a k ;
}
O n T r a d e ( ) ;
r e t u r n t r u e ;
}
t e m p l a t e < t y p e n a m e D T 1 , t y p e n a m e D T 2 >
b o o l C o m p a r e V a l u e s ( s t r i n g s i g n , D T 1 v 1 , D T 2 v 2 )
{
i f ( s i g n = = " > " ) r e t u r n ( v 1 > v 2 ) ;
e l s e i f ( s i g n = = " < " ) r e t u r n ( v 1 < v 2 ) ;
e l s e i f ( s i g n = = " > = " ) r e t u r n ( v 1 > = v 2 ) ;
e l s e i f ( s i g n = = " < = " ) r e t u r n ( v 1 < = v 2 ) ;
e l s e i f ( s i g n = = " = = " ) r e t u r n ( v 1 = = v 2 ) ;
e l s e i f ( s i g n = = " ! = " ) r e t u r n ( v 1 ! = v 2 ) ;
e l s e i f ( s i g n = = " x > " ) r e t u r n ( v 1 > v 2 ) ;
e l s e i f ( s i g n = = " x < " ) r e t u r n ( v 1 < v 2 ) ;
r e t u r n f a l s e ;
}
s t r i n g C u r r e n t S y m b o l ( s t r i n g s y m b o l = " " )
{
s t a t i c s t r i n g m e m o r y = " " ;
/ / S e t
i f ( s y m b o l ! = " " )
{
m e m o r y = s y m b o l ;
}
/ / G e t
e l s e i f ( m e m o r y = = " " )
{
m e m o r y = S y m b o l ( ) ;
}
r e t u r n m e m o r y ;
}
E N U M _ T I M E F R A M E S C u r r e n t T i m e f r a m e ( E N U M _ T I M E F R A M E S t f = - 1 )
{
s t a t i c E N U M _ T I M E F R A M E S m e m o r y = 0 ;
i f ( t f > = 0 ) { m e m o r y = t f ; }
r e t u r n ( m e m o r y ) ;
}
d o u b l e C u s t o m P o i n t ( s t r i n g s y m b o l )
{
s t a t i c s t r i n g s y m b o l s [ ] ;
s t a t i c d o u b l e p o i n t s [ ] ;
s t a t i c s t r i n g l a s t _ s y m b o l = " - " ;
s t a t i c d o u b l e l a s t _ p o i n t = 0 ;
s t a t i c i n t l a s t _ i = 0 ;
s t a t i c i n t s i z e = 0 ;
/ / - - v a r i a n t A ) u s e t h e c a c h e f o r t h e l a s t u s e d s y m b o l
i f ( s y m b o l = = l a s t _ s y m b o l )
{
r e t u r n l a s t _ p o i n t ;
}
/ / - - v a r i a n t B ) s e a r c h i n t h e a r r a y c a c h e
i n t i = l a s t _ i ;
i n t s t a r t _ i = i ;
b o o l f o u n d = f a l s e ;
i f ( s i z e > 0 )
{
w h i l e ( t r u e )
{
i f ( s y m b o l s [ i ] = = s y m b o l )
{
l a s t _ s y m b o l = s y m b o l ;
l a s t _ p o i n t = p o i n t s [ i ] ;
l a s t _ i = i ;
r e t u r n l a s t _ p o i n t ;
}
i + + ;
i f ( i > = s i z e )
{
i = 0 ;
}
i f ( i = = s t a r t _ i ) { b r e a k ; }
}
}
/ / - - v a r i a n t C ) a d d t h i s s y m b o l t o t h e c a c h e
i = s i z e ;
s i z e = s i z e + 1 ;
A r r a y R e s i z e ( s y m b o l s , s i z e ) ;
A r r a y R e s i z e ( p o i n t s , s i z e ) ;
s y m b o l s [ i ] = s y m b o l ;
p o i n t s [ i ] = 0 ;
l a s t _ s y m b o l = s y m b o l ;
l a s t _ i = i ;
/ / - - u n s e r i a l i z e r u l e s f r o m F X D _ P O I N T _ F O R M A T _ R U L E S
s t r i n g r u l e s [ ] ;
S t r i n g E x p l o d e ( " , " , P O I N T _ F O R M A T _ R U L E S , r u l e s ) ;
i n t r u l e s _ c o u n t = A r r a y S i z e ( r u l e s ) ;
i f ( r u l e s _ c o u n t > 0 )
{
s t r i n g r u l e [ ] ;
f o r ( i n t r = 0 ; r < r u l e s _ c o u n t ; r + + )
{
S t r i n g E x p l o d e ( " = " , r u l e s [ r ] , r u l e ) ;
/ / - - a s i n g l e r u l e m u s t c o n t a i n 2 p a r t s , [ 0 ] f r o m a n d [ 1 ] t o
i f ( A r r a y S i z e ( r u l e ) ! = 2 ) { c o n t i n u e ; }
d o u b l e f r o m = S t r i n g T o D o u b l e ( r u l e [ 0 ] ) ;
d o u b l e t o = S t r i n g T o D o u b l e ( r u l e [ 1 ] ) ;
/ / - - " t o " m u s t b e a p o s i t i v e n u m b e r , d i f f e r e n t t h a n 0
i f ( t o < = 0 ) { c o n t i n u e ; }
/ / - - " f r o m " c a n b e a n u m b e r o r a s t r i n g
/ / a ) s t r i n g
i f ( f r o m = = 0 & & S t r i n g L e n ( r u l e [ 0 ] ) > 0 )
{
s t r i n g s _ f r o m = r u l e [ 0 ] ;
i n t p o s = S t r i n g F i n d ( s _ f r o m , " ? " ) ;
i f ( p o s < 0 ) / / ? n o t f o u n d
{
i f ( S t r i n g F i n d ( s y m b o l , s _ f r o m ) = = 0 ) { p o i n t s [ i ] = t o ; }
}
e l s e i f ( p o s = = 0 ) / / ? i s t h e f i r s t s y m b o l = > m a t c h t h e s e c o n d s y m b o l
{
i f ( S t r i n g F i n d ( s y m b o l , S t r i n g S u b s t r ( s _ f r o m , 1 ) , 3 ) = = 3 )
{
p o i n t s [ i ] = t o ;
}
}
e l s e i f ( p o s > 0 ) / / ? i s t h e s e c o n d s y m b o l = > m a t c h t h e f i r s t s y m b o l
{
i f ( S t r i n g F i n d ( s y m b o l , S t r i n g S u b s t r ( s _ f r o m , 0 , p o s ) ) = = 0 )
{
p o i n t s [ i ] = t o ;
}
}
}
/ / b ) n u m b e r
i f ( f r o m = = 0 ) { c o n t i n u e ; }
i f ( S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ P O I N T ) = = f r o m )
{
p o i n t s [ i ] = t o ;
}
}
}
i f ( p o i n t s [ i ] = = 0 )
{
p o i n t s [ i ] = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ P O I N T ) ;
}
l a s t _ p o i n t = p o i n t s [ i ] ;
r e t u r n l a s t _ p o i n t ;
}
b o o l D e l e t e O r d e r ( u l o n g t i c k e t , c o l o r a r r o w c o l o r = c l r N O N E )
{
w h i l e ( t r u e )
{
M q l T r a d e R e q u e s t r e q u e s t ;
M q l T r a d e R e s u l t r e s u l t ;
M q l T r a d e C h e c k R e s u l t c h e c k _ r e s u l t ;
Z e r o M e m o r y ( r e q u e s t ) ;
Z e r o M e m o r y ( r e s u l t ) ;
Z e r o M e m o r y ( c h e c k _ r e s u l t ) ;
r e q u e s t . o r d e r = t i c k e t ;
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ R E M O V E ;
r e q u e s t . c o m m e n t = " P e n d i n g o r d e r c a n c e l e d " ;
i f ( ! O r d e r C h e c k ( r e q u e s t , c h e c k _ r e s u l t ) ) {
P r i n t ( " O r d e r C h e c k ( ) f a i l e d : " + ( s t r i n g ) c h e c k _ r e s u l t . c o m m e n t + " ( " + ( s t r i n g ) c h e c k _ r e s u l t . r e t c o d e + " ) " ) ;
r e t u r n f a l s e ;
}
b o o l s u c c e s s = O r d e r S e n d ( r e q u e s t , r e s u l t ) ;
/ / - - e r r o r c h e c k - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( ! s u c c e s s | | r e s u l t . r e t c o d e ! = T R A D E _ R E T C O D E _ D O N E )
{
s t r i n g e r r m s g p f x = " D e l e t e o r d e r e r r o r " ;
i n t e r r a c t i o n = C h e c k F o r T r a d i n g E r r o r ( r e s u l t . r e t c o d e , e r r m s g p f x ) ;
s w i t c h ( e r r a c t i o n )
{
c a s e 0 : b r e a k ; / / n o e r r o r
c a s e 1 : c o n t i n u e ; / / o v e r c o m a b l e e r r o r
c a s e 2 : b r e a k ; / / f a t a l e r r o r
}
r e t u r n ( f a l s e ) ;
}
/ / - - f i n i s h w o r k - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( r e s u l t . r e t c o d e = = T R A D E _ R E T C O D E _ D O N E )
{
/ / = = W a i t u n t i l M T 5 u p d a t e s i t ' s c a c h e
i n t w ;
f o r ( w = 0 ; w < 5 0 0 0 ; w + + )
{
i f ( ! O r d e r S e l e c t ( t i c k e t ) ) { b r e a k ; }
S l e e p ( 1 ) ;
}
i f ( w = = 5 0 0 0 ) {
P r i n t ( " C h e c k e r r o r : D e l e t e o r d e r " ) ;
}
i f ( O r d e r S e l e c t ( t i c k e t ) ) {
P r i n t ( " S o m e t h i n g w e n t w r o n g w i t h t h e o r d e r " ) ;
r e t u r n f a l s e ;
}
}
i f ( s u c c e s s = = t r u e ) {
i f ( U S E _ V I R T U A L _ S T O P S ) {
V i r t u a l S t o p s D r i v e r ( " c l e a r " , t i c k e t ) ;
}
/ / R e g i s t e r E v e n t ( " t r a d e " ) ;
/ / r e t u r n ( t r u e ) ;
}
b r e a k ;
}
O n T r a d e ( ) ;
r e t u r n ( t r u e ) ;
}
s t r i n g D o u b l e T o S t r ( d o u b l e d , i n t d i g ) { r e t u r n ( D o u b l e T o S t r i n g ( d , d i g ) ) ; }
v o i d D r a w S p r e a d I n f o ( )
{
s t a t i c b o o l a l l o w _ d r a w = t r u e ;
i f ( a l l o w _ d r a w = = f a l s e ) { r e t u r n ; }
i f ( M Q L I n f o I n t e g e r ( M Q L _ T E S T E R ) & & ! M Q L I n f o I n t e g e r ( M Q L _ V I S U A L _ M O D E ) ) { a l l o w _ d r a w = f a l s e ; } / / A l l o w e d t o d r a w o n l y o n c e i n t e s t i n g m o d e
s t a t i c b o o l p a s s e d = f a l s e ;
s t a t i c d o u b l e m a x _ s p r e a d = 0 ;
s t a t i c d o u b l e m i n _ s p r e a d = E M P T Y _ V A L U E ;
s t a t i c d o u b l e a v g _ s p r e a d = 0 ;
s t a t i c d o u b l e a v g _ a d d = 0 ;
s t a t i c d o u b l e a v g _ c n t = 0 ;
d o u b l e c u s t o m _ p o i n t = C u s t o m P o i n t ( S y m b o l ( ) ) ;
d o u b l e c u r r e n t _ s p r e a d = 0 ;
i f ( c u s t o m _ p o i n t > 0 ) {
c u r r e n t _ s p r e a d = ( S y m b o l I n f o D o u b l e ( S y m b o l ( ) , S Y M B O L _ A S K ) - S y m b o l I n f o D o u b l e ( S y m b o l ( ) , S Y M B O L _ B I D ) ) / c u s t o m _ p o i n t ;
}
i f ( c u r r e n t _ s p r e a d > m a x _ s p r e a d ) { m a x _ s p r e a d = c u r r e n t _ s p r e a d ; }
i f ( c u r r e n t _ s p r e a d < m i n _ s p r e a d ) { m i n _ s p r e a d = c u r r e n t _ s p r e a d ; }
a v g _ c n t + + ;
a v g _ a d d = a v g _ a d d + c u r r e n t _ s p r e a d ;
a v g _ s p r e a d = a v g _ a d d / a v g _ c n t ;
i n t x = 0 ; i n t y = 0 ;
s t r i n g n a m e ;
/ / c r e a t e o b j e c t s
i f ( p a s s e d = = f a l s e )
{
p a s s e d = t r u e ;
n a m e = " f x d _ s p r e a d _ c u r r e n t _ l a b e l " ;
i f ( O b j e c t F i n d ( 0 , n a m e ) = = - 1 ) {
O b j e c t C r e a t e ( 0 , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , x + 1 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y + 1 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ A N C H O R , A N C H O R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 , n a m e , O B J P R O P _ F O N T S I Z E , 1 8 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r D a r k O r a n g e ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , " S p r e a d : " ) ;
}
n a m e = " f x d _ s p r e a d _ m a x _ l a b e l " ;
i f ( O b j e c t F i n d ( 0 , n a m e ) = = - 1 ) {
O b j e c t C r e a t e ( 0 , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , x + 1 4 8 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y + 1 7 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ A N C H O R , A N C H O R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 , n a m e , O B J P R O P _ F O N T S I Z E , 7 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r O r a n g e R e d ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , " m a x : " ) ;
}
n a m e = " f x d _ s p r e a d _ a v g _ l a b e l " ;
i f ( O b j e c t F i n d ( 0 , n a m e ) = = - 1 ) {
O b j e c t C r e a t e ( 0 , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , x + 1 4 8 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y + 9 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ A N C H O R , A N C H O R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 , n a m e , O B J P R O P _ F O N T S I Z E , 7 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r D a r k O r a n g e ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , " a v g : " ) ;
}
n a m e = " f x d _ s p r e a d _ m i n _ l a b e l " ;
i f ( O b j e c t F i n d ( 0 , n a m e ) = = - 1 ) {
O b j e c t C r e a t e ( 0 , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , x + 1 4 8 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y + 1 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ A N C H O R , A N C H O R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 , n a m e , O B J P R O P _ F O N T S I Z E , 7 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r G o l d ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , " m i n : " ) ;
}
n a m e = " f x d _ s p r e a d _ c u r r e n t " ;
i f ( O b j e c t F i n d ( 0 , n a m e ) = = - 1 ) {
O b j e c t C r e a t e ( 0 , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , x + 9 3 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y + 1 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ A N C H O R , A N C H O R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 , n a m e , O B J P R O P _ F O N T S I Z E , 1 8 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r D a r k O r a n g e ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , " 0 " ) ;
}
n a m e = " f x d _ s p r e a d _ m a x " ;
i f ( O b j e c t F i n d ( 0 , n a m e ) = = - 1 ) {
O b j e c t C r e a t e ( 0 , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , x + 1 7 3 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y + 1 7 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ A N C H O R , A N C H O R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 , n a m e , O B J P R O P _ F O N T S I Z E , 7 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r O r a n g e R e d ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , " 0 " ) ;
}
n a m e = " f x d _ s p r e a d _ a v g " ;
i f ( O b j e c t F i n d ( 0 , n a m e ) = = - 1 ) {
O b j e c t C r e a t e ( 0 , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , x + 1 7 3 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y + 9 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ A N C H O R , A N C H O R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 , n a m e , O B J P R O P _ F O N T S I Z E , 7 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r D a r k O r a n g e ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , " 0 " ) ;
}
n a m e = " f x d _ s p r e a d _ m i n " ;
i f ( O b j e c t F i n d ( 0 , n a m e ) = = - 1 ) {
O b j e c t C r e a t e ( 0 , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , x + 1 7 3 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y + 1 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ A N C H O R , A N C H O R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 , n a m e , O B J P R O P _ F O N T S I Z E , 7 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r G o l d ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , " 0 " ) ;
}
}
O b j e c t S e t S t r i n g ( 0 , " f x d _ s p r e a d _ c u r r e n t " , O B J P R O P _ T E X T , D o u b l e T o S t r ( c u r r e n t _ s p r e a d , 2 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " f x d _ s p r e a d _ m a x " , O B J P R O P _ T E X T , D o u b l e T o S t r ( m a x _ s p r e a d , 2 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " f x d _ s p r e a d _ a v g " , O B J P R O P _ T E X T , D o u b l e T o S t r ( a v g _ s p r e a d , 2 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " f x d _ s p r e a d _ m i n " , O B J P R O P _ T E X T , D o u b l e T o S t r ( m i n _ s p r e a d , 2 ) ) ;
}
s t r i n g D r a w S t a t u s ( s t r i n g t e x t = " " )
{
s t a t i c s t r i n g m e m o r y ;
i f ( t e x t = = " " ) {
r e t u r n ( m e m o r y ) ;
}
s t a t i c b o o l p a s s e d = f a l s e ;
i n t x = 2 1 0 ; i n t y = 0 ;
s t r i n g n a m e ;
/ / - - d r a w t h e o b j e c t s o n c e
i f ( p a s s e d = = f a l s e )
{
p a s s e d = t r u e ;
n a m e = " f x d _ s t a t u s _ t i t l e " ;
O b j e c t C r e a t e ( 0 , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ A N C H O R , A N C H O R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y + 1 7 ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , " S t a t u s " ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ F O N T S I Z E , 7 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r G r a y ) ;
n a m e = " f x d _ s t a t u s _ t e x t " ;
O b j e c t C r e a t e ( 0 , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ A N C H O R , A N C H O R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 , n a m e , O B J P R O P _ X D I S T A N C E , x + 2 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y + 1 ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ F O N T S I Z E , 1 2 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r A q u a ) ;
}
/ / - - u p d a t e t h e t e x t w h e n n e e d e d
i f ( t e x t ! = m e m o r y ) {
m e m o r y = t e x t ;
O b j e c t S e t S t r i n g ( 0 , " f x d _ s t a t u s _ t e x t " , O B J P R O P _ T E X T , t e x t ) ;
}
r e t u r n ( t e x t ) ;
}
d o u b l e D y n a m i c L o t s ( s t r i n g s y m b o l , s t r i n g m o d e = " b a l a n c e " , d o u b l e v a l u e = 0 , d o u b l e s l = 0 , s t r i n g a l i g n = " a l i g n " )
{
d o u b l e s i z e = 0 ;
d o u b l e L o t S t e p = S y m b o l L o t S t e p ( s y m b o l ) ;
d o u b l e L o t S i z e = S y m b o l L o t S i z e ( s y m b o l ) ;
d o u b l e M i n L o t s = S y m b o l M i n L o t ( s y m b o l ) ;
d o u b l e M a x L o t s = S y m b o l M a x L o t ( s y m b o l ) ;
d o u b l e T i c k V a l u e = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ T R A D E _ T I C K _ V A L U E ) ;
d o u b l e m a r g i n _ r e q u i r e d = 0 ;
b o o l o c m = O r d e r C a l c M a r g i n ( O R D E R _ T Y P E _ B U Y , s y m b o l , 1 , a s k ( s y m b o l ) , m a r g i n _ r e q u i r e d ) ; / / T h i s i s t h e M O D E _ M A R G I N R E Q U I R E D a n a l o g i n M Q L 5
/ / i f ( v a l u e > M a x L o t s ) { v a l u e = v a l u e / L o t S i z e ; } / / M o n e y - t o - L o t c o n v e r s i o n
i f ( m o d e = = " f i x e d " | | m o d e = = " l o t s " ) { s i z e = v a l u e ; }
e l s e i f ( m o d e = = " b l o c k - e q u i t y " ) { s i z e = ( v a l u e / 1 0 0 ) * A c c o u n t E q u i t y ( ) / m a r g i n _ r e q u i r e d ; }
e l s e i f ( m o d e = = " b l o c k - b a l a n c e " ) { s i z e = ( v a l u e / 1 0 0 ) * A c c o u n t B a l a n c e ( ) / m a r g i n _ r e q u i r e d ; }
e l s e i f ( m o d e = = " b l o c k - f r e e m a r g i n " ) { s i z e = ( v a l u e / 1 0 0 ) * A c c o u n t F r e e M a r g i n ( ) / m a r g i n _ r e q u i r e d ; }
e l s e i f ( m o d e = = " e q u i t y " ) { s i z e = ( v a l u e / 1 0 0 ) * A c c o u n t E q u i t y ( ) / ( L o t S i z e * T i c k V a l u e ) ; }
e l s e i f ( m o d e = = " b a l a n c e " ) { s i z e = ( v a l u e / 1 0 0 ) * A c c o u n t B a l a n c e ( ) / ( L o t S i z e * T i c k V a l u e ) ; }
e l s e i f ( m o d e = = " f r e e m a r g i n " ) { s i z e = ( v a l u e / 1 0 0 ) * A c c o u n t F r e e M a r g i n ( ) / ( L o t S i z e * T i c k V a l u e ) ; }
e l s e i f ( m o d e = = " e q u i t y R i s k " ) { s i z e = ( ( v a l u e / 1 0 0 ) * A c c o u n t E q u i t y ( ) ) / ( s l * T i c k V a l u e * P i p V a l u e ( s y m b o l ) ) ; }
e l s e i f ( m o d e = = " b a l a n c e R i s k " ) { s i z e = ( ( v a l u e / 1 0 0 ) * A c c o u n t B a l a n c e ( ) ) / ( s l * T i c k V a l u e * P i p V a l u e ( s y m b o l ) ) ; }
e l s e i f ( m o d e = = " f r e e m a r g i n R i s k " ) { s i z e = ( ( v a l u e / 1 0 0 ) * A c c o u n t F r e e M a r g i n ( ) ) / ( s l * T i c k V a l u e * P i p V a l u e ( s y m b o l ) ) ; }
e l s e i f ( m o d e = = " f i x e d R i s k " ) { s i z e = ( v a l u e ) / ( s l * T i c k V a l u e * P i p V a l u e ( s y m b o l ) ) ; }
e l s e i f ( m o d e = = " f i x e d R a t i o " | | m o d e = = " R J F R " ) {
/ / / / /
/ / R y a n J o n e s F i x e d R a t i o M M s t a t i c d a t a
s t a t i c d o u b l e R J F R _ s t a r t _ l o t s = 0 ;
s t a t i c d o u b l e R J F R _ d e l t a = 0 ;
s t a t i c d o u b l e R J F R _ u n i t s = 1 ;
s t a t i c d o u b l e R J F R _ t a r g e t _ l o w e r = 0 ;
s t a t i c d o u b l e R J F R _ t a r g e t _ u p p e r = 0 ;
/ / / / /
i f ( R J F R _ s t a r t _ l o t s < = 0 ) { R J F R _ s t a r t _ l o t s = v a l u e ; }
i f ( R J F R _ s t a r t _ l o t s < M i n L o t s ) { R J F R _ s t a r t _ l o t s = M i n L o t s ; }
i f ( R J F R _ d e l t a < = 0 ) { R J F R _ d e l t a = s l ; }
i f ( R J F R _ t a r g e t _ u p p e r < = 0 ) {
R J F R _ t a r g e t _ u p p e r = A c c o u n t E q u i t y ( ) + ( R J F R _ u n i t s * R J F R _ d e l t a ) ;
P r i n t ( " F i x e d R a t i o M M : U n i t s = > " , R J F R _ u n i t s , " ; D e l t a = " , R J F R _ d e l t a , " ; U p p e r T a r g e t E q u i t y = > " , R J F R _ t a r g e t _ u p p e r ) ;
}
i f ( A c c o u n t E q u i t y ( ) > = R J F R _ t a r g e t _ u p p e r )
{
w h i l e ( t r u e ) {
P r i n t ( " F i x e d R a t i o M M g o i n g u p t o " , ( R J F R _ s t a r t _ l o t s * ( R J F R _ u n i t s + 1 ) ) , " l o t s : E q u i t y i s a b o v e U p p e r T a r g e t E q u i t y ( " , A c c o u n t E q u i t y ( ) , " > = " , R J F R _ t a r g e t _ u p p e r , " ) " ) ;
R J F R _ u n i t s + + ;
R J F R _ t a r g e t _ l o w e r = R J F R _ t a r g e t _ u p p e r ;
R J F R _ t a r g e t _ u p p e r = R J F R _ t a r g e t _ u p p e r + ( R J F R _ u n i t s * R J F R _ d e l t a ) ;
P r i n t ( " F i x e d R a t i o M M : U n i t s = > " , R J F R _ u n i t s , " ; D e l t a = " , R J F R _ d e l t a , " ; L o w e r T a r g e t E q u i t y = > " , R J F R _ t a r g e t _ l o w e r , " ; U p p e r T a r g e t E q u i t y = > " , R J F R _ t a r g e t _ u p p e r ) ;
i f ( A c c o u n t E q u i t y ( ) < R J F R _ t a r g e t _ u p p e r ) { b r e a k ; }
}
}
e l s e i f ( A c c o u n t E q u i t y ( ) < = R J F R _ t a r g e t _ l o w e r )
{
w h i l e ( t r u e ) {
i f ( A c c o u n t E q u i t y ( ) > R J F R _ t a r g e t _ l o w e r ) { b r e a k ; }
i f ( R J F R _ u n i t s > 1 ) {
P r i n t ( " F i x e d R a t i o M M g o i n g d o w n t o " , ( R J F R _ s t a r t _ l o t s * ( R J F R _ u n i t s - 1 ) ) , " l o t s : E q u i t y i s b e l o w L o w e r T a r g e t E q u i t y | " , A c c o u n t E q u i t y ( ) , " < = " , R J F R _ t a r g e t _ l o w e r , " ) " ) ;
R J F R _ t a r g e t _ u p p e r = R J F R _ t a r g e t _ l o w e r ;
R J F R _ t a r g e t _ l o w e r = R J F R _ t a r g e t _ l o w e r - ( ( R J F R _ u n i t s - 1 ) * R J F R _ d e l t a ) ;
R J F R _ u n i t s - - ;
P r i n t ( " F i x e d R a t i o M M : U n i t s = > " , R J F R _ u n i t s , " ; D e l t a = " , R J F R _ d e l t a , " ; L o w e r T a r g e t E q u i t y = > " , R J F R _ t a r g e t _ l o w e r , " ; U p p e r T a r g e t E q u i t y = > " , R J F R _ t a r g e t _ u p p e r ) ;
} e l s e { b r e a k ; }
}
}
s i z e = R J F R _ s t a r t _ l o t s * R J F R _ u n i t s ;
}
i f ( s i z e = = E M P T Y _ V A L U E ) { s i z e = 0 ; }
s t a t i c b o o l a l e r t _ m i n _ l o t s = f a l s e ;
i f ( s i z e < M i n L o t s & & a l e r t _ m i n _ l o t s = = f a l s e ) { a l e r t _ m i n _ l o t s = t r u e ;
A l e r t ( " Y o u w a n t t o t r a d e " , s i z e , " l o t , b u t y o u r b r o k e r ' s m i n i m u m i s " , M i n L o t s , " l o t . T h e t r a d e / o r d e r w i l l c o n t i n u e w i t h " , M i n L o t s , " l o t i n s t e a d o f " , s i z e , " l o t . T h e s a m e r u l e w i l l b e a p p l i e d f o r n e x t t r a d e s / o r d e r s w i t h d e s i r e d l o t s i z e l o w e r t h a n t h e m i n i m u m . Y o u w i l l n o t s e e t h i s m e s s a g e a g a i n u n t i l y o u r e s t a r t t h e p r o g r a m . " ) ;
}
s i z e = M a t h R o u n d ( s i z e / L o t S t e p ) * L o t S t e p ;
i f ( a l i g n = = " a l i g n " ) {
i f ( s i z e < M i n L o t s ) { s i z e = M i n L o t s ; }
i f ( s i z e > M a x L o t s ) { s i z e = M a x L o t s ; }
}
r e t u r n ( s i z e ) ;
}
s t r i n g E r r o r M e s s a g e ( i n t e r r o r _ c o d e = - 1 )
{
s t r i n g e = " " ;
i f ( e r r o r _ c o d e < 0 ) { e r r o r _ c o d e = G e t L a s t E r r o r ( ) ; }
s w i t c h ( e r r o r _ c o d e )
{
/ / - - - s u c c e s s
c a s e 0 : r e t u r n ( " T h e o p e r a t i o n c o m p l e t e d s u c c e s s f u l l y " ) ;
/ / - - - R u n t i m e
c a s e 4 0 0 1 : e = " U n e x p e c t e d i n t e r n a l e r r o r " ; b r e a k ;
c a s e 4 0 0 2 : e = " W r o n g p a r a m e t e r i n t h e i n n e r c a l l o f t h e c l i e n t t e r m i n a l f u n c t i o n " ; b r e a k ;
c a s e 4 0 0 3 : e = " W r o n g p a r a m e t e r w h e n c a l l i n g t h e s y s t e m f u n c t i o n " ; b r e a k ;
c a s e 4 0 0 4 : e = " N o t e n o u g h m e m o r y t o p e r f o r m t h e s y s t e m f u n c t i o n " ; b r e a k ;
c a s e 4 0 0 5 : e = " T h e s t r u c t u r e c o n t a i n s o b j e c t s o f s t r i n g s a n d / o r d y n a m i c a r r a y s a n d / o r s t r u c t u r e o f s u c h o b j e c t s a n d / o r c l a s s e s " ; b r e a k ;
c a s e 4 0 0 6 : e = " A r r a y o f a w r o n g t y p e , w r o n g s i z e , o r a d a m a g e d o b j e c t o f a d y n a m i c a r r a y " ; b r e a k ;
c a s e 4 0 0 7 : e = " N o t e n o u g h m e m o r y f o r t h e r e l o c a t i o n o f a n a r r a y , o r a n a t t e m p t t o c h a n g e t h e s i z e o f a s t a t i c a r r a y " ; b r e a k ;
c a s e 4 0 0 8 : e = " N o t e n o u g h m e m o r y f o r t h e r e l o c a t i o n o f s t r i n g " ; b r e a k ;
c a s e 4 0 0 9 : e = " N o t i n i t i a l i z e d s t r i n g " ; b r e a k ;
c a s e 4 0 1 0 : e = " I n v a l i d d a t e a n d / o r t i m e " ; b r e a k ;
c a s e 4 0 1 1 : e = " R e q u e s t e d a r r a y s i z e e x c e e d s 2 G B " ; b r e a k ;
c a s e 4 0 1 2 : e = " W r o n g p o i n t e r " ; b r e a k ;
c a s e 4 0 1 3 : e = " W r o n g t y p e o f p o i n t e r " ; b r e a k ;
c a s e 4 0 1 4 : e = " S y s t e m f u n c t i o n i s n o t a l l o w e d t o c a l l " ; b r e a k ;
c a s e 4 0 1 5 : e = " T h e n a m e s o f t h e d y n a m i c a n d t h e s t a t i c r e s o u r c e m a t c h " ; b r e a k ;
c a s e 4 0 1 6 : e = " R e s o u r c e w i t h t h i s n a m e h a s n o t b e e n f o u n d i n E X 5 " ; b r e a k ;
c a s e 4 0 1 7 : e = " U n s u p p o r t e d r e s o u r c e t y p e o r i t s s i z e e x c e e d s 1 6 M b " ; b r e a k ;
c a s e 4 0 1 8 : e = " T h e r e s o u r c e n a m e e x c e e d s 6 3 c h a r a c t e r s " ; b r e a k ;
/ / - - C h a r t s
c a s e 4 1 0 1 : e = " W r o n g c h a r t I D " ; b r e a k ;
c a s e 4 1 0 2 : e = " C h a r t d o e s n o t r e s p o n d " ; b r e a k ;
c a s e 4 1 0 3 : e = " C h a r t n o t f o u n d " ; b r e a k ;
c a s e 4 1 0 4 : e = " N o E x p e r t A d v i s o r i n t h e c h a r t t h a t c o u l d h a n d l e t h e e v e n t " ; b r e a k ;
c a s e 4 1 0 5 : e = " C h a r t o p e n i n g e r r o r " ; b r e a k ;
c a s e 4 1 0 6 : e = " F a i l e d t o c h a n g e c h a r t s y m b o l a n d p e r i o d " ; b r e a k ;
c a s e 4 1 0 7 : e = " W r o n g p a r a m e t e r f o r t i m e r " ; b r e a k ;
c a s e 4 1 0 8 : e = " F a i l e d t o c r e a t e t i m e r " ; b r e a k ;
c a s e 4 1 0 9 : e = " W r o n g c h a r t p r o p e r t y I D " ; b r e a k ;
c a s e 4 1 1 0 : e = " E r r o r c r e a t i n g s c r e e n s h o t s " ; b r e a k ;
c a s e 4 1 1 1 : e = " E r r o r n a v i g a t i n g t h r o u g h c h a r t " ; b r e a k ;
c a s e 4 1 1 2 : e = " E r r o r a p p l y i n g t e m p l a t e " ; b r e a k ;
c a s e 4 1 1 3 : e = " S u b w i n d o w c o n t a i n i n g t h e i n d i c a t o r w a s n o t f o u n d " ; b r e a k ;
c a s e 4 1 1 4 : e = " E r r o r a d d i n g a n i n d i c a t o r t o c h a r t " ; b r e a k ;
c a s e 4 1 1 5 : e = " E r r o r d e l e t i n g a n i n d i c a t o r f r o m t h e c h a r t " ; b r e a k ;
c a s e 4 1 1 6 : e = " I n d i c a t o r n o t f o u n d o n t h e s p e c i f i e d c h a r t " ; b r e a k ;
/ / - - G r a p h i c a l O b j e c t s
c a s e 4 2 0 1 : e = " E r r o r w o r k i n g w i t h a g r a p h i c a l o b j e c t " ; b r e a k ;
c a s e 4 2 0 2 : e = " G r a p h i c a l o b j e c t w a s n o t f o u n d " ; b r e a k ;
c a s e 4 2 0 3 : e = " W r o n g I D o f a g r a p h i c a l o b j e c t p r o p e r t y " ; b r e a k ;
c a s e 4 2 0 4 : e = " U n a b l e t o g e t d a t e c o r r e s p o n d i n g t o t h e v a l u e " ; b r e a k ;
c a s e 4 2 0 5 : e = " U n a b l e t o g e t v a l u e c o r r e s p o n d i n g t o t h e d a t e " ; b r e a k ;
/ / - - M a r k e t I n f o
c a s e 4 3 0 1 : e = " U n k n o w n s y m b o l " ; b r e a k ;
c a s e 4 3 0 2 : e = " S y m b o l i s n o t s e l e c t e d i n M a r k e t W a t c h " ; b r e a k ;
c a s e 4 3 0 3 : e = " W r o n g i d e n t i f i e r o f a s y m b o l p r o p e r t y " ; b r e a k ;
c a s e 4 3 0 4 : e = " T i m e o f t h e l a s t t i c k i s n o t k n o w n ( n o t i c k s ) " ; b r e a k ;
c a s e 4 3 0 5 : e = " E r r o r a d d i n g o r d e l e t i n g a s y m b o l i n M a r k e t W a t c h " ; b r e a k ;
/ / - - H i s t o r y A c c e s s
c a s e 4 4 0 1 : e = " R e q u e s t e d h i s t o r y n o t f o u n d " ; b r e a k ;
c a s e 4 4 0 2 : e = " W r o n g I D o f t h e h i s t o r y p r o p e r t y " ; b r e a k ;
/ / - - G l o b a l V a r i a b l e s
c a s e 4 5 0 1 : e = " G l o b a l v a r i a b l e o f t h e c l i e n t t e r m i n a l i s n o t f o u n d " ; b r e a k ;
c a s e 4 5 0 2 : e = " G l o b a l v a r i a b l e o f t h e c l i e n t t e r m i n a l w i t h t h e s a m e n a m e a l r e a d y e x i s t s " ; b r e a k ;
c a s e 4 5 1 0 : e = " E m a i l s e n d i n g f a i l e d " ; b r e a k ;
c a s e 4 5 1 1 : e = " S o u n d p l a y i n g f a i l e d " ; b r e a k ;
c a s e 4 5 1 2 : e = " W r o n g i d e n t i f i e r o f t h e p r o g r a m p r o p e r t y " ; b r e a k ;
c a s e 4 5 1 3 : e = " W r o n g i d e n t i f i e r o f t h e t e r m i n a l p r o p e r t y " ; b r e a k ;
c a s e 4 5 1 4 : e = " F i l e s e n d i n g v i a f t p f a i l e d " ; b r e a k ;
c a s e 4 5 1 5 : e = " F a i l e d t o s e n d a n o t i f i c a t i o n " ; b r e a k ;
c a s e 4 5 1 6 : e = " I n v a l i d p a r a m e t e r f o r s e n d i n g a n o t i f i c a t i o n - a n e m p t y s t r i n g o r N U L L h a s b e e n p a s s e d t o t h e S e n d N o t i f i c a t i o n ( ) f u n c t i o n " ; b r e a k ;
c a s e 4 5 1 7 : e = " W r o n g s e t t i n g s o f n o t i f i c a t i o n s i n t h e t e r m i n a l ( I D i s n o t s p e c i f i e d o r p e r m i s s i o n i s n o t s e t ) " ; b r e a k ;
c a s e 4 5 1 8 : e = " T o o f r e q u e n t s e n d i n g o f n o t i f i c a t i o n s " ; b r e a k ;
/ / - - C u s t o m I n d i c a t o r B u f f e r s
c a s e 4 6 0 1 : e = " N o t e n o u g h m e m o r y f o r t h e d i s t r i b u t i o n o f i n d i c a t o r b u f f e r s " ; b r e a k ;
c a s e 4 6 0 2 : e = " W r o n g i n d i c a t o r b u f f e r i n d e x " ; b r e a k ;
/ / - - C u s t o m I n d i c a t o r P r o p e r t i e s
c a s e 4 6 0 3 : e = " W r o n g I D o f t h e c u s t o m i n d i c a t o r p r o p e r t y " ; b r e a k ;
/ / - - A c c o u n t
c a s e 4 7 0 1 : e = " W r o n g a c c o u n t p r o p e r t y I D " ; b r e a k ;
c a s e 4 7 5 1 : e = " W r o n g t r a d e p r o p e r t y I D " ; b r e a k ;
c a s e 4 7 5 2 : e = " T r a d i n g b y E x p e r t A d v i s o r s p r o h i b i t e d " ; b r e a k ;
c a s e 4 7 5 3 : e = " P o s i t i o n n o t f o u n d " ; b r e a k ;
c a s e 4 7 5 4 : e = " O r d e r n o t f o u n d " ; b r e a k ;
c a s e 4 7 5 5 : e = " D e a l n o t f o u n d " ; b r e a k ;
c a s e 4 7 5 6 : e = " T r a d e r e q u e s t s e n d i n g f a i l e d " ; b r e a k ;
/ / - - I n d i c a t o r s
c a s e 4 8 0 1 : e = " U n k n o w n s y m b o l " ; b r e a k ;
c a s e 4 8 0 2 : e = " I n d i c a t o r c a n n o t b e c r e a t e d " ; b r e a k ;
c a s e 4 8 0 3 : e = " N o t e n o u g h m e m o r y t o a d d t h e i n d i c a t o r " ; b r e a k ;
c a s e 4 8 0 4 : e = " T h e i n d i c a t o r c a n n o t b e a p p l i e d t o a n o t h e r i n d i c a t o r " ; b r e a k ;
c a s e 4 8 0 5 : e = " E r r o r a p p l y i n g a n i n d i c a t o r t o c h a r t " ; b r e a k ;
c a s e 4 8 0 6 : e = " R e q u e s t e d d a t a n o t f o u n d " ; b r e a k ;
c a s e 4 8 0 7 : e = " W r o n g i n d i c a t o r h a n d l e " ; b r e a k ;
c a s e 4 8 0 8 : e = " W r o n g n u m b e r o f p a r a m e t e r s w h e n c r e a t i n g a n i n d i c a t o r " ; b r e a k ;
c a s e 4 8 0 9 : e = " N o p a r a m e t e r s w h e n c r e a t i n g a n i n d i c a t o r " ; b r e a k ;
c a s e 4 8 1 0 : e = " T h e f i r s t p a r a m e t e r i n t h e a r r a y m u s t b e t h e n a m e o f t h e c u s t o m i n d i c a t o r " ; b r e a k ;
c a s e 4 8 1 1 : e = " I n v a l i d p a r a m e t e r t y p e i n t h e a r r a y w h e n c r e a t i n g a n i n d i c a t o r " ; b r e a k ;
c a s e 4 8 1 2 : e = " W r o n g i n d e x o f t h e r e q u e s t e d i n d i c a t o r b u f f e r " ; b r e a k ;
/ / - - D e p t h o f M a r k e t
c a s e 4 9 0 1 : e = " D e p t h O f M a r k e t c a n n o t b e a d d e d " ; b r e a k ;
c a s e 4 9 0 2 : e = " D e p t h O f M a r k e t c a n n o t b e r e m o v e d " ; b r e a k ;
c a s e 4 9 0 3 : e = " T h e d a t a f r o m D e p t h O f M a r k e t c a n n o t b e o b t a i n e d " ; b r e a k ;
c a s e 4 9 0 4 : e = " E r r o r i n s u b s c r i b i n g t o r e c e i v e n e w d a t a f r o m D e p t h O f M a r k e t " ; b r e a k ;
/ / - - F i l e O p e r a t i o n s
c a s e 5 0 0 1 : e = " M o r e t h a n 6 4 f i l e s c a n n o t b e o p e n e d a t t h e s a m e t i m e " ; b r e a k ;
c a s e 5 0 0 2 : e = " I n v a l i d f i l e n a m e " ; b r e a k ;
c a s e 5 0 0 3 : e = " T o o l o n g f i l e n a m e " ; b r e a k ;
c a s e 5 0 0 4 : e = " F i l e o p e n i n g e r r o r " ; b r e a k ;
c a s e 5 0 0 5 : e = " N o t e n o u g h m e m o r y f o r c a c h e t o r e a d " ; b r e a k ;
c a s e 5 0 0 6 : e = " F i l e d e l e t i n g e r r o r " ; b r e a k ;
c a s e 5 0 0 7 : e = " A f i l e w i t h t h i s h a n d l e w a s c l o s e d , o r w a s n o t o p e n i n g a t a l l " ; b r e a k ;
c a s e 5 0 0 8 : e = " W r o n g f i l e h a n d l e " ; b r e a k ;
c a s e 5 0 0 9 : e = " T h e f i l e m u s t b e o p e n e d f o r w r i t i n g " ; b r e a k ;
c a s e 5 0 1 0 : e = " T h e f i l e m u s t b e o p e n e d f o r r e a d i n g " ; b r e a k ;
c a s e 5 0 1 1 : e = " T h e f i l e m u s t b e o p e n e d a s a b i n a r y o n e " ; b r e a k ;
c a s e 5 0 1 2 : e = " T h e f i l e m u s t b e o p e n e d a s a t e x t " ; b r e a k ;
c a s e 5 0 1 3 : e = " T h e f i l e m u s t b e o p e n e d a s a t e x t o r C S V " ; b r e a k ;
c a s e 5 0 1 4 : e = " T h e f i l e m u s t b e o p e n e d a s C S V " ; b r e a k ;
c a s e 5 0 1 5 : e = " F i l e r e a d i n g e r r o r " ; b r e a k ;
c a s e 5 0 1 6 : e = " S t r i n g s i z e m u s t b e s p e c i f i e d , b e c a u s e t h e f i l e i s o p e n e d a s b i n a r y " ; b r e a k ;
c a s e 5 0 1 7 : e = " A t e x t f i l e m u s t b e f o r s t r i n g a r r a y s , f o r o t h e r a r r a y s - b i n a r y " ; b r e a k ;
c a s e 5 0 1 8 : e = " T h i s i s n o t a f i l e , t h i s i s a d i r e c t o r y " ; b r e a k ;
c a s e 5 0 1 9 : e = " F i l e d o e s n o t e x i s t " ; b r e a k ;
c a s e 5 0 2 0 : e = " F i l e c a n n o t b e r e w r i t t e n " ; b r e a k ;
c a s e 5 0 2 1 : e = " W r o n g d i r e c t o r y n a m e " ; b r e a k ;
c a s e 5 0 2 2 : e = " D i r e c t o r y d o e s n o t e x i s t " ; b r e a k ;
c a s e 5 0 2 3 : e = " T h i s i s a f i l e , n o t a d i r e c t o r y " ; b r e a k ;
c a s e 5 0 2 4 : e = " T h e d i r e c t o r y c a n n o t b e r e m o v e d " ; b r e a k ;
c a s e 5 0 2 5 : e = " F a i l e d t o c l e a r t h e d i r e c t o r y ( p r o b a b l y o n e o r m o r e f i l e s a r e b l o c k e d a n d r e m o v a l o p e r a t i o n f a i l e d ) " ; b r e a k ;
c a s e 5 0 2 6 : e = " F a i l e d t o w r i t e a r e s o u r c e t o a f i l e " ; b r e a k ;
/ / - - S t r i n g C a s t i n g
c a s e 5 0 3 0 : e = " N o d a t e i n t h e s t r i n g " ; b r e a k ;
c a s e 5 0 3 1 : e = " W r o n g d a t e i n t h e s t r i n g " ; b r e a k ;
c a s e 5 0 3 2 : e = " W r o n g t i m e i n t h e s t r i n g " ; b r e a k ;
c a s e 5 0 3 3 : e = " E r r o r c o n v e r t i n g s t r i n g t o d a t e " ; b r e a k ;
c a s e 5 0 3 4 : e = " N o t e n o u g h m e m o r y f o r t h e s t r i n g " ; b r e a k ;
c a s e 5 0 3 5 : e = " T h e s t r i n g l e n g t h i s l e s s t h a n e x p e c t e d " ; b r e a k ;
c a s e 5 0 3 6 : e = " T o o l a r g e n u m b e r , m o r e t h a n U L O N G _ M A X " ; b r e a k ;
c a s e 5 0 3 7 : e = " I n v a l i d f o r m a t s t r i n g " ; b r e a k ;
c a s e 5 0 3 8 : e = " A m o u n t o f f o r m a t s p e c i f i e r s m o r e t h a n t h e p a r a m e t e r s " ; b r e a k ;
c a s e 5 0 3 9 : e = " A m o u n t o f p a r a m e t e r s m o r e t h a n t h e f o r m a t s p e c i f i e r s " ; b r e a k ;
c a s e 5 0 4 0 : e = " D a m a g e d p a r a m e t e r o f s t r i n g t y p e " ; b r e a k ;
c a s e 5 0 4 1 : e = " P o s i t i o n o u t s i d e t h e s t r i n g " ; b r e a k ;
c a s e 5 0 4 2 : e = " 0 a d d e d t o t h e s t r i n g e n d , a u s e l e s s o p e r a t i o n " ; b r e a k ;
c a s e 5 0 4 3 : e = " U n k n o w n d a t a t y p e w h e n c o n v e r t i n g t o a s t r i n g " ; b r e a k ;
c a s e 5 0 4 4 : e = " D a m a g e d s t r i n g o b j e c t " ; b r e a k ;
/ / - - O p e r a t i o n s w i t h A r r a y s
c a s e 5 0 5 0 : e = " C o p y i n g i n c o m p a t i b l e a r r a y s . S t r i n g a r r a y c a n b e c o p i e d o n l y t o a s t r i n g a r r a y , a n d a n u m e r i c a r r a y - i n n u m e r i c a r r a y o n l y " ; b r e a k ;
c a s e 5 0 5 1 : e = " T h e r e c e i v i n g a r r a y i s d e c l a r e d a s A S _ S E R I E S , a n d i t i s o f i n s u f f i c i e n t s i z e " ; b r e a k ;
c a s e 5 0 5 2 : e = " T o o s m a l l a r r a y , t h e s t a r t i n g p o s i t i o n i s o u t s i d e t h e a r r a y " ; b r e a k ;
c a s e 5 0 5 3 : e = " A n a r r a y o f z e r o l e n g t h " ; b r e a k ;
c a s e 5 0 5 4 : e = " M u s t b e a n u m e r i c a r r a y " ; b r e a k ;
c a s e 5 0 5 5 : e = " M u s t b e a o n e - d i m e n s i o n a l a r r a y " ; b r e a k ;
c a s e 5 0 5 6 : e = " T i m e s e r i e s c a n n o t b e u s e d " ; b r e a k ;
c a s e 5 0 5 7 : e = " M u s t b e a n a r r a y o f t y p e d o u b l e " ; b r e a k ;
c a s e 5 0 5 8 : e = " M u s t b e a n a r r a y o f t y p e f l o a t " ; b r e a k ;
c a s e 5 0 5 9 : e = " M u s t b e a n a r r a y o f t y p e l o n g " ; b r e a k ;
c a s e 5 0 6 0 : e = " M u s t b e a n a r r a y o f t y p e i n t " ; b r e a k ;
c a s e 5 0 6 1 : e = " M u s t b e a n a r r a y o f t y p e s h o r t " ; b r e a k ;
c a s e 5 0 6 2 : e = " M u s t b e a n a r r a y o f t y p e c h a r " ; b r e a k ;
/ / - - O p e r a t i o n s w i t h O p e n C L
c a s e 5 1 0 0 : e = " O p e n C L f u n c t i o n s a r e n o t s u p p o r t e d o n t h i s c o m p u t e r " ; b r e a k ;
c a s e 5 1 0 1 : e = " I n t e r n a l e r r o r o c c u r r e d w h e n r u n n i n g O p e n C L " ; b r e a k ;
c a s e 5 1 0 2 : e = " I n v a l i d O p e n C L h a n d l e " ; b r e a k ;
c a s e 5 1 0 3 : e = " E r r o r c r e a t i n g t h e O p e n C L c o n t e x t " ; b r e a k ;
c a s e 5 1 0 4 : e = " F a i l e d t o c r e a t e a r u n q u e u e i n O p e n C L " ; b r e a k ;
c a s e 5 1 0 5 : e = " E r r o r o c c u r r e d w h e n c o m p i l i n g a n O p e n C L p r o g r a m " ; b r e a k ;
c a s e 5 1 0 6 : e = " T o o l o n g k e r n e l n a m e ( O p e n C L k e r n e l ) " ; b r e a k ;
c a s e 5 1 0 7 : e = " E r r o r c r e a t i n g a n O p e n C L k e r n e l " ; b r e a k ;
c a s e 5 1 0 8 : e = " E r r o r o c c u r r e d w h e n s e t t i n g p a r a m e t e r s f o r t h e O p e n C L k e r n e l " ; b r e a k ;
c a s e 5 1 0 9 : e = " O p e n C L p r o g r a m r u n t i m e e r r o r " ; b r e a k ;
c a s e 5 1 1 0 : e = " I n v a l i d s i z e o f t h e O p e n C L b u f f e r " ; b r e a k ;
c a s e 5 1 1 1 : e = " I n v a l i d o f f s e t i n t h e O p e n C L b u f f e r " ; b r e a k ;
c a s e 5 1 1 2 : e = " F a i l e d t o c r e a t e a n O p e n C L b u f f e r " ; b r e a k ;
/ / - - O p e r a t i o n s w i t h W e b R e q u e s t
c a s e 5 2 0 0 : e = " I n v a l i d U R L " ; b r e a k ;
c a s e 5 2 0 1 : e = " F a i l e d t o c o n n e c t t o s p e c i f i e d U R L " ; b r e a k ;
c a s e 5 2 0 2 : e = " T i m e o u t e x c e e d e d " ; b r e a k ;
c a s e 5 2 0 3 : e = " H T T P r e q u e s t f a i l e d " ; b r e a k ;
/ / - - t r a d i n g e r r o r s
c a s e 1 0 0 0 4 : e = " R e q u o t e o c c u r e d " ; b r e a k ;
c a s e 1 0 0 0 6 : e = " O r d e r i s n o t a c c e p t e d b y t h e s e r v e r " ; b r e a k ;
c a s e 1 0 0 0 7 : e = " R e q u e s t c a n c e l e d b y t r a d e r " ; b r e a k ;
c a s e 1 0 0 1 0 : e = " O n l y p a r t o f t h e r e q u e s t w a s c o m p l e t e d " ; b r e a k ;
c a s e 1 0 0 1 1 : e = " R e q u e s t p r o c e s s i n g e r r o r " ; b r e a k ;
c a s e 1 0 0 1 2 : e = " R e q u e s t c a n c e l e d b y t i m e o u t " ; b r e a k ;
c a s e 1 0 0 1 3 : e = " I n v a l i d r e q u e s t " ; b r e a k ;
c a s e 1 0 0 1 4 : e = " I n v a l i d v o l u m e " ; b r e a k ;
c a s e 1 0 0 1 5 : e = " I n v a l i d p r i c e " ; b r e a k ;
c a s e 1 0 0 1 6 : e = " I n v a l i d S L o r T P " ; b r e a k ;
c a s e 1 0 0 1 7 : e = " T r a d i n g i s d i s a b l e d " ; b r e a k ;
c a s e 1 0 0 1 8 : e = " M a r k e t i s c l o s e d " ; b r e a k ;
c a s e 1 0 0 1 9 : e = " N o t e n o u g h m o n e y t o t r a d e " ; b r e a k ;
c a s e 1 0 0 2 0 : e = " P r i c e s c h a n g e d " ; b r e a k ;
c a s e 1 0 0 2 1 : e = " T h e r e a r e n o q u o t e s t o p r o c e s s t h e r e q u e s t " ; b r e a k ;
c a s e 1 0 0 2 2 : e = " I n v a l i d e x p i r a t i o n d a t e i n t h e o r d e r r e q u e s t " ; b r e a k ;
c a s e 1 0 0 2 3 : e = " O r d e r s t a t e c h a n g e d " ; b r e a k ;
c a s e 1 0 0 2 4 : e = " T o o f r e q u e n t r e q u e s t s " ; b r e a k ;
c a s e 1 0 0 2 5 : e = " N o c h a n g e s i n r e q u e s t " ; b r e a k ;
c a s e 1 0 0 2 6 : e = " A u t o t r a d i n g i s d i s a b l e d b y t h e s e r v e r " ; b r e a k ;
c a s e 1 0 0 2 7 : e = " A u t o t r a d i n g i s d i s a b l e d b y t h e c l i e n t t e r m i n a l " ; b r e a k ;
c a s e 1 0 0 2 8 : e = " R e q u e s t l o c k e d f o r p r o c e s s i n g " ; b r e a k ;
c a s e 1 0 0 2 9 : e = " O r d e r o r t r a d e f r o z e n " ; b r e a k ;
c a s e 1 0 0 3 0 : e = " I n v a l i d o r d e r f i l l i n g t y p e " ; b r e a k ;
c a s e 1 0 0 3 1 : e = " N o c o n n e c t i o n w i t h t h e t r a d e s e r v e r " ; b r e a k ;
c a s e 1 0 0 3 2 : e = " O p e r a t i o n i s a l l o w e d o n l y f o r l i v e a c c o u n t s " ; b r e a k ;
c a s e 1 0 0 3 3 : e = " T h e n u m b e r o f p e n d i n g o r d e r s h a s r e a c h e d t h e l i m i t " ; b r e a k ;
c a s e 1 0 0 3 4 : e = " T h e v o l u m e o f o r d e r s a n d t r a d e s f o r t h e s y m b o l h a s r e a c h e d t h e l i m i t " ; b r e a k ;
c a s e 1 0 0 3 5 : e = " I n c o r r e c t o r p r o h i b i t e d o r d e r t y p e " ; b r e a k ;
c a s e 1 0 0 3 6 : e = " P o s i t i o n w i t h t h e s p e c i f i e d P O S I T I O N _ I D E N T I F I E R h a s a l r e a d y b e e n c l o s e d " ; b r e a k ;
c a s e 1 0 0 3 8 : e = " A c l o s e v o l u m e e x c e e d s t h e c u r r e n t p o s i t i o n v o l u m e " ; b r e a k ;
c a s e 1 0 0 3 9 : e = " A c l o s e o r d e r a l r e a d y e x i s t s f o r a s p e c i f i e d p o s i t i o n " ; b r e a k ;
/ / - - U s e r - D e f i n e d E r r o r s
c a s e 6 5 5 3 6 : e = " U s e r d e f i n e d e r r o r s " ; b r e a k ;
d e f a u l t : e = " U n k n o w n e r r o r " ;
}
S t r i n g C o n c a t e n a t e ( e , e , " ( " , e r r o r _ c o d e , " ) " ) ;
r e t u r n e ;
}
d a t e t i m e E x p i r a t i o n T i m e ( s t r i n g m o d e = " G T C " , i n t d a y s = 0 , i n t h o u r s = 0 , i n t m i n u t e s = 0 , d a t e t i m e c u s t o m = 0 )
{
d a t e t i m e n o w = T i m e C u r r e n t ( ) ;
d a t e t i m e e x p i r a t i o n = n o w ;
i f ( m o d e = = " G T C " | | m o d e = = " " ) { e x p i r a t i o n = 0 ; }
e l s e i f ( m o d e = = " t o d a y " ) { e x p i r a t i o n = ( d a t e t i m e ) ( M a t h F l o o r ( ( n o w + 8 6 4 0 0 . 0 ) / 8 6 4 0 0 . 0 ) * 8 6 4 0 0 . 0 ) ; }
e l s e i f ( m o d e = = " s p e c i f i e d " )
{
e x p i r a t i o n = 0 ;
i f ( ( d a y s + h o u r s + m i n u t e s ) > 0 )
{
e x p i r a t i o n = n o w + ( 8 6 4 0 0 * d a y s ) + ( 3 6 0 0 * h o u r s ) + ( 6 0 * m i n u t e s ) ;
}
}
e l s e
{
i f ( c u s t o m < = n o w )
{
i f ( c u s t o m < 3 1 5 5 7 6 0 0 )
{
c u s t o m = n o w + c u s t o m ;
}
e l s e
{
c u s t o m = 0 ;
}
}
e x p i r a t i o n = c u s t o m ;
}
r e t u r n e x p i r a t i o n ;
}
E N U M _ O R D E R _ T Y P E _ T I M E E x p i r a t i o n T y p e B y T i m e ( s t r i n g s y m b o l , d a t e t i m e e x p i r a t i o n )
{
d a t e t i m e n o w = T i m e C u r r e n t ( ) ;
E N U M _ O R D E R _ T Y P E _ T I M E t y p e _ t i m e = O R D E R _ T I M E _ G T C ;
/ / D e t e c t T y p e T i m e
i f ( e x p i r a t i o n = = 0 | | e x p i r a t i o n < = n o w )
{
t y p e _ t i m e = O R D E R _ T I M E _ G T C ;
}
e l s e i f ( e x p i r a t i o n = = ( d a t e t i m e ) ( M a t h F l o o r ( ( n o w + 8 6 4 0 0 . 0 ) / 8 6 4 0 0 . 0 ) * 8 6 4 0 0 . 0 ) )
{
t y p e _ t i m e = O R D E R _ T I M E _ D A Y ;
}
e l s e
{
t y p e _ t i m e = O R D E R _ T I M E _ S P E C I F I E D ;
}
/ / W h a t i f c e r t a i n T y p e T i m e i s n o t a l l o w e d ?
i f ( t y p e _ t i m e = = O R D E R _ T I M E _ G T C & & ! I s E x p i r a t i o n T y p e A l l o w e d ( s y m b o l , S Y M B O L _ E X P I R A T I O N _ G T C ) )
{
t y p e _ t i m e = O R D E R _ T I M E _ D A Y ;
}
i f ( t y p e _ t i m e = = O R D E R _ T I M E _ D A Y & & ! I s E x p i r a t i o n T y p e A l l o w e d ( s y m b o l , S Y M B O L _ E X P I R A T I O N _ D A Y ) )
{
t y p e _ t i m e = O R D E R _ T I M E _ S P E C I F I E D ;
}
/ / R e t u r n T y p e T i m e
r e t u r n t y p e _ t i m e ;
}
c l a s s E x p i r a t i o n W o r k e r
{
p r i v a t e :
s t r u c t C a c h e d I t e m s
{
l o n g t i c k e t ;
d a t e t i m e e x p i r a t i o n ;
} ;
C a c h e d I t e m s c a c h e d I t e m s [ ] ;
l o n g c h a r t I D ;
s t r i n g c h a r t O b j e c t P r e f i x ;
s t r i n g c h a r t O b j e c t S u f f i x ;
t e m p l a t e < t y p e n a m e T >
v o i d A r r a y C l o n e ( T & d e s t [ ] , T & s r c [ ] )
{
i n t s i z e = A r r a y S i z e ( s r c ) ;
A r r a y R e s i z e ( d e s t , s i z e ) ;
f o r ( i n t i = 0 ; i < s i z e ; i + + )
{
d e s t [ i ] = s r c [ i ] ;
}
}
v o i d I n i t i a l D i s c o v e r y ( )
{
A r r a y R e s i z e ( c a c h e d I t e m s , 0 ) ;
i n t t o t a l = P o s i t i o n s T o t a l ( ) ;
f o r ( i n t i n d e x = 0 ; i n d e x < = t o t a l ; i n d e x + + )
{
l o n g t i c k e t = G e t T i c k e t B y I n d e x ( i n d e x ) ;
i f ( t i c k e t = = 0 ) c o n t i n u e ;
d a t e t i m e e x p i r a t i o n = G e t E x p i r a t i o n F r o m O b j e c t ( t i c k e t ) ;
i f ( e x p i r a t i o n > 0 )
{
S e t E x p i r a t i o n I n C a c h e ( t i c k e t , e x p i r a t i o n ) ;
}
}
}
l o n g G e t T i c k e t B y I n d e x ( i n t i n d e x )
{
r e t u r n ( l o n g ) P o s i t i o n G e t T i c k e t ( i n d e x ) ;
}
d a t e t i m e G e t E x p i r a t i o n F r o m O b j e c t ( l o n g t i c k e t )
{
d a t e t i m e e x p i r a t i o n = ( d a t e t i m e ) 0 ;
s t r i n g o b j e c t N a m e = c h a r t O b j e c t P r e f i x + I n t e g e r T o S t r i n g ( t i c k e t ) + c h a r t O b j e c t S u f f i x ;
i f ( O b j e c t F i n d ( c h a r t I D , o b j e c t N a m e ) = = c h a r t I D )
{
e x p i r a t i o n = ( d a t e t i m e ) O b j e c t G e t I n t e g e r ( c h a r t I D , o b j e c t N a m e , O B J P R O P _ T I M E ) ;
}
r e t u r n e x p i r a t i o n ;
}
b o o l R e m o v e E x p i r a t i o n O b j e c t ( l o n g t i c k e t )
{
b o o l s u c c e s s = f a l s e ;
s t r i n g o b j e c t N a m e = " " ;
o b j e c t N a m e = c h a r t O b j e c t P r e f i x + I n t e g e r T o S t r i n g ( t i c k e t ) + c h a r t O b j e c t S u f f i x ;
s u c c e s s = O b j e c t D e l e t e ( c h a r t I D , o b j e c t N a m e ) ;
r e t u r n s u c c e s s ;
}
v o i d R e m o v e E x p i r a t i o n F r o m C a c h e ( l o n g t i c k e t )
{
i n t s i z e = A r r a y S i z e ( c a c h e d I t e m s ) ;
C a c h e d I t e m s n e w I t e m s [ ] ;
i n t n e w S i z e = 0 ;
b o o l i t e m R e m o v e d = f a l s e ;
f o r ( i n t i = 0 ; i < s i z e ; i + + )
{
i f ( c a c h e d I t e m s [ i ] . t i c k e t = = t i c k e t )
{
i t e m R e m o v e d = t r u e ;
}
e l s e
{
n e w S i z e + + ;
A r r a y R e s i z e ( n e w I t e m s , n e w S i z e ) ;
n e w I t e m s [ n e w S i z e - 1 ] . t i c k e t = c a c h e d I t e m s [ i ] . t i c k e t ;
n e w I t e m s [ n e w S i z e - 1 ] . e x p i r a t i o n = c a c h e d I t e m s [ i ] . e x p i r a t i o n ;
}
}
i f ( i t e m R e m o v e d ) A r r a y C l o n e ( c a c h e d I t e m s , n e w I t e m s ) ;
}
v o i d S e t E x p i r a t i o n I n C a c h e ( l o n g t i c k e t , d a t e t i m e e x p i r a t i o n )
{
b o o l a l r e a d y E x i s t s = f a l s e ;
i n t s i z e = A r r a y S i z e ( c a c h e d I t e m s ) ;
f o r ( i n t i = 0 ; i < s i z e ; i + + )
{
i f ( c a c h e d I t e m s [ i ] . t i c k e t = = t i c k e t )
{
c a c h e d I t e m s [ i ] . e x p i r a t i o n = e x p i r a t i o n ;
a l r e a d y E x i s t s = t r u e ;
b r e a k ;
}
}
i f ( a l r e a d y E x i s t s = = f a l s e )
{
A r r a y R e s i z e ( c a c h e d I t e m s , s i z e + 1 ) ;
c a c h e d I t e m s [ s i z e ] . t i c k e t = t i c k e t ;
c a c h e d I t e m s [ s i z e ] . e x p i r a t i o n = e x p i r a t i o n ;
}
}
b o o l S e t E x p i r a t i o n I n O b j e c t ( l o n g t i c k e t , d a t e t i m e e x p i r a t i o n )
{
i f ( ! P o s i t i o n S e l e c t B y T i c k e t ( t i c k e t ) ) r e t u r n f a l s e ;
s t r i n g o b j e c t N a m e = c h a r t O b j e c t P r e f i x + I n t e g e r T o S t r i n g ( t i c k e t ) + c h a r t O b j e c t S u f f i x ;
d o u b l e p r i c e = O r d e r O p e n P r i c e ( ) ;
i f ( O b j e c t F i n d ( c h a r t I D , o b j e c t N a m e ) = = c h a r t I D )
{
O b j e c t S e t I n t e g e r ( c h a r t I D , o b j e c t N a m e , O B J P R O P _ T I M E , e x p i r a t i o n ) ;
O b j e c t S e t D o u b l e ( c h a r t I D , o b j e c t N a m e , O B J P R O P _ P R I C E , p r i c e ) ;
}
e l s e
{
O b j e c t C r e a t e ( c h a r t I D , o b j e c t N a m e , O B J _ A R R O W , 0 , e x p i r a t i o n , p r i c e ) ;
}
O b j e c t S e t I n t e g e r ( c h a r t I D , o b j e c t N a m e , O B J P R O P _ A R R O W C O D E , 7 7 ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , o b j e c t 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 ( c h a r t I D , o b j e c t N a m e , O B J P R O P _ A N C H O R , A N C H O R _ T O P ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , o b j e c t N a m e , O B J P R O P _ C O L O R , c l r R e d ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , o b j e c t N a m e , O B J P R O P _ S E L E C T A B L E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , o b j e c t N a m e , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S ) ;
O b j e c t S e t S t r i n g ( c h a r t I D , o b j e c t N a m e , O B J P R O P _ T E X T , T i m e T o S t r i n g ( e x p i r a t i o n ) ) ;
r e t u r n t r u e ;
}
b o o l T r a d e E x i s t s ( l o n g t i c k e t )
{
b o o l e x i s t s = f a l s e ;
f o r ( i n t i = 0 ; i < P o s i t i o n s T o t a l ( ) ; i + + )
{
l o n g p o s i t i o n T i c k e t = ( l o n g ) P o s i t i o n G e t T i c k e t ( i ) ;
i f ( ! p o s i t i o n T i c k e t ) c o n t i n u e ;
i f ( p o s i t i o n T i c k e t = = t i c k e t )
{
e x i s t s = t r u e ;
b r e a k ;
}
}
r e t u r n e x i s t s ;
}
p u b l i c :
/ / D e f a u l t c o n s t r u c t o r
E x p i r a t i o n W o r k e r ( )
{
c h a r t I D = 0 ;
c h a r t O b j e c t P r e f i x = " # " ;
c h a r t O b j e c t S u f f i x = " E x p i r a t i o n M a r k e r " ;
I n i t i a l D i s c o v e r y ( ) ;
}
v o i d S e t E x p i r a t i o n ( l o n g t i c k e t , d a t e t i m e e x p i r a t i o n )
{
i f ( e x p i r a t i o n < = 0 )
{
R e m o v e E x p i r a t i o n ( t i c k e t ) ;
}
e l s e
{
S e t E x p i r a t i o n I n O b j e c t ( t i c k e t , e x p i r a t i o n ) ;
S e t E x p i r a t i o n I n C a c h e ( t i c k e t , e x p i r a t i o n ) ;
}
}
d a t e t i m e G e t E x p i r a t i o n ( l o n g t i c k e t )
{
d a t e t i m e e x p i r a t i o n = ( d a t e t i m e ) 0 ;
i n t s i z e = A r r a y S i z e ( c a c h e d I t e m s ) ;
f o r ( i n t i = 0 ; i < s i z e ; i + + )
{
i f ( c a c h e d I t e m s [ i ] . t i c k e t = = t i c k e t )
{
e x p i r a t i o n = c a c h e d I t e m s [ i ] . e x p i r a t i o n ;
b r e a k ;
}
}
r e t u r n e x p i r a t i o n ;
}
v o i d R e m o v e E x p i r a t i o n ( l o n g t i c k e t )
{
R e m o v e E x p i r a t i o n O b j e c t ( t i c k e t ) ;
R e m o v e E x p i r a t i o n F r o m C a c h e ( t i c k e t ) ;
}
v o i d R u n ( )
{
i n t c o u n t = A r r a y S i z e ( c a c h e d I t e m s ) ;
i f ( c o u n t > 0 )
{
d a t e t i m e t i m e N o w = T i m e C u r r e n t ( ) ;
f o r ( i n t i = 0 ; i < c o u n t ; i + + )
{
i f ( t i m e N o w > = c a c h e d I t e m s [ i ] . e x p i r a t i o n )
{
l o n g t i c k e t = c a c h e d I t e m s [ i ] . t i c k e t ;
b o o l r e m o v e E x p i r a t i o n = f a l s e ;
i f ( T r a d e E x i s t s ( t i c k e t ) )
{
i f ( C l o s e T r a d e ( t i c k e t ) )
{
P r i n t ( " c l o s e # " , t i c k e t , " b y e x p i r a t i o n " ) ;
r e m o v e E x p i r a t i o n = t r u e ;
}
}
e l s e
{
r e m o v e E x p i r a t i o n = t r u e ;
}
i f ( r e m o v e E x p i r a t i o n )
{
R e m o v e E x p i r a t i o n ( t i c k e t ) ;
/ / R e m o v i n g e x p i r a t i o n c a u s e s c h a n g e i n t h e s i z e o f t h e c a c h e ,
/ / s o r e s e t o f t h e s i z e a n d o n e s t e p b a c k o f t h e i n d e x i s n e e d e d
c o u n t = A r r a y S i z e ( c a c h e d I t e m s ) ;
i - - ;
}
}
}
}
}
} ;
E x p i r a t i o n W o r k e r e x p i r a t i o n W o r k e r ;
b o o l F i l t e r O r d e r B y (
s t r i n g g r o u p _ m o d e = " a l l " ,
s t r i n g g r o u p = " 0 " ,
s t r i n g m a r k e t _ m o d e = " a l l " ,
s t r i n g m a r k e t = " " ,
s t r i n g B u y s O r S e l l s = " b o t h " ,
s t r i n g L i m i t s O r S t o p s = " " ,
i n t u n u s e d = 0 , / / f o r M Q L 4 c o m p a t i b i l i t y
b o o l o n T r a d e = f a l s e
) {
/ / - - d b
s t a t i c s t r i n g m a r k e t s [ ] ;
s t a t i c s t r i n g m a r k e t 0 = " - " ;
s t a t i c i n t m a r k e t s _ s i z e = 0 ;
s t a t i c s t r i n g g r o u p s [ ] ;
s t a t i c s t r i n g g r o u p 0 = " - " ;
s t a t i c i n t g r o u p s _ s i z e = 0 ;
/ / - - l o c a l v a r i a b l e s
b o o l t y p e _ p a s s = f a l s e ;
b o o l m a r k e t _ p a s s = f a l s e ;
b o o l g r o u p _ p a s s = f a l s e ;
i n t i ;
l o n g t y p e ;
u l o n g m a g i c _ n u m b e r ;
s t r i n g s y m b o l ;
/ / T r a d e s
i f ( o n T r a d e = = f a l s e )
{
t y p e = O r d e r T y p e ( ) ;
m a g i c _ n u m b e r = O r d e r M a g i c N u m b e r ( ) ;
s y m b o l = O r d e r S y m b o l ( ) ;
}
e l s e
{
t y p e = e _ a t t r T y p e ( ) ;
m a g i c _ n u m b e r = e _ a t t r M a g i c N u m b e r ( ) ;
s y m b o l = e _ a t t r S y m b o l ( ) ;
}
/ / T r a d e s & & H i s t o r y t r a d e s
i f ( L i m i t s O r S t o p s = = " " )
{
i f (
( B u y s O r S e l l s = = " b o t h " & & ( t y p e = = O R D E R _ T Y P E _ B U Y | | t y p e = = O R D E R _ T Y P E _ S E L L ) )
| | ( B u y s O r S e l l s = = " b u y s " & & t y p e = = O R D E R _ T Y P E _ B U Y )
| | ( B u y s O r S e l l s = = " s e l l s " & & t y p e = = O R D E R _ T Y P E _ S E L L )
)
{
t y p e _ p a s s = t r u e ;
}
}
/ / P e n d i n g o r d e r s
e l s e
{
i f (
( B u y s O r S e l l s = = " b o t h " & & ( t y p e = = O R D E R _ T Y P E _ B U Y _ L I M I T | | t y p e = = O R D E R _ T Y P E _ B U Y _ S T O P | | t y p e = = O R D E R _ T Y P E _ S E L L _ L I M I T | | t y p e = = O R D E R _ T Y P E _ S E L L _ S T O P ) )
| | ( B u y s O r S e l l s = = " b u y s " & & ( t y p e = = O R D E R _ T Y P E _ B U Y _ L I M I T | | t y p e = = O R D E R _ T Y P E _ B U Y _ S T O P ) )
| | ( B u y s O r S e l l s = = " s e l l s " & & ( t y p e = = O R D E R _ T Y P E _ S E L L _ L I M I T | | t y p e = = O R D E R _ T Y P E _ S E L L _ S T O P ) )
)
{
i f (
( L i m i t s O r S t o p s = = " b o t h " & & ( t y p e = = O R D E R _ T Y P E _ B U Y _ S T O P | | t y p e = = O R D E R _ T Y P E _ S E L L _ S T O P | | t y p e = = O R D E R _ T Y P E _ B U Y _ L I M I T | | t y p e = = O R D E R _ T Y P E _ S E L L _ L I M I T ) )
| | ( L i m i t s O r S t o p s = = " s t o p s " & & ( t y p e = = O R D E R _ T Y P E _ B U Y _ S T O P | | t y p e = = O R D E R _ T Y P E _ S E L L _ S T O P ) )
| | ( L i m i t s O r S t o p s = = " l i m i t s " & & ( t y p e = = O R D E R _ T Y P E _ B U Y _ L I M I T | | t y p e = = O R D E R _ T Y P E _ S E L L _ L I M I T ) )
)
{
t y p e _ p a s s = t r u e ;
}
}
}
i f ( t y p e _ p a s s = = f a l s e ) { r e t u r n f a l s e ; }
/ / - - c h e c k g r o u p
i f ( g r o u p _ m o d e = = " g r o u p " )
{
i f ( g r o u p = = " " )
{
i f ( m a g i c _ n u m b e r = = M a g i c S t a r t )
{
g r o u p _ p a s s = t r u e ;
}
}
e l s e
{
i f ( g r o u p 0 ! = g r o u p )
{
g r o u p 0 = g r o u p ;
S t r i n g E x p l o d e ( " , " , g r o u p , g r o u p s ) ;
g r o u p s _ s i z e = A r r a y S i z e ( g r o u p s ) ;
f o r ( i = 0 ; i < g r o u p s _ s i z e ; i + + )
{
g r o u p s [ i ] = S t r i n g T r i m ( g r o u p s [ i ] ) ;
i f ( g r o u p s [ i ] = = " " )
{
g r o u p s [ i ] = " 0 " ;
}
}
}
f o r ( i = 0 ; i < g r o u p s _ s i z e ; i + + )
{
i f ( m a g i c _ n u m b e r = = ( M a g i c S t a r t + ( i n t ) g r o u p s [ i ] ) )
{
g r o u p _ p a s s = t r u e ;
b r e a k ;
}
}
}
}
e l s e i f ( g r o u p _ m o d e = = " a l l " | | ( g r o u p _ m o d e = = " m a n u a l " & & m a g i c _ n u m b e r = = 0 ) )
{
g r o u p _ p a s s = t r u e ;
}
i f ( g r o u p _ p a s s = = f a l s e ) { r e t u r n f a l s e ; }
/ / c h e c k m a r k e t
i f ( m a r k e t _ m o d e = = " a l l " )
{
m a r k e t _ p a s s = t r u e ;
}
e l s e
{
i f ( s y m b o l = = m a r k e t )
{
m a r k e t _ p a s s = t r u e ;
}
e l s e
{
i f ( m a r k e t 0 ! = m a r k e t )
{
m a r k e t 0 = m a r k e t ;
i f ( m a r k e t = = " " )
{
m a r k e t s _ s i z e = 1 ;
A r r a y R e s i z e ( m a r k e t s , 1 ) ;
m a r k e t s [ 0 ] = S y m b o l ( ) ;
}
e l s e
{
S t r i n g E x p l o d e ( " , " , m a r k e t , m a r k e t s ) ;
m a r k e t s _ s i z e = A r r a y S i z e ( m a r k e t s ) ;
f o r ( i = 0 ; i < m a r k e t s _ s i z e ; i + + )
{
m a r k e t s [ i ] = S t r i n g T r i m ( m a r k e t s [ i ] ) ;
i f ( m a r k e t s [ i ] = = " " )
{
m a r k e t s [ i ] = S y m b o l ( ) ;
}
}
}
}
f o r ( i = 0 ; i < m a r k e t s _ s i z e ; i + + )
{
i f ( s y m b o l = = m a r k e t s [ i ] )
{
m a r k e t _ p a s s = t r u e ;
b r e a k ;
}
}
}
}
i f ( m a r k e t _ p a s s = = f a l s e ) { r e t u r n f a l s e ; }
r e t u r n ( t r u e ) ;
}
v o i d G e t B e t T r a d e s I n f o (
d o u b l e & o u t p u t [ ] ,
s t r i n g g r o u p ,
s t r i n g s y m b o l ,
i n t p o o l , / / 0 : t r y r u n n i n g t r a d e s f i r s t a n d t h e n h i s t o r y t r a d e s , 1 : t r y r u n n i n g o n l y , 2 : t r y h i s t o r y o n l y
b o o l f i n d C o n s e c u t i v e = f a l s e
) {
i f ( A r r a y S i z e ( o u t p u t ) < 4 )
{
A r r a y R e s i z e ( o u t p u t , 4 ) ;
A r r a y I n i t i a l i z e ( o u t p u t , 0 . 0 ) ;
}
d o u b l e l o t s = o u t p u t [ 0 ] ; / / w i l l b e t h e l o t s i z e o f t h e f i r s t l o a d e d t r a d e
d o u b l e p r o f i t O r L o s s = o u t p u t [ 1 ] ; / / 0 i s i n i t i a l v a l u e , 1 i s p r o f i t , - 1 i s l o s s
d o u b l e c o n s e c u t i v e = o u t p u t [ 2 ] ; / / t h e n u m b e r o f c o n s e c u t i v e p r o f i t a b l e o r l o s a b l e t r a d e s
d o u b l e p r o f i t = o u t p u t [ 3 ] ; / / w i l l b e t h e p r o f i t o f t h e f i r s t l o a d e d t r a d e
b o o l h i s t o r y T r a d e s = ( p o o l = = 2 ) ? t r u e : f a l s e ;
i n t t o t a l = ( h i s t o r y T r a d e s ) ? H i s t o r y T r a d e s T o t a l ( ) : T r a d e s T o t a l ( ) ;
f o r ( i n t p o s = t o t a l - 1 ; p o s > = 0 ; p o s - - )
{
i f (
( ! h i s t o r y T r a d e s & & T r a d e S e l e c t B y I n d e x ( p o s , " g r o u p " , g r o u p , " s y m b o l " , s y m b o l ) )
| | ( h i s t o r y T r a d e s & & H i s t o r y T r a d e S e l e c t B y I n d e x ( p o s , " g r o u p " , g r o u p , " s y m b o l " , s y m b o l ) )
) {
i f (
( T i m e C u r r e n t ( ) - O r d e r O p e n T i m e ( ) < 3 ) / / s k i p f o r b r a n d n e w t r a d e s
| |
(
/ / e x c l u d e e x p i r e d p e n d i n g o r d e r s
! h i s t o r y T r a d e s
& & O r d e r E x p i r a t i o n ( ) > 0
& & O r d e r E x p i r a t i o n ( ) < = O r d e r C l o s e T i m e ( )
)
) {
c o n t i n u e ;
}
i f ( l o t s = = 0 . 0 )
{
l o t s = O r d e r L o t 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 ( ) ;
p r o f i t = N o r m a l i z e D o u b l e ( p r o f i t , S y m b o l D i g i t s ( O r d e r S y m b o l ( ) ) ) ;
i f ( p r o f i t = = 0 . 0 )
{
/ / C o n s i d e r a t r a d e w i t h z e r o p r o f i t a s n o n e x i s t e n t
c o n t i n u e ;
}
i f ( I s O r d e r T y p e S e l l ( ) )
{
p r o f i t = - 1 * p r o f i t ;
}
i f ( p r o f i t O r L o s s = = 0 )
{
/ / W e e n t e r h e r e o n l y f o r t h e f i r s t t r a d e
p r o f i t O r L o s s = ( p r o f i t < 0 . 0 ) ? - 1 : 1 ;
c o n s e c u t i v e + + ;
i f ( f i n d C o n s e c u t i v e = = f a l s e ) b r e a k ;
}
e l s e
{
/ / F o r t h e t r a d e s a f t e r t h e f i r s t o n e , i f i t s p r o f i t i s t h e o p p o s i t e o f p r o f i t O r L o s s , w e n e e d t o b r e a k
i f (
( p r o f i t O r L o s s > 0 . 0 & & p r o f i t < 0 . 0 )
| | ( p r o f i t O r L o s s < 0 . 0 & & p r o f i t > 0 . 0 )
) {
b r e a k ;
}
c o n s e c u t i v e + + ;
}
}
}
o u t p u t [ 0 ] = l o t s ;
o u t p u t [ 1 ] = p r o f i t O r L o s s ;
o u t p u t [ 2 ] = c o n s e c u t i v e ;
o u t p u t [ 3 ] = p r o f i t ;
i f ( p o o l = = 0 & & ( f i n d C o n s e c u t i v e | | p r o f i t O r L o s s = = 0 ) )
{
/ / r u n n i n g t r a d e s t r i e d , c o n t i n u e w i t h t h e h i s t o r y t r a d e s
p o o l = 2 ;
G e t B e t T r a d e s I n f o ( o u t p u t , g r o u p , s y m b o l , p o o l , f i n d C o n s e c u t i v e ) ;
}
}
b o o l H i s t o r y T r a d e S e l e c t B y I n d e x (
i n t i n d e x ,
s t r i n g g r o u p _ m o d e = " a l l " ,
s t r i n g g r o u p = " 0 " ,
s t r i n g m a r k e t _ m o d e = " a l l " ,
s t r i n g m a r k e t = " " ,
s t r i n g B u y s O r S e l l s = " b o t h "
) {
i f ( L o a d H i s t o r y T r a d e ( i n d e x , " s e l e c t _ b y _ p o s " ) & & L o a d e d T y p e ( ) = = 3 )
{
i f ( F i l t e r O r d e r B y (
g r o u p _ m o d e ,
g r o u p ,
m a r k e t _ m o d e ,
m a r k e t ,
B u y s O r S e l l s )
) {
r e t u r n t r u e ;
}
}
r e t u r n f a l s e ;
}
i n t H i s t o r y T r a d e s T o t a l ( d a t e t i m e f r o m _ d a t e = 0 , d a t e t i m e t o _ d a t e = 0 )
{
i f ( t o _ d a t e = = 0 ) { t o _ d a t e = T i m e C u r r e n t ( ) + 1 ; }
H i s t o r y S e l e c t ( f r o m _ d a t e , t o _ d a t e ) ;
S e l e c t e d H i s t o r y F r o m T i m e ( f r o m _ d a t e ) ;
S e l e c t e d H i s t o r y T o T i m e ( t o _ d a t e ) ;
r e t u r n H i s t o r y D e a l s T o t a l ( ) ;
}
v o i d H i s t o r y T r a d e s T o t a l R e s e t ( )
{
i f ( S e l e c t e d H i s t o r y T o T i m e ( ) > 0 | | S e l e c t e d H i s t o r y F r o m T i m e ( ) > 0 ) {
H i s t o r y S e l e c t ( S e l e c t e d H i s t o r y F r o m T i m e ( ) , S e l e c t e d H i s t o r y T o T i m e ( ) ) ;
}
}
t e m p l a t e < t y p e n a m e T >
b o o l I n A r r a y ( T & a r r a y [ ] , T v a l u e )
{
i n t s i z e = A r r a y S i z e ( a r r a y ) ;
i f ( s i z e > 0 )
{
f o r ( i n t i = 0 ; i < s i z e ; i + + )
{
i f ( a r r a y [ i ] = = v a l u e )
{
r e t u r n t r u e ;
}
}
}
r e t u r n f a l s e ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h e c k s i f t h e s p e c i f i e d e x p i r a t i o n m o d e i s a l l o w e d |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l I s E x p i r a t i o n T y p e A l l o w e d ( s t r i n g s y m b o l , i n t e x p _ t y p e )
{
/ / - - - O b t a i n t h e v a l u e o f t h e p r o p e r t y t h a t d e s c r i b e s a l l o w e d e x p i r a t i o n m o d e s
i n t e x p i r a t i o n = ( 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 _ E X P I R A T I O N _ M O D E ) ;
/ / - - - R e t u r n t r u e , i f m o d e e x p _ t y p e i s a l l o w e d
r e t u r n ( ( e x p i r a t i o n & e x p _ t y p e ) = = e x p _ t y p e ) ;
}
b o o l I s F i l l i n g T y p e A l l o w e d ( s t r i n g s y m b o l , i n t f i l l _ t y p e )
{
/ / - - - O b t a i n t h e v a l u e o f t h e p r o p e r t y t h a t d e s c r i b e s a l l o w e d f i l l i n g m o d e s
i n t f i l l i n g = ( 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 _ F I L L I N G _ M O D E ) ;
/ / - - - R e t u r n t r u e , i f m o d e f i l l _ t y p e i s a l l o w e d
r e t u r n ( ( f i l l i n g & f i l l _ t y p e ) = = f i l l _ t y p e ) ;
}
b o o l I s O r d e r T y p e S e l l ( )
{
i n t l o a d e d T y p e = L o a d e d T y p e ( ) ;
i f ( l o a d e d T y p e = = 1 )
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ S E L L )
{
r e t u r n t r u e ;
}
}
e l s e i f ( l o a d e d T y p e = = 3 )
{
r e t u r n ( O r d e r T y p e ( ) = = O R D E R _ T Y P E _ S E L L ) ;
}
e l s e i f ( l o a d e d T y p e = = 4 )
{
i f (
H i s t o r y O r d e r G e t I n t e g e r ( O r d e r T i c k e t ( ) , O R D E R _ T Y P E ) = = O R D E R _ T Y P E _ S E L L _ L I M I T
| | H i s t o r y O r d e r G e t I n t e g e r ( O r d e r T i c k e t ( ) , O R D E R _ T Y P E ) = = O R D E R _ T Y P E _ S E L L _ S T O P
) {
r e t u r n t r u e ;
}
}
e l s e i f (
O r d e r G e t I n t e g e r ( O R D E R _ T Y P E ) = = O R D E R _ T Y P E _ S E L L _ L I M I T
| | O r d e r G e t I n t e g e r ( O R D E R _ T Y P E ) = = O R D E R _ T Y P E _ S E L L _ S T O P
) {
r e t u r n t r u e ;
}
r e t u r n f a l s e ;
}
b o o l L o a d H i s t o r y T r a d e ( i n t i n d e x , s t r i n g s e l e c t b y = " s e l e c t _ b y _ p o s " )
{
i f ( s e l e c t b y = = " s e l e c t _ b y _ p o s " )
{
u l o n g t i c k e t = H i s t o r y D e a l G e t T i c k e t ( i n d e x ) ;
i f ( t i c k e t > 0 )
{
i f (
/ / H i s t o r y D e a l S e l e c t ( t i c k e t ) - c o m m e n t e d , b e c a u s e i t b r e a k s H i s t o r y S e l e c t ( )
H i s t o r y D e a l G e t I n t e g e r ( t i c k e t , D E A L _ T Y P E ) < 2
& & ( E N U M _ D E A L _ E N T R Y ) H i s t o r y D e a l G e t I n t e g e r ( t i c k e t , D E A L _ E N T R Y ) = = D E A L _ E N T R Y _ O U T
)
{
O r d e r T i c k e t ( t i c k e t ) ;
L o a d e d T y p e ( 3 ) ;
r e t u r n t r u e ;
}
}
}
i f ( s e l e c t b y = = " s e l e c t _ b y _ t i c k e t " )
{
i f ( H i s t o r y D e a l S e l e c t ( i n d e x ) )
{
O r d e r T i c k e t ( i n d e x ) ;
i f ( H i s t o r y D e a l G e t I n t e g e r ( i n d e x , D E A L _ T Y P E ) < 2 )
{
L o a d e d T y p e ( 3 ) ;
r e t u r n t r u e ;
}
}
}
r e t u r n f a l s e ;
}
b o o l L o a d P e n d i n g O r d e r ( l o n g t i c k e t )
{
b o o l s u c c e s s = f a l s e ;
i f ( O r d e r S e l e c t ( t i c k e t ) )
{
/ / T h e o r d e r c o u l d b e f r o m a n y t y p e , s o c h e c k t h e t y p e
/ / a n d a l l o w o n l y t r u e p e n d i n g o r d e r s .
E N U M _ O R D E R _ T Y P E t y p e = ( E N U M _ O R D E R _ T Y P E ) O r d e r G e t I n t e g e r ( O R D E R _ T Y P E ) ;
i f (
t y p e = = O R D E R _ T Y P E _ B U Y _ L I M I T
| | t y p e = = O R D E R _ T Y P E _ S E L L _ L I M I T
| | t y p e = = O R D E R _ T Y P E _ B U Y _ S T O P
| | t y p e = = O R D E R _ T Y P E _ S E L L _ S T O P
) {
L o a d e d T y p e ( 2 ) ;
O r d e r T i c k e t ( t i c k e t ) ;
s u c c e s s = t r u e ;
}
}
r e t u r n s u c c e s s ;
}
b o o l L o a d P o s i t i o n ( u l o n g t i c k e t )
{
b o o l s u c c e s s = P o s i t i o n S e l e c t B y T i c k e t ( t i c k e t ) ;
i f ( s u c c e s s ) {
L o a d e d T y p e ( 1 ) ;
O r d e r T i c k e t ( t i c k e t ) ;
}
r e t u r n s u c c e s s ;
}
i n t L o a d e d T y p e ( i n t t y p e = 0 )
{
/ / 1 - p o s i t i o n
/ / 2 - p e n d i n g o r d e r
/ / 3 - h i s t o r y p o s i t i o n
/ / 4 - h i s t o r y p e n d i n g o r d e r
s t a t i c i n t m e m o r y ;
i f ( t y p e > 0 ) { m e m o r y = t y p e ; }
r e t u r n m e m o r y ;
}
b o o l M o d i f y O r d e r (
l o n g t i c k e t ,
d o u b l e o p ,
d o u b l e s l l = 0 ,
d o u b l e t p l = 0 ,
d o u b l e s l p = 0 ,
d o u b l e t p p = 0 ,
d a t e t i m e e x p = 0 ,
c o l o r c l r = c l r N O N E
) {
i n t b s = 1 ;
i f ( L o a d e d T y p e ( ) = = 1 )
{
i f ( O r d e r T y p e ( ) = = P O S I T I O N _ T Y P E _ S E L L )
{ b s = - 1 ; } / / P o s i t i v e w h e n B u y , n e g a t i v e w h e n S e l l
}
e l s e
{
i f (
O r d e r T y p e ( ) = = O R D E R _ T Y P E _ S E L L
| | O r d e r T y p e ( ) = = O R D E R _ T Y P E _ S E L L _ S T O P
| | O r d e r T y p e ( ) = = O R D E R _ T Y P E _ S E L L _ L I M I T
)
{ b s = - 1 ; } / / P o s i t i v e w h e n B u y , n e g a t i v e w h e n S e l l
}
w h i l e ( t r u e )
{
u i n t t i m e 0 = G e t T i c k C o u n t ( ) ;
i f ( L o a d e d T y p e ( ) = = 1 )
{
i f ( ! P o s i t i o n S e l e c t B y T i c k e t ( t i c k e t ) ) { r e t u r n f a l s e ; }
}
e l s e
{
i f ( ! O r d e r S e l e c t ( t i c k e t ) ) { r e t u r n f a l s e ; }
}
s t r i n g s y m b o l = O r d e r S y m b o l ( ) ;
i n t t y p e = O r d e r T y p e ( ) ;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m b o l , S Y M B O L _ D I G I T S ) ;
d o u b l e a s k = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) ;
d o u b l e b i d = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ B I D ) ;
d o u b l e p o i n t = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ P O I N T ) ;
d o u b l e s t o p l e v e l = p o 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 ) ;
d o u b l e f r e e z e l e v e l = p o 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 _ F R E E Z E _ L E V E L ) ;
i f ( O r d e r T y p e ( ) < 2 ) { o p = O r d e r O p e n P r i c e ( ) ; } e l s e { o p = N o r m a l i z e D o u b l e ( o p , d i g i t s ) ; }
s l l = N o r m a l i z e D o u b l e ( s l l , d i g i t s ) ;
t p l = N o r m a l i z e D o u b l e ( t p l , d i g i t s ) ;
i f ( o p < 0 | | o p > = E M P T Y _ V A L U E | | s l l < 0 | | s l p < 0 | | t p l < 0 | | t p p < 0 )
{
b r e a k ;
}
/ / - - O P - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / h t t p s : / / b o o k . m q l 4 . c o m / a p p e n d i x / l i m i t s
i f ( t y p e = = O R D E R _ T Y P E _ B U Y _ L I M I T )
{
i f ( a s k - o p < s t o p l e v e l ) { o p = a s k - s t o p l e v e l ; }
i f ( a s k - o p < = f r e e z e l e v e l ) { o p = a s k - f r e e z e l e v e l - p o i n t ; }
}
e l s e i f ( t y p e = = O R D E R _ T Y P E _ B U Y _ S T O P )
{
i f ( o p - a s k < s t o p l e v e l ) { o p = a s k + s t o p l e v e l ; }
i f ( o p - a s k < = f r e e z e l e v e l ) { o p = a s k + f r e e z e l e v e l + p o i n t ; }
}
e l s e i f ( t y p e = = O R D E R _ T Y P E _ S E L L _ L I M I T )
{
i f ( o p - b i d < s t o p l e v e l ) { o p = b i d + s t o p l e v e l ; }
i f ( o p - b i d < = f r e e z e l e v e l ) { o p = b i d + f r e e z e l e v e l + p o i n t ; }
}
e l s e i f ( t y p e = = O R D E R _ T Y P E _ S E L L _ S T O P )
{
i f ( b i d - o p < s t o p l e v e l ) { o p = b i d - s t o p l e v e l ; }
i f ( b i d - o p < f r e e z e l e v e l ) { o p = b i d - f r e e z e l e v e l - p o i n t ; }
}
o p = N o r m a l i z e D o u b l e ( o p , d i g i t s ) ;
/ / - - S L a n d T P - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e s l = 0 , t p = 0 , v s l = 0 , v t p = 0 ;
s l = A l i g n S t o p L o s s ( s y m b o l , t y p e , o p , a t t r S t o p L o s s ( ) , s l l , s l p ) ;
i f ( s l < 0 ) { b r e a k ; }
t p = A l i g n T a k e P r o f i t ( s y m b o l , t y p e , o p , a t t r T a k e P r o f i t ( ) , t p l , t p p ) ;
i f ( t p < 0 ) { b r e a k ; }
i f ( U S E _ V I R T U A L _ S T O P S )
{
/ / - - v i r t u a l S L a n d T P - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
v s l = s l ;
v t p = t p ;
s l = 0 ;
t p = 0 ;
d o u b l e a s k b i d = a s k ;
i f ( b s < 0 ) { a s k b i d = b i d ; }
i f ( v s l > 0 | | U S E _ E M E R G E N C Y _ S T O P S = = " a l w a y s " )
{
i f ( E M E R G E N C Y _ S T O P S _ R E L > 0 | | E M E R G E N C Y _ S T O P S _ A D D > 0 )
{
s l = v s l - E M E R G E N C Y _ S T O P S _ R E L * M a t h A b s ( a s k b i d - v s l ) * b s ;
i f ( s l < = 0 ) { s l = a s k b i d ; }
s l = s l - t o D i g i t s ( E M E R G E N C Y _ S T O P S _ A D D , s y m b o l ) * b s ;
}
}
i f ( v t p > 0 | | U S E _ E M E R G E N C Y _ S T O P S = = " a l w a y s " )
{
i f ( E M E R G E N C Y _ S T O P S _ R E L > 0 | | E M E R G E N C Y _ S T O P S _ A D D > 0 )
{
t p = v t p + E M E R G E N C Y _ S T O P S _ R E L * M a t h A b s ( v t p - a s k b i d ) * b s ;
i f ( t p < = 0 ) { t p = a s k b i d ; }
t p = t p + t o D i g i t s ( E M E R G E N C Y _ S T O P S _ A D D , s y m b o l ) * b s ;
}
}
v s l = N o r m a l i z e D o u b l e ( v s l , d i g i t s ) ;
v t p = N o r m a l i z e D o u b l e ( v t p , d i g i t s ) ;
}
s l = N o r m a l i z e D o u b l e ( s l , d i g i t s ) ;
t p = N o r m a l i z e D o u b l e ( t p , d i g i t s ) ;
/ / - - m o d i f y - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
R e s e t L a s t E r r o r ( ) ;
i f ( U S E _ V I R T U A L _ S T O P S )
{
i f ( v s l ! = a t t r S t o p L o s s ( ) | | v t p ! = a t t r T a k e P r o f i t ( ) )
{
V i r t u a l S t o p s D r i v e r ( " s e t " , t i c k e t , v s l , v t p , t o P i p s ( M a t h A b s ( o p - v s l ) , s y m b o l ) , t o P i p s ( M a t h A b s ( v t p - o p ) , s y m b o l ) ) ;
}
}
b o o l s u c c e s s = f a l s e ;
/ / c h e c k i f n e e d e d t o m o d i f y
i f ( L o a d e d T y p e ( ) = = 1 )
{
i f (
s l = = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ S L ) , d i g i t s )
& & t p = = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) , d i g i t s )
& & e x p = = O r d e r E x p i r a t i o n T i m e ( )
) {
r e t u r n t r u e ;
}
}
e l s e
{
i f (
o p = = N o r m a l i z e D o u b l e ( O r d e r G e t D o u b l e ( O R D E R _ P R I C E _ O P E N ) , d i g i t s )
& & s l = = N o r m a l i z e D o u b l e ( O r d e r G e t D o u b l e ( O R D E R _ S L ) , d i g i t s )
& & t p = = N o r m a l i z e D o u b l e ( O r d e r G e t D o u b l e ( O R D E R _ T P ) , d i g i t s )
) {
r e t u r n t r u e ;
}
}
/ / p r e p a r e t o m o d i f y
M q l T r a d e R e q u e s t r e q u e s t ;
M q l T r a d e R e s u l t r e s u l t ;
M q l T r a d e C h e c k R e s u l t c h e c k _ r e s u l t ;
Z e r o M e m o r y ( r e q u e s t ) ;
Z e r o M e m o r y ( r e s u l t ) ;
Z e r o M e m o r y ( c h e c k _ r e s u l t ) ;
/ / m o d i f y
i f ( L o a d e d T y p e ( ) = = 1 )
{
/ / i n c a s e o f p o s i t i o n , o n l y s l a n d t p a r e g o i n g t o b e m o d i f i e d
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ S L T P ;
r e q u e s t . s y m b o l = s y m b o l ;
r e q u e s t . p o s i t i o n = P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I C K E T ) ;
r e q u e s t . m a g i c = P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) ;
r e q u e s t . c o m m e n t = P o s i t i o n G e t S t r i n g ( P O S I T I O N _ C O M M E N T ) ;
}
e l s e
{
/ / i n c a s e o f p e n d i n g o r d e r
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ M O D I F Y ;
r e q u e s t . o r d e r = t i c k e t ;
r e q u e s t . p r i c e = o p ;
r e q u e s t . v o l u m e = O r d e r G e t D o u b l e ( O R D E R _ V O L U M E _ C U R R E N T ) ;
r e q u e s t . m a g i c = O r d e r G e t I n t e g e r ( O R D E R _ M A G I C ) ;
r e q u e s t . t y p e _ t i m e = E x p i r a t i o n T y p e B y T i m e ( s y m b o l , e x p ) ;
r e q u e s t . e x p i r a t i o n = e x p ;
r e q u e s t . c o m m e n t = O r d e r G e t S t r i n g ( O R D E R _ C O M M E N T ) ;
/ / - - f i l l i n g t y p e
u i n t f i l l i n g = ( u i n t ) S y m b o l I n f o I n t e g e r ( r e q u e s t . s y m b o l , S Y M B O L _ F I L L I N G _ M O D E ) ;
i f ( f i l l i n g = = S Y M B O L _ F I L L I N G _ F O K )
{
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ F O K ;
}
e l s e i f ( f i l l i n g = = S Y M B O L _ F I L L I N G _ I O C )
{
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ I O C ;
}
}
r e q u e s t . s l = s l ;
r e q u e s t . t p = t p ;
i f ( ! O r d e r C h e c k ( r e q u e s t , c h e c k _ r e s u l t ) )
{
P r i n t ( " O r d e r C h e c k ( ) f a i l e d : " + ( s t r i n g ) c h e c k _ r e s u l t . c o m m e n t + " ( " + ( s t r i n g ) c h e c k _ r e s u l t . r e t c o d e + " ) " ) ;
r e t u r n f a l s e ;
}
s u c c e s s = O r d e r S e n d ( r e q u e s t , r e s u l t ) ;
/ / - - e r r o r c h e c k - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( r e s u l t . r e t c o d e ! = T R A D E _ R E T C O D E _ D O N E )
{
s t r i n g e r r m s g p f x = " M o d i f y e r r o r " ;
i n t e r r a c t i o n = C h e c k F o r T r a d i n g E r r o r ( r e s u l t . r e t c o d e , e r r m s g p f x ) ;
s w i t c h ( e r r a c t i o n )
{
c a s e 0 : b r e a k ; / / n o e r r o r
c a s e 1 : c o n t i n u e ; / / o v e r c o m a b l e e r r o r
c a s e 2 : b r e a k ; / / f a t a l e r r o r
}
r e t u r n f a l s e ;
}
/ / - - f i n i s h w o r k - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( r e s u l t . r e t c o d e = = T R A D E _ R E T C O D E _ D O N E )
{
/ / = = W a i t u n t i l M T 5 u p d a t e s i t s c a c h e
i n t w ;
f o r ( w = 0 ; w < 5 0 0 0 ; w + + )
{
i f ( ( ( L o a d e d T y p e ( ) = = 1 & & P o s i t i o n S e l e c t B y T i c k e t ( t i c k e t ) ) | | O r d e r S e l e c t ( t i c k e 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 ( ) , d i g i t s ) & & t p = = 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 ) ) )
{
b r e a k ;
}
S l e e p ( 1 ) ;
}
i f ( w = = 5 0 0 0 )
{
P r i n t ( " C h e c k e r r o r : M o d i f y o r d e r s t o p s " ) ;
}
i f ( ! ( ( L o a d e d T y p e ( ) = = 1 & & P o s i t i o n S e l e c t B y T i c k e t ( t i c k e t ) ) | | O r d e r S e l e c t ( t i c k e 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 ( ) , d i g i t s ) | | t p ! = 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 ( " S o m e t h i n g w e n t w r o n g w h e n t r y i n g t o m o d i f y t h e s t o p s " ) ;
r e t u r n f a l s e ;
}
i f ( ! ( ( L o a d e d T y p e ( ) = = 1 & & P o s i t i o n S e l e c t B y T i c k e t ( t i c k e t ) ) | | O r d e r S e l e c t ( t i c k e t ) ) )
{
r e t u r n f a l s e ;
}
O r d e r M o d i f i e d ( ( i n t ) t i c k e t ) ;
}
b r e a k ;
}
O n T r a d e ( ) ;
r e t u r n t r u e ;
}
i n t O C O D r i v e r ( )
{
s t a t i c l o n g l a s t _ k n o w n _ t i c k e t = 0 ;
s t a t i c l o n g o r d e r s 1 [ ] ;
s t a t i c l o n g o r d e r s 2 [ ] ;
i n t i , s i z e ;
i n t t o t a l = O r d e r s T o t a l ( ) ;
f o r ( i n t p o s = t o t a l - 1 ; p o s > = 0 ; p o s - - )
{
i f ( L o a d P e n d i n g O r d e r ( O r d e r G e t T i c k e t ( p o s ) ) )
{
l o n g t i c k e t = O r d e r T i c k e t ( ) ;
/ / - - e n d h e r e i f w e r e a c h t h e l a s t k n o w n t i c k e t
i f ( t i c k e t = = l a s t _ k n o w n _ t i c k e t ) { b r e a k ; }
/ / - - s e t t h e l a s t k n o w n t i c k e t , o n l y i f t h i s i s t h e f i r s t i t e r a t i o n
i f ( p o s = = t o t a l - 1 ) {
l a s t _ k n o w n _ t i c k e t = t i c k e t ;
}
/ / - - w e a r e s e a r c h i n g f o r p e n d i n g o r d e r s , s k i p t r a d e s
i f ( O r d e r T y p e ( ) < = O R D E R _ T Y P E _ S E L L ) { c o n t i n u e ; }
/ / - -
i f ( S t r i n g S u b s t r ( O r d e r C o m m e n t ( ) , 0 , 5 ) = = " [ o c o : " )
{
i n t t i c k e t _ o c o = S t r T o I n t e g e r ( S t r i n g S u b s t r ( O r d e r C o m m e n t ( ) , 5 , S t r i n g L e n ( O r d e r C o m m e n t ( ) ) - 1 ) ) ;
b o o l f o u n d = f a l s e ;
s i z e = A r r a y S i z e ( o r d e r s 2 ) ;
f o r ( i = 0 ; i < s i z e ; i + + )
{
i f ( o r d e r s 2 [ i ] = = t i c k e t _ o c o ) {
f o u n d = t r u e ;
b r e a k ;
}
}
i f ( f o u n d = = f a l s e ) {
A r r a y R e s i z e ( o r d e r s 1 , s i z e + 1 ) ;
A r r a y R e s i z e ( o r d e r s 2 , s i z e + 1 ) ;
o r d e r s 1 [ s i z e ] = t i c k e t _ o c o ;
o r d e r s 2 [ s i z e ] = t i c k e t ;
}
}
}
}
s i z e = A r r a y S i z e ( o r d e r s 1 ) ;
i n t d b r e m o v e = f a l s e ;
f o r ( i = s i z e - 1 ; i > = 0 ; i - - )
{
i f ( L o a d P e n d i n g O r d e r ( o r d e r s 1 [ i ] ) = = f a l s e | | O r d e r T y p e ( ) < = O R D E R _ T Y P E _ S E L L )
{
i f ( L o a d P e n d i n g O r d e r ( o r d e r s 2 [ i ] ) ) {
i f ( D e l e t e O r d e r ( o r d e r s 2 [ i ] ) )
{
d b r e m o v e = t r u e ;
}
}
e l s e {
d b r e m o v e = t r u e ;
}
i f ( d b r e m o v e = = t r u e )
{
A r r a y S t r i p K e y ( o r d e r s 1 , i ) ;
A r r a y S t r i p K e y ( o r d e r s 2 , i ) ;
}
}
}
s i z e = A r r a y S i z e ( o r d e r s 2 ) ;
d b r e m o v e = f a l s e ;
f o r ( i = s i z e - 1 ; i > = 0 ; i - - )
{
i f ( L o a d P e n d i n g O r d e r ( o r d e r s 2 [ i ] ) = = f a l s e | | O r d e r T y p e ( ) < = O R D E R _ T Y P E _ S E L L )
{
i f ( L o a d P e n d i n g O r d e r ( o r d e r s 1 [ i ] ) ) {
i f ( D e l e t e O r d e r ( o r d e r s 1 [ i ] ) )
{
d b r e m o v e = t r u e ;
}
}
e l s e {
d b r e m o v e = t r u e ;
}
i f ( d b r e m o v e = = t r u e )
{
A r r a y S t r i p K e y ( o r d e r s 1 , i ) ;
A r r a y S t r i p K e y ( o r d e r s 2 , i ) ;
}
}
}
r e t u r n t r u e ;
}
b o o l O n T i m e r S e t ( d o u b l e s e c o n d s )
{
i f ( s e c o n d s < = 0 ) {
E v e n t K i l l T i m e r ( ) ;
}
e l s e i f ( s e c o n d s < 1 ) {
r e t u r n ( E v e n t S e t M i l l i s e c o n d T i m e r ( ( i n t ) ( s e c o n d s * 1 0 0 0 ) ) ) ;
}
e l s e {
r e t u r n ( E v e n t S e t T i m e r ( ( i n t ) s e c o n d s ) ) ;
}
r e t u r n t r u e ;
}
c l a s s O n T r a d e E v e n t D e t e c t o r
{
p r i v a t e :
/ / - - - s t r u c t u r e s
s t r u c t E v e n t V a l u e s
{
/ / s p e c i a l f i e l d s
s t r i n g r e a s o n ,
d e t a i l ;
/ / o r d e r r e l a t e d f i e l d s
l o n g m a g i c ,
t i c k e t ;
i n t t y p e ;
d a t e t i m e t i m e C l o s e ,
t i m e O p e n ,
t i m e E x p i r a t i o n ;
d o u b l e c o m m i s s i o n ,
p r i c e O p e n ,
p r i c e C l o s e ,
p r o f i t ,
s t o p L o s s ,
s w a p ,
t a k e P r o f i t ,
v o l u m e ;
s t r i n g c o m m e n t ,
s y m b o l ;
} ;
s t r u c t P o s i t i o n
{
E N U M _ P O S I T I O N _ T Y P E t y p e ;
E N U M _ P O S I T I O N _ R E A S O N r e a s o n ;
l o n g p o s i t i o n I d ,
m a g i c ,
t i c k e t ,
t i m e M s ,
t i m e U p d a t e M s ;
d a t e t i m e t i m e ,
t i m e E x p i r a t i o n ,
t i m e U p d a t e ;
d o u b l e p r i c e C u r r e n t ,
p r i c e O p e n ,
p r o f i t ,
s t o p L o s s ,
s w a p ,
t a k e P r o f i t ,
v o l u m e ;
s t r i n g e x t e r n a l I d ,
c o m m e n t ,
s y m b o l ;
} ;
s t r u c t P e n d i n g O r d e r
{
E N U M _ O R D E R _ T Y P E t y p e ;
E N U M _ O R D E R _ S T A T E s t a t e ;
E N U M _ O R D E R _ T Y P E _ F I L L I N G t y p e F i l l i n g ;
E N U M _ O R D E R _ T Y P E _ T I M E t y p e T i m e ;
E N U M _ O R D E R _ R E A S O N r e a s o n ;
l o n g m a g i c ,
p o s i t i o n I d ,
p o s i t i o n B y I d ,
t i c k e t ,
t i m e S e t u p M s ,
t i m e D o n e M s ;
d a t e t i m e t i m e D o n e ,
t i m e E x p i r a t i o n ,
t i m e S e t u p ;
d o u b l e p r i c e C u r r e n t ,
p r i c e O p e n ,
p r i c e S t o p L i m i t ,
s t o p L o s s ,
t a k e P r o f i t ,
v o l u m e ,
v o l u m e I n i t i a l ;
s t r i n g e x t e r n a l I d ,
c o m m e n t ,
s y m b o l ;
} ;
s t r u c t P o s i t i o n E x p i r a t i o n T i m e s
{
l o n g t i c k e t ;
d a t e t i m e t i m e E x p i r a t i o n ;
} ;
/ / - - - v a r i a b l e s a n d a r r a y s
b o o l d e b u g ;
i n t e v e n t V a l u e s Q u e u e I n d e x ;
E v e n t V a l u e s e v e n t V a l u e s [ ] ;
P e n d i n g O r d e r p r e v i o u s P e n d i n g O r d e r s [ ] ;
P e n d i n g O r d e r p e n d i n g O r d e r s [ ] ;
P o s i t i o n p r e v i o u s P o s i t i o n s [ ] ;
P o s i t i o n p o s i t i o n s [ ] ;
P o s i t i o n E x p i r a t i o n T i m e s p o s i t i o n E x p i r a t i o n T i m e s [ ] ;
/ / - - - m e t h o d s
/ * *
* L i k e A r r a y C o p y ( ) , b u t f o r a n y t y p e .
* /
t e m p l a t e < t y p e n a m e T >
v o i d C o p y L i s t ( T & d e s t [ ] , T & s r c [ ] )
{
i n t s i z e = A r r a y S i z e ( s r c ) ;
A r r a y R e s i z e ( d e s t , s i z e ) ;
f o r ( i n t i = 0 ; i < s i z e ; i + + )
{
d e s t [ i ] = s r c [ i ] ;
}
}
/ * *
* O v e r l o a d e d m e t h o d 1 o f 2
* /
i n t M a k e L i s t O f ( P e n d i n g O r d e r & l i s t [ ] )
{
A r r a y R e s i z e ( l i s t , 0 ) ;
i n t c o u n t = O r d e r s T o t a l ( ) ;
i n t h o w M a n y A d d e d = 0 ;
f o r ( i n t i n d e x = 0 ; i n d e x < c o u n t ; i n d e x + + )
{
i f ( O r d e r G e t T i c k e t ( i n d e x ) < = 0 ) c o n t i n u e ;
h o w M a n y A d d e d + + ;
A r r a y R e s i z e ( l i s t , h o w M a n y A d d e d ) ;
i n t i = h o w M a n y A d d e d - 1 ;
/ / e n u m t y p e s
l i s t [ i ] . t y p e = ( E N U M _ O R D E R _ T Y P E ) O r d e r G e t I n t e g e r ( O R D E R _ T Y P E ) ;
l i s t [ i ] . s t a t e = ( E N U M _ O R D E R _ S T A T E ) O r d e r G e t I n t e g e r ( O R D E R _ S T A T E ) ;
l i s t [ i ] . t y p e F i l l i n g = ( E N U M _ O R D E R _ T Y P E _ F I L L I N G ) O r d e r G e t I n t e g e r ( O R D E R _ T Y P E _ F I L L I N G ) ;
l i s t [ i ] . t y p e T i m e = ( E N U M _ O R D E R _ T Y P E _ T I M E ) O r d e r G e t I n t e g e r ( O R D E R _ T Y P E _ T I M E ) ;
l i s t [ i ] . r e a s o n = ( E N U M _ O R D E R _ R E A S O N ) O r d e r G e t I n t e g e r ( O R D E R _ R E A S O N ) ;
/ / l o n g
l i s t [ i ] . m a g i c = ( l o n g ) O r d e r G e t I n t e g e r ( O R D E R _ M A G I C ) ;
l i s t [ i ] . p o s i t i o n I d = ( l o n g ) O r d e r G e t I n t e g e r ( O R D E R _ P O S I T I O N _ I D ) ;
l i s t [ i ] . p o s i t i o n B y I d = ( l o n g ) O r d e r G e t I n t e g e r ( O R D E R _ P O S I T I O N _ B Y _ I D ) ;
l i s t [ i ] . t i c k e t = ( l o n g ) O r d e r G e t I n t e g e r ( O R D E R _ T I C K E T ) ;
l i s t [ i ] . t i m e S e t u p M s = ( l o n g ) O r d e r G e t I n t e g e r ( O R D E R _ T I M E _ S E T U P _ M S C ) ;
l i s t [ i ] . t i m e D o n e M s = ( l o n g ) O r d e r G e t I n t e g e r ( O R D E R _ T I M E _ D O N E _ M S C ) ;
/ / d a t e t i m e
l i s t [ i ] . t i m e D o n e = ( d a t e t i m e ) O r d e r G e t I n t e g e r ( O R D E R _ T I M E _ D O N E ) ;
l i s t [ i ] . t i m e E x p i r a t i o n = ( d a t e t i m e ) O r d e r G e t I n t e g e r ( O R D E R _ T I M E _ E X P I R A T I O N ) ;
l i s t [ i ] . t i m e S e t u p = ( d a t e t i m e ) O r d e r G e t I n t e g e r ( O R D E R _ T I M E _ S E T U P ) ;
/ / d o u b l e
l i s t [ i ] . p r i c e C u r r e n t = O r d e r G e t D o u b l e ( O R D E R _ P R I C E _ C U R R E N T ) ;
l i s t [ i ] . p r i c e O p e n = O r d e r G e t D o u b l e ( O R D E R _ P R I C E _ O P E N ) ;
l i s t [ i ] . p r i c e S t o p L i m i t = O r d e r G e t D o u b l e ( O R D E R _ P R I C E _ S T O P L I M I T ) ;
l i s t [ i ] . s t o p L o s s = O r d e r G e t D o u b l e ( O R D E R _ S L ) ;
l i s t [ i ] . t a k e P r o f i t = O r d e r G e t D o u b l e ( O R D E R _ T P ) ;
l i s t [ i ] . v o l u m e = O r d e r G e t D o u b l e ( O R D E R _ V O L U M E _ C U R R E N T ) ;
l i s t [ i ] . v o l u m e I n i t i a l = O r d e r G e t D o u b l e ( O R D E R _ V O L U M E _ I N I T I A L ) ;
/ / s t r i n g
l i s t [ i ] . e x t e r n a l I d = O r d e r G e t S t r i n g ( O R D E R _ E X T E R N A L _ I D ) ;
l i s t [ i ] . c o m m e n t = O r d e r G e t S t r i n g ( O R D E R _ C O M M E N T ) ;
l i s t [ i ] . s y m b o l = O r d e r G e t S t r i n g ( O R D E R _ S Y M B O L ) ;
}
r e t u r n h o w M a n y A d d e d ;
}
/ * *
* O v e r l o a d e d m e t h o d 2 o f 2
* /
i n t M a k e L i s t O f ( P o s i t i o n & l i s t [ ] )
{
A r r a y R e s i z e ( l i s t , 0 ) ;
i n t c o u n t = P o s i t i o n s T o t a l ( ) ;
i n t h o w M a n y A d d e d = 0 ;
f o r ( i n t i n d e x = 0 ; i n d e x < c o u n t ; i n d e x + + )
{
i f ( P o s i t i o n G e t T i c k e t ( i n d e x ) < = 0 ) c o n t i n u e ;
h o w M a n y A d d e d + + ;
A r r a y R e s i z e ( l i s t , h o w M a n y A d d e d ) ;
i n t i = h o w M a n y A d d e d - 1 ;
/ / e n u m t y p e s
l i s t [ i ] . t y p e = ( E N U M _ P O S I T I O N _ T Y P E ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) ;
l i s t [ i ] . r e a s o n = ( E N U M _ P O S I T I O N _ R E A S O N ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ R E A S O N ) ;
/ / l o n g
l i s t [ i ] . p o s i t i o n I d = ( l o n g ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ I D E N T I F I E R ) ;
l i s t [ i ] . m a g i c = ( l o n g ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) ;
l i s t [ i ] . t i c k e t = ( l o n g ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I C K E T ) ;
l i s t [ i ] . t i m e M s = ( l o n g ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I M E _ M S C ) ;
l i s t [ i ] . t i m e U p d a t e M s = ( l o n g ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I M E _ U P D A T E _ M S C ) ;
/ / d a t e t i m e
l i s t [ i ] . t i m e = ( d a t e t i m e ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I M E ) ;
l i s t [ i ] . t i m e E x p i r a t i o n = ( d a t e t i m e ) 0 ;
l i s t [ i ] . t i m e U p d a t e = ( d a t e t i m e ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I M E _ U P D A T E ) ;
/ / d o u b l e
l i s t [ i ] . p r i c e C u r r e n t = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R I C E _ C U R R E N T ) ;
l i s t [ i ] . p r i c e O p e n = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R I C E _ O P E N ) ;
l i s t [ i ] . p r o f i t = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R O F I T ) ;
l i s t [ i ] . s t o p L o s s = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ S L ) ;
l i s t [ i ] . s w a p = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ S W A P ) ;
l i s t [ i ] . t a k e P r o f i t = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) ;
l i s t [ i ] . v o l u m e = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ V O L U M E ) ;
/ / s t r i n g
l i s t [ i ] . e x t e r n a l I d = P o s i t i o n G e t S t r i n g ( P O S I T I O N _ E X T E R N A L _ I D ) ;
l i s t [ i ] . c o m m e n t = P o s i t i o n G e t S t r i n g ( P O S I T I O N _ C O M M E N T ) ;
l i s t [ i ] . s y m b o l = P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) ;
/ / e x t r a c t e x p i r a t i o n
l i s t [ i ] . t i m e E x p i r a t i o n = e x p i r a t i o n W o r k e r . G e t E x p i r a t i o n ( l i s t [ i ] . t i c k e t ) ;
i f ( U S E _ V I R T U A L _ S T O P S )
{
l i s t [ i ] . s t o p L o s s = V i r t u a l S t o p s D r i v e r ( " g e t s l " , l i s t [ i ] . t i c k e t ) ;
l i s t [ i ] . t a k e P r o f i t = V i r t u a l S t o p s D r i v e r ( " g e t t p " , l i s t [ i ] . t i c k e t ) ;
}
}
r e t u r n h o w M a n y A d d e d ;
}
/ * *
* T h i s m e t h o d l o o p s t h r o u g h 2 l i s t s o f i t e m s a n d f i n d s a d i f f e r e n c e . T h i s d i f f e r e n c e i s t h e e v e n t .
* " I t e m s " a r e e i t h e r p e n d i n g o r d e r s o r p o s i t i o n s .
*
* R e t u r n s t r u e i f a n e v e n t i s d e t e c t e d o r f a l s e i f n o t .
* /
t e m p l a t e < t y p e n a m e I T E M S _ T Y P E >
b o o l D e t e c t E v e n t ( I T E M S _ T Y P E & p r e v i o u s I t e m s [ ] , I T E M S _ T Y P E & c u r r e n t I t e m s [ ] )
{
I T E M S _ T Y P E i t e m ;
s t r i n g r e a s o n = " " ;
s t r i n g d e t a i l = " " ;
i n t c o u n t B e f o r e = A r r a y S i z e ( p r e v i o u s I t e m s ) ;
i n t c o u n t N o w = A r r a y S i z e ( c u r r e n t I t e m s ) ;
/ / N e w
i f ( c o u n t B e f o r e < c o u n t N o w )
{
i t e m = c u r r e n t I t e m s [ c o u n t N o w - 1 ] ;
r e a s o n = " n e w " ;
}
/ / G o n e
e l s e i f ( c o u n t B e f o r e > c o u n t N o w )
{
i t e m = F i n d M i s s i n g I t e m ( p r e v i o u s I t e m s , c u r r e n t I t e m s ) ;
r e a s o n = " c l o s e " ;
}
/ / S a m e = > c h e c k f o r m o d i f i c a t i o n s
e l s e i f ( c o u n t B e f o r e = = c o u n t N o w & & c o u n t N o w > 0 )
{
i n t c o u n t = A r r a y S i z e ( c u r r e n t I t e m s ) ;
f o r ( i n t i n d e x = 0 ; i n d e x < c o u n t ; i n d e x + + )
{
i t e m = c u r r e n t I t e m s [ i n d e x ] ;
I T E M S _ T Y P E p r e v i o u s = p r e v i o u s I t e m s [ i n d e x ] ;
I T E M S _ T Y P E c u r r e n t = c u r r e n t I t e m s [ i n d e x ] ;
i f ( p r e v i o u s . t i c k e t ! = c u r r e n t . t i c k e t )
{
/ / T y p e = > v o l u m e m o d i f i e d
i f ( p r e v i o u s . p o s i t i o n I d = = c u r r e n t . p o s i t i o n I d )
{
r e a s o n = " r e v e r s e " ;
}
e l s e
{
P r i n t ( " P o s i t i o n s o r d e r m i s m a t c h " ) ;
}
b r e a k ;
}
i f ( p r e v i o u s . v o l u m e ! = c u r r e n t . v o l u m e )
{
/ / V o l u m e i n c r e m e n t
i f ( p r e v i o u s . v o l u m e < c u r r e n t . v o l u m e )
{
r e a s o n = " i n c r e m e n t " ;
b r e a k ;
}
/ / V o l u m e d e c r e m e n t
e l s e
{
r e a s o n = " d e c r e m e n t " ;
b r e a k ;
}
}
/ / S L & T P m o d i f i e d
i f (
p r e v i o u s . s t o p L o s s ! = c u r r e n t . s t o p L o s s
& & p r e v i o u s . t a k e P r o f i t ! = c u r r e n t . t a k e P r o f i t
) {
r e a s o n = " m o d i f y " ;
d e t a i l = " s l t p " ;
b r e a k ;
}
/ / S L m o d i f i e d
e l s e i f ( p r e v i o u s . s t o p L o s s ! = c u r r e n t . s t o p L o s s )
{
r e a s o n = " m o d i f y " ;
d e t a i l = " s l " ;
b r e a k ;
}
/ / T P m o d i f i e d
e l s e i f ( p r e v i o u s . t a k e P r o f i t ! = c u r r e n t . t a k e P r o f i t )
{
r e a s o n = " m o d i f y " ;
d e t a i l = " t p " ;
b r e a k ;
}
i f ( p r e v i o u s . t i m e E x p i r a t i o n ! = c u r r e n t . t i m e E x p i r a t i o n )
{
r e a s o n = " m o d i f y " ;
d e t a i l = " e x p i r a t i o n " ;
b r e a k ;
}
}
}
i f ( r e a s o n = = " " )
{
r e t u r n f a l s e ;
}
U p d a t e V a l u e s ( i t e m , r e a s o n , d e t a i l ) ;
r e t u r n t r u e ;
}
/ * *
* F r o m t h e l i s t o f p r e v i o u s o r d e r s o r p o s i t i o n s , f i n d t h e i t e m t h a t i s m i s s i n g
* i n t h e l i s t o f c u r r e n t o r d e r s o r p o s i t i o n s .
*
* R e t u r n t h e t i c k e t n u m b e r o r 0 i f n o t h i n g i s f o u n d .
* /
t e m p l a t e < t y p e n a m e T >
T F i n d M i s s i n g I t e m ( T & p r e v i o u s [ ] , T & c u r r e n t [ ] )
{
i n t p r e v i o u s C o u n t = A r r a y S i z e ( p r e v i o u s ) ;
i n t c u r r e n t C o u n t = A r r a y S i z e ( c u r r e n t ) ;
T i t e m ;
l o n g t i c k e t = 0 ;
f o r ( i n t i = 0 ; i < p r e v i o u s C o u n t ; i + + )
{
b o o l f o u n d = f a l s e ;
f o r ( i n t j = 0 ; j < c u r r e n t C o u n t ; j + + )
{
i f ( p r e v i o u s [ i ] . t i c k e t = = c u r r e n t [ j ] . t i c k e t )
{
f o u n d = t r u e ;
b r e a k ;
}
}
i f ( f o u n d = = f a l s e )
{
i t e m = p r e v i o u s [ i ] ;
b r e a k ;
}
}
r e t u r n i t e m ;
}
/ * *
* O v e r l o a d e d m e t h o d 1 o f 2
* /
v o i d U p d a t e V a l u e s ( P o s i t i o n & i t e m , s t r i n g r e a s o n , s t r i n g d e t a i l )
{
l o n g t i c k e t = i t e m . t i c k e t ;
d a t e t i m e t i m e O p e n = i t e m . t i m e ;
d a t e t i m e t i m e C l o s e = ( d a t e t i m e ) 0 ;
d o u b l e p r i c e O p e n = i t e m . p r i c e O p e n ;
d o u b l e p r i c e C l o s e = i t e m . p r i c e C u r r e n t ;
d o u b l e p r o f i t = i t e m . p r o f i t ;
d o u b l e s w a p = i t e m . s w a p ;
d o u b l e c o m m i s s i o n = 0 . 0 ;
d o u b l e v o l u m e = i t e m . v o l u m e ;
i f ( r e a s o n = = " c l o s e " | | r e a s o n = = " d e c r e m e n t " )
{
i f ( H i s t o r y S e l e c t B y P o s i t i o n ( i t e m . p o s i t i o n I d ) )
{
i n t t o t a l = H i s t o r y D e a l s T o t a l ( ) ;
i f ( t o t a l > 0 )
{
l o n g f i r s t T i c k e t = ( l o n g ) H i s t o r y D e a l G e t T i c k e t ( 0 ) ;
l o n g l a s t T i c k e t = ( l o n g ) H i s t o r y D e a l G e t T i c k e t ( t o t a l - 1 ) ;
/ / T i c k e t i s t h e t i c k e t o f t h e p r e v i o u s d e a l , t h e o n e b e f o r e t h e l a s t o n e
t i c k e t = ( l o n g ) H i s t o r y D e a l G e t T i c k e t ( t o t a l - 2 ) ;
/ / O p e n T i m e a n d O p e n P r i c e - g e t t h e m f r o m t h e v e r y f i r s t d e a l
p r i c e O p e n = H i s t o r y D e a l G e t D o u b l e ( f i r s t T i c k e t , D E A L _ P R I C E ) ;
t i m e O p e n = ( d a t e t i m e ) H i s t o r y D e a l G e t I n t e g e r ( f i r s t T i c k e t , D E A L _ T I M E ) ;
/ / C l o s e T i m e - g e t i t f r o m t h e v e r y l a s t d e a l
t i m e C l o s e = ( d a t e t i m e ) H i s t o r y D e a l G e t I n t e g e r ( l a s t T i c k e t , D E A L _ T I M E ) ;
p r i c e C l o s e = H i s t o r y D e a l G e t D o u b l e ( l a s t T i c k e t , D E A L _ P R I C E ) ;
p r o f i t = H i s t o r y D e a l G e t D o u b l e ( l a s t T i c k e t , D E A L _ P R O F I T ) ;
s w a p = H i s t o r y D e a l G e t D o u b l e ( l a s t T i c k e t , D E A L _ S W A P ) ;
c o m m i s s i o n = H i s t o r y D e a l G e t D o u b l e ( l a s t T i c k e t , D E A L _ C O M M I S S I O N ) ;
v o l u m e = H i s t o r y D e a l G e t D o u b l e ( l a s t T i c k e t , D E A L _ V O L U M E ) ;
/ / F i n d w h y t h e p o s i t i o n h a s b e e n c l o s e d
i f ( d e t a i l = = " " )
{
i f (
i t e m . t i m e E x p i r a t i o n > 0
& & i t e m . t i m e E x p i r a t i o n < = t i m e C l o s e
) {
d e t a i l = " e x p i r a t i o n " ;
}
}
i f ( d e t a i l = = " " )
{
E N U M _ D E A L _ R E A S O N d e a l R e a s o n = ( E N U M _ D E A L _ R E A S O N ) H i s t o r y D e a l G e t I n t e g e r ( l a s t T i c k e t , D E A L _ R E A S O N ) ;
s w i t c h ( d e a l R e a s o n )
{
c a s e D E A L _ R E A S O N _ S L : d e t a i l = " s l " ; b r e a k ;
c a s e D E A L _ R E A S O N _ T P : d e t a i l = " t p " ; b r e a k ;
c a s e D E A L _ R E A S O N _ S O : d e t a i l = " s o " ; b r e a k ;
}
}
}
}
}
i n t i = e v e n t V a l u e s Q u e u e I n d e x ;
e v e n t V a l u e s [ i ] . r e a s o n = r e a s o n ;
e v e n t V a l u e s [ i ] . d e t a i l = d e t a i l ;
e v e n t V a l u e s [ i ] . p r i c e C l o s e = p r i c e C l o s e ;
e v e n t V a l u e s [ i ] . t i m e C l o s e = t i m e C l o s e ;
e v e n t V a l u e s [ i ] . c o m m e n t = i t e m . c o m m e n t ;
e v e n t V a l u e s [ i ] . c o m m i s s i o n = c o m m i s s i o n ;
e v e n t V a l u e s [ i ] . t i m e E x p i r a t i o n = i t e m . t i m e E x p i r a t i o n ;
e v e n t V a l u e s [ i ] . v o l u m e = v o l u m e ;
e v e n t V a l u e s [ i ] . m a g i c = i t e m . m a g i c ;
e v e n t V a l u e s [ i ] . p r i c e O p e n = p r i c e O p e n ;
e v e n t V a l u e s [ i ] . t i m e O p e n = t i m e O p e n ;
e v e n t V a l u e s [ i ] . p r o f i t = p r o f i t ;
e v e n t V a l u e s [ i ] . s t o p L o s s = i t e m . s t o p L o s s ;
e v e n t V a l u e s [ i ] . s w a p = s w a p ;
e v e n t V a l u e s [ i ] . s y m b o l = i t e m . s y m b o l ;
e v e n t V a l u e s [ i ] . t a k e P r o f i t = i t e m . t a k e P r o f i t ;
e v e n t V a l u e s [ i ] . t i c k e t = t i c k e t ;
e v e n t V a l u e s [ i ] . t y p e = i t e m . t y p e ;
i f ( d e b u g )
{
P r i n t U p d a t e d V a l u e s ( ) ;
}
}
/ * *
* O v e r l o a d e d m e t h o d 2 o f 2
* /
v o i d U p d a t e V a l u e s ( P e n d i n g O r d e r & i t e m , s t r i n g r e a s o n , s t r i n g d e t a i l )
{
d a t e t i m e t i m e E x p i r a t i o n = i t e m . t i m e E x p i r a t i o n ;
/ / W h e n t h e l i f e t i m e o f t h e o r d e r i s O R D E R _ T I M E _ D A Y ,
/ / t h e e x p i r a t i o n ( O R D E R _ T I M E _ E X P I R A T I O N ) e q u a l s t o t h e t i m e o f o p e n i n g .
/ / H e r e w e f i x t h i s .
i f ( i t e m . t y p e T i m e = = O R D E R _ T I M E _ D A Y )
{
t i m e E x p i r a t i o n = ( d a t e t i m e ) ( M a t h F l o o r ( ( ( d o u b l e ) i t e m . t i m e S e t u p + 8 6 4 0 0 . 0 ) / 8 6 4 0 0 . 0 ) * 8 6 4 0 0 . 0 ) ;
}
i n t i = e v e n t V a l u e s Q u e u e I n d e x ;
e v e n t V a l u e s [ i ] . r e a s o n = r e a s o n ;
e v e n t V a l u e s [ i ] . d e t a i l = d e t a i l ;
e v e n t V a l u e s [ i ] . p r i c e C l o s e = i t e m . p r i c e C u r r e n t ;
e v e n t V a l u e s [ i ] . t i m e C l o s e = i t e m . t i m e D o n e ;
e v e n t V a l u e s [ i ] . c o m m e n t = i t e m . c o m m e n t ;
e v e n t V a l u e s [ i ] . c o m m i s s i o n = 0 . 0 ;
e v e n t V a l u e s [ i ] . t i m e E x p i r a t i o n = t i m e E x p i r a t i o n ;
e v e n t V a l u e s [ i ] . v o l u m e = i t e m . v o l u m e ;
e v e n t V a l u e s [ i ] . m a g i c = i t e m . m a g i c ;
e v e n t V a l u e s [ i ] . p r i c e O p e n = i t e m . p r i c e O p e n ;
e v e n t V a l u e s [ i ] . t i m e O p e n = i t e m . t i m e S e t u p ;
e v e n t V a l u e s [ i ] . p r o f i t = 0 . 0 ;
e v e n t V a l u e s [ i ] . s t o p L o s s = i t e m . s t o p L o s s ;
e v e n t V a l u e s [ i ] . s w a p = 0 . 0 ;
e v e n t V a l u e s [ i ] . s y m b o l = i t e m . s y m b o l ;
e v e n t V a l u e s [ i ] . t a k e P r o f i t = i t e m . t a k e P r o f i t ;
e v e n t V a l u e s [ i ] . t i c k e t = i t e m . t i c k e t ;
e v e n t V a l u e s [ i ] . t y p e = i t e m . t y p e ;
i f ( d e b u g )
{
P r i n t U p d a t e d V a l u e s ( ) ;
}
}
v o i d P r i n t U p d a t e d V a l u e s ( )
{
P r i n t (
" < < < \ n " ,
" | r e a s o n : " , e _ R e a s o n ( ) ,
" | d e t a i l : " , e _ R e a s o n D e t a i l ( ) ,
" | t i c k e t : " , e _ a t t r T i c k e t ( ) ,
" | t y p e : " , E n u m T o S t r i n g ( ( E N U M _ O R D E R _ T Y P E ) e _ a t t r T y p e ( ) ) ,
" \ n " ,
" | o p e n T i m e : " , e _ a t t r O p e n T i m e ( ) ,
" | o p e n P r i c e : " , e _ a t t r O p e n P r i c e ( ) ,
" \ n " ,
" | c l o s e T i m e : " , e _ a t t r C l o s e T i m e ( ) ,
" | c l o s e P r i c e : " , e _ a t t r C l o s e P r i c e ( ) ,
" \ n " ,
" | v o l u m e : " , e _ a t t r L o t s ( ) ,
" | s l : " , e _ a t t r S t o p L o s s ( ) ,
" | t p : " , e _ a t t r T a k e P r o f i t ( ) ,
" | p r o f i t : " , e _ a t t r P r o f i t ( ) ,
" | s w a p : " , e _ a t t r S w a p ( ) ,
" | e x p : " , e _ a t t r E x p i r a t i o n ( ) ,
" | c o m m e n t : " , e _ a t t r C o m m e n t ( ) ,
" \ n > > > "
) ;
}
i n t A d d E v e n t V a l u e s ( )
{
e v e n t V a l u e s Q u e u e I n d e x + + ;
A r r a y R e s i z e ( e v e n t V a l u e s , e v e n t V a l u e s Q u e u e I n d e x + 1 ) ;
r e t u r n e v e n t V a l u e s Q u e u e I n d e x ;
}
i n t R e m o v e E v e n t V a l u e s ( )
{
i f ( e v e n t V a l u e s Q u e u e I n d e x = = - 1 )
{
P r i n t ( " C a n n o t r e m o v e e v e n t v a l u e s , a d d t h e m f i r s t . ( i n f u n c t i o n " , _ _ F U N C T I O N _ _ , " ) " ) ;
}
e l s e
{
e v e n t V a l u e s Q u e u e I n d e x - - ;
A r r a y R e s i z e ( e v e n t V a l u e s , e v e n t V a l u e s Q u e u e I n d e x + 1 ) ;
}
r e t u r n e v e n t V a l u e s Q u e u e I n d e x ;
}
p u b l i c :
/ * *
* D e f a u l t c o n s t r u c t o r
* /
O n T r a d e E v e n t D e t e c t o r ( v o i d )
{
d e b u g = f a l s e ;
e v e n t V a l u e s Q u e u e I n d e x = - 1 ;
} ;
b o o l S t a r t ( )
{
A d d E v e n t V a l u e s ( ) ;
M a k e L i s t O f ( p o s i t i o n s ) ;
M a k e L i s t O f ( p e n d i n g O r d e r s ) ;
b o o l s u c c e s s = f a l s e ;
i f ( ! s u c c e s s ) s u c c e s s = D e t e c t E v e n t ( p r e v i o u s P o s i t i o n s , p o s i t i o n s ) ;
i f ( ! s u c c e s s ) s u c c e s s = D e t e c t E v e n t ( p r e v i o u s P e n d i n g O r d e r s , p e n d i n g O r d e r s ) ;
C o p y L i s t ( p r e v i o u s P o s i t i o n s , p o s i t i o n s ) ;
C o p y L i s t ( p r e v i o u s P e n d i n g O r d e r s , p e n d i n g O r d e r s ) ;
r e t u r n s u c c e s s ;
}
v o i d E n d ( )
{
R e m o v e E v e n t V a l u e s ( ) ;
}
s t r i n g E v e n t V a l u e R e a s o n ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . r e a s o n ; }
s t r i n g E v e n t V a l u e D e t a i l ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . d e t a i l ; }
i n t E v e n t V a l u e T y p e ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . t y p e ; }
d a t e t i m e E v e n t V a l u e T i m e C l o s e ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . t i m e C l o s e ; }
d a t e t i m e E v e n t V a l u e T i m e O p e n ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . t i m e O p e n ; }
d a t e t i m e E v e n t V a l u e T i m e E x p i r a t i o n ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . t i m e E x p i r a t i o n ; }
l o n g E v e n t V a l u e M a g i c ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . m a g i c ; }
l o n g E v e n t V a l u e T i c k e t ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . t i c k e t ; }
d o u b l e E v e n t V a l u e C o m m i s s i o n ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . c o m m i s s i o n ; }
d o u b l e E v e n t V a l u e P r i c e O p e n ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . p r i c e O p e n ; }
d o u b l e E v e n t V a l u e P r i c e C l o s e ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . p r i c e C l o s e ; }
d o u b l e E v e n t V a l u e P r o f i t ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . p r o f i t ; }
d o u b l e E v e n t V a l u e S t o p L o s s ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . s t o p L o s s ; }
d o u b l e E v e n t V a l u e S w a p ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . s w a p ; }
d o u b l e E v e n t V a l u e T a k e P r o f i t ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . t a k e P r o f i t ; }
d o u b l e E v e n t V a l u e V o l u m e ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . v o l u m e ; }
s t r i n g E v e n t V a l u e C o m m e n t ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . c o m m e n t ; }
s t r i n g E v e n t V a l u e S y m b o l ( ) { r e t u r n e v e n t V a l u e s [ e v e n t V a l u e s Q u e u e I n d e x ] . s y m b o l ; }
} ;
O n T r a d e E v e n t D e t e c t o r o n T r a d e E v e n t D e t e c t o r ;
d o u b l e O r d e r C l o s e P r i c e ( )
{
i n t t y p e = L o a d e d T y p e ( ) ;
i f ( t y p e = = 1 )
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ B U Y )
{
r e t u r n S y m b o l I n f o D o u b l e ( P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) , S Y M B O L _ B I D ) ;
}
e l s e i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ S E L L )
{
r e t u r n S y m b o l I n f o D o u b l e ( P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) , S Y M B O L _ A S K ) ;
}
}
i f ( t y p e = = 3 ) {
u l o n g d e a l T i c k e t = O r d e r T i c k e t ( ) ;
E N U M _ D E A L _ E N T R Y d e a l E n t r y = ( E N U M _ D E A L _ E N T R Y ) H i s t o r y D e a l G e t I n t e g e r ( d e a l T i c k e t , D E A L _ E N T R Y ) ;
l o n g p o s i t i o n I d = H i s t o r y D e a l G e t I n t e g e r ( d e a l T i c k e t , D E A L _ P O S I T I O N _ I D ) ;
d o u b l e p r i c e = H i s t o r y D e a l G e t D o u b l e ( d e a l T i c k e t , D E A L _ P R I C E ) ;
H i s t o r y S e l e c t B y P o s i t i o n ( p o s i t i o n I d ) ;
/ / S e a r c h f o r t h e f i r s t O U T d e a l a f t e r t h i s o n e a n d g e t t h e p r i c e f r o m i t
i n t t o t a l = H i s t o r y D e a l s T o t a l ( ) ;
f o r ( i n t i = t o t a l - 1 ; i > = 0 ; i - - ) {
u l o n g t i c k e t = H i s t o r y D e a l G e t T i c k e t ( i ) ;
i f ( t i c k e t = = d e a l T i c k e t ) {
/ / G e t t h e c u r r e n t v a l u e i f t h e d e a l i s t h e t h e l a s t o n e
i f ( i = = t o t a l - 1 & & P o s i t i o n S e l e c t B y D e a l ( t i c k e t ) )
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ B U Y )
{
p r i c e = S y m b o l I n f o D o u b l e ( P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) , S Y M B O L _ B I D ) ;
}
e l s e i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ S E L L )
{
p r i c e = S y m b o l I n f o D o u b l e ( P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) , S Y M B O L _ A S K ) ;
}
}
b r e a k ;
}
i f ( H i s t o r y D e a l G e t I n t e g e r ( t i c k e t , D E A L _ E N T R Y ) = = D E A L _ E N T R Y _ O U T ) {
p r i c e = H i s t o r y D e a l G e t D o u b l e ( t i c k e t , D E A L _ P R I C E ) ;
}
}
H i s t o r y T r a d e s T o t a l R e s e t ( ) ;
r e t u r n p r i c e ;
}
i f ( t y p e = = 4 ) { r e t u r n H i s t o r y D e a l G e t D o u b l e ( O r d e r T i c k e t ( ) , D E A L _ P R I C E ) ; }
r e t u r n ( O r d e r G e t D o u b l e ( O R D E R _ P R I C E _ C U R R E N T ) ) ;
}
d a t e t i m e O r d e r C l o s e T i m e ( )
{
i n t t y p e = L o a d e d T y p e ( ) ;
i f ( t y p e = = 1 )
{
r e t u r n 0 ;
}
i f ( t y p e = = 3 )
{
u l o n g d e a l T i c k e t = O r d e r T i c k e t ( ) ;
E N U M _ D E A L _ E N T R Y d e a l E n t r y = ( E N U M _ D E A L _ E N T R Y ) H i s t o r y D e a l G e t I n t e g e r ( d e a l T i c k e t , D E A L _ E N T R Y ) ;
l o n g p o s i t i o n I d = H i s t o r y D e a l G e t I n t e g e r ( d e a l T i c k e t , D E A L _ P O S I T I O N _ I D ) ;
d a t e t i m e t i m e = ( d a t e t i m e ) H i s t o r y D e a l G e t I n t e g e r ( d e a l T i c k e t , D E A L _ T I M E ) ;
H i s t o r y S e l e c t B y P o s i t i o n ( p o s i t i o n I d ) ;
/ / S e a r c h f o r t h e f i r s t O U T d e a l a f t e r t h i s o n e a n d g e t t h e t i m e f r o m i t
i n t t o t a l = H i s t o r y D e a l s T o t a l ( ) ;
f o r ( i n t i = t o t a l - 1 ; i > = 0 ; i - - ) {
u l o n g t i c k e t = H i s t o r y D e a l G e t T i c k e t ( i ) ;
i f ( t i c k e t = = d e a l T i c k e t ) {
i f ( i = = t o t a l - 1 & & P o s i t i o n S e l e c t B y D e a l ( t i c k e t ) )
{
t i m e = ( d a t e t i m e ) 0 ;
}
b r e a k ;
}
i f ( H i s t o r y D e a l G e t I n t e g e r ( t i c k e t , D E A L _ E N T R Y ) = = D E A L _ E N T R Y _ O U T ) {
t i m e = ( d a t e t i m e ) H i s t o r y D e a l G e t I n t e g e r ( t i c k e t , D E A L _ T I M E ) ;
}
}
H i s t o r y T r a d e s T o t a l R e s e t ( ) ;
r e t u r n t i m e ;
}
i f ( t y p e = = 4 )
{
r e t u r n ( d a t e t i m e ) H i s t o r y O r d e r G e t I n t e g e r ( O r d e r T i c k e t ( ) , O R D E R _ T I M E _ D O N E ) ;
}
r e t u r n ( d a t e t i m e ) O r d e r G e t I n t e g e r ( O R D E R _ T I M E _ D O N E ) ;
}
s t r i n g O r d e r C o m m e n t ( )
{
i n t t y p e = L o a d e d T y p e ( ) ;
i f ( t y p e = = 1 ) { r e t u r n P o s i t i o n G e t S t r i n g ( P O S I T I O N _ C O M M E N T ) ; }
i f ( t y p e = = 3 ) { r e t u r n H i s t o r y O r d e r G e t S t r i n g ( H i s t o r y D e a l G e t I n t e g e r ( O r d e r T i c k e t ( ) , D E A L _ P O S I T I O N _ I D ) , O R D E R _ C O M M E N T ) ; }
i f ( t y p e = = 4 ) { r e t u r n H i s t o r y O r d e r G e t S t r i n g ( O r d e r T i c k e t ( ) , O R D E R _ C O M M E N T ) ; }
r e t u r n O r d e r G e t S t r i n g ( O R D E R _ C O M M E N T ) ;
}
l o n g O r d e r C r e a t e (
s t r i n g s y m b o l = " " ,
i n t t y p e = O R D E R _ T Y P E _ B U Y ,
d o u b l e l o t s = 0 ,
d o u b l e o p = 0 ,
d o u b l e s l l = 0 ,
d o u b l e t p l = 0 ,
d o u b l e s l p = 0 ,
d o u b l e t p p = 0 ,
d o u b l e s l i p p a g e = 0 ,
u l o n g m a g i c = 0 ,
s t r i n g c o m m e n t = N U L L ,
c o l o r a r r o w c o l o r = c l r N O N E ,
d a t e t i m e e x p i r a t i o n = 0 ,
b o o l o c o = f a l s e
)
{
O n T r a d e ( ) ; / / W h e n p o s i t i o n i s c l o s e d b y s l o r t p , t h i s e v e n t i s n o t f i r e d ( b y M e t a T r a d e r ) u n t i l t h e e n d o f t h e t i c k , a n d i f a n e w p o s i t i o n i s o p e n e d , i t w i l l b e m i s s e d .
u i n t t i m e 0 = G e t T i c k C o u n t ( ) ; / / u s e d t o m e a s u r e s p e e d o f e x e c u t i o n o f t h e o r d e r
b o o l p l a c e E x p i r a t i o n O b j e c t = f a l s e ; / / w h e t h e r o r n o t t o c r e a t e a n o b j e c t f o r e x p i r a t i o n f o r t r a d e s
b o o l c l o s i n g = f a l s e ;
d o u b l e l o t s 0 = 0 ;
l o n g t y p e 0 = t y p e ;
i f (
( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ M A R G I N _ M O D E ) = = A C C O U N T _ M A R G I N _ M O D E _ R E T A I L _ N E T T I N G )
& & ( t y p e = = P O S I T I O N _ T Y P E _ B U Y | | t y p e = = P O S I T I O N _ T Y P E _ S E L L )
)
{
i f ( P o s i t i o n S e l e c t ( s y m b o l ) )
{
i f ( ( i n t ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) ! = t y p e )
{
c l o s i n g = t r u e ;
}
l o t s 0 = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ V O L U M E ) , 5 ) ;
t y p e 0 = P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) ;
}
}
u l o n g t i c k e t = - 1 ;
/ / c a l c u l a t e b u y / s e l l f l a g ( 1 w h e n B u y o r - 1 w h e n S e l l )
i n t b s = 1 ;
i f (
t y p e = = O R D E R _ T Y P E _ S E L L
| | t y p e = = O R D E R _ T Y P E _ S E L L _ S T O P
| | t y p e = = O R D E R _ T Y P E _ S E L L _ L I M I T
)
{
b s = - 1 ;
}
i f ( s y m b o l = = " " ) { s y m b o l = S y m b o l ( ) ; }
l o t s = A l i g n L o t s ( s y m b o l , l o t s ) ;
i n t d i g i t s = 0 ;
d o u b l e a s k = 0 , b i d = 0 , p o i n t = 0 , t i c k s i z e = 0 ;
d o u b l e s l = 0 , t p = 0 ;
d o u b l e v s l = 0 , v t p = 0 ;
b o o l s u c c e s s e d = f a l s e ;
/ / - - a t t e m p t s t o s e n d p o s i t i o n / o r d e r - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
w h i l e ( t r u e )
{
d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m b o l , S Y M B O L _ D I G I T S ) ;
a s k = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) ;
b i d = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ B I D ) ;
p o i n t = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ P O I N T ) ;
t i c k s i z e = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ T R A D E _ T I C K _ S I Z E ) ;
/ / - n o t e n o u g h m o n e y c h e c k : f i x m a x i m u m p o s s i b l e l o t b y m a r g i n r e q u i r e d , o r q u i t
i f ( ( t y p e = = P O S I T I O N _ T Y P E _ B U Y | | t y p e = = P O S I T I O N _ T Y P E _ S E L L ) & & c l o s i n g = = f a l s e )
{
d o u b l e L o t S t e p = S y m b o l L o t S t e p ( s y m b o l ) ;
d o u b l e M i n L o t s = S y m b o l M i n L o t ( s y m b o l ) ;
d o u b l e m a r g i n _ r e q u i r e d = 0 ;
b o o l o c m = O r d e r C a l c M a r g i n ( ( E N U M _ O R D E R _ T Y P E ) t y p e , s y m b o l , 1 , S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) , m a r g i n _ r e q u i r e d ) ;
s t a t i c b o o l n o t _ e n o u g h _ m e s s a g e = f a l s e ;
i f ( m a r g i n _ r e q u i r e d ! = 0 )
{
d o u b l e m a x _ s i z e _ b y _ 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 r g i n _ r e q u i r e d ;
i f ( l o t s > m a x _ s i z e _ b y _ m a r g i n )
{
d o u b l e l o t s _ o l d = l o t s ;
l o t s = m a x _ s i z e _ b y _ m a r g i n ;
i f ( l o t s < M i n L o t s )
{
i f ( n o t _ e n o u g h _ m e s s a g e = = f a l s e )
{
P r i n t ( " N o t e n o u g h m o n e y t o t r a d e : ( T h e r o b o t i s s t i l l w o r k i n g , w a i t i n g f o r s o m e f u n d s t o a p p e a r . . . " ) ;
}
n o t _ e n o u g h _ m e s s a g e = t r u e ;
r e t u r n - 1 ;
}
e l s e
{
l o t s = M a t h F l o o r ( l o t s / L o t S t e p ) * L o t S t e p ;
P r i n t ( " N o t e n o u g h m o n e y t o t r a d e " + D o u b l e T o S t r i n g ( l o t s _ o l d , 2 ) + " , t h e v o l u m e t o t r a d e w i l l b e t h e m a x i m u m p o s s i b l e o f " + D o u b l e T o S t r i n g ( l o t s , 2 ) ) ;
}
}
}
n o t _ e n o u g h _ m e s s a g e = f a l s e ;
}
/ / f i x t h e c o m m e n t , b e c a u s e i t s e e m s t h a t t h e c o m m e n t i s d e l e t e d i f i t s l e n g h t i s > 3 1 s y m b o l s
i f ( S t r i n g L e n ( c o m m e n t ) > 3 1 )
{
c o m m e n t = S t r i n g S u b s t r ( c o m m e n t , 0 , 3 1 ) ;
}
/ / - e x p i r a t i o n f o r t r a d e s
i f ( t y p e = = P O S I T I O N _ T Y P E _ B U Y | | t y p e = = P O S I T I O N _ T Y P E _ S E L L )
{
i f ( e x p i r a t i o n > 0 )
{
/ / - b o b r o k e r ?
i f (
S t r i n g L e n ( s y m b o l ) > 6
& & S t r i n g S u b s t r ( s y m b o l , S t r i n g L e n ( s y m b o l ) - 2 ) = = " b o "
) {
/ / - c o n v e r t U N I X t o s e c o n d s
i f ( e x p i r a t i o n > T i m e C u r r e n t ( ) - 1 0 0 )
{
e x p i r a t i o n = e x p i r a t i o n - T i m e C u r r e n t ( ) ;
}
c o m m e n t = " B O e x p : " + ( s t r i n g ) e x p i r a t i o n ;
}
e l s e
{
/ / T h e e x p i r a t i o n i n t h i s c a s e i s a v e r t i c a l l i n e
/ / C o m m e n t d o e s n ' t a l w a y s w o r k ,
/ / b e c a u s e i t c h a n g e s w h e n t h e t r a d e i s p a r t i a l l y c l o s e d
p l a c e E x p i r a t i o n O b j e c t = t r u e ;
}
}
}
i f ( t y p e = = O R D E R _ T Y P E _ B U Y | | t y p e = = O R D E R _ T Y P E _ S E L L )
{
o p = ( b s > 0 ) ? a s k : b i d ;
}
o p = N o r m a l i z e D o u b l e ( o p , d i g i t s ) ;
s l l = N o r m a l i z e D o u b l e ( s l l , d i g i t s ) ;
t p l = N o r m a l i z e D o u b l e ( t p l , d i g i t s ) ;
i f ( o p < 0 | | o p > = E M P T Y _ V A L U E | | s l l < 0 | | s l p < 0 | | t p l < 0 | | t p p < 0 )
{
b r e a k ;
}
/ / - - S L a n d T P - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
v s l = 0 ;
v t p = 0 ;
s l = A l i g n S t o p L o s s ( s y m b o l , t y p e , o p , 0 , N o r m a l i z e D o u b l e ( s l l , d i g i t s ) , s l p ) ;
i f ( s l < 0 ) { b r e a k ; }
t p = A l i g n T a k e P r o f i t ( s y m b o l , t y p e , o p , 0 , N o r m a l i z e D o u b l e ( t p l , d i g i t s ) , t p p ) ;
i f ( t p < 0 ) { b r e a k ; }
i f ( U S E _ V I R T U A L _ S T O P S )
{
/ / - - v i r t u a l S L a n d T P - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
v s l = s l ;
v t p = t p ;
s l = 0 ;
t p = 0 ;
d o u b l e a s k b i d = ( b s > 0 ) ? a s k : b i d ;
i f ( v s l > 0 | | U S E _ E M E R G E N C Y _ S T O P S = = " a l w a y s " )
{
i f ( E M E R G E N C Y _ S T O P S _ R E L > 0 | | E M E R G E N C Y _ S T O P S _ A D D > 0 )
{
s l = v s l - E M E R G E N C Y _ S T O P S _ R E L * M a t h A b s ( a s k b i d - v s l ) * b s ;
i f ( s l < = 0 ) { s l = a s k b i d ; }
s l = s l - t o D i g i t s ( E M E R G E N C Y _ S T O P S _ A D D , s y m b o l ) * b s ;
}
}
i f ( v t p > 0 | | U S E _ E M E R G E N C Y _ S T O P S = = " a l w a y s " )
{
i f ( E M E R G E N C Y _ S T O P S _ R E L > 0 | | E M E R G E N C Y _ S T O P S _ A D D > 0 )
{
t p = v t p + E M E R G E N C Y _ S T O P S _ R E L * M a t h A b s ( v t p - a s k b i d ) * b s ;
i f ( t p < = 0 ) { t p = a s k b i d ; }
t p = t p + t o D i g i t s ( E M E R G E N C Y _ S T O P S _ A D D , s y m b o l ) * b s ;
}
}
v s l = N o r m a l i z e D o u b l e ( v s l , d i g i t s ) ;
v t p = N o r m a l i z e D o u b l e ( v t p , d i g i t s ) ;
}
s l = N o r m a l i z e D o u b l e ( s l , d i g i t s ) ;
t p = N o r m a l i z e D o u b l e ( t p , d i g i t s ) ;
/ / - - s e n d - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
M q l T r a d e R e q u e s t r e q u e s t ;
M q l T r a d e R e s u l t r e s u l t ;
M q l T r a d e C h e c k R e s u l t c h e c k _ r e s u l t ;
Z e r o M e m o r y ( r e q u e s t ) ;
Z e r o M e m o r y ( r e s u l t ) ;
Z e r o M e m o r y ( c h e c k _ r e s u l t ) ;
E N U M _ S Y M B O L _ T R A D E _ E X E C U T I O N e x e c = ( E N U M _ S Y M B O L _ T R A D E _ E X E C U T I O N ) 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 _ E X E M O D E ) ;
/ / - - f i x p r i c e s b y t i c k s i z e
o p = M a t h R o u n d ( o p / t i c k s i z e ) * t i c k s i z e ;
s l = M a t h R o u n d ( s l / t i c k s i z e ) * t i c k s i z e ;
t p = M a t h R o u n d ( t p / t i c k s i z e ) * t i c k s i z e ;
r e q u e s t . s y m b o l = s y m b o l ;
r e q u e s t . t y p e = ( E N U M _ O R D E R _ T Y P E ) t y p e ;
r e q u e s t . v o l u m e = l o t s ;
r e q u e s t . p r i c e = o p ;
r e q u e s t . d e v i a t i o n = ( u l o n g ) ( s l i p p a g e * P i p V a l u e ( s y m b o l ) ) ;
r e q u e s t . s l = s l ;
r e q u e s t . t p = t p ;
r e q u e s t . c o m m e n t = c o m m e n t ;
r e q u e s t . m a g i c = m a g i c ;
r e q u e s t . t y p e _ t i m e = E x p i r a t i o n T y p e B y T i m e ( s y m b o l , e x p i r a t i o n ) ;
r e q u e s t . e x p i r a t i o n = e x p i r a t i o n ;
/ / - - r e q u e s t a c t i o n
i f ( t y p e > O R D E R _ T Y P E _ S E L L )
{
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ P E N D I N G ;
}
e l s e
{
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ D E A L ;
}
/ / - - f i l l i n g t y p e
/ / c h e c k O R D E R _ F I L L I N G _ R E T U R N f o r p e n d i n g o r d e r s o n l y
i f ( t y p e > O R D E R _ T Y P E _ S E L L )
{
i f ( I s F i l l i n g T y p e A l l o w e d ( s y m b o l , O R D E R _ F I L L I N G _ R E T U R N ) )
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ R E T U R N ;
e l s e i f ( I s F i l l i n g T y p e A l l o w e d ( s y m b o l , O R D E R _ F I L L I N G _ F O K ) )
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ F O K ;
e l s e i f ( I s F i l l i n g T y p e A l l o w e d ( s y m b o l , O R D E R _ F I L L I N G _ I O C ) )
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ I O C ;
}
e l s e
{
/ / i n c a s e o f p o s i t i o n s I w o u l d c h e c k f o r S Y M B O L _ F I L L I N G _ a n d t h e n s e t O R D E R _ F I L L I N G _
/ / t h i s i s b e c a u s e i t a p p e a r s t h a t I s F i l l i n g T y p e A l l o w e d ( ) w o r k s c o r r e c t w i t h S Y M B O L _ F I L L I N G _ , b u t t h e n t h e p o s i t i o n w o r k s c o r r e c t l y w i t h O R D E R _ F I L L I N G _
/ / F O K a n d I O C i n t e g e r v a l u e s a r e n o t t h e s a m e f o r O R D E R a n d S Y M B O L
i f ( I s F i l l i n g T y p e A l l o w e d ( s y m b o l , S Y M B O L _ F I L L I N G _ F O K ) )
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ F O K ;
e l s e i f ( I s F i l l i n g T y p e A l l o w e d ( s y m b o l , S Y M B O L _ F I L L I N G _ I O C ) )
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ I O C ;
e l s e i f ( I s F i l l i n g T y p e A l l o w e d ( s y m b o l , O R D E R _ F I L L I N G _ R E T U R N ) ) / / j u s t i n c a s e
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ R E T U R N ;
e l s e
r e q u e s t . t y p e _ f i l l i n g = O R D E R _ F I L L I N G _ R E T U R N ;
}
i f ( ! O r d e r C h e c k ( r e q u e s t , c h e c k _ r e s u l t ) )
{
P r i n t ( " O r d e r C h e c k ( ) f a i l e d : " , ( s t r i n g ) c h e c k _ r e s u l t . c o m m e n t , " ( " , ( s t r i n g ) c h e c k _ r e s u l t . r e t c o d e , " ) " ) ;
r e t u r n - 1 ;
}
b o o l s u c c e s s = O r d e r S e n d ( r e q u e s t , r e s u l t ) ;
/ / - - c h e c k s e c u r i t y f l a g - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( s u c c e s s e d = = t r u e )
{
P r i n t ( " T h e p r o g r a m w i l l b e r e m o v e d b e c a u s e o f s u s p i c i o u s a t t e m p t t o c r e a t e a n e w p o s i t i o n " ) ;
E x p e r t R e m o v e ( ) ;
S l e e p ( 1 0 0 0 0 ) ;
b r e a k ;
}
i f ( s u c c e s s ) { s u c c e s s e d = t r u e ; }
/ / - - e r r o r c h e c k - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f (
s u c c e s s = = f a l s e
| | (
r e s u l t . r e t c o d e ! = T R A D E _ R E T C O D E _ D O N E
& & r e s u l t . r e t c o d e ! = T R A D E _ R E T C O D E _ P L A C E D
& & r e s u l t . r e t c o d e ! = T R A D E _ R E T C O D E _ D O N E _ P A R T I A L
)
)
{
s t r i n g e r r m s g p f x = ( t y p e > O R D E R _ T Y P E _ S E L L ) ? " N e w p e n d i n g o r d e r e r r o r " : " N e w p o s i t i o n e r r o r " ;
i n t e r r a c t i o n = C h e c k F o r T r a d i n g E r r o r ( r e s u l t . r e t c o d e , e r r m s g p f x ) ;
s w i t c h ( e r r a c t i o n )
{
c a s e 0 : b r e a k ; / / n o e r r o r
c a s e 1 : c o n t i n u e ; / / o v e r c o m a b l e e r r o r
c a s e 2 : b r e a k ; / / f a t a l e r r o r
}
r e t u r n - 1 ;
}
/ / - - f i n i s h w o r k - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f (
r e s u l t . r e t c o d e = = T R A D E _ R E T C O D E _ D O N E
| | r e s u l t . r e t c o d e = = T R A D E _ R E T C O D E _ P L A C E D
| | r e s u l t . r e t c o d e = = T R A D E _ R E T C O D E _ D O N E _ P A R T I A L
) {
t i c k e t = r e s u l t . o r d e r ;
/ / = = W h a t e v e r w a s c r e a t e d , w e n e e d t o w a i t u n t i l M T 5 u p d a t e s i t ' s c a c h e
/ / - - S y n c h r o n i z e : P o s i t i o n
i f ( t y p e < = O R D E R _ T Y P E _ S E L L )
{
i f ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ M A R G I N _ M O D E ) = = A C C O U N T _ M A R G I N _ M O D E _ R E T A I L _ N E T T I N G )
{
i f ( c l o s i n g = = f a l s e )
{
/ / - n e w p o s i t i o n : 2 s i t u a t i o n s h e r e - n e w p o s i t i o n o r a d d t o p o s i t i o n
/ / - . . . b e c a u s e o f t h a t w e w i l l c h e c k t h e l o t s i z e i n s t e a d o f P o s i t i o n S e l e c t
w h i l e ( t r u e )
{
i f ( P o s i t i o n S e l e c t ( s y m b o l ) & & ( l o t s 0 ! = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ V O L U M E ) , 5 ) ) ) { b r e a k ; }
S l e e p ( 1 0 ) ;
}
}
e l s e
{
/ / - c l o s i n g p o s i t i o n : f u l l
i f ( l o t s 0 = = N o r m a l i z e D o u b l e ( r e s u l t . v o l u m e , 5 ) )
{
w h i l e ( t r u e )
{
i f ( ! P o s i t i o n S e l e c t ( s y m b o l ) ) { b r e a k ; }
S l e e p ( 1 0 ) ;
}
}
/ / - c l o s i n g p o s i t i o n : p a r t i a l
e l s e i f ( l o t s 0 > N o r m a l i z e D o u b l e ( r e s u l t . v o l u m e , 5 ) )
{
w h i l e ( t r u e )
{
i f ( P o s i t i o n S e l e c t ( s y m b o l ) & & ( l o t s 0 ! = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ V O L U M E ) , 5 ) ) ) { b r e a k ; }
S l e e p ( 1 0 ) ;
}
}
e l s e i f ( l o t s 0 < N o r m a l i z e D o u b l e ( r e s u l t . v o l u m e , 5 ) )
{
/ / - - p o s i t i o n r e v e r s e
w h i l e ( t r u e )
{
i f ( P o s i t i o n S e l e c t ( s y m b o l ) & & ( t y p e 0 ! = P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) ) ) { b r e a k ; }
S l e e p ( 1 0 ) ;
}
}
}
}
e l s e i f ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ M A R G I N _ M O D E ) = = A C C O U N T _ M A R G I N _ M O D E _ R E T A I L _ H E D G I N G )
{
i f ( c l o s i n g = = f a l s e )
{
w h i l e ( t r u e )
{
i f ( P o s i t i o n S e l e c t B y T i c k e t ( t i c k e t ) ) { b r e a k ; }
S l e e p ( 1 0 ) ;
}
}
}
}
/ / - - S y n c h r o n i z e : O r d e r
e l s e
{
w h i l e ( t r u e )
{
i f ( L o a d P e n d i n g O r d e r ( r e s u l t . o r d e r ) ) { b r e a k ; }
S l e e p ( 1 0 ) ;
}
}
/ / - - f i x a r r o w c o l o r ( i t w o r k s o n l y i n v i s u a l m o d e )
/ / T O D O : t h i s p i e c e o f c o d e s l o w s d o w n t h e b a c k t e s t f o r s o m e r e a s o n
i f ( 0 & & M Q L I n f o I n t e g e r ( M Q L _ V I S U A L _ M O D E ) & & a r r o w c o l o r ! = C L R _ N O N E )
{
i f ( t y p e < = O R D E R _ T Y P E _ S E L L )
{
u i n t t 0 = G e t T i c k C o u n t ( ) ;
E N U M _ O B J E C T o b j T y p e = ( t y p e = = P O S I T I O N _ T Y P E _ B U Y ) ? O B J _ A R R O W _ B U Y : O B J _ A R R O W _ S E L L ;
/ / w a i t f o r t h e o b j e c t t o b e c r e a t e d ( M Q L 5 i s a s y n c e v e n h e r e )
w h i l e ( t r u e )
{
i n t t o t a l = O b j e c t s T o t a l ( 0 , 0 , o b j T y p e ) ;
s t r i n g n a m e = O b j e c t N a m e ( 0 , t o t a l - 1 , 0 , o b j T y p e ) ;
d a t e t i m e o b j T i m e = ( d a t e t i m e ) O b j e c t G e t I n t e g e r ( 0 , n a m e , O B J P R O P _ T I M E ) ;
i f ( o b j T i m e > T i m e C u r r e n t ( ) - 1 )
{
i f ( S t r i n g F i n d ( n a m e , " # " + I n t e g e r T o S t r i n g ( t i c k e t ) + " " ) = = 0 )
{
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , a r r o w c o l o r ) ;
}
b r e a k ;
}
i f ( G e t T i c k C o u n t ( ) - t 0 > 1 0 0 0 ) b r e a k ;
}
}
e l s e
{
/ / P e n d i n g o r d e r s d o n ' t h a v e a r r o w s
}
}
}
i f ( t i c k e t > 0 )
{
i f ( U S E _ V I R T U A L _ S T O P S )
{
V i r t u a l S t o p s D r i v e r ( " s e t " , t i c k e t , v s l , v t p , t o P i p s ( M a t h A b s ( o p - v s l ) , s y m b o l ) , t o P i p s ( M a t h A b s ( v t p - o p ) , s y m b o l ) ) ;
}
/ / - - s h o w s o m e i n f o
d o u b l e s l i p = 0 ;
i f ( L o a d P o s i t i o n ( t i c k e t ) )
{
i f ( p l a c e E x p i r a t i o n O b j e c t )
{
e x p i r a t i o n W o r k e r . S e t E x p i r a t i o n ( t i c k e t , e x p i r a t i o n ) ;
}
i f (
! M Q L I n f o I n t e g e r ( M Q L _ T E S T E R )
& & ! M Q L I n f o I n t e g e r ( M Q L _ V I S U A L _ M O D E )
& & ! M Q L I n f o I n t e g e r ( M Q L _ O P T I M I Z A T I O N )
) {
s l i p = O r d e r O p e n P r i c e ( ) - o p ;
P r i n t (
" O p e r a t i o n d e t a i l s : S p e e d " ,
( G e t T i c k C o u n t ( ) - t i m e 0 ) ,
" m s | S l i p p a g e " ,
D o u b l e T o S t r ( t o P i p s ( s l i p , s y m b o l ) , 1 ) ,
" p i p s "
) ;
}
}
/ / - - f i x s t o p s i n c a s e o f s l i p p a g e
i f (
! M Q L I n f o I n t e g e r ( M Q L _ T E S T E R )
& & ! M Q L I n f o I n t e g e r ( M Q L _ V I S U A L _ M O D E )
& & ! M Q L I n f o I n t e g e r ( M Q L _ O P T I M I Z A T I O N )
) {
s l i 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 ) - N o r m a l i z e D o u b l e ( o p , d i g i t s ) ;
i f ( s l i p ! = 0 & & ( O r d e r S t o p L o s s ( ) ! = 0 | | O r d e r T a k e P r o f i t ( ) ! = 0 ) )
{
P r i n t ( " C o r r e c t i n g s t o p s b e c a u s e o f s l i p p a g e . . . " ) ;
s l = O r d e r S t o p L o s s ( ) ;
t p = O r d e r T a k e P r o f i t ( ) ;
i f ( s l ! = 0 | | t p ! = 0 )
{
i f ( s l ! = 0 ) { 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 ( ) + s l i p , d i g i t s ) ; }
i f ( t p ! = 0 ) { t p = 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 ( ) + s l i p , d i g i t s ) ; }
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 ( ) , s l , t p , 0 , 0 ) ;
}
}
}
/ / R e g i s t e r E v e n t ( " t r a d e " ) ;
b r e a k ;
}
b r e a k ;
}
i f ( o c o = = t r u e & & t i c k e t > 0 )
{
i f ( U S E _ V I R T U A L _ S T O P S )
{
s l = v s l ;
t p = v t p ;
}
s l = ( s l > 0 ) ? N o r m a l i z e D o u b l e ( M a t h A b s ( o p - s l ) , d i g i t s ) : 0 ;
t p = ( t p > 0 ) ? N o r m a l i z e D o u b l e ( M a t h A b s ( o p - t p ) , d i g i t s ) : 0 ;
i n t t y p e o c o = t y p e ;
i f ( t y p e o c o = = O R D E R _ T Y P E _ B U Y _ S T O P )
{
t y p e o c o = O R D E R _ T Y P E _ S E L L _ S T O P ;
o p = b i d - M a t h A b s ( o p - a s k ) ;
}
e l s e i f ( t y p e o c o = = O R D E R _ T Y P E _ B U Y _ L I M I T )
{
t y p e o c o = O R D E R _ T Y P E _ S E L L _ L I M I T ;
o p = b i d + M a t h A b s ( o p - a s k ) ;
}
e l s e i f ( t y p e o c o = = O R D E R _ T Y P E _ S E L L _ S T O P )
{
t y p e o c o = O R D E R _ T Y P E _ B U Y _ S T O P ;
o p = a s k + M a t h A b s ( o p - b i d ) ;
}
e l s e i f ( t y p e o c o = = O R D E R _ T Y P E _ S E L L _ L I M I T )
{
t y p e o c o = O R D E R _ T Y P E _ B U Y _ L I M I T ;
o p = a s k - M a t h A b s ( o p - b i d ) ;
}
i f ( t y p e o c o = = O R D E R _ T Y P E _ B U Y _ S T O P | | t y p e o c o = = O R D E R _ T Y P E _ B U Y _ L I M I T )
{
s l = ( s l > 0 ) ? o p - s l : 0 ;
t p = ( t p > 0 ) ? o p + t p : 0 ;
}
e l s e {
s l = ( s l > 0 ) ? o p + s l : 0 ;
t p = ( t p > 0 ) ? o p - t p : 0 ;
}
c o m m e n t = " [ o c o : " + ( s t r i n g ) t i c k e t + " ] " ;
O r d e r C r e a t e (
s y m b o l ,
t y p e o c o ,
l o t s ,
o p ,
s l ,
t p ,
0 ,
0 ,
s l i p p a g e ,
m a g i c ,
c o m m e n t ,
a r r o w c o l o r ,
e x p i r a t i o n ,
f a l s e
) ;
}
O n T r a d e ( ) ;
r e t u r n ( l o n g ) t i c k e t ;
}
d a t e t i m e O r d e r E x p i r a t i o n ( )
{
r e t u r n O r d e r E x p i r a t i o n T i m e ( ) ;
}
d a t e t i m e O r d e r E x p i r a t i o n T i m e ( )
{
i n t L o a d e d T y p e = L o a d e d T y p e ( ) ;
i f ( L o a d e d T y p e = = 1 ) r e t u r n e x p i r a t i o n W o r k e r . G e t E x p i r a t i o n ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I C K E T ) ) ;
i f ( L o a d e d T y p e = = 2 ) r e t u r n ( d a t e t i m e ) O r d e r G e t I n t e g e r ( O R D E R _ T I M E _ E X P I R A T I O N ) ;
r e t u r n 0 ;
}
d o u b l e O r d e r L o t s ( )
{
i n t t y p e = L o a d e d T y p e ( ) ;
d o u b l e l o t s = 0 ;
i f ( t y p e = = 1 ) {
l o t s = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ V O L U M E ) ;
}
e l s e i f ( t y p e = = 3 ) {
/ / C a l c u l a t e l o t s a s t h e d i f f e r e n c e b e t w e e n t h e i n t i a l l o t s
/ / a n d t h e l o t s o f a l l
l o n g p o s i t i o n I d = H i s t o r y D e a l G e t I n t e g e r ( O r d e r T i c k e t ( ) , D E A L _ P O S I T I O N _ I D ) ;
H i s t o r y S e l e c t B y P o s i t i o n ( p o s i t i o n I d ) ;
i n t t o t a l = H i s t o r y D e a l s T o t a l ( ) ;
l o t s = 0 . 0 ;
f o r ( i n t i = 0 ; i < t o t a l ; i + + ) {
u l o n g t i c k e t = H i s t o r y D e a l G e t T i c k e t ( i ) ;
E N U M _ D E A L _ E N T R Y e n t r y = ( E N U M _ D E A L _ E N T R Y ) H i s t o r y D e a l G e t I n t e g e r ( t i c k e t , D E A L _ E N T R Y ) ;
d o u b l e d e a l V o l u m e = H i s t o r y D e a l G e t D o u b l e ( t i c k e t , D E A L _ V O L U M E ) ;
i f ( e n t r y = = D E A L _ E N T R Y _ I N ) {
l o t s + = d e a l V o l u m e ;
}
e l s e {
/ / I f t h e l a s t d e a l i s t h e f i n a l c l o s e , i t ' s s i z e w o u l d b e t h e s a m e a s t h e
/ / c a l c u l a t e d l o t s . I n t h i s c a s e , s k i p , o t h e r w i s e t h e f i n a l l o t s w i l l b e 0 .
i f ( N o r m a l i z e D o u b l e ( d e a l V o l u m e , 4 ) < N o r m a l i z e D o u b l e ( l o t s , 4 ) ) {
l o t s - = d e a l V o l u m e ;
}
}
}
H i s t o r y T r a d e s T o t a l R e s e t ( ) ;
}
e l s e i f ( t y p e = = 4 ) { l o t s = H i s t o r y O r d e r G e t D o u b l e ( O r d e r T i c k e t ( ) , O R D E R _ V O L U M E _ I N I T I A L ) ; }
e l s e { l o t s = O r d e r G e t D o u b l e ( O R D E R _ V O L U M E _ C U R R E N T ) ; }
r e t u r n N o r m a l i z e D o u b l e ( l o t s , 2 ) ;
}
i n t O r d e r M a g i c N u m b e r ( )
{
i n t t y p e = L o a d e d T y p e ( ) ;
i f ( t y p e = = 1 ) { r e t u r n ( i n t ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) ; }
i f ( t y p e = = 3 ) { r e t u r n ( i n t ) H i s t o r y O r d e r G e t I n t e g e r ( H i s t o r y D e a l G e t I n t e g e r ( O r d e r T i c k e t ( ) , D E A L _ P O S I T I O N _ I D ) , O R D E R _ M A G I C ) ; }
i f ( t y p e = = 4 ) { r e t u r n ( i n t ) H i s t o r y O r d e r G e t I n t e g e r ( O r d e r T i c k e t ( ) , O R D E R _ M A G I C ) ; }
r e t u r n ( i n t ) O r d e r G e t I n t e g e r ( O R D E R _ M A G I C ) ;
}
b o o l O r d e r M o d i f i e d ( u l o n g t i c k e t = 0 , s t r i n g a c t i o n = " s e t " )
{
s t a t i c u l o n g m e m o r y [ ] ;
i f ( t i c k e t = = 0 )
{
t i c k e t = O r d e r T i c k e t ( ) ;
a c t i o n = " g e t " ;
}
e l s e i f ( t i c k e t > 0 & & a c t i o n ! = " c l e a r " )
{
a c t i o n = " s e t " ;
}
b o o l m o d i f i e d _ s t a t u s = I n A r r a y ( m e m o r y , t i c k e t ) ;
i f ( a c t i o n = = " g e t " )
{
r e t u r n m o d i f i e d _ s t a t u s ;
}
e l s e i f ( a c t i o n = = " s e t " )
{
A r r a y E n s u r e V a l u e ( m e m o r y , t i c k e t ) ;
r e t u r n t r u e ;
}
e l s e i f ( a c t i o n = = " c l e a r " )
{
A r r a y S t r i p V a l u e ( m e m o r y , t i c k e t ) ;
r e t u r n t r u e ;
}
r e t u r n f a l s e ;
}
d o u b l e O r d e r O p e n P r i c e ( )
{
d o u b l e o p = 0 . 0 ;
i n t t y p e = L o a d e d T y p e ( ) ;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( O r d e r S y m b o l ( ) , S Y M B O L _ D I G I T S ) ;
i f ( t y p e = = 1 )
{
o p = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R I C E _ O P E N ) ;
}
e l s e i f ( t y p e = = 3 )
{
/ / G e t t h e v a l u e f r o m t h e v e r y f i r s t d e a l i n t h e p o s i t i o n
u l o n g p o s i t i o n I d = H i s t o r y D e a l G e t I n t e g e r ( O r d e r T i c k e t ( ) , D E A L _ P O S I T I O N _ I D ) ;
H i s t o r y S e l e c t B y P o s i t i o n ( p o s i t i o n I d ) ;
u l o n g t i c k e t = H i s t o r y D e a l G e t T i c k e t ( 0 ) ;
o p = H i s t o r y D e a l G e t D o u b l e ( t i c k e t , D E A L _ P R I C E ) ;
H i s t o r y T r a d e s T o t a l R e s e t ( ) ;
}
e l s e i f ( t y p e = = 4 )
{
o p = H i s t o r y O r d e r G e t D o u b l e ( O r d e r T i c k e t ( ) , O R D E R _ P R I C E _ O P E N ) ;
}
e l s e
{
o p = O r d e r G e t D o u b l e ( O R D E R _ P R I C E _ O P E N ) ;
}
r e t u r n N o r m a l i z e D o u b l e ( o p , d i g i t s ) ;
}
d a t e t i m e O r d e r O p e n T i m e ( )
{
d a t e t i m e t i m e = 0 ;
i n t t y p e = L o a d e d T y p e ( ) ;
i f ( t y p e = = 1 )
{
t i m e = ( d a t e t i m e ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I M E ) ;
}
e l s e i f ( t y p e = = 3 )
{
/ / G e t t h e v a l u e f r o m t h e v e r y f i r s t d e a l i n t h e p o s i t i o n
u l o n g p o s i t i o n I d = H i s t o r y D e a l G e t I n t e g e r ( O r d e r T i c k e t ( ) , D E A L _ P O S I T I O N _ I D ) ;
u l o n g t i c k e t = H i s t o r y D e a l G e t T i c k e t ( 0 ) ;
t i m e = ( d a t e t i m e ) H i s t o r y D e a l G e t I n t e g e r ( t i c k e t , D E A L _ T I M E ) ;
H i s t o r y T r a d e s T o t a l R e s e t ( ) ;
}
e l s e i f ( t y p e = = 4 )
{
t i m e = ( d a t e t i m e ) H i s t o r y O r d e r G e t I n t e g e r ( O r d e r T i c k e t ( ) , O R D E R _ T I M E _ S E T U P ) ;
}
e l s e
{
t i m e = ( d a t e t i m e ) O r d e r G e t I n t e g e r ( O R D E R _ T I M E _ S E T U P ) ;
}
r e t u r n t i m e ;
}
d o u b l e O r d e r S t o p L o s s ( )
{
i n t t y p e = L o a d e d T y p e ( ) ;
i f ( t y p e = = 1 ) { r e t u r n P o s i t i o n G e t D o u b l e ( P O S I T I O N _ S L ) ; }
i f ( t y p e = = 3 ) { r e t u r n H i s t o r y D e a l G e t D o u b l e ( O r d e r T i c k e t ( ) , D E A L _ S L ) ; }
i f ( t y p e = = 4 ) { r e t u r n H i s t o r y O r d e r G e t D o u b l e ( O r d e r T i c k e t ( ) , O R D E R _ S L ) ; }
r e t u r n O r d e r G e t D o u b l e ( O R D E R _ S L ) ;
}
s t r i n g O r d e r S y m b o l ( )
{
i n t t y p e = L o a d e d T y p e ( ) ;
i f ( t y p e = = 1 ) { r e t u r n P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) ; }
i f ( t y p e = = 3 ) { r e t u r n H i s t o r y D e a l G e t S t r i n g ( O r d e r T i c k e t ( ) , D E A L _ S Y M B O L ) ; }
i f ( t y p e = = 4 ) { r e t u r n H i s t o r y O r d e r G e t S t r i n g ( O r d e r T i c k e t ( ) , O R D E R _ S Y M B O L ) ; }
r e t u r n O r d e r G e t S t r i n g ( O R D E R _ S Y M B O L ) ;
}
d o u b l e O r d e r T a k e P r o f i t ( )
{
i n t t y p e = L o a d e d T y p e ( ) ;
i f ( t y p e = = 1 ) { r e t u r n P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) ; }
i f ( t y p e = = 3 ) { r e t u r n H i s t o r y D e a l G e t D o u b l e ( O r d e r T i c k e t ( ) , D E A L _ T P ) ; }
i f ( t y p e = = 4 ) { r e t u r n H i s t o r y O r d e r G e t D o u b l e ( O r d e r T i c k e t ( ) , O R D E R _ T P ) ; }
r e t u r n O r d e r G e t D o u b l e ( O R D E R _ T P ) ;
}
l o n g O r d e r T i c k e t ( l o n g t i c k e t = 0 )
{
s t a t i c l o n g m e m o r y = 0 ;
i f ( t i c k e t > 0 ) { m e m o r y = t i c k e t ; }
r e t u r n m e m o r y ;
}
i n t O r d e r T y p e ( )
{
i n t t y p e = L o a d e d T y p e ( ) ;
i f ( t y p e = = 1 ) { r e t u r n ( i n t ) P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) ; }
i f ( t y p e = = 2 ) { r e t u r n ( i n t ) O r d e r G e t I n t e g e r ( O R D E R _ T Y P E ) ; }
i f ( t y p e = = 3 )
{
u l o n g d e a l T i c k e t = O r d e r T i c k e t ( ) ;
l o n g p o s i t i o n I d = H i s t o r y D e a l G e t I n t e g e r ( d e a l T i c k e t , D E A L _ P O S I T I O N _ I D ) ;
H i s t o r y S e l e c t B y P o s i t i o n ( p o s i t i o n I d ) ;
u l o n g f i r s t D e a l T i c k e t = H i s t o r y D e a l G e t T i c k e t ( 0 ) ;
i n t o r d e r T y p e = ( i n t ) H i s t o r y D e a l G e t I n t e g e r ( f i r s t D e a l T i c k e t , D E A L _ T Y P E ) ;
H i s t o r y T r a d e s T o t a l R e s e t ( ) ;
r e t u r n o r d e r T y p e ;
}
i f ( t y p e = = 4 ) { r e t u r n ( i n t ) H i s t o r y O r d e r G e t I n t e g e r ( O r d e r T i c k e t ( ) , O R D E R _ T Y P E ) ; }
r e t u r n ( i n t ) O r d e r G e t I n t e g e r ( O R D E R _ T Y P E ) ;
}
b o o l P e n d i n g O r d e r S e l e c t B y T i c k e t ( u l o n g t i c k e t )
{
b o o l s u c c e s s = O r d e r S e l e c t ( t i c k e t ) ;
i f ( s u c c e s s ) {
L o a d e d T y p e ( 2 ) ;
O r d e r T i c k e t ( t i c k e t ) ;
}
r e t u r n s u c c e s s ;
}
d o u b l e P i p V a l u e ( s t r i n g s y m b o l )
{
i f ( s y m b o l = = " " ) s y m b o l = S y m b o l ( ) ;
r e t u r n C u s t o m P o i n t ( s y m b o l ) / S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ P O I N T ) ;
}
b o o l P o s i t i o n S e l e c t B y D e a l ( u l o n g d e a l T i c k e t )
{
b o o l s u c c e s s = f a l s e ;
l o n g p o s i t i o n I d = H i s t o r y D e a l G e t I n t e g e r ( d e a l T i c k e t , D E A L _ P O S I T I O N _ I D ) ;
i f ( p o s i t i o n I d )
{
i n t t o t a l = P o s i t i o n s T o t a l ( ) ;
f o r ( i n t i = t o t a l - 1 ; i > = 0 ; i - - )
{
i f ( P o s i t i o n G e t T i c k e t ( i ) )
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ I D E N T I F I E R ) = = p o s i t i o n I d )
{
s u c c e s s = t r u e ;
b r e a k ;
}
}
}
}
r e t u r n s u c c e s s ;
}
i n t S e c o n d s F r o m C o m p o n e n t s ( d o u b l e d a y s , d o u b l e h o u r s , d o u b l e m i n u t e s , i n t s e c o n d s )
{
i n t r e t v a l =
8 6 4 0 0 * ( i n t ) M a t h F l o o r ( d a y s )
+ 3 6 0 0 * ( i n t ) ( M a t h F l o o r ( h o u r s ) + ( 2 4 * ( d a y s - M a t h F l o o r ( d a y s ) ) ) )
+ 6 0 * ( i n t ) ( M a t h F l o o r ( m i n u t e s ) + ( 6 0 * ( h o u r s - M a t h F l o o r ( h o u r s ) ) ) )
+ ( i n t ) ( ( d o u b l e ) s e c o n d s + ( 6 0 * ( m i n u t e s - M a t h F l o o r ( m i n u t e s ) ) ) ) ;
r e t u r n r e t v a l ;
}
d a t e t i m e S e l e c t e d H i s t o r y F r o m T i m e ( d a t e t i m e s e t T i m e = - 1 )
{
s t a t i c d a t e t i m e t i m e ;
i f ( s e t T i m e > - 1 )
{
t i m e = s e t T i m e ;
}
r e t u r n t i m e ;
}
d a t e t i m e S e l e c t e d H i s t o r y T o T i m e ( d a t e t i m e s e t T i m e = - 1 )
{
s t a t i c d a t e t i m e t i m e ;
i f ( s e t T i m e > - 1 )
{
t i m e = s e t T i m e ;
}
r e t u r n t i m e ;
}
i n t S t r T o I n t e g e r ( s t r i n g v a l u e )
{
r e t u r n ( i n t ) S t r i n g T o I n t e g e r ( v a l u e ) ;
}
t e m p l a t e < t y p e n a m e T >
v o i d S t r i n g E x p l o d e ( s t r i n g d e l i m i t e r , s t r i n g i n p u t S t r i n g , T & o u t p u t [ ] )
{
i n t b e g i n = 0 ;
i n t e n d = 0 ;
i n t e l e m e n t = 0 ;
i n t l e n g t h = S t r i n g L e n ( i n p u t S t r i n g ) ;
i n t l e n g t h _ d e l i m i t e r = S t r i n g L e n ( d e l i m i t e r ) ;
T e m p t y _ v a l = ( t y p e n a m e ( T ) = = " s t r i n g " ) ? ( T ) " " : ( T ) 0 ;
i f ( l e n g t h > 0 )
{
w h i l e ( t r u e )
{
e n d = S t r i n g F i n d ( i n p u t S t r i n g , d e l i m i t e r , b e g i n ) ;
A r r a y R e s i z e ( o u t p u t , e l e m e n t + 1 ) ;
o u t p u t [ e l e m e n t ] = e m p t y _ v a l ;
i f ( e n d ! = - 1 )
{
i f ( e n d > b e g i n )
{
o u t p u t [ e l e m e n t ] = ( T ) S t r i n g S u b s t r ( i n p u t S t r i n g , b e g i n , e n d - b e g i n ) ;
}
}
e l s e
{
o u t p u t [ e l e m e n t ] = ( T ) S t r i n g S u b s t r ( i n p u t S t r i n g , b e g i n , l e n g t h - b e g i n ) ;
b r e a k ;
}
b e g i n = e n d + 1 + ( l e n g t h _ d e l i m i t e r - 1 ) ;
e l e m e n t + + ;
}
}
e l s e
{
A r r a y R e s i z e ( o u t p u t , 1 ) ;
o u t p u t [ e l e m e n t ] = e m p t y _ v a l ;
}
}
t e m p l a t e < t y p e n a m e T >
s t r i n g S t r i n g I m p l o d e ( s t r i n g d e l i m e t e r , T & a r r a y [ ] )
{
s t r i n g r e t v a l = " " ;
i n t s i z e = A r r a y S i z e ( a r r a y ) ;
f o r ( i n t i = 0 ; i < s i z e ; i + + )
{
S t r i n g C o n c a t e n a t e ( r e t v a l , r e t v a l , ( s t r i n g ) a r r a y [ i ] , d e l i m e t e r ) ;
}
r e t u r n S t r i n g S u b s t r ( r e t v a l , 0 , ( S t r i n g L e n ( r e t v a l ) - S t r i n g L e n ( d e l i m e t e r ) ) ) ;
}
d a t e t i m e S t r i n g T o T i m e E x ( s t r i n g s t r , s t r i n g m o d e = " s e r v e r " )
{
/ / m o d e : s e r v e r , l o c a l , g m t
i n t o f f s e t = 0 ;
i f ( m o d e = = " s e r v e r " ) { o f f s e t = 0 ; }
e l s e i f ( m o d e = = " l o c a l " ) { o f f s e t = ( i n t ) ( T i m e L o c a l ( ) - T i m e C u r r e n t ( ) ) ; }
e l s e i f ( m o d e = = " g m t " ) { o f f s e t = ( i n t ) ( T i m e G M T ( ) - T i m e C u r r e n t ( ) ) ; }
d a t e t i m e t i m e = S t r i n g T o T i m e ( s t r ) - o f f s e t ;
r e t u r n t i m e ;
}
s t r i n g S t r i n g T r i m ( s t r i n g t e x t )
{
S t r i n g T r i m R i g h t ( t e x t ) ;
S t r i n g T r i m L e f t ( t e x t ) ;
r e t u r n t e x t ;
}
d o u b l e S y m b o l A s k ( s t r i n g s y m b o l )
{
i f ( s y m b o l = = " " ) s y m b o l = S y m b o l ( ) ;
r e t u r n S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) ;
}
i n t S y m b o l D i g i t s ( s t r i n g s y m b o l )
{
i f ( s y m b o l = = " " ) s y m b o l = S y m b o l ( ) ;
r e t u r n ( 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 _ D I G I T S ) ;
}
d o u b l e S y m b o l L o t S i z e ( s t r i n g s y m b o l )
{
i f ( s y m b o l = = " " ) s y m b o l = S y m b o l ( ) ;
r e t u r n S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ T R A D E _ C O N T R A C T _ S I Z E ) ;
}
d o u b l e S y m b o l L o t S t e p ( s t r i n g s y m b o l )
{
i f ( s y m b o l = = " " ) s y m b o l = S y m b o l ( ) ;
r e t u r n S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ S T E P ) ;
}
d o u b l e S y m b o l M a x L o t ( s t r i n g s y m b o l )
{
i f ( s y m b o l = = " " ) s y m b o l = S y m b o l ( ) ;
r e t u r n S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M A X ) ;
}
d o u b l e S y m b o l M i n L o t ( s t r i n g s y m b o l )
{
i f ( s y m b o l = = " " ) s y m b o l = S y m b o l ( ) ;
r e t u r n S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M I N ) ;
}
d o u b l e T i c k s D a t a ( s t r i n g s y m b o l = " " , i n t t y p e = 0 , i n t s h i f t = 0 )
{
s t a t i c b o o l c o l l e c t i n g _ t i c k s = f a l s e ;
s t a t i c s t r i n g s y m b o l s [ ] ;
s t a t i c i n t z e r o _ s i d [ ] ;
s t a t i c d o u b l e m e m o r y A S K [ ] [ 1 0 0 ] ;
s t a t i c d o u b l e m e m o r y B I D [ ] [ 1 0 0 ] ;
i n t s i d = 0 , s i z e = 0 , i = 0 , i d = 0 ;
d o u b l e a s k = 0 , b i d = 0 , r e t v a l = 0 ;
b o o l e x i s t s = f a l s e ;
i f ( A r r a y S i z e ( s y m b o l s ) = = 0 )
{
A r r a y R e s i z e ( s y m b o l s , 1 ) ;
A r r a y R e s i z e ( z e r o _ s i d , 1 ) ;
A r r a y R e s i z e ( m e m o r y A S K , 1 ) ;
A r r a y R e s i z e ( m e m o r y B I D , 1 ) ;
s y m b o l s [ 0 ] = _ S y m b o l ;
}
i f ( t y p e > 0 & & s h i f t > 0 )
{
c o l l e c t i n g _ t i c k s = t r u e ;
}
i f ( c o l l e c t i n g _ t i c k s = = f a l s e )
{
i f ( t y p e > 0 & & s h i f t = = 0 )
{
/ / g o i n g t o g e t t i c k s
}
e l s e
{
r e t u r n 0 ;
}
}
i f ( s y m b o l = = " " ) s y m b o l = _ S y m b o l ;
i f ( t y p e = = 0 )
{
e x i s t s = f a l s e ;
s i z e = A r r a y S i z e ( s y m b o l s ) ;
i f ( s i z e = = 0 ) { A r r a y R e s i z e ( s y m b o l s , 1 ) ; }
f o r ( i = 0 ; i < s i z e ; i + + )
{
i f ( s y m b o l s [ i ] = = s y m b o l )
{
e x i s t s = t r u e ;
s i d = i ;
b r e a k ;
}
}
i f ( e x i s t s = = f a l s e )
{
i n t n e w s i z e = A r r a y S i z e ( s y m b o l s ) + 1 ;
A r r a y R e s i z e ( s y m b o l s , n e w s i z e ) ;
s y m b o l s [ n e w s i z e - 1 ] = s y m b o l ;
A r r a y R e s i z e ( z e r o _ s i d , n e w s i z e ) ;
A r r a y R e s i z e ( m e m o r y A S K , n e w s i z e ) ;
A r r a y R e s i z e ( m e m o r y B I D , n e w s i z e ) ;
s i d = n e w s i z e ;
}
i f ( s i d > = 0 )
{
a s k = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) ;
b i d = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ B I D ) ;
i f ( b i d = = 0 & & M Q L I n f o I n t e g e r ( M Q L _ T E S T E R ) )
{
P r i n t ( " T i c k s d a t a c o l l e c t o r e r r o r : " + s y m b o l + " c a n n o t b e b a c k t e s t e d . O n l y t h e c u r r e n t s y m b o l c a n b e b a c k t e s t e d . T h e E A w i l l b e t e r m i n a t e d . " ) ;
E x p e r t R e m o v e ( ) ;
}
i f (
s y m b o l = = _ S y m b o l
| | a s k ! = m e m o r y A S K [ s i d ] [ 0 ]
| | b i d ! = m e m o r y B I D [ s i d ] [ 0 ]
)
{
m e m o r y A S K [ s i d ] [ z e r o _ s i d [ s i d ] ] = a s k ;
m e m o r y B I D [ s i d ] [ z e r o _ s i d [ s i d ] ] = b i d ;
z e r o _ s i d [ s i d ] = z e r o _ s i d [ s i d ] + 1 ;
i f ( z e r o _ s i d [ s i d ] = = 1 0 0 )
{
z e r o _ s i d [ s i d ] = 0 ;
}
}
}
}
e l s e
{
i f ( s h i f t < = 0 )
{
i f ( t y p e = = S Y M B O L _ A S K )
{
r e t u r n S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) ;
}
e l s e i f ( t y p e = = S Y M B O L _ B I D )
{
r e t u r n S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ B I D ) ;
}
e l s e
{
d o u b l e m i d = ( ( S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) + S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ B I D ) ) / 2 ) ;
r e t u r n m i d ;
}
}
e l s e
{
s i z e = A r r a y S i z e ( s y m b o l s ) ;
f o r ( i = 0 ; i < s i z e ; i + + )
{
i f ( s y m b o l s [ i ] = = s y m b o l )
{
s i d = i ;
}
}
i f ( s h i f t < 1 0 0 )
{
i d = z e r o _ s i d [ s i d ] - s h i f t - 1 ;
i f ( i d < 0 ) { i d = i d + 1 0 0 ; }
i f ( t y p e = = S Y M B O L _ A S K )
{
r e t v a l = m e m o r y A S K [ s i d ] [ i d ] ;
i f ( r e t v a l = = 0 )
{
r e t v a l = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) ;
}
}
e l s e i f ( t y p e = = S Y M B O L _ B I D )
{
r e t v a l = m e m o r y B I D [ s i d ] [ i d ] ;
i f ( r e t v a l = = 0 )
{
r e t v a l = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ B I D ) ;
}
}
}
}
}
r e t u r n r e t v a l ;
}
i n t T i c k s P e r S e c o n d ( b o o l g e t _ m a x = f a l s e , b o o l s e t = f a l s e )
{
s t a t i c d a t e t i m e t i m e 0 = 0 ;
s t a t i c i n t t i c k s = 0 ;
s t a t i c i n t t p s = 0 ;
s t a t i c i n t t p s m a x = 0 ;
d a t e t i m e t i m e 1 = T i m e L o c a l ( ) ;
i f ( s e t = = t r u e )
{
i f ( t i m e 1 > t i m e 0 )
{
i f ( t i m e 1 - t i m e 0 > 1 )
{
t p s = 0 ;
}
e l s e
{
t p s = t i c k s ;
}
t i m e 0 = t i m e 1 ;
t i c k s = 0 ;
}
t i c k s + + ;
i f ( t p s > t p s m a x ) { t p s m a x = t p s ; }
}
i f ( g e t _ m a x )
{
r e t u r n t p s m a x ;
}
r e t u r n t p s ;
}
d a t e t i m e T i m e A t S t a r t ( s t r i n g c m d = " s e r v e r " )
{
s t a t i c d a t e t i m e l o c a l = 0 ;
s t a t i c d a t e t i m e s e r v e r = 0 ;
i f ( c m d = = " l o c a l " )
{
r e t u r n l o c a l ;
}
e l s e i f ( c m d = = " s e r v e r " )
{
r e t u r n s e r v e r ;
}
e l s e i f ( c m d = = " s e t " )
{
l o c a l = T i m e L o c a l ( ) ;
s e r v e r = T i m e C u r r e n t ( ) ;
}
r e t u r n 0 ;
}
i n t T i m e D a y ( d a t e t i m e t i m e )
{
M q l D a t e T i m e t m ;
T i m e T o S t r u c t ( t i m e , t m ) ;
r e t u r n ( t m . d a y ) ;
}
i n t T i m e D a y O f W e e k ( d a t e t i m e t i m e )
{
M q l D a t e T i m e t m ;
T i m e T o S t r u c t ( t i m e , t m ) ;
r e t u r n ( t m . d a y _ o f _ w e e k ) ;
}
d a t e t i m e T i m e F r o m C o m p o n e n t s (
i n t t i m e _ s r c = 0 ,
i n t y = 0 ,
i n t m = 0 ,
d o u b l e d = 0 ,
d o u b l e h = 0 ,
d o u b l e i = 0 ,
i n t s = 0
) {
M q l D a t e T i m e t m ;
i n t o f f s e t = 0 ;
i f ( t i m e _ s r c = = 0 ) {
T i m e C u r r e n t ( t m ) ;
}
e l s e i f ( t i m e _ s r c = = 1 ) {
T i m e L o c a l ( t m ) ;
o f f s e t = ( i n t ) ( T i m e L o c a l ( ) - T i m e C u r r e n t ( ) ) ;
}
e l s e i f ( t i m e _ s r c = = 2 ) {
T i m e G M T ( t m ) ;
o f f s e t = ( i n t ) ( T i m e G M T ( ) - T i m e C u r r e n t ( ) ) ;
}
i f ( y > 0 )
{
i f ( y < 1 0 0 ) { y = 2 0 0 0 + y ; }
t m . y e a r = y ;
}
i f ( m > 0 ) { t m . m o n = m ; }
i f ( d > 0 ) { t m . d a y = ( i n t ) M a t h F l o o r ( d ) ; }
t m . h o u r = ( i n t ) ( M a t h F l o o r ( h ) + ( 2 4 * ( d - M a t h F l o o r ( d ) ) ) ) ;
t m . m i n = ( i n t ) ( M a t h F l o o r ( i ) + ( 6 0 * ( h - M a t h F l o o r ( h ) ) ) ) ;
t m . s e c = ( i n t ) ( ( d o u b l e ) s + ( 6 0 * ( i - M a t h F l o o r ( i ) ) ) ) ;
d a t e t i m e t i m e = S t r u c t T o T i m e ( t m ) - o f f s e t ;
r e t u r n t i m e ;
}
i n t T i m e H o u r ( d a t e t i m e t i m e )
{
M q l D a t e T i m e t m ;
T i m e T o S t r u c t ( t i m e , t m ) ;
r e t u r n t m . h o u r ;
}
i n t T i m e M i n u t e ( d a t e t i m e t i m e )
{
M q l D a t e T i m e t m ;
T i m e T o S t r u c t ( t i m e , t m ) ;
r e t u r n t m . m i n ;
}
i n t T i m e M o n t h ( d a t e t i m e t i m e )
{
M q l D a t e T i m e t m ;
T i m e T o S t r u c t ( t i m e , t m ) ;
r e t u r n t m . m o n ;
}
i n t T i m e S e c o n d s ( d a t e t i m e t i m e )
{
M q l D a t e T i m e t m ;
T i m e T o S t r u c t ( t i m e , t m ) ;
r e t u r n t m . s e c ;
}
i n t T i m e Y e a r ( d a t e t i m e t i m e )
{
M q l D a t e T i m e t m ;
T i m e T o S t r u c t ( t i m e , t m ) ;
r e t u r n t m . y e a r ;
}
b o o l T r a d e S e l e c t B y I n d e x (
i n t i n d e x ,
s t r i n g g r o u p _ m o d e = " a l l " ,
s t r i n g g r o u p = " 0 " ,
s t r i n g m a r k e t _ m o d e = " a l l " ,
s t r i n g m a r k e t = " " ,
s t r i n g B u y s O r S e l l s = " b o t h "
) {
i f ( L o a d P o s i t i o n ( P o s i t i o n G e t T i c k e t ( i n d e x ) ) )
{
i f ( F i l t e r O r d e r B y (
g r o u p _ m o d e ,
g r o u p ,
m a r k e t _ m o d e ,
m a r k e t ,
B u y s O r S e l l s )
)
{
r e t u r n t r u e ;
}
}
r e t u r n f a l s e ;
}
b o o l T r a d e S e l e c t B y T i c k e t ( u l o n g t i c k e t )
{
i f ( L o a d P o s i t i o n ( t i c k e t ) & & O r d e r T y p e ( ) < 2 )
{
r e t u r n t r u e ;
}
r e t u r n f a l s e ;
}
i n t T r a d e s T o t a l ( )
{
r e t u r n P o s i t i o n s T o t a l ( ) ;
}
d o u b l e V i r t u a l S t o p s D r i v e r (
s t r i n g c o m m a n d = " " ,
u l o n g t i = 0 ,
d o u b l e s l = 0 ,
d o u b l e t p = 0 ,
d o u b l e s l p = 0 ,
d o u b l e t p p = 0
)
{
s t a t i c b o o l i n i t i a l i z e d = f a l s e ;
s t a t i c s t r i n g n a m e = " " ;
s t a t i c s t r i n g l o o p _ n a m e [ 2 ] = { " s l " , " t p " } ;
s t a t i c c o l o r l o o p _ c o l o r [ 2 ] = { D e e p P i n k , D o d g e r B l u e } ;
s t a t i c d o u b l e l o o p _ p r i c e [ 2 ] = { 0 , 0 } ;
s t a t i c u l o n g m e m _ t o _ t i [ ] ; / / t i c k e t s
s t a t i c i n t m e m _ t o [ ] ; / / t i m e o u t s
s t a t i c b o o l t r a d e _ p a s s = f a l s e ;
i n t i = 0 ;
/ / A r e V i r t u a l S t o p s e v e n e n a b l e d ?
i f ( ! U S E _ V I R T U A L _ S T O P S )
{
r e t u r n 0 ;
}
i f ( i n i t i a l i z e d = = f a l s e | | c o m m a n d = = " i n i t i a l i z e " )
{
i n i t i a l i z e d = t r u e ;
}
/ / L i s t e n
i f ( c o m m a n d = = " " | | c o m m a n d = = " l i s t e n " )
{
i n t t o t a l = O b j e c t s T o t a l ( 0 , - 1 , O B J _ H L I N E ) ;
i n t l e n g t h = 0 ;
c o l o r c l r = c l r N O N E ;
i n t s l t p = 0 ;
u l o n g t i c k e t = 0 ;
d o u b l e l e v e l = 0 ;
d o u b l e a s k b i d = 0 ;
i n t p o l a r i t y = 0 ;
s t r i n g s y m b o l = " " ;
f o r ( i = t o t a l - 1 ; i > = 0 ; i - - )
{
n a m e = O b j e c t N a m e ( 0 , i , - 1 , O B J _ H L I N E ) ; / / f o r e x a m p l e : # 1 s l
i f ( S t r i n g S u b s t r ( n a m e , 0 , 1 ) ! = " # " )
{
c o n t i n u e ;
}
l e n g t h = S t r i n g L e n ( n a m e ) ;
i f ( l e n g t h < 5 )
{
c o n t i n u e ;
}
c l r = ( c o l o r ) O b j e c t G e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R ) ;
i f ( c l r ! = l o o p _ c o l o r [ 0 ] & & c l r ! = l o o p _ c o l o r [ 1 ] )
{
c o n t i n u e ;
}
s t r i n g l a s t _ s y m b o l s = S t r i n g S u b s t r ( n a m e , l e n g t h - 2 , 2 ) ;
i f ( l a s t _ s y m b o l s = = " s l " )
{
s l t p = - 1 ;
}
e l s e i f ( l a s t _ s y m b o l s = = " t p " )
{
s l t p = 1 ;
}
e l s e
{
c o n t i n u e ;
}
u l o n g t i c k e t 0 = S t r i n g T o I n t e g e r ( S t r i n g S u b s t r ( n a m e , 1 , l e n g t h - 4 ) ) ;
/ / p r e v e n t l o a d i n g t h e s a m e t i c k e t n u m b e r t w i c e i n a r o w
i f ( t i c k e t 0 ! = t i c k e t )
{
t i c k e t = t i c k e t 0 ;
i f ( T r a d e S e l e c t B y T i c k e t ( t i c k e t ) )
{
s y m b o l = O r d e r S y m b o l ( ) ;
p o l a r i t y = ( O r d e r T y p e ( ) = = 0 ) ? 1 : - 1 ;
a s k b i d = ( O r d e r T y p e ( ) = = 0 ) ? S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ B I D ) : S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) ;
t r a d e _ p a s s = t r u e ;
}
e l s e
{
t r a d e _ p a s s = f a l s e ;
}
}
i f ( t r a d e _ p a s s )
{
l e v e l = O b j e c t G e t D o u b l e ( 0 , n a m e , O B J P R O P _ P R I C E , 0 ) ;
i f ( l e v e l > 0 )
{
/ / p o l a r i z e l e v e l s
d o u b l e l e v e l _ p = p o l a r i t y * l e v e l ;
d o u b l e a s k b i d _ p = p o l a r i t y * a s k b i d ;
i f (
( s l t p = = - 1 & & ( l e v e l _ p - a s k b i d _ p ) > = 0 ) / / s l
| | ( s l t p = = 1 & & ( a s k b i d _ p - l e v e l _ p ) > = 0 ) / / t p
)
{
/ / - - V i r t u a l S t o p s S L T i m e o u t
i f (
( V I R T U A L _ S T O P S _ T I M E O U T > 0 )
& & ( s l t p = = - 1 & & ( l e v e l _ p - a s k b i d _ p ) > = 0 ) / / s l
)
{
/ / s t a r t t i m e o u t ?
i n t i n d e x = A r r a y S e a r c h ( m e m _ t o _ t i , t i c k e t ) ;
i f ( i n d e x < 0 )
{
i n t s i z e = A r r a y S i z e ( m e m _ t o _ t i ) ;
A r r a y R e s i z e ( m e m _ t o _ t i , s i z e + 1 ) ;
A r r a y R e s i z e ( m e m _ t o , s i z e + 1 ) ;
m e m _ t o _ t i [ s i z e ] = t i c k e t ;
m e m _ t o [ s i z e ] = ( i n t ) T i m e L o c a l ( ) ;
P r i n t (
" # " ,
t i c k e t ,
" t i m e o u t o f " ,
V I R T U A L _ S T O P S _ T I M E O U T ,
" s e c o n d s s t a r t e d "
) ;
r e t u r n 0 ;
}
e l s e
{
i f ( T i m e L o c a l ( ) - m e m _ t o [ i n d e x ] < = V I R T U A L _ S T O P S _ T I M E O U T )
{
r e t u r n 0 ;
}
}
}
i f ( C l o s e T r a d e ( t i c k e t ) )
{
/ / c h e c k t h i s b e f o r e d e l e t i n g t h e l i n e s
/ / O n T r a d e L i s t e n e r ( ) ;
/ / d e l e t e o b j e c t s
O b j e c t D e l e t e ( 0 , " # " + ( s t r i n g ) t i c k e t + " s l " ) ;
O b j e c t D e l e t e ( 0 , " # " + ( s t r i n g ) t i c k e t + " t p " ) ;
}
}
e l s e
{
i f ( V I R T U A L _ S T O P S _ T I M E O U T > 0 )
{
i = A r r a y S e a r c h ( m e m _ t o _ t i , t i c k e t ) ;
i f ( i > = 0 )
{
A r r a y S t r i p K e y ( m e m _ t o _ t i , i ) ;
A r r a y S t r i p K e y ( m e m _ t o , i ) ;
}
}
}
}
}
e l s e i f (
! P e n d i n g O r d e r S e l e c t B y T i c k e t ( t i c k e t )
| | O r d e r C l o s e T i m e ( ) > 0 / / i n c a s e t h e o r d e r h a s b e e n c l o s e d
)
{
O b j e c t D e l e t e ( 0 , n a m e ) ;
}
e l s e
{
P e n d i n g O r d e r S e l e c t B y T i c k e t ( t i c k e t ) ;
}
}
}
/ / G e t S L o r T P
e l s e i f (
t i > 0
& & (
c o m m a n d = = " g e t s l "
| | c o m m a n d = = " g e t t p "
)
)
{
d o u b l e v a l u e = 0 ;
n a m e = " # " + I n t e g e r T o S t r i n g ( t i ) + " " + S t r i n g S u b s t r ( c o m m a n d , 4 , 2 ) ;
i f ( O b j e c t F i n d ( 0 , n a m e ) > - 1 )
{
v a l u e = O b j e c t G e t D o u b l e ( 0 , n a m e , O B J P R O P _ P R I C E , 0 ) ;
}
r e t u r n v a l u e ;
}
/ / S e t S L a n d T P
e l s e i f (
t i > 0
& & (
c o m m a n d = = " s e t "
| | c o m m a n d = = " m o d i f y "
| | c o m m a n d = = " c l e a r "
| | c o m m a n d = = " p a r t i a l "
)
)
{
l o o p _ p r i c e [ 0 ] = s l ;
l o o p _ p r i c e [ 1 ] = t p ;
f o r ( i = 0 ; i < 2 ; i + + )
{
n a m e = " # " + I n t e g e r T o S t r i n g ( t i ) + " " + l o o p _ n a m e [ i ] ;
i f ( l o o p _ p r i c e [ i ] > 0 )
{
/ / 1 ) c r e a t e a n e w l i n e
i f ( O b j e c t F i n d ( 0 , n a m e ) = = - 1 )
{
O b j e c t C r e a t e ( 0 , n a m e , O B J _ H L I N E , 0 , 0 , l o o p _ p r i c e [ i ] ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ W I D T H , 1 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , l o o p _ c o l o r [ i ] ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S T Y L E , S T Y L E _ D O T ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , n a m e + " ( v i r t u a l ) " ) ;
}
/ / 2 ) m o d i f y e x i s t i n g l i n e
e l s e
{
O b j e c t S e t D o u b l e ( 0 , n a m e , O B J P R O P _ P R I C E , 0 , l o o p _ p r i c e [ i ] ) ;
}
}
e l s e
{
/ / 3 ) d e l e t e e x i s t i n g l i n e
O b j e c t D e l e t e ( 0 , n a m e ) ;
}
}
/ / p r i n t m e s s a g e
i f ( c o m m a n d = = " s e t " | | c o m m a n d = = " m o d i f y " )
{
P r i n t (
c o m m a n d ,
" # " ,
I n t e g e r T o S t r i n g ( t i ) ,
" : v i r t u a l s l " ,
D o u b l e T o S t r ( s 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 _ D I G I T S ) ) ,
" t p " ,
D o u b l e T o S t r ( t p , ( 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 _ D I G I T S ) )
) ;
}
r e t u r n 1 ;
}
r e t u r n 1 ;
}
d o u b l e a s k ( s t r i n g s y m b o l = N U L L )
{
r e t u r n S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) ;
}
d o u b l e a t t r S t o p L o s s ( )
{
i f ( U S E _ V I R T U A L _ S T O P S )
{
r e t u r n V i r t u a l S t o p s D r i v e r ( " g e t s l " , O r d e r T i c k e t ( ) ) ;
}
r e t u r n O r d e r S t o p L o s s ( ) ;
}
d o u b l e a t t r T a k e P r o f i t ( )
{
i f ( U S E _ V I R T U A L _ S T O P S )
{
r e t u r n V i r t u a l S t o p s D r i v e r ( " g e t t p " , O r d e r T i c k e t ( ) ) ;
}
r e t u r n O r d e r T a k e P r o f i t ( ) ;
}
s t r i n g e _ R e a s o n ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e R e a s o n ( ) ; }
s t r i n g e _ R e a s o n D e t a i l ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e D e t a i l ( ) ; }
d o u b l e e _ a t t r C l o s e P r i c e ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e P r i c e C l o s e ( ) ; }
d a t e t i m e e _ a t t r C l o s e T i m e ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e T i m e C l o s e ( ) ; }
s t r i n g e _ a t t r C o m m e n t ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e C o m m e n t ( ) ; }
d a t e t i m e e _ a t t r E x p i r a t i o n ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e T i m e E x p i r a t i o n ( ) ; }
d o u b l e e _ a t t r L o t s ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e V o l u m e ( ) ; }
l o n g e _ a t t r M a g i c N u m b e r ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e M a g i c ( ) ; }
d o u b l e e _ a t t r O p e n P r i c e ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e P r i c e O p e n ( ) ; }
d a t e t i m e e _ a t t r O p e n T i m e ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e T i m e O p e n ( ) ; }
d o u b l e e _ a t t r P r o f i t ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e P r o f i t ( ) ; }
d o u b l e e _ a t t r S t o p L o s s ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e S t o p L o s s ( ) ; }
d o u b l e e _ a t t r S w a p ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e S w a p ( ) ; }
s t r i n g e _ a t t r S y m b o l ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e S y m b o l ( ) ; }
d o u b l e e _ a t t r T a k e P r o f i t ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e T a k e P r o f i t ( ) ; }
l o n g e _ a t t r T i c k e t ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e T i c k e t ( ) ; }
i n t e _ a t t r T y p e ( ) { r e t u r n o n T r a d e E v e n t D e t e c t o r . E v e n t V a l u e T y p e ( ) ; }
d o u b l e f x d C u s t o m I n d i c a t o r ( i n t h a n d l e , i n t m o d e = 0 , i n t s h i f t = 0 )
{
s t a t i c d o u b l e b u f f e r [ 1 ] ;
i f ( h a n d l e < 0 )
{
P r i n t ( " E r r o r : I n d i c a t o r n o t h a n d l e d . ( h a n d l e = " , h a n d l e , " | 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 0 ;
}
i n t t r y o u t s = 0 ;
w h i l e ( t r u e )
{
i f ( B a r s C a l c u l a t e d ( h a n d l e ) > 0 ) b r e a k ;
e l s e
{
t r y o u t s + + ;
i f ( M Q L I n f o I n t e g e r ( M Q L _ T E S T E R ) )
{
S l e e p ( 1 0 ) ;
}
e l s e
{
i f ( t r y o u t s > 1 0 0 )
{
P r i n t ( " E r r o r : C u s t o m i n d i c a t o r c o u l d n o t l o a d ( h a n d l e = " , h a n d l e , " | e r r o r c o d e = " , G e t L a s t E r r o r ( ) , " ) " ) ;
b r e a k ;
}
S l e e p ( 5 0 ) ;
}
}
}
i n t s u c c e s s = C o p y B u f f e r ( h a n d l e , m o d e , s h i f t , 1 , b u f f e r ) ;
i f ( s u c c e s s < 0 )
{
P r i n t ( " E r r o r : C a n n o t g e t v a l u e f r o m a c u s t o m i n d i c a t o r . ( h a n d l e = " , h a n d l e , " | 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 0 ;
}
/ / A r r a y S e t A s S e r i e s ( b u f f e r , t r u e ) ;
r e t u r n b u f f e r [ 0 ] ;
}
i n t i C a n d l e I D ( s t r i n g S Y M B O L , E N U M _ T I M E F R A M E S T I M E F R A M E , d a t e t i m e t i m e _ s t a m p )
{
b o o l T i m e S t a m p P r e v D a y S h i f t = t r u e ;
i n t C a n d l e I D = 0 ;
/ / g e t t h e t i m e r e s o l u t i o n o f t h e d e s i r e d p e r i o d , i n m i n u t e s
i n t m i n s _ t f = T I M E F R A M E ;
i n t m i n s _ t f 0 = 0 ;
i f ( T I M E F R A M E = = P E R I O D _ C U R R E N T )
{
m i n s _ t f = ( i n t ) P e r i o d S e c o n d s ( P E R I O D _ C U R R E N T ) / 6 0 ;
}
/ / g e t t h e d i f f e r e n c e b e t w e e n n o w a n d t h e t i m e w e w a n t , i n m i n u t e s
i n t d a y s _ a d j u s t = 0 ;
i f ( T i m e S t a m p P r e v D a y S h i f t )
{
/ / a u t o m a t i c a l l y s h i f t t o t h e p r e v i o u s d a y
i f ( t i m e _ s t a m p > T i m e C u r r e n t ( ) )
{
t i m e _ s t a m p = t i m e _ s t a m p - 8 6 4 0 0 ;
}
/ / a l s o s h i f t w e e k d a y s
w h i l e ( t r u e )
{
i n t d o w = T i m e D a y O f W e e k ( t i m e _ s t a m p ) ;
i f ( d o w > 0 & & d o w < 6 ) { b r e a k ; }
t i m e _ s t a m p = t i m e _ s t a m p - 8 6 4 0 0 ;
d a y s _ a d j u s t + + ;
}
}
i n t m i n s _ d i f f = ( i n t ) ( T i m e C u r r e n t ( ) - t i m e _ s t a m p ) ;
m i n s _ d i f f = m i n s _ d i f f - d a y s _ a d j u s t * 8 6 4 0 0 ;
m i n s _ d i f f = m i n s _ d i f f / 6 0 ;
/ / t h e d i f f e r e n c e i s n e g a t i v e = > q u i t h e r e
i f ( m i n s _ d i f f < 0 )
{
r e t u r n ( i n t ) E M P T Y _ V A L U E ;
}
/ / n o w c a l c u l a t e t h e c a n d l e I D , i t i s r e l a t i v e t o t h e c u r r e n t t i m e
i f ( m i n s _ d i f f > 0 )
{
C a n d l e I D = ( i n t ) M a t h C e i l ( ( d o u b l e ) m i n s _ d i f f / ( d o u b l e ) m i n s _ t f ) ;
}
/ / n o w , a f t e r a l l t h e s h i f t i n g a n d i n c a s e o f m i s s i n g c a n d l e s , t h e c a l c u l a t e d c a n d l e i d c a n b e f e w c a n d l e s e a r l y
/ / s o w e w i l l s e a r c h f o r t h e r i g h t c a n d l e
w h i l e ( t r u e )
{
i f ( i T i m e ( S Y M B O L , T I M E F R A M E , C a n d l e I D ) > = t i m e _ s t a m p ) { b r e a k ; }
C a n d l e I D - - ;
i f ( C a n d l e I D < = 0 ) { C a n d l e I D = 0 ; b r e a k ; }
}
r e t u r n C a n d l e I D ;
}
d o u b l e i M A (
s t r i n g s y m b o l ,
E N U M _ T I M E F R A M E S t i m e f r a m e ,
i n t m a _ p e r i o d ,
i n t m a _ s h i f t ,
E N U M _ M A _ M E T H O D m a _ m e t h o d ,
E N U M _ A P P L I E D _ P R I C E a p p l i e d _ p r i c e ,
i n t s h i f t
)
{
i n t h a n d l e = i M A ( s y m b o l , t i m e f r a m e , m a _ p e r i o d , m a _ s h i f t , m a _ m e t h o d , a p p l i e d _ p r i c e ) ;
d o u b l e v a l = f x d C u s t o m I n d i c a t o r ( h a n d l e , 0 , s h i f t ) ;
r e t u r n N o r m a l i z e D o u b l e ( v a 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 _ D I G I T S ) ) ;
}
d o u b l e i M A C D (
s t r i n g s y m b o l ,
E N U M _ T I M E F R A M E S t i m e f r a m e ,
i n t f a s t _ e m a _ p e r i o d ,
i n t s l o w _ e m a _ p e r i o d ,
i n t s i g n a l _ p e r i o d ,
E N U M _ A P P L I E D _ P R I C E a p p l i e d _ p r i c e ,
i n t m o d e ,
i n t s h i f t
)
{
i n t h a n d l e = i M A C D ( s y m b o l , t i m e f r a m e , f a s t _ e m a _ p e r i o d , s l o w _ e m a _ p e r i o d , s i g n a l _ p e r i o d , a p p l i e d _ p r i c e ) ;
d o u b l e v a l = f x d C u s t o m I n d i c a t o r ( h a n d l e , m o d e , s h i f t ) ;
r e t u r n N o r m a l i z e D o u b l e ( v a l , 6 ) ;
}
d o u b l e i R S I (
s t r i n g s y m b o l ,
E N U M _ T I M E F R A M E S t i m e f r a m e ,
i n t p e r i o d ,
E N U M _ A P P L I E D _ P R I C E a p p l i e d _ p r i c e ,
i n t s h i f t
)
{
i n t h a n d l e = i R S I ( s y m b o l , t i m e f r a m e , p e r i o d , a p p l i e d _ p r i c e ) ;
d o u b l e v a l = f x d C u s t o m I n d i c a t o r ( h a n d l e , 0 , s h i f t ) ;
/ / R S I a p p e a r s t o b e 0 i n M Q L 4 i n t h e f e w m o s t l e f t v a l u e s
i f ( v a l = = E M P T Y _ V A L U E ) { v a l = 0 ; }
r e t u r n N o r m a l i z e D o u b l e ( v a l , 2 ) ;
}
d o u b l e i S t o c h a s t i c (
s t r i n g s y m b o l ,
E N U M _ T I M E F R A M E S t i m e f r a m e ,
i n t K p e r i o d ,
i n t D p e r i o d ,
i n t s l o w i n g ,
E N U M _ M A _ M E T H O D m a _ m e t h o d ,
E N U M _ S T O _ P R I C E p r i c e _ f i e l d ,
i n t m o d e ,
i n t s h i f t
)
{
i n t h a n d l e = i S t o c h a s t i c ( s y m b o l , t i m e f r a m e , K p e r i o d , D p e r i o d , s l o w i n g , m a _ m e t h o d , p r i c e _ f i e l d ) ;
d o u b l e v a l = f x d C u s t o m I n d i c a t o r ( h a n d l e , m o d e , s h i f t ) ;
r e t u r n N o r m a l i z e D o u b l e ( v a l , 2 ) ;
}
d o u b l e t o D i g i t s ( d o u b l e p i p s , s t r i n g s y m b o l )
{
i f ( s y m b o l = = " " ) s y m b o l = S y m b o l ( ) ;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m b o l , S Y M B O L _ D I G I T S ) ;
d o u b l e p o i n t = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ P O I N T ) ;
r e t u r n N o r m a l i z e D o u b l e ( p i p s * P i p V a l u e ( s y m b o l ) * p o i n t , d i g i t s ) ;
}
d o u b l e t o P i p s ( d o u b l e d i g i t s , s t r i n g s y m b o l )
{
i f ( s y m b o l = = " " ) s y m b o l = S y m b o l ( ) ;
r e t u r n d i g i t s / ( P i p V a l u e ( s y m b o l ) * S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ P O I N T ) ) ;
}
c l a s s F x d W a i t i n g
{
p r i v a t e :
i n t b e g i n n i n g _ i d ;
u s h o r t b a n k [ ] [ 2 ] [ 2 0 ] ; / / 2 b a n k s , 2 0 p o s s i b l e p a r a l l e l w a i t i n g b l o c k s p e r c h a i n o f b l o c k s
u s h o r t s t a t e [ ] [ 2 ] ; / / s e c o n d d i m e n t i o n v a l u e s : 0 - c o u n t o f t h e b l o c k s p u t o n h o l d , 1 - c u r r e n t b a n k i d
p u b l i c :
v o i d I n i t i a l i z e ( i n t c o u n t )
{
A r r a y R e s i z e ( b a n k , c o u n t ) ;
A r r a y R e s i z e ( s t a t e , c o u n t ) ;
}
b o o l R u n ( i n t i d = 0 )
{
b e g i n n i n g _ i d = i d ;
i n t r a n g e = A r r a y R a n g e ( s t a t e , 0 ) ;
i f ( r a n g e < i d + 1 ) {
A r r a y R e s i z e ( b a n k , i d + 1 ) ;
A r r a y R e s i z e ( s t a t e , i d + 1 ) ;
/ / s e t v a l u e s t o 0 , o t h e r w i s e t h e y h a v e r a n d o m v a l u e s
f o r ( i n t i i = r a n g e ; i i < i d + 1 ; i i + + )
{
s t a t e [ i i ] [ 0 ] = 0 ;
s t a t e [ i i ] [ 1 ] = 0 ;
}
}
/ / a r e t h e r e b l o c k s p u t o n h o l d ?
i n t c o u n t = s t a t e [ i d ] [ 0 ] ;
i n t b a n k _ i d = s t a t e [ i d ] [ 1 ] ;
/ / i f n o b l o c k a r e p u t o n h o l d - > e s c a p e
i f ( c o u n t = = 0 ) { r e t u r n f a l s e ; }
e l s e
{
s t a t e [ i d ] [ 0 ] = 0 ; / / n u l l t h e c o u n t
s t a t e [ i d ] [ 1 ] = ( b a n k _ i d ) ? 0 : 1 ; / / s w i t c h t o t h e o t h e r b a n k
}
/ / = = n o w w e w i l l r u n t h e b l o c k s p u t o n h o l d
f o r ( i n t i = 0 ; i < c o u n t ; i + + )
{
i n t b l o c k _ t o _ r u n = b a n k [ i d ] [ b a n k _ i d ] [ i ] ;
_ b l o c k s _ [ b l o c k _ t o _ r u n ] . r u n ( ) ;
}
r e t u r n t r u e ;
}
v o i d A c c u m u l a t e ( i n t b l o c k _ i d = 0 )
{
i n t c o u n t = + + s t a t e [ b e g i n n i n g _ i d ] [ 0 ] ;
i n t b a n k _ i d = s t a t e [ b e g i n n i n g _ i d ] [ 1 ] ;
b a n k [ b e g i n n i n g _ i d ] [ b a n k _ i d ] [ c o u n t - 1 ] = ( u s h o r t ) b l o c k _ i d ;
}
} ;
F x d W a i t i n g f x d W a i t ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E N D |
/ / | C r e a t e d w i t h f x D r e e m a E A B u i l d e r h t t p s : / / f x d r e e m a . c o m / |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ * < f x d r e e m a : e N r t X V t T 4 8 o R / i s U 5 y W p 7 G 7 p 6 t s m p 8 o Y W M i x M b G 9 Z + v k x S V L Y 5 g g S 4 o k w 5 J T / P d 0 z 0 U a y R I s Y K 6 r F 7 D d M z 0 9 P d 3 f d G s u c n r t 3 p 9 J T 9 d 7 u 2 4 Y B M R N a R g k u 5 + d n q 7 1 / q Q 9 D T 6 Z W M L u 7 S 4 p 8 b 3 d z w l U 2 d 0 / O O x / H c 7 w W 6 u 3 m 4 T r 2 C X 4 B f h Y 4 s f U i c 9 I i l + M 3 q 5 u 7 H 6 + o T 3 9 n u x E z Q p + H c b P u D 8 / w 6 7 i Z 3 Q Z P / M B / L o b / L g S g J 1 1 f 3 a m V i W e y f n Z 9 x + N a u 3 p j F 3 r A a O h V 2 r P Z v z a D + D X q e w u 5 9 e p 4 g d l j 0 9 + P 5 j c Q z y z x d h 1 H z A a r U p + b e B 3 w 3 5 f + K F 7 w f 2 l i / 6 C B m n o 2 E i H e V Q a h z 4 j s 4 a h w v R 6 t Q h 9 Z K T 1 d g X z U x L T k E m j W / D t Y H I 8 3 p 8 P v k 4 m B y d M K h 3 a P H W S Z O R 8 n 9 E V S c T Q 4 i A m v S 5 v x 6 E B i Z E A H G b U v c C P I I J H E 2 f h E 2 C + A F 9 m 3 S X f U x J z H w c X v 2 E 9 o p 5 q L s C S J n N 3 n a T h S l b s y L 5 y L a C i r p O U r E Q 7 q 9 A j / l y w g Z 6 N A 5 d A t / Y c J p M O z U Z O 7 K w I N A 2 c w z D 2 k q I O I g r o k 4 k J I 5 S 4 j k 8 E M Q j j l e N L 3 g l B X m k Y K 3 1 A e V I n X b O f D D H I Y R A u l 7 u f K W M J e v G c 1 M l a v W F F U p r y V l D H K P R O R O K d B R c b m A I D 1 m P B F J j 4 Z J k i T 6 O F X E 1 g E U b s u 4 Y s o c C V Q 1 P Z D 9 D k p R N T H A J F W N B G u E 6 j d Z q o j C n 8 h v V 0 L i w R X x l b a M Z N c j v S 0 f I c 9 + I s D t e B 9 9 E N / T A W x v z L Q i N G x 9 z l S s w o M L S / s P / w Y Q n m 8 v G K 0 L P z V N U G 2 p 6 0 2 D k Y S e z k E q N 2 F j B o J P 6 Y p N d c Y 7 w e x 8 x K k 2 / V m T y I u X S S 9 G D U F 6 K 1 x K + J H 1 6 J X 9 G Z T W G M C T 0 L H H + a F W c I r o N O V o 7 r z c 5 j k p y H G T h o n z R N M z c 8 q 5 s 5 1 s h + t N / Y f G o s 9 o S y k V N 7 g X B Q 7 g D q q 1 J 4 n C 0 K M p c 8 0 9 y G Z + q 8 2 X 1 6 u U f e j G s a 8 G X U H + z v g N g E Y B i 9 9 C 8 o P 0 3 O / 3 q n n 7 b b d s F P d f M V O C p U + + V w o D 2 j l 1 q N l z 6 H l 1 p b 9 t K 1 7 7 9 p L w X 5 f 8 h L O 3 r R S e 3 W z + i k u l 7 n p T b + B v 3 / A j J G I z A W I R X K H I n P X + R n Y R Q 4 1 N y r Z Q V m d d L N q 3 w e + 7 S 3 v k 7 G 8 Z T 4 f i K 0 s A j T 8 2 3 H m l m w / l h n A R l O w n F E w P j H q N X k r Q S c O g q + E 4 U J x Z z 7 7 n i z U 5 z H Y F p 7 F f F m v z v o H h 4 + p 5 P U 5 l g W / g Y 1 h 2 H W z x y b s c e B R 1 0 2 j n P K p 6 k S g 4 5 g O u p H e U r W 2 + 2 K v o 7 6 y T l d y h R f E w x G f b C y c 1 4 Y v 4 7 3 D + Z y 0 o T m + 1 H k U + K d x t T N x v 1 0 c j w 4 m A + G 4 + l B n S f W T I v 7 u t D 0 V J F E l 4 Y 6 G E P O O J g d j 0 9 y h f H x d 8 M V 2 L B 8 K P C r 8 M D J N h W F z w G 0 N 6 4 p J L l x m C R X 1 E P M U / L s 2 8 z 1 M b h o l I 2 W S g j M l c u D l o 2 o Y 5 J X M T a r m K U q Z f T d R q o P 1 Q c h G I t E s D e A u 2 W R b w V d X b e K S b 6 h v w 7 U P T z c H / S 7 D 0 H d 2 5 D V a p D 1 k c j 6 9 w Z Z G 2 S 1 G m T 9 g Y S v + P h U 7 2 j v G V k 7 D 0 J W l M A J P O j 8 X P y v Q I y 2 G C o 6 P h o O h N 7 p w A 8 T 7 u r w D d O / A a t / C P i z d y 3 s l E q 4 4 L T j f d W V u + h o K z J N n Z X M L z W t p 2 n 3 x I q R / S o Q 9 B 1 M N S 8 O o L o E 0 N v Q U t 9 E S + M O t O w 0 a H l 3 H K o V k 3 9 T e 8 9 o a W g N W r 5 w J m 8 3 8 e b r h E u e C D R w e a / g E t f q 3 z F c 1 q 4 a 6 H x z F 2 5 t W P y H u G m + I w P 6 k M b r f O c D I 3 + N Y A R I i d x m 1 B O w j d L S A q 8 z u 4 5 y L n v / n P c n k / G 3 + d d T h X M / j s O r g V i C Q G z p C J M E G q K m X g F d G o 6 N v y b z l P K G S z 0 z D I l b w H c m y s h V c q z N 4 F j d C K X d h d M o L R K r 8 F 1 y H D n x B U l V R X T V S v h p G T u r Q p v o X K w I A H c Y k C D 9 Q y y 9 S x a d E n 0 E / T x X C 7 R K B f a d a 5 V c 5 n 8 E 3 S 4 8 5 M u E z F q g w T o t C l k u M i W g b q 9 C d 7 / j s B S q m v k o T M t z h W 4 J j S M B O 6 7 C C s 7 Y
G Z H 1 u k B V q 3 4 j 5 K J A N B U i 6 K O 2 I i o j q V A m b 5 P p o Z b M d V B J v q A R i u S J l n F H m e N j D H H D J x E w b T b 7 6 V u L U x C E h u H V N q O U H N 0 f t C u t f v L l C u g H 7 r k A O K D 0 T w Z H 4 8 l 8 N j 7 N v X + Q I S A G N n 4 8 C O N g 6 Y d X A F P C y H i 5 q Y Q 8 R M j p 7 I / h w X w 6 H v L O 8 R L f l F n e y m F r z + F z d z 4 + 3 H S Q J / E B v h D 8 y 3 i o K 3 T i l a v z v h 1 R z y N B N e 3 f D K f L E I D d P X f i d L p e f I M R 4 y M p 4 X 2 7 C 6 v G t h Z W m c D 7 s X P F I P y p I w V L R k T c X n k o J D + b m T r 5 F o w s m n v 8 Q i z 8 i H 3 c y T p 5 a 2 z R L Y Y W 1 t Y y M e 1 x o c V y 2 V 7 a z 7 l Z w T B e Q 9 h h q W H H / v j b S R N 4 N I F H E 3 h s M f D A z 0 c A G m 8 z 8 j C z y G N v P J u N R x X B R 5 f F H l P H X / H U s o k 5 H h J z G O 8 2 5 t B f P O b o a M W g w z T t n z X o q D 1 t w C d m l m n 4 J E 5 n U t X Q m 8 X 6 W o r D a E N n Q X y 9 t O 2 R U d g c U w W d u g w L L p 0 8 M y k 0 L 6 x g c 5 a 6 5 R l l Q S C j V i D j Z Q Q y a w U y X 0 Y g q 1 Y g 6 2 U E s m s F s l 9 G o F a t Q K 2 X E a h d K 1 D 7 Z Q T q 1 A r U e R m B u r U C d Z 9 N I K M A j J o q k V F A R u 2 5 R D I Y j i f h l A T e S Z j S J a 5 i i U f / S s z 7 6 A U b P l u X Z w 0 e E t T L U I 5 9 t n E 2 y 5 A y j E i S O G e k 7 1 0 6 g c t j w a e M g H R d C Y E 0 J Q T S a h 6 7 s M + 2 8 r m l f G 4 r n z v K 5 6 7 y m S 3 O Z F / 0 7 Q Z W p t D i z o q r 8 e 7 Y q r i y b r V e z f O c 5 d J u P W d o Z d 0 3 t L L Q l s Q B p S a 2 a m K r J r Z q Y q s m t m p i q 6 3 G V l Y T W 7 3 Z 2 K r d L Q V X m v 2 z B l f 2 Q 7 Y 0 G k Z x B 9 8 0 D d 1 z J 0 m p W w E F e G E T 6 9 1 v h Z 1 8 p t z J t 1 / Y D m 2 L X 6 d + e E W D M 3 W T d M 3 + P n m y H 7 r E V h g O 5 R U 6 / A H 5 e D 4 c f z s 6 / n I k k E K e O Z a A d I 8 N f 0 d P f s j x n S h W f w 7 F v v h O S v U e h 9 + K B 3 d U 7 X N w V T X P I T Z T W c 3 d D Z O 8 E X u j k d Z G I + 2 N R j r F R r p 3 b O C 0 m w 2 c P 7 D f v b j g Y b / r / Z v d 2 o 0 U m r j 2 4 V h i V T N H P A r K D L k 8 n W x W M z P a q a o E X a 5 7 H 3 x 3 S Y T W O 8 j X z t X d B l 8 j U N 6 Q X B J f u Z 9 j S b + T b G N J X k L o 3 d K k b j y V t o U 0 A O q 2 7 0 x N L E T Y q z u E z k s U O o w y q 6 T t y G z e L v M j p 5 U W Y r z 1 u c o O R N S 9 a Q M i B K 8 c f x G S l 0 Z W B O c b q i u 7 s f W 4 a e 2 2 K a a 7 j Z x J V + T 9 R t N z G g z p i q Z P f r + K X l y S 3 8 r d R K r u d 1 b h J U l 2 r l i X d v y s T 7 d O S G b p E r F X d P 7 K a h n P e d u f 1 i Q y T S L T J D J N I m M 2 J 9 H u T m R s y / 5 5 E h n T a h K Z J p F p E p k m k d l S I m N a T S K z 5 U T G 6 m h N J s N n q 9 o l G d s S Q 1 O + U b X y y l T 4 / 3 v o r 1 e k D n g 4 d U r / J z f N a J 8 0 X Y J t T p z Q 5 K J w + 0 J e V 5 J A n c a n 7 F 5 l T g P f c U m Q C r I u j h R 1 J H k P v U Q p k x 1 V Q t x T J d s C 7 p n Y t T u n L u B y i O q Z 4 I L v 1 4 C m V Z q x 1 U L 7 x O c u k d 1 / g O O 6 W s 1 i x w O A C 8 M i o t t I G 5 0 d A 2 v q + M O Q e 4 U i X I c X G K 3 9 l E b + 9 T g Y h k m i v g A B 1 4 u L J U 7 j c E m L 0 2 y b l + l 7 H j Z R Y J K d b C o U K P A o i D o h 4 K 0 V H N o F c p 0 M u m m 0 6 j t r y i I T w O 8 4 I R t H U x i P Q 7 o I a 3 k Y T N v 7 g H q r B Y n T O x S b l a t p 0 G A S D Z 1 F u H b P S U z q 2 b W K B Y c 0 S a V l 6 h + M D + Y H 6 4 P 9 o Z X r O i 9 a 1 1 f W 9 J T 8 d 8 9 J S E W D u i D n Q w G 1 T W i q V a h d O R S G I N Y 1 3 Z I e y a d Y R O v S X h A I e C N s t x J H F P o p j Z K i u 6 O 9 Z l T u 6 9 n d K 8 y r b F s O d a n Y 7 L Q E H M D J 8 2 W h b e 1 I + Z H M 3 I u 2 2 m q x S 7 e 1 6 2 2 1 X R X E b o 9 Y Z 8 4 F 4 X Z U O e C F E s q Q G 2 L I j Q L 9 l k H v V h S c D k s 6 M n D Y 8 2 L P N v D Y b r T l d n 9 s 6 L F l b 8 s t / 9 j g t z E E z y 5 x B 2 m / z A Y i C o L f S 2 d K O + z H 7 D C p q l N k s n G O F A N I I G z x Z L P W n G x + r p P N y h n j q o P N x r M f b M 4 G 6 / l P
N m e n Y 9 F l O p g 1 0 i g S m 8 6 U F 2 2 M r k G / K x H c K l 0 R Z / 8 h j d j j p / / 4 D S P 8 X p F H p t + m u r d R j a F F u r c x V 4 t 9 f x W Q X k 5 4 t 7 E 5 p M X e 4 X D y 9 I d n 7 Z r d j X W H Z 0 u 7 G 7 e R E L d Z X 3 e C H 7 m 4 o 3 S F o t V + m r 2 I + j 0 T X 0 3 r a N r G G V q 5 S x E 1 U Z n + s v d y + N 7 j U u D W Q y 9 a V B / U T q b H F d N J S z z x B W r h W W z 7 a S 4 J 5 F c n P m q p D W T 6 9 R + 3 3 a f 4 s K e X 7 T d z M 3 Z x t G 6 9 G l u X V 2 P n v d 1 4 e N d q 1 o f u 3 l e g l V 5 8 1 D L e 8 w J R u w 5 v O i / 6 f q O 1 i H b w 2 i C U f D O I q Q l A 2 O G G L N K Q L U C c s U 9 I d E q D i y e 4 a c N s b + k d Y + z W W / 7 m p J e K F L T n i x R w 1 m I 9 z l 6 5 d P f D c q O 0 7 c f Y m n c + 8 v y C 1 e o Y C + v e M Y M y S g + O G n g 0 D g p L a X C m H g 8 F 5 o 6 b 0 k s y r z N 2 Z B r F I d 7 f N Q 9 E S m f h T S j 5 G + P + t k N W D v y N E 7 r j s t E C 5 9 w J A / 9 6 5 6 B f 5 p G K S 8 B a 6 D E w b a U y + H f B 0 u e + E 5 y t h b / i E u 2 / h n b 2 4 N t J Q c q Y s G v H E H T b H c 3 u d o 2 u b n X V I u A x d H l d V 2 T l n F F 3 D l Y Z 8 / i y b V h i u e m S J h S s Y e 7 T R e z E 1 / M M x Q o u i Q m i L M n 8 t q 4 c G i B k S P E 8 k d k T 7 b G 3 z 6 I U U U i D d B 6 v h f G Z 8 q 3 d 0 u K W c b i S e f k n j T + c M N C i C w 8 s x L u 5 y 5 X a 4 k 2 N p W r y B Y 5 6 9 h L u c s W O r H h L z R u O O e s E A i o a p 2 v H B 2 W G / E G X g Z a 6 m 6 l T o b L H F 8 x t R A 7 W 5 S z I i t v Q d Q U T L F O i z + P S O n B F E c f z y k v F 5 B J S z Q Q N I 7 v C S R p 3 N 6 O 6 1 y 4 M a T G O Y u Q A M W K e R G B 5 3 p z h b E Y 2 c 7 K A O X F Q D l V H w B R g 9 M / D q 3 k e e G d V 2 z h N O t H 5 P I w p t J + d 5 U N 5 Z 2 E 0 C / f C l M 0 S 2 V Q E T Q S p X K N k p r H C l Q 4 1 8 K f y E i p B 4 V M V 4 K v i d F 6 4 X u R 3 Z H k k c W M a y d b F r G G L m F l 5 L / p N H W R C W Q j F n S K I 4 t N 0 x h I n i p v / A / A l b a g =
: f x d r e e m a > * /
Comments