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