Price Data Components
Orders Execution
Indicators Used
Miscellaneous
0
Views
0
Downloads
0
Favorites
MonsterCorrelation_full
ÿþ# p r o p e r t y c o p y r i g h t " I g o r Z a k h a r o v "
# p r o p e r t y l i n k " h t t p s : / / w w w . m q l 5 . c o m / e n / u s e r s / i g o r . i "
# p r o p e r t y s t r i c t
# p r o p e r t y v e r s i o n " 5 . 0 "
# p r o p e r t y d e s c r i p t i o n " E A o p e n s t r a d e s b a s e d o n c o r r e l a t i o n o f t w o s y m b o l s "
# p r o p e r t y d e s c r i p t i o n " F r e e l i m i t e d v e r s i o n "
c o n s t s t r i n g P o s i t i v e = " ~ p " ;
c o n s t s t r i n g N e g a t i v e = " ~ n " ;
e n u m M A R T
{
N O N E , / / N o M a r t i n g a l e
S U M M , / / A d d t o p r e v . l o t
M U L T , / / M u l t i p l y p r e v . l o t
} ;
e n u m C U L C M O D E
{
F I R S T , / / T i c k V a l u e b a s e d ( V 4 )
S E C O N D , / / H a l f - T i c k V a l u e b a s e d
T H I R D , / / N o - T i c k V a l u e u s e d
} ;
e n u m R E A S O N S
{
D o n e ,
N o t _ T i m e _ T o _ T r a d e ,
N o t _ A l o w e d _ C o r r e l a t i o n _ T y p e ,
L i m i t s _ R e a c h e d ,
N o _ M o n e y ,
S y m b o l _ F r o m _ S t o p _ L i s t ,
P a i r _ N o t _ F o u n d ,
S y m b o l _ O n l y _ O n c e _ M o d e ,
C u r r e n c y _ O n l y _ O n c e _ M o d e ,
} ;
e n u m V E R S I O N
{
V 2 , / / B e s t c o r r e l a t i o n
V 4 _ 1 , / / T h r o u g h a n o t h e r s y m b o l ( T F 2 )
V 4 _ 2 , / / T h r o u g h a n o t h e r s y m b o l ( T F 1 )
} ;
e n u m C O R R E C T O R
{
C O _ N O , / / N o c o r r e c t i o n
C O _ T V D , / / T i c k V a l u e b a s e d ( V 2 )
C O _ V O L _ H , / / V o l a t i l i t y b a s e d ( T F 1 ) ( V 4 & 3 )
C O _ V O L _ L , / / V o l a t i l i t y b a s e d ( T F 2 )
} ;
e n u m A R R _ S O R T
{
H I G H , / / H i g e r T F c o r r
D I F , / / d i f f ( h i g h e r T F - l o w e r T F )
G A P , / / g a p p o i n t s
} ;
e n u m L I S T
{
N O T H , / / N o t h i n g
S T O P , / / S t o p - L i s t
C U R R , / / O p e n e d C u r r e n c i e s
S Y M B _ O , / / O p e n e d S y m b o l s
S Y M B _ T , / / T r a d i n g S y m b o l s
} ;
e x t e r n b o o l M a n u a l _ S t a r t = t r u e ; / / S t a r t g r i d s o n l y m a n u a l l y
e x t e r n b o o l A l l o w _ P o s = t r u e ; / / T r a d e p o s i t i v e c o r r e l a t i o n
e x t e r n b o o l A l l o w _ N e g = t r u e ; / / T r a d e n e g a t i v e c o r r e l a t i o n
e x t e r n b o o l U s e _ M a r k e t W a t c h = f a l s e ; / / U s e v i s i b l e p a i r s f r o m M a r k e t W a t c h ?
e x t e r n s t r i n g S y m b L i s t = " A U D N Z D , A U D U S D , C A D J P Y , C A D C H F , C H F J P Y , E U R A U D , E U R C A D , E U R C H F , E U R G B P , E U R J P Y , E U R N Z D , G B P A U D , G B P C A D , G B P C H F , G B P J P Y , G B P N Z D , G B P U S D , N Z D C A D , N Z D J P Y , N Z D U S D , U S D C A D , U S D C H F , U S D J P Y " ;
e x t e r n V E R S I O N V e r s i o n = V 4 _ 1 ;
e x t e r n A R R _ S O R T A r r a y S o r t W a y = H I G H ; / / S o r t w a y
e x t e r n C O R R E C T O R C o r r e c t i o n = C O _ V O L _ H ; / / L o t c o r r e c t i o n t y p e
e x t e r n C U L C M O D E P o i n t C u l c = S E C O N D ; / / P o i n t s c a l c u l a t i o n m o d e
e x t e r n s t r i n g C a p 1 = " " ; / / . . . . . . . . C o r r e l a t i o n s e t t i n g s :
e x t e r n E N U M _ T I M E F R A M E S T F 1 = P E R I O D _ H 1 ; / / T i m e F r a m e M a i n
e x t e r n i n t c P e r i o d 1 = 1 5 0 0 ; / / P e r i o d M a i n
e x t e r n E N U M _ T I M E F R A M E S T F 2 = P E R I O D _ M 1 ; / / T i m e F r a m e 2
e x t e r n i n t c P e r i o d 2 = 5 0 0 ; / / P e r i o d 2
e x t e r n d o u b l e E n o u g h t = 0 . 7 ; / / M i n . c o r r e l a t i o n
e x t e r n d o u b l e M i n = 0 . 0 1 ; / / M i n . d e v i a t i o n t o t r a d e
e x t e r n s t r i n g C a p 2 = " " ; / / . . . . . . . . T r a d i n g l o g i c :
e x t e r n i n t M i n G a p = 5 0 ; / / M i n . g a p ( p o i n t s )
i n p u t s t r i n g c a p t i o n 7 0 = " " ; / / . . . . . . . . . M o n e y & g r i d s e t t i n g s :
e x t e r n d o u b l e L o t s = 0 . 0 1 ; / / I n i t i a l l o t
e x t e r n M A R T M a r t i n _ w a y = S U M M ; / / M a r t i n g a l e m e t h o d
e x t e r n d o u b l e M a r t i n = 0 . 0 1 ; / / M a r t i n g a l e f a c t o r
e x t e r n i n t M a r t i n _ S t a r t = 2 ; / / S t a r t M a r t i n g a l e f r o m . . .
e x t e r n d o u b l e M a x L o t _ I n p = 2 0 ; / / M a x . l o t
e x t e r n i n t T r i g g e r _ P o i n t s = 1 0 0 ; / / L o s s f o r t h e g r i d , p o i n t s
e x t e r n i n t T r i g g e r _ S t e p = 2 0 0 ; / / L o s s s t e p f o r t h e g r i d , p o i n t s
i n p u t s t r i n g C a p 3 = " " ; / / . . . . . . . . . E x i t c o n d i t i o n s :
b o o l U s e _ H E D G E _ C L O S E = t r u e ; / / U s e h e d g e - c l o s e
i n t G r i d _ T o _ H e d g e = 3 ; / / S i z e o f t h e g r i d t o u s e h e d g e - c l o s e
i n p u t s t r i n g C a p 3 1 = " " ; / / . . . F o r o n e - p a i r g r i d :
e x t e r n d o u b l e P r o f _ P o i n t s = 5 0 ; / / P o i n t s o f p r o f i t f o r s i n g l e p a i r o f t r a d e s
e x t e r n i n t B E _ N M B R = 9 9 9 ; / / N u m b e r o f p a i r s o f o r d e r s t o u s e g r i d p r o f i t
e x t e r n i n t B E _ P o i n t s = 5 ; / / G r i d p r o f i t , p o i n t s
e x t e r n d o u b l e L o s e _ P o i n t s = 9 9 9 9 9 9 ; / / P o i n t s o f l o s s
e x t e r n d o u b l e L o s e _ P e r c 1 = 1 0 0 ; / / P e r c e n t o f l o s s
e x t e r n d o u b l e L o s e _ M o n e y 1 = 9 9 9 9 9 9 ; / / L o s s i n m o n e y
i n p u t s t r i n g C a p 3 2 = " " ; / / . . . F o r a l l t r a d e s f r o m E A :
e x t e r n d o u b l e P r o f _ P e r c = 5 ; / / P e r c e n t o f p r o f i t
e x t e r n d o u b l e L o s e _ P e r c = 1 0 0 ; / / P e r c e n t o f l o s s
i n p u t s t r i n g C a p 4 = " " ; / / . . . T i m e f i l t e r s :
e x t e r n E N U M _ D A Y _ O F _ W E E K S t a r t _ D = M O N D A Y ; / / D a y o f t h e w e e k t o s t a r t o p e n i n g
e x t e r n s t r i n g S t a r t _ H _ s = " 4 : 0 0 " ; / / S t a r t h o u r s
e x t e r n E N U M _ D A Y _ O F _ W E E K S t o p _ D = F R I D A Y ; / / D a y o f t h e w e e k t o s t o p o p e n i n g
e x t e r n s t r i n g S t o p _ H _ s = " 1 8 : 0 0 " ; / / S t o p t r a d i n g
e x t e r n i n t S w a p T i m e = 2 1 ; / / S w a p T i m e
e x t e r n i n t M i n u t e s B e f o r S w a p = 2 ; / / D o n ' t t r a d e b e f o r e s w a p t i m e , m i n u t e s
e x t e r n i n t M i n u t e s A f t e r S w a p = 1 5 ; / / D o n ' t t r a d e a f t e r s w a p t i m e , m i n u t e s
i n p u t s t r i n g C a p 5 = " " ; / / . . . L i m i t a t i o n s f o r g r i d q u a n t i t y :
e x t e r n b o o l O n e c e S y m b = t r u e ; / / O p e n S y m b o l o n c e
e x t e r n b o o l O n e c e C u r r = f a l s e ; / / O p e n C u r r e n c y o n c e
i n p u t i n t M A X _ O R D _ i n _ g r i d = 5 0 ; / / M a x . p a i r s o f o r d e r s i n o n e g r i d ( s t o p a d d i n g i n t o g r i d )
e x t e r n i n t M A X _ G r i d s _ n m b r = 2 0 ; / / M a x . n u m b e r o f g r i d s ( b l o c k s o p e n i n g n e w g r i d )
i n p u t i n t M A X _ O R D _ T O T A L = 2 4 ; / / M a x . p a i r s o f o r d e r s i n A L L g r i d s ( b l o c k s o p e n i n g n e w g r i d )
i n p u t i n t M A X _ I n _ O n e _ G r i d = 3 ; / / M a x . p a i r s o f o r d e r s i n o n e g r i d s ( b l o c k s o p e n i n g n e w g r i d )
e x t e r n b o o l R e v e r s e _ P o s = f a l s e ; / / R e v e r s e t r a d e s u n d e r p o s i t i v e c o r r e l a t i o n
e x t e r n b o o l R e v e r s e _ N e g = f a l s e ; / / R e v e r s e t r a d e s u n d e r n e g a t i v e c o r r e l a t i o n
e x t e r n s t r i n g S t o p L i s t F u l l = " " ; / / F u l l - s t o p l i s t
e x t e r n s t r i n g S t o p L i s t = " " ; / / S t o p l i s t w i t h s u p p o r t o f o p e n e d g r i d s
i n p u t s t r i n g C a p 5 1 = " " ; / / . . . . . . . . . O t h e r s e t t i n g s :
i n p u t i n t R e f r F r = 2 0 0 ; / / R e f r e s h t i m e , m s
i n p u t i n t C h e c k P o i n t _ S h i f t = 5 ; / / C h e c k P o i n t s h i f t , s e c o n d s
e x t e r n i n t T e s t _ G S = 1 0 ; / / T e s t i n g g r i d s i z e
e x t e r n d o u b l e T e s t _ V F = 3 ; / / T e s t i n g V o l a t i l i t y f a c t o r
e x t e r n i n t M a g i c = 2 ; / / M a g i c n u m b e r
e x t e r n s t r i n g O C o m m = " " ; / / O r d e r c o m m e n t
e x t e r n s t r i n g C a p 1 1 = " ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ " ; / / . . . . . . . . D e c o r a t i o n :
e x t e r n c o l o r C L _ S y m b = c l r W h i t e ; / / C a p t i o n c o l o r
e x t e r n c o l o r C L = c l r L i g h t G r a y ; / / T e x t c o l o r
e x t e r n c o l o r C L _ P o s = c l r Y e l l o w ; / / P o s i t i v e c o r r e l a t i o n c o l o r
e x t e r n c o l o r C L _ N e g = c l r D e e p S k y B l u e ; / / N e g a t i v e c o r r e l a t i o n c o l o r
e x t e r n i n t F S = 8 ; / / F o n t s i z e
e x t e r n i n t F S _ S t a t = 8 ; / / I n c r e a s e s t a t i s t i c u n i t f o n t s i z e
e x t e r n d o u b l e V _ S t e p = 1 . 8 ; / / V e r t i c a l s t e p
e x t e r n d o u b l e H _ S t e p = 7 ; / / H o r i z o n t a l s t e p
e x t e r n b o o l S i l e n t = f a l s e ; / / S i l e n t m o d e
e x t e r n b o o l S h o w S t a t i s t i c = f a l s e ; / / S h o w s t a t i s t i c t a b l e
e x t e r n b o o l S h o w M a y O p e n = t r u e ; / / S h o w M a y O p e n l i s t
e x t e r n b o o l S h o w A l r e a d y = t r u e ; / / S h o w A l r e a d y O p e n e d l i s t
e x t e r n b o o l S h o w _ T i m e = t r u e ; / / S h o w t i m e i n s t e a d o f l o t
e x t e r n b o o l S h o w S u f f i x = t r u e ; / / S h o w s u f f i x ( f o r o p e n e d t r a d e s o n l y )
e x t e r n b o o l P r i n t _ T e s t = t r u e ; / / P r i n t V F - t e s t r e s u l t s t o l o g
s t r u c t D E S C R I P T O R 1
{
i n t r ;
i n t c ;
s t r i n g P o s _ N e g ;
s t r i n g S y m b 1 ;
s t r i n g S y m b 2 ;
d o u b l e C o r r H i g h ;
d o u b l e C o r r L o w ;
d o u b l e D i f f ;
d o u b l e G a p ;
d o u b l e V o l F a c t H ;
d o u b l e V o l F a c t L ;
d o u b l e M 1 _ H ;
d o u b l e M 2 _ H ;
d o u b l e M 1 _ L ;
d o u b l e M 2 _ L ;
E N U M _ O R D E R _ T Y P E B u y _ S e l l 1 ;
E N U M _ O R D E R _ T Y P E B u y _ S e l l 2 ;
} ;
s t r u c t D E S C R I P T O R 2
{
s t r i n g P o s _ N e g ;
s t r i n g S y m b 1 ;
s t r i n g S y m b 2 ;
i n t B u y _ S e l l 1 ;
i n t B u y _ S e l l 2 ;
d o u b l e p r o f i t ;
d o u b l e p r o f i t P ;
d o u b l e L o t 1 ;
d o u b l e L o t 2 ;
i n t O r d e r s 1 ;
i n t O r d e r s 2 ;
d a t e t i m e O p _ T i m e ;
} ;
s t r i n g S y m b L i s t A R R [ 1 0 0 ] ;
s t r i n g N o _ T r a d e s [ 9 9 9 9 9 ] ;
i n t N o _ T r a d e s _ S i z e = 0 ;
i n t S y m b _ T o t a l = 0 ;
d o u b l e S t a r t _ H , S t o p _ H ;
b o o l M a y S t a r t ;
d a t e t i m e L a s t T i m e ;
s t r i n g o b j _ p r e f = " M o n _ " ;
d o u b l e V o l a t i l i t y _ F a c t o r ;
i n t c n t r M O ;
i n t O r d e r s _ A L L ;
i n t M a x G r i d ;
i n t c n t r A O ;
d o u b l e P r o f A L L ;
d a t e t i m e M i n O p T = 9 9 9 9 9 9 9 9 9 9 9 9 ;
b o o l I s S w a p T i m e ;
D E S C R I P T O R 1 M a y O p e n [ ] ;
D E S C R I P T O R 2 A l r e a d y O p e n e d [ ] , c u r r _ o r d e r ;
s t r i n g O p e n e d S y m b [ 9 9 9 ] ,
O p e n e d C u r r [ 9 9 9 ] ,
F u l l L o c k [ 9 9 ] ;
i n t O p e n e d S y m b S y z e ,
O p e n e d C u r r S y z e ,
F u l l L o c k S i z e ;
L I S T L i s t = 0 ;
l o n g X _ M I N = 1 3 0 0 ;
l o n g Y _ M I N = 4 0 0 ;
l o n g X _ C U R R ;
l o n g Y _ C U R R ;
l o n g X _ S H I F T ;
l o n g Y _ S H I F T ;
i n t S T A T _ S H I F T ;
v o i d O n I n i t ( )
{
i f ( I s T e s t i n g ( ) )
{
P r i n t ( " M u l t i c u r r e n c y E A s c a n ' t b e t e s t e d i n M T 4 t e s t e r ! " ) ;
/ / E x p e r t R e m o v e ( ) ;
}
S T A T _ S H I F T = i n t ( ( F S + F S _ S t a t ) * 5 / ( V _ S t e p * F S ) ) + 2 ;
X _ M I N = i n t ( F S * 2 3 . 5 * H _ S t e p ) ;
Y _ M I N = i n t ( ( S T A T _ S H I F T + 1 4 ) * F S * V _ S t e p ) ;
i f ( ! G l o b a l V a r i a b l e C h e c k ( o b j _ p r e f + " _ D e p t h _ " + I n t e g e r T o S t r i n g ( M a g i c ) ) ) G l o b a l V a r i a b l e S e t ( o b j _ p r e f + " _ D e p t h _ " + I n t e g e r T o S t r i n g ( M a g i c ) , 7 ) ;
i f ( ! M a r k e t I n f o ( N U L L , M O D E _ C L O S E B Y _ A L L O W E D ) )
{
U s e _ H E D G E _ C L O S E = f a l s e ;
P r i n t ( " C l o s e B y n o t a l l o w e d b y b r o k e r . D a n g e r o f h i g h s l i p p a g e . " ) ;
}
E v e n t S e t M i l l i s e c o n d T i m e r ( R e f r F r ) ;
L a s t T i m e = 0 ;
M a y S t a r t = t r u e ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ F O R E G R O U N D , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ M O D E , C H A R T _ L I N E ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ A S K _ L I N E , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ B I D _ L I N E , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ G R I D , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ P E R I O D _ S E P , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ D A T E _ S C A L E , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ O H L C , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ P R I C E _ S C A L E , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ V O L U M E S , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ O B J E C T _ D E S C R , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ L I N E , c l r N O N E ) ;
/ / C h e c k e r r o r s i n i n p u t s :
S t a r t _ H = S t r i n g T o D o u b l e ( S t r i n g S u b s t r ( S t a r t _ H _ s , 0 , M a t h M a x ( S t r i n g F i n d ( S t a r t _ H _ s , " : " ) , 0 ) ) )
+ ( ( S t r i n g F i n d ( S t a r t _ H _ s , " : " ) > 0 ) ? S t r i n g T o D o u b l e ( S t r i n g S u b s t r ( S t a r t _ H _ s , S t r i n g F i n d ( S t a r t _ H _ s , " : " ) + 1 ) ) / 6 0 : 0 ) ;
S t o p _ H = S t r i n g T o D o u b l e ( S t r i n g S u b s t r ( S t o p _ H _ s , 0 , M a t h M a x ( S t r i n g F i n d ( S t o p _ H _ s , " : " ) , 0 ) ) )
+ ( ( S t r i n g F i n d ( S t o p _ H _ s , " : " ) > 0 ) ? S t r i n g T o D o u b l e ( S t r i n g S u b s t r ( S t o p _ H _ s , S t r i n g F i n d ( S t o p _ H _ s , " : " ) + 1 ) ) / 6 0 : 0 ) ;
i f ( S t r i n g T o D o u b l e ( S t r i n g S u b s t r ( S t o p _ H _ s , S t r i n g F i n d ( S t o p _ H _ s , " : " ) + 1 ) ) > 5 9 | |
S t r i n g T o D o u b l e ( S t r i n g S u b s t r ( S t a r t _ H _ s , S t r i n g F i n d ( S t a r t _ H _ s , " : " ) + 1 ) ) > 5 9 | |
S t r i n g T o D o u b l e ( S t r i n g S u b s t r ( S t a r t _ H _ s , 0 , M a t h M a x ( S t r i n g F i n d ( S t a r t _ H _ s , " : " ) , 0 ) ) ) > = 2 4 | |
S t r i n g T o D o u b l e ( S t r i n g S u b s t r ( S t o p _ H _ s , 0 , M a t h M a x ( S t r i n g F i n d ( S t o p _ H _ s , " : " ) , 0 ) ) ) > = 2 4 | |
S t o p _ D < = S t a r t _ D
)
{
P r i n t ( " E r r o r i n s t a r t / s t o p t i m e . " ) ;
M a y S t a r t = f a l s e ;
}
M a r t i n _ S t a r t = i n t ( M a t h M i n ( 2 , M a r t i n _ S t a r t ) ) ;
T F 1 = T F 1 = = 0 ? ( E N U M _ T I M E F R A M E S ) _ P e r i o d : T F 1 ;
T F 2 = T F 2 = = 0 ? ( E N U M _ T I M E F R A M E S ) _ P e r i o d : T F 2 ;
F u l l L o c k S i z e = N o _ T r a d e s _ S i z e = O p e n e d S y m b S y z e = O p e n e d C u r r S y z e = 0 ;
/ / f o r m i n i t i a l N o _ t r a d e
i f ( S t o p L i s t ! = " " )
{
w h i l e ( S t r i n g F i n d ( S t o p L i s t , " , " ) > - 1 & & ! I s S t o p p e d ( ) )
{
i n t p o s = S t r i n g F i n d ( S t o p L i s t , " , " ) ;
i f ( p o s = = 0 ) { S t o p L i s t = S t r i n g S u b s t r ( S t o p L i s t , 1 ) ; c o n t i n u e ; }
N o _ T r a d e s [ N o _ T r a d e s _ S i z e ] = S t r i n g S u b s t r ( S t o p L i s t , 0 , p o s ) ;
S t o p L i s t = S t r i n g S u b s t r ( S t o p L i s t , p o s + 1 ) ;
N o _ T r a d e s _ S i z e + + ;
}
i f ( S t o p L i s t ! = " " & & S t o p L i s t ! = " , " )
{
N o _ T r a d e s [ N o _ T r a d e s _ S i z e ] = S t o p L i s t ;
N o _ T r a d e s _ S i z e + + ;
}
}
i f ( S t o p L i s t F u l l ! = " " )
{
w h i l e ( S t r i n g F i n d ( S t o p L i s t F u l l , " , " ) > - 1 & & ! I s S t o p p e d ( ) )
{
i n t p o s = S t r i n g F i n d ( S t o p L i s t F u l l , " , " ) ;
i f ( p o s = = 0 ) { S t o p L i s t F u l l = S t r i n g S u b s t r ( S t o p L i s t F u l l , 1 ) ; c o n t i n u e ; }
F u l l L o c k [ F u l l L o c k S i z e ] = S t r i n g S u b s t r ( S t o p L i s t F u l l , 0 , p o s ) ;
S t o p L i s t F u l l = S t r i n g S u b s t r ( S t o p L i s t F u l l , p o s + 1 ) ;
F u l l L o c k S i z e + + ;
}
i f ( S t o p L i s t F u l l ! = " " & & S t o p L i s t F u l l ! = " , " )
{
F u l l L o c k [ F u l l L o c k S i z e ] = S t o p L i s t F u l l ;
F u l l L o c k S i z e + + ;
}
}
/ / f o r m a r r a y w i t h t r a d e a b l e s y m b o l s
S y m b _ T o t a l = 0 ;
i f ( ! U s e _ M a r k e t W a t c h )
{
w h i l e ( S t r i n g F i n d ( S y m b L i s t , " , " ) > - 1 & & ! I s S t o p p e d ( ) )
{
i n t p o s = S t r i n g F i n d ( S y m b L i s t , " , " ) ;
i f ( p o s = = 0 ) { S y m b L i s t = S t r i n g S u b s t r ( S y m b L i s t , 1 ) ; c o n t i n u e ; }
S y m b L i s t A R R [ S y m b _ T o t a l ] = S t r i n g S u b s t r ( S y m b L i s t , 0 , p o s ) ;
i f ( C a n T r a d e ( S y m b L i s t A R R [ S y m b _ T o t a l ] ) )
S y m b _ T o t a l + + ;
S y m b L i s t = S t r i n g S u b s t r ( S y m b L i s t , p o s + 1 ) ;
}
S y m b L i s t A R R [ S y m b _ T o t a l ] = S y m b L i s t ;
i f ( C a n T r a d e ( S y m b L i s t A R R [ S y m b _ T o t a l ] ) ) S y m b _ T o t a l + + ;
}
e l s e
f o r ( i n t i = 0 ; i < S y m b o l s T o t a l ( t r u e ) & & ! I s S t o p p e d ( ) ; i + + )
i f ( C a n T r a d e ( S y m b o l N a m e ( i , t r u e ) ) )
{
S y m b L i s t A R R [ S y m b _ T o t a l ] = S y m b o l N a m e ( i , t r u e ) ;
S y m b _ T o t a l + + ;
}
A r r a y R e s i z e ( M a y O p e n , S y m b _ T o t a l * S y m b _ T o t a l ) ;
A r r a y R e s i z e ( A l r e a d y O p e n e d , S y m b _ T o t a l * S y m b _ T o t a l ) ;
X _ C U R R = C h a r t G e t I n t e g e r ( 0 , C H A R T _ W I D T H _ I N _ P I X E L S ) ;
Y _ C U R R = C h a r t G e t I n t e g e r ( 0 , C H A R T _ H E I G H T _ I N _ P I X E L S ) ;
C r e a t e S c r o l l B u t t o n s ( ) ;
/ / C r e a t e b u t t o n s
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " B T 0 0 " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " B T 0 0 " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
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 _ p r e f + " B T 0 0 " , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ U P P E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
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 _ p r e f + " B T 0 0 " , O B J P R O P _ X D I S T A N C E , i n t ( F S * 1 0 * H _ S t e p ) ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
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 _ p r e f + " B T 0 0 " , O B J P R O P _ Y D I S T A N C E , i n t ( ( F S + F S _ S t a t ) * 5 ) ) ;
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 _ p r e f + " B T 0 0 " , O B J P R O P _ X S I Z E , ( F S + F S _ S t a t ) * 1 4 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
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 _ p r e f + " B T 0 0 " , O B J P R O P _ Y S I Z E , i n t ( ( F S + F S _ S t a t ) * 1 . 5 ) ) ;
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 _ p r e f + " B T 0 0 " , O B J P R O P _ T E X T , " S i l e n t O F F " ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " B T 0 0 " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 0 0 " , O B J P R O P _ F O N T S I Z E , F S + F S _ S t a t ) ;
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 _ p r e f + " B T 0 0 " , O B J P R O P _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 0 0 " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
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 _ p r e f + " B T 0 0 " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
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 _ p r e f + " B T 0 0 " , O B J P R O P _ B A C K , F a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
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 _ p r e f + " B T 0 0 " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
i f ( S i l e n t = = f a l s e )
{
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 _ p r e f + " B T 0 0 " , O B J P R O P _ T E X T , " S i l e n t O F F " ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " B T 0 0 " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
}
e l s e
{
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 _ p r e f + " B T 0 0 " , O B J P R O P _ T E X T , " S i l e n t O N " ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " B T 0 0 " , O B J P R O P _ B G C O L O R , c l r G r e e n ) ;
}
}
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " B T 1 1 " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 1 " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
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 _ p r e f + " B T 1 1 " , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ U P P E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
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 _ p r e f + " B T 1 1 " , O B J P R O P _ X D I S T A N C E , i n t ( F S * 1 0 * H _ S t e p ) ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
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 _ p r e f + " B T 1 1 " , O B J P R O P _ Y D I S T A N C E , i n t ( ( F S + F S _ S t a t ) * 3 ) ) ;
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 _ p r e f + " B T 1 1 " , O B J P R O P _ X S I Z E , ( F S + F S _ S t a t ) * 1 4 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
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 _ p r e f + " B T 1 1 " , O B J P R O P _ Y S I Z E , i n t ( ( F S + F S _ S t a t ) * 1 . 5 ) ) ;
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 _ p r e f + " B T 1 1 " , O B J P R O P _ T E X T , " R e f r e s h " ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " B T 1 1 " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 1 " , O B J P R O P _ F O N T S I Z E , F S + F S _ S t a t ) ;
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 _ p r e f + " B T 1 1 " , O B J P R O P _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 1 " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
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 _ p r e f + " B T 1 1 " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
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 _ p r e f + " B T 1 1 " , O B J P R O P _ B A C K , F a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
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 _ p r e f + " B T 1 1 " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
}
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " B T 2 2 " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 2 " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
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 _ p r e f + " B T 2 2 " , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ U P P E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
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 _ p r e f + " B T 2 2 " , O B J P R O P _ X D I S T A N C E , i n t ( F S * 1 0 * H _ S t e p ) ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
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 _ p r e f + " B T 2 2 " , O B J P R O P _ Y D I S T A N C E , i n t ( ( F S + F S _ S t a t ) * 1 ) ) ;
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 _ p r e f + " B T 2 2 " , O B J P R O P _ X S I Z E , ( F S + F S _ S t a t ) * 1 4 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
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 _ p r e f + " B T 2 2 " , O B J P R O P _ Y S I Z E , i n t ( ( F S + F S _ S t a t ) * 1 . 5 ) ) ;
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 _ p r e f + " B T 2 2 " , O B J P R O P _ T E X T , " C l o s e A L L & S t o p E A " ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " B T 2 2 " , O B J P R O P _ A L I G N , A L I G N _ L E F T ) ;
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 _ p r e f + " B T 2 2 " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 2 " , O B J P R O P _ F O N T S I Z E , F S + F S _ S t a t ) ;
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 _ p r e f + " B T 2 2 " , O B J P R O P _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 2 " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
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 _ p r e f + " B T 2 2 " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
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 _ p r e f + " B T 2 2 " , O B J P R O P _ B A C K , F a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
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 _ p r e f + " B T 2 2 " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
}
s t r i n g n a m e = o b j _ p r e f + " B T 3 3 " ;
i f ( O b j e c t F i n d ( n a m e ) < 0 ) O b j e c t C r e a t e ( n a m e , O B J _ B U T T O N , 0 , 0 , 0 ) ;
O b j e c t S e t ( 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 _ U P P 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 _ X D I S T A N C E , i n t ( F S * H _ S t e p * 4 ) ) ;
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 , 1 5 ) ;
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 S I Z E , i n t ( F S * H _ S t e p * 2 . 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 _ Y S I Z E , i n t ( F S * V _ S t e p + 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 _ S E L E C T A B L E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 _ A L I G N , A L I G N _ L E F 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 _ 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 , F S + 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 _ S y m b ) ;
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 O R D E R _ C O L O R , c l r B l a c k ) ; / / - - - CAB0=>28< F25B 3@0=8FK
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 , t r u e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
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 A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
i f ( A r r a y S o r t W a y = = G A P )
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 o r t e d b y g a p > " ) ; / / - - - CAB0=>28< B5:AB
i f ( A r r a y S o r t W a y = = D I F )
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 o r t e d b y d i f f e r e n c e > " ) ; / / - - - CAB0=>28< B5:AB
i f ( A r r a y S o r t W a y = = H I G H )
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 o r t e d b y c o r r e l a t i o n > " ) ; / / - - - CAB0=>28< B5:AB
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 G C O L O R , c l r B l a c k ) ;
n a m e = o b j _ p r e f + " B T 4 4 " ;
i n t x = i n t ( ( 1 ) * F S * H _ S t e p ) + 5 ;
i f ( O b j e c t F i n d ( n a m e ) < 0 ) O b j e c t C r e a t e ( n a m e , O B J _ B U T T O N , 0 , 0 , 0 ) ;
O b j e c t S e t ( 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 _ U P P 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 _ X D I S T A N C E , i n t ( F S * H _ S t e p * 6 . 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 _ Y D I S T A N C E , 1 5 ) ;
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 S I Z E , i n t ( F S * H _ S t e p * 2 . 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 S I Z E , i n t ( F S * V _ S t e p + 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 _ S E L E C T A B L E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 _ A L I G N , A L I G N _ L E F 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 _ 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 , F S + 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 _ S y m b ) ;
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 O R D E R _ C O L O R , c l r B l a c k ) ; / / - - - CAB0=>28< F25B 3@0=8FK
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 , t r u e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
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 A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
i f ( L i s t = = N O T H )
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 o t h i n g > " ) ; / / - - - CAB0=>28< B5:AB
i f ( L i s t = = S T O P )
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 o p - l i s t > " ) ; / / - - - CAB0=>28< B5:AB
i f ( L i s t = = C U R R )
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 , " < c u r r e n c i e s > " ) ; / / - - - CAB0=>28< B5:AB
i f ( L i s t = = S Y M B _ O )
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 , " < o p e n e d s y m b o l s > " ) ; / / - - - CAB0=>28< B5:AB
i f ( L i s t = = S Y M B _ 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 , " < s y m b o l - l i s t > " ) ; / / - - - CAB0=>28< B5:AB
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 G C O L O R , c l r B l a c k ) ;
i f ( S h o w M a y O p e n & & ! S i l e n t ) T e x t 2 ( 0 , 0 , " . . . . . i n i t i a l i z a t i o n . . . . . " , c l r O r a n g e , 2 ) ;
/ /
i f ( M a y S t a r t )
{
T i m e T o T r a d e ( ) ;
f o r ( i n t i i = 0 ; i i < T e s t _ G S ; i i + + )
f o r ( i n t i = S y m b _ T o t a l - 1 ; i > = 0 ; i - - )
f o r ( i n t k = S y m b _ T o t a l - 1 ; k > = 0 ; k - - )
{
/ / i f ( S y m b L i s t A R R [ i ] = = " X A U U S D " | | S y m b L i s t A R R [ k ] = = " X A U U S D " ) P r i n t ( i , " - " , k , " " , S y m b L i s t A R R [ i ] , " " , S y m b L i s t A R R [ k ] ) ;
i f ( P r i n t _ T e s t ) P r i n t ( i , " - " , k , " " , S y m b L i s t A R R [ i ] , " " , S y m b L i s t A R R [ k ] , " " , C o r r e l a t i o n ( S y m b L i s t A R R [ i ] , S y m b L i s t A R R [ k ] , T F 1 , c P e r i o d 1 ) , " " , V o l a t i l i t y _ F a c t o r ) ;
i f ( C a n T r a d e ( S y m b L i s t A R R [ i ] , S y m b L i s t A R R [ k ] ) )
L o t S i z e ( S y m b L i s t A R R [ i ] , S y m b L i s t A R R [ k ] , i i ) ;
}
P r i n t ( " F o u n d " , S y m b _ T o t a l , " s y m b o l s t o t r a d e . " ) ;
P r i n t ( " S t o p l i s t h a s " , N o _ T r a d e s _ S i z e + F u l l L o c k S i z e , " p o s i t i o n ( s ) . " ) ;
i f ( P r i n t _ T e s t )
f o r ( i n t i i = 0 ; i i < N o _ T r a d e s _ S i z e ; i i + + )
P r i n t ( i i + 1 , " - " , N o _ T r a d e s [ i i ] ) ;
}
R e c u l c L i s t s ( ) ;
i f ( ! M a y S t a r t ) T e x t 2 ( 0 , 0 , " ! ! ! I n i t i a l i z a t i o n f a i l e d ! ! ! " , c l r R e d , 2 ) ;
i f ( I s T e s t i n g ( ) )
{
P r i n t ( " ! ! ! ! M u l t i c u r r e n c y E A s c a n ' t b e t e s t e d i n M T 4 t e s t e r ! ! ! ! " ) ;
/ / E x p e r t R e m o v e ( ) ;
}
}
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 )
{
O b j e c t s D e l e t e A l l ( 0 , o b j _ p r e f ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ M O D E , C H A R T _ B A R S ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ A S K _ L I N E , t r u e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ B I D _ L I N E , t r u e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ P E R I O D _ S E P , t r u e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ D A T E _ S C A L E , t r u e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ P R I C E _ S C A L E , t r u e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ O B J E C T _ D E S C R , t r u e ) ;
}
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 , / / 845=B8D8:0B>@ A>1KB8O
c o n s t l o n g & l p a r a m , / / ?0@0<5B@ A>1KB8O B8?0 l o n g
c o n s t d o u b l e & d p a r a m , / / ?0@0<5B@ A>1KB8O B8?0 d o u b l e
c o n s t s t r i n g & s p a r a m ) / / ?0@0<5B@ A>1KB8O B8?0 s t r i n g
{
i f ( i d = = C H A R T E V E N T _ O B J E C T _ E N D E D I T )
{
O b j e c t s D e l e t e A l l ( 0 , o b j _ p r e f + " _ T 1 " ) ;
G l o b a l V a r i a b l e S e t ( o b j _ p r e f + " _ D e p t h _ " + I n t e g e r T o S t r i n g ( M a g i c ) , S t r T o D o u b l e ( O b j e c t G e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " _ D e p t h " , O B J P R O P _ T E X T ) ) ) ;
S t a t i s t i c k ( ) ;
}
i f ( i d = = C H A R T E V E N T _ C H A R T _ C H A N G E )
{
X _ C U R R = C h a r t G e t I n t e g e r ( 0 , C H A R T _ W I D T H _ I N _ P I X E L S ) ;
Y _ C U R R = C h a r t G e t I n t e g e r ( 0 , C H A R T _ H E I G H T _ I N _ P I X E L S ) ;
Y _ M I N = i n t ( M a t h M a x ( ( ( S T A T _ S H I F T + 1 4 ) * F S * V _ S t e p ) , M a t h M a x ( ( c n t r A O + 4 ) * V _ S t e p * F S , ( c n t r M O + 2 ) * V _ S t e p * F S ) ) + ( S h o w S t a t i s t i c ? ( F S + F S _ S t a t / 3 ) * V _ S t e p * 7 : 0 ) ) ;
i f ( X _ S H I F T ! = 0 | | Y _ S H I F T ! = 0 )
{
f o r ( i n t i = 0 ; i < O b j e c t s T o t a l ( ) ; i + + )
{
i f ( O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ L e f t " | | O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ R i g h t " | |
O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ U p " | | O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ D n "
| | S t r i n g F i n d ( O b j e c t N a m e ( 0 , i ) , o b j _ p r e f ) < 0 ) c o n t i n u e ;
i f ( O b j e c t G e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ C O R N E R ) = = C O R N E R _ L E F T _ U P P E R )
{
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ X D I S T A N C E , O b j e c t G e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ X D I S T A N C E ) - X _ S H I F T ) ;
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ Y D I S T A N C E , O b j e c t G e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ Y D I S T A N C E ) - Y _ S H I F T ) ;
}
}
X _ S H I F T = Y _ S H I F T = 0 ;
}
C r e a t e S c r o l l B u t t o n s ( ) ;
}
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ S T A T E ) )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ S T A T E , f a l s e ) ;
X _ S H I F T + = i n t ( F S * H _ S t e p ) ;
i f ( X _ S H I F T > 0 ) { X _ S H I F T = 0 ; r e t u r n ; }
f o r ( i n t i = 0 ; i < O b j e c t s T o t a l ( ) ; i + + )
{
i f ( O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ L e f t " | | O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ R i g h t " | |
O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ U p " | | O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ D n "
| | S t r i n g F i n d ( O b j e c t N a m e ( 0 , i ) , o b j _ p r e f ) < 0 ) c o n t i n u e ;
i f ( O b j e c t G e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ C O R N E R ) = = C O R N E R _ L E F T _ U P P E R )
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ X D I S T A N C E , O b j e c t G e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ X D I S T A N C E ) + i n t ( F S * H _ S t e p ) ) ;
}
}
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ S T A T E ) )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ S T A T E , f a l s e ) ;
i f ( X _ S H I F T < X _ C U R R - X _ M I N ) r e t u r n ;
X _ S H I F T - = i n t ( F S * H _ S t e p ) ;
f o r ( i n t i = 0 ; i < O b j e c t s T o t a l ( ) ; i + + )
{
i f ( O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ L e f t " | | O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ R i g h t " | |
O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ U p " | | O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ D n "
| | S t r i n g F i n d ( O b j e c t N a m e ( 0 , i ) , o b j _ p r e f ) < 0 ) c o n t i n u e ;
i f ( O b j e c t G e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ C O R N E R ) = = C O R N E R _ L E F T _ U P P E R )
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ X D I S T A N C E , O b j e c t G e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ X D I S T A N C E ) - i n t ( F S * H _ S t e p ) ) ;
}
}
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " S c r o l l _ U p " , O B J P R O P _ S T A T E ) )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S c r o l l _ U p " , O B J P R O P _ S T A T E , f a l s e ) ;
Y _ S H I F T + = i n t ( F S * V _ S t e p ) ;
i f ( Y _ S H I F T > 0 ) { Y _ S H I F T = 0 ; r e t u r n ; }
f o r ( i n t i = 0 ; i < O b j e c t s T o t a l ( ) ; i + + )
{
i f ( O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ L e f t " | | O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ R i g h t " | |
O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ U p " | | O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ D n "
| | S t r i n g F i n d ( O b j e c t N a m e ( 0 , i ) , o b j _ p r e f ) < 0 ) c o n t i n u e ;
i f ( O b j e c t G e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ C O R N E R ) = = C O R N E R _ L E F T _ U P P E R )
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ Y D I S T A N C E , O b j e c t G e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ Y D I S T A N C E ) + i n t ( F S * V _ S t e p ) ) ;
}
}
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " S c r o l l _ D n " , O B J P R O P _ S T A T E ) )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " S c r o l l _ D n " , O B J P R O P _ S T A T E , f a l s e ) ;
i f ( Y _ S H I F T < Y _ C U R R - Y _ M I N - i n t ( F S * V _ S t e p ) * 2 - ( S h o w S t a t i s t i c ? ( ( F S + F S _ S t a t / 3 ) * V _ S t e p * 7 ) : 0 ) ) r e t u r n ;
Y _ S H I F T - = i n t ( F S * V _ S t e p ) ;
f o r ( i n t i = 0 ; i < O b j e c t s T o t a l ( ) ; i + + )
{
i f ( O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ L e f t " | | O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ R i g h t " | |
O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ U p " | | O b j e c t N a m e ( 0 , i ) = = o b j _ p r e f + " S c r o l l _ D n "
| | S t r i n g F i n d ( O b j e c t N a m e ( 0 , i ) , o b j _ p r e f ) < 0 ) c o n t i n u e ;
i f ( O b j e c t G e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ C O R N E R ) = = C O R N E R _ L E F T _ U P P E R )
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ Y D I S T A N C E , O b j e c t G e t I n t e g e r ( 0 , O b j e c t N a m e ( 0 , i ) , O B J P R O P _ Y D I S T A N C E ) - i n t ( F S * V _ S t e p ) ) ;
}
}
/ / m a n u a l g r i d c l o s e
f o r ( i n t i = 0 ; i < c n t r A O ; i + + )
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " _ B _ " + I n t e g e r T o S t r i n g ( i + 1 ) , O B J P R O P _ S T A T E ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " _ B _ " + I n t e g e r T o S t r i n g ( i + 1 ) , O B J P R O P _ S T A T E , f a l s e ) ;
i n t r e t = M e s s a g e B o x ( " C l o s e " + ( A l r e a d y O p e n e d [ i ] . P o s _ N e g = = P o s i t i v e ? " p o s i t i v e " : " n e g a t i v e " ) + " - c o r r e l a t i o n g r i d " + A l r e a d y O p e n e d [ i ] . S y m b 1 + " - " + A l r e a d y O p e n e d [ i ] . S y m b 2 + " ? " ,
" A r e y o u s u r e ? " , M B _ O K C A N C E L ) ;
i f ( r e t = = I D O K )
{
P r i n t ( " C l o s i n g " + ( A l r e a d y O p e n e d [ i ] . P o s _ N e g = = P o s i t i v e ? " p o s i t i v e " : " n e g a t i v e " ) + " g r i d " + A l r e a d y O p e n e d [ i ] . S y m b 1 + " - " + A l r e a d y O p e n e d [ i ] . S y m b 2 , " u n d e r m a n u a l c o m m a n d . " ) ;
C l o s e _ H e d g e ( i ) ;
P r i n t ( " P a i r " , A l r e a d y O p e n e d [ i ] . S y m b 1 + " - " + A l r e a d y O p e n e d [ i ] . S y m b 2 , " a d d e d t o N o - T r a d e s l i s t a s i t w a s c l o s e d m a n u a l y . " ) ;
N o _ T r a d e s [ N o _ T r a d e s _ S i z e ] = A l r e a d y O p e n e d [ i ] . S y m b 1 + " - " + A l r e a d y O p e n e d [ i ] . S y m b 2 ;
N o _ T r a d e s _ S i z e + + ;
r e t u r n ;
}
}
/ / S i l e n t
i f ( ! O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " B T 0 0 " , O B J P R O P _ S T A T E ) )
{
i f ( S i l e n t = = t r u e ) L a s t T i m e = 0 ;
S i l e n t = f a l s e ;
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 _ p r e f + " B T 0 0 " , O B J P R O P _ T E X T , " S i l e n t O F F " ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " B T 0 0 " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
}
e l s e
{
i f ( S i l e n t = = f a l s e ) O b j e c t s D e l e t e A l l ( 0 , o b j _ p r e f + " _ " ) ;
S i l e n t = t r u e ;
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 _ p r e f + " B T 0 0 " , O B J P R O P _ T E X T , " S i l e n t O N " ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " B T 0 0 " , O B J P R O P _ B G C O L O R , c l r G r e e n ) ;
}
/ / r e f r e s h
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " B T 1 1 " , O B J P R O P _ S T A T E ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " B T 1 1 " , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t s D e l e t e A l l ( 0 , o b j _ p r e f + " _ " ) ;
M a y S t a r t = t r u e ;
L a s t T i m e = 0 ;
}
/ / c l o s e a l l
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " B T 2 2 " , O B J P R O P _ S T A T E ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " B T 2 2 " , O B J P R O P _ S T A T E , f a l s e ) ;
i n t r e t = M e s s a g e B o x ( " C l o s e A L L t r a d e s a n d s t o p E A ? " ,
" A r e y o u s u r e ? " , M B _ O K C A N C E L ) ;
i f ( r e t = = I D O K )
{
P r i n t ( " C l o s i n g A L L t r a d e s u n d e r u s e r c o m m a n d . " ) ;
C l o s e _ A L L ( ) ;
M a y S t a r t = f a l s e ;
O b j e c t s D e l e t e A l l ( 0 , o b j _ p r e f + " _ " ) ;
T e x t 2 ( 0 , 0 , " ! ! ! E A S t o p p e d ! ! ! " , c l r R e d , 2 ) ;
P r i n t ( " E A S t o p p e d " ) ;
S l e e p ( 5 0 0 ) ;
}
}
/ / s o r t i n g
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " B T 3 3 " , O B J P R O P _ S T A T E ) )
{
/ / O b j e c t s D e l e t e A l l ( 0 , o b j _ p r e f + " _ T 2 _ " ) ;
A r r a y S o r t W a y = A R R _ S O R T ( ( A r r a y S o r t W a y = = G A P ) ? H I G H : A r r a y S o r t W a y + 1 ) ;
i f ( A r r a y S o r t W a y = = G A P )
O b j e c t S e t S t r i n g ( 0 , o b j _ p r e f + " B T 3 3 " , O B J P R O P _ T E X T , " < s o r t e d b y g a p > " ) ;
i f ( A r r a y S o r t W a y = = D I F )
O b j e c t S e t S t r i n g ( 0 , o b j _ p r e f + " B T 3 3 " , O B J P R O P _ T E X T , " < s o r t e d b y d i f f e r e n c e > " ) ;
i f ( A r r a y S o r t W a y = = H I G H )
O b j e c t S e t S t r i n g ( 0 , o b j _ p r e f + " B T 3 3 " , O B J P R O P _ T E X T , " < s o r t e d b y c o r r e l a t i o n > " ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " B T 3 3 " , O B J P R O P _ S T A T E , f a l s e ) ;
L a s t T i m e = 0 ;
}
/ / L i s t
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " B T 4 4 " , O B J P R O P _ S T A T E ) )
{
i f ( ! S i l e n t ) { L i s t = L I S T ( ( L i s t = = S Y M B _ T ) ? N O T H : L i s t + 1 ) ; R e d r a w L i s t ( ) ; }
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " B T 4 4 " , O B J P R O P _ S T A T E , f a l s e ) ;
}
/ / m a n u a l o r d e r s t a r t
f o r ( i n t i = 1 ; i < c n t r M O + 1 ; i + + )
i f ( O b j e c t G e t I n t e g e r ( 0 , o b j _ p r e f + " _ B 2 _ " + I n t e g e r T o S t r i n g ( i ) + " _ 0 " , O B J P R O P _ S T A T E ) )
{
O b j e c t S e t I n t e g e r ( 0 , o b j _ p r e f + " _ B 2 _ " + I n t e g e r T o S t r i n g ( i ) + " _ 0 " , O B J P R O P _ S T A T E , f a l s e ) ;
i n t r e t = M e s s a g e B o x ( " O p e n n e w g r i d " + M a y O p e n [ i - 1 ] . S y m b 1 + " - " + M a y O p e n [ i - 1 ] . S y m b 2 + " ? " +
" \ n \ n C o r e l a t i o n t y p e : " + ( M a y O p e n [ i - 1 ] . P o s _ N e g = = P o s i t i v e ? " P o s i t i v e " : " N e g a t i v e " ) +
" \ n G a p : " + D o u b l e T o S t r i n g ( M a y O p e n [ i - 1 ] . G a p , 0 ) + " p o i n t s "
" \ n C o r r e l a t i o n v a l u e : " + D o u b l e T o S t r i n g ( M a y O p e n [ i - 1 ] . C o r r H i g h , 3 ) +
" \ n C o r r e l a t i o n d i f f e r e n c e : " + D o u b l e T o S t r i n g ( M a y O p e n [ i - 1 ] . D i f f , 3 ) ,
" A r e y o u s u r e ? " , M B _ O K C A N C E L ) ;
i f ( r e t = = I D O K )
{
P r i n t ( " O p e n " + ( M a y O p e n [ i - 1 ] . P o s _ N e g = = P o s i t i v e ? " P o s i t i v e " : " N e g a t i v e " ) + M a y O p e n [ i - 1 ] . S y m b 1 + " - " + M a y O p e n [ i - 1 ] . S y m b 2 + " u n d e r m a n u a l c o m m a n d . . . . . " ,
E n u m T o S t r i n g ( O p e n _ G r i d ( M a y O p e n [ i - 1 ] . P o s _ N e g , M a y O p e n [ i - 1 ] . S y m b 1 , M a y O p e n [ i - 1 ] . S y m b 2 , M a y O p e n [ i - 1 ] . B u y _ S e l l 1 , M a y O p e n [ i - 1 ] . B u y _ S e l l 2 , 0 ) ) ) ;
S l e e p ( 1 0 0 ) ;
r e t u r n ;
}
}
}
v o i d O n T i m e r ( )
{
i f ( ! M a y S t a r t ) { r e t u r n ; }
u l o n g c _ s t a r t = G e t M i c r o s e c o n d C o u n t ( ) ;
O r d e r s _ A L L = 0 ;
M a x G r i d = 0 ;
P r o f A L L = 0 ;
M i n O p T = 9 9 9 9 9 9 9 9 9 9 9 9 ;
Z e r o M e m o r y ( A l r e a d y O p e n e d ) ;
c n t r A O = 0 ;
f o r ( i n t i = 0 ; i < O r d e r s T o t a l ( ) ; i + + )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S )
& & O r d e r M a g i c N u m b e r ( ) = = M a g i c )
{
i n t p o s = S t r i n g F i n d ( O r d e r C o m m e n t ( ) , P o s i t i v e ) ;
i f ( p o s > - 1 ) c u r r _ o r d e r . P o s _ N e g = P o s i t i v e ;
e l s e
{
p o s = S t r i n g F i n d ( O r d e r C o m m e n t ( ) , N e g a t i v e ) ;
i f ( p o s > - 1 ) c u r r _ o r d e r . P o s _ N e g = N e g a t i v e ;
e l s e c o n t i n u e ;
}
c u r r _ o r d e r . S y m b 1 = O r d e r S y m b o l ( ) ;
c u r r _ o r d e r . S y m b 2 = S t r i n g S u b s t r ( O r d e r C o m m e n t ( ) , p o s + 2 ) ;
c u r r _ o r d e r . p r o f i t = O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) + O r d e r P r o f i t ( ) ;
c u r r _ o r d e r . B u y _ S e l l 1 = O r d e r T y p e ( ) ;
c u r r _ o r d e r . B u y _ S e l l 2 = ( c u r r _ o r d e r . P o s _ N e g = = N e g a t i v e ) ? O r d e r T y p e ( ) :
( O r d e r T y p e ( ) = = O P _ B U Y ? O P _ S E L L : O P _ B U Y ) ;
c u r r _ o r d e r . L o t 1 = O r d e r L o t s ( ) ;
c u r r _ o r d e r . O p _ T i m e = O r d e r O p e n T i m e ( ) ;
/ / f i n d g r i d l i k e t h i s
i n t f i n d m e = - 1 ;
f o r ( i n t i i = 0 ; i i < = c n t r A O ; i i + + )
i f ( c u r r _ o r d e r . P o s _ N e g = = A l r e a d y O p e n e d [ i i ] . P o s _ N e g & &
( ( c u r r _ o r d e r . S y m b 1 = = A l r e a d y O p e n e d [ i i ] . S y m b 1 & & c u r r _ o r d e r . S y m b 2 = = A l r e a d y O p e n e d [ i i ] . S y m b 2 ) | |
( c u r r _ o r d e r . S y m b 2 = = A l r e a d y O p e n e d [ i i ] . S y m b 1 & & c u r r _ o r d e r . S y m b 1 = = A l r e a d y O p e n e d [ i i ] . S y m b 2 ) ) )
f i n d m e = i i ;
i f ( f i n d m e = = - 1 | | c n t r A O = = 0 ) { C o p y S t r u c t 2 ( c n t r A O ) ; c n t r A O + + ; } e l s e C o p y S t r u c t 2 ( f i n d m e , t r u e ) ;
}
}
/ / f i n d s u m m a r y d a t a a n d p r o f . i n p o i n t s f o r e a c h g r i d
f o r ( i n t i = 0 ; i < c n t r A O ; i + + )
{
/ / i f ( A l r e a d y O p e n e d [ i ] . O r d e r s ! = A l r e a d y O p e n e d [ i ] . O r d e r s 2 ) { O r d e r S y n c h r o n i z e ( i ) ; r e t u r n ; }
O r d e r s _ A L L + = A l r e a d y O p e n e d [ i ] . O r d e r s 1 + A l r e a d y O p e n e d [ i ] . O r d e r s 2 ;
M a x G r i d = M a t h M a x ( M a x G r i d , A l r e a d y O p e n e d [ i ] . O r d e r s 1 ) ;
M i n O p T = M a t h M i n ( M i n O p T , A l r e a d y O p e n e d [ i ] . O p _ T i m e ) ;
P r o f A L L + = A l r e a d y O p e n e d [ i ] . p r o f i t ;
i f ( P o i n t C u l c = = 0 )
A l r e a d y O p e n e d [ i ] . p r o f i t P = A l r e a d y O p e n e d [ i ] . p r o f i t * ( M a r k e t I n f o ( A l r e a d y O p e n e d [ i ] . S y m b 1 , M O D E _ T I C K V A L U E ) + M a r k e t I n f o ( A l r e a d y O p e n e d [ i ] . S y m b 2 , M O D E _ T I C K V A L U E ) )
/ ( A l r e a d y O p e n e d [ i ] . L o t 1 * M a r k e t I n f o ( A l r e a d y O p e n e d [ i ] . S y m b 1 , M O D E _ T I C K V A L U E ) + A l r e a d y O p e n e d [ i ] . L o t 2 * M a r k e t I n f o ( A l r e a d y O p e n e d [ i ] . S y m b 2 , M O D E _ T I C K V A L U E ) ) ;
i f ( P o i n t C u l c = = 1 )
A l r e a d y O p e n e d [ i ] . p r o f i t P = A l r e a d y O p e n e d [ i ] . p r o f i t
/ ( A l r e a d y O p e n e d [ i ] . L o t 1 * M a r k e t I n f o ( A l r e a d y O p e n e d [ i ] . S y m b 1 , M O D E _ T I C K V A L U E ) + A l r e a d y O p e n e d [ i ] . L o t 2 * M a r k e t I n f o ( A l r e a d y O p e n e d [ i ] . S y m b 2 , M O D E _ T I C K V A L U E ) ) ;
i f ( P o i n t C u l c = = 2 )
A l r e a d y O p e n e d [ i ] . p r o f i t P = A l r e a d y O p e n e d [ i ] . p r o f i t / ( A l r e a d y O p e n e d [ i ] . L o t 1 + A l r e a d y O p e n e d [ i ] . L o t 2 ) ;
}
/ / T r a d e A c t i o n s
f o r ( i n t i = 0 ; i < c n t r A O ; i + + )
{
/ / C l o s e o n e g r i d
d o u b l e B a l = A c c o u n t B a l a n c e ( ) ;
i f ( ( A l r e a d y O p e n e d [ i ] . O r d e r s 1 < B E _ N M B R & & A l r e a d y O p e n e d [ i ] . p r o f i t P > = P r o f _ P o i n t s ) | | ( A l r e a d y O p e n e d [ i ] . O r d e r s 1 > = B E _ N M B R & & B E _ N M B R > 0 & & A l r e a d y O p e n e d [ i ] . p r o f i t P > = B E _ P o i n t s ) | |
( A l r e a d y O p e n e d [ i ] . O r d e r s 1 ! = 0 & & B E _ N M B R < = 0 & & A l r e a d y O p e n e d [ i ] . p r o f i t P > = B E _ P o i n t s + P r o f _ P o i n t s / A l r e a d y O p e n e d [ i ] . O r d e r s 1 * 2 ) | |
A l r e a d y O p e n e d [ i ] . p r o f i t P < = - L o s e _ P o i n t s | | ( B a l ! = 0 & & A l r e a d y O p e n e d [ i ] . p r o f i t / B a l * 1 0 0 < - L o s e _ P e r c 1 ) | | A l r e a d y O p e n e d [ i ] . p r o f i t < - L o s e _ M o n e y 1 )
{
P r i n t ( " C l o s e g r i d " , A l r e a d y O p e n e d [ i ] . S y m b 1 , " - " , A l r e a d y O p e n e d [ i ] . S y m b 2 , " a s r e a c h e d " , D o u b l e T o S t r ( A l r e a d y O p e n e d [ i ] . p r o f i t P , 1 ) , " p o i n t s ; " , D o u b l e T o S t r ( A l r e a d y O p e n e d [ i ] . p r o f i t , 2 ) , " $ ; " , D o u b l e T o S t r ( A l r e a d y O p e n e d [ i ] . p r o f i t / B a l * 1 0 0 , 2 ) , " % " ) ;
i f ( ( A l r e a d y O p e n e d [ i ] . p r o f i t P < = - L o s e _ P o i n t s | | A l r e a d y O p e n e d [ i ] . p r o f i t / B a l * 1 0 0 < - L o s e _ P e r c 1 | | A l r e a d y O p e n e d [ i ] . p r o f i t < - L o s e _ M o n e y 1 ) & &
C a n T r a d e ( A l r e a d y O p e n e d [ i ] . S y m b 1 + " - " + A l r e a d y O p e n e d [ i ] . S y m b 2 , A l r e a d y O p e n e d [ i ] . S y m b 2 + " - " + A l r e a d y O p e n e d [ i ] . S y m b 1 ) )
{
P r i n t ( " S L r e a c h e d - a d d i n g s y m b o l s " , A l r e a d y O p e n e d [ i ] . S y m b 1 , " - " , A l r e a d y O p e n e d [ i ] . S y m b 2 , " t o N o - T r a d e l i s t " ) ;
N o _ T r a d e s [ N o _ T r a d e s _ S i z e ] = A l r e a d y O p e n e d [ i ] . S y m b 1 + " - " + A l r e a d y O p e n e d [ i ] . S y m b 2 ;
N o _ T r a d e s _ S i z e + + ;
}
u l o n g t i m e = G e t M i c r o s e c o n d C o u n t ( ) ;
C l o s e _ H e d g e ( i ) ;
/ / C l o s e _ G R I D ( A l r e a d y O p e n e d [ i ] . P o s _ N e g , A l r e a d y O p e n e d [ i ] . S y m b 1 , A l r e a d y O p e n e d [ i ] . S y m b 2 ) ;
/ / S l e e p ( 1 0 0 ) ; / / t o l e t M T 4 r e f r e s h t h e l i s t o f o p e n e d t r a d e s
P r i n t ( " G r i d c l o s e d w i t h p r o f i t " , D o u b l e T o S t r ( A c c o u n t B a l a n c e ( ) - B a l , 2 ) , " $ . C l o s i n g t i m e " , I n t e g e r T o S t r i n g ( ( G e t M i c r o s e c o n d C o u n t ( ) - t i m e ) / 1 0 0 0 - 0 0 0 ) , " m s " ) ;
r e t u r n ;
}
/ / O p e n o n e m o r e p a i r o f o r d e r s
i f ( A l r e a d y O p e n e d [ i ] . p r o f i t P < = - T r i g g e r _ P o i n t s * A l r e a d y O p e n e d [ i ] . O r d e r s 1 - ( A l r e a d y O p e n e d [ i ] . O r d e r s 1 - 1 ) * T r i g g e r _ S t e p & & A l r e a d y O p e n e d [ i ] . O r d e r s 1 < M A X _ O R D _ i n _ g r i d )
{
i f ( T i m e T o T r a d e ( ) & & C a n T r a d e ( A l r e a d y O p e n e d [ i ] . S y m b 1 , A l r e a d y O p e n e d [ i ] . S y m b 2 , t r u e ) )
P r i n t ( " A d d p a i r o f o r d e r s # " , A l r e a d y O p e n e d [ i ] . O r d e r s 1 + 1 , " t o g r i d " , A l r e a d y O p e n e d [ i ] . S y m b 1 + " - " + A l r e a d y O p e n e d [ i ] . S y m b 2 , " a s c u r r e n t l o s s i s " ,
D o u b l e T o S t r ( A l r e a d y O p e n e d [ i ] . p r o f i t P , 1 ) , " p o i n t s > = " , T r i g g e r _ P o i n t s * A l r e a d y O p e n e d [ i ] . O r d e r s 1 + ( A l r e a d y O p e n e d [ i ] . O r d e r s 1 - 1 ) * T r i g g e r _ S t e p , " . . . . . "
+ E n u m T o S t r i n g ( O p e n _ G r i d ( A l r e a d y O p e n e d [ i ] . P o s _ N e g , A l r e a d y O p e n e d [ i ] . S y m b 1 , A l r e a d y O p e n e d [ i ] . S y m b 2 , A l r e a d y O p e n e d [ i ] . B u y _ S e l l 1 , A l r e a d y O p e n e d [ i ] . B u y _ S e l l 2 , A l r e a d y O p e n e d [ i ] . O r d e r s 1 ) ) ) ;
r e t u r n ;
}
}
i f ( P r o f A L L / A c c o u n t B a l a n c e ( ) * 1 0 0 < - L o s e _ P e r c )
{
P r i n t ( " G l o b a l S L r e a c h e d . L o s s = " , D o u b l e T o S t r ( - P r o f A L L , 2 ) , " $ . B a l l a n c e = " , A c c o u n t B a l a n c e ( ) , " $ . " ) ;
C l o s e _ A L L ( ) ;
M a y S t a r t = f a l s e ;
T e x t 2 ( 0 , 0 , " ! ! ! G l o b a l S L r e a c h e d ! ! ! " , c l r R e d , 2 ) ;
}
i f ( P r o f A L L / A c c o u n t B a l a n c e ( ) * 1 0 0 > P r o f _ P e r c )
{
P r i n t ( " G l o b a l T P r e a c h e d . P r o f i t = " , D o u b l e T o S t r ( P r o f A L L , 2 ) , " $ . B a l l a n c e = " , A c c o u n t B a l a n c e ( ) , " $ . " ) ;
C l o s e _ A L L ( ) ;
}
i f ( S h o w A l r e a d y & & ! S i l e n t )
{
f o r ( i n t i = 0 ; i < = c n t r A O ; i + + )
{
s t r i n g T i m r S _ L ;
i f ( S h o w _ T i m e )
{
d a t e t i m e T i m r = ( T i m e C u r r e n t ( ) - A l r e a d y O p e n e d [ i ] . O p _ T i m e ) ;
T i m r S _ L = " " + I n t e g e r T o S t r i n g ( T i m r / 8 6 4 0 0 ) + " . " + ( T i m e T o S t r i n g ( T i m r , T I M E _ M I N U T E S ) ) ;
}
e l s e T i m r S _ L = " - " + D o u b l e T o S t r i n g ( A l r e a d y O p e n e d [ i ] . L o t 1 , 2 ) + " / " + D o u b l e T o S t r i n g ( A l r e a d y O p e n e d [ i ] . L o t 2 , 2 ) ;
T e x t 2 ( i + 1 , 1 7 , I n t e g e r T o S t r i n g ( i + 1 ) + " ) " + ( ( A l r e a d y O p e n e d [ i ] . B u y _ S e l l 1 = = O P _ B U Y ) ? " b . " : " s . " ) +
( S h o w S u f f i x ? A l r e a d y O p e n e d [ i ] . S y m b 1 : S t r i n g S u b s t r ( A l r e a d y O p e n e d [ i ] . S y m b 1 , 0 , 6 ) ) + " - " +
( ( A l r e a d y O p e n e d [ i ] . B u y _ S e l l 2 = = O P _ B U Y ) ? " b . " : " s . " ) +
( S h o w S u f f i x ? A l r e a d y O p e n e d [ i ] . S y m b 2 : S t r i n g S u b s t r ( A l r e a d y O p e n e d [ i ] . S y m b 2 , 0 , 6 ) ) +
" o : " + I n t e g e r T o S t r i n g ( A l r e a d y O p e n e d [ i ] . O r d e r s 1 ) +
T i m r S _ L +
" " + ( A l r e a d y O p e n e d [ i ] . p r o f i t > = 0 ? " + " : " " ) + D o u b l e T o S t r i n g ( A l r e a d y O p e n e d [ i ] . p r o f i t , 2 ) +
" $ / " + ( A l r e a d y O p e n e d [ i ] . p r o f i t P > = 0 ? " + " : " " ) + D o u b l e T o S t r i n g ( A l r e a d y O p e n e d [ i ] . p r o f i t P , 1 ) + " p "
, ( A l r e a d y O p e n e d [ i ] . O r d e r s 1 = = M A X _ I n _ O n e _ G r i d ) ? c l r O r a n g e : ( A l r e a d y O p e n e d [ i ] . O r d e r s 1 > M A X _ I n _ O n e _ G r i d ) ? c l r R e d : ( A l r e a d y O p e n e d [ i ] . P o s _ N e g = = P o s i t i v e ) ? C L _ P o s : C L _ N e g ) ;
B u t t ( i + 1 ) ;
}
T e x t 2 ( c n t r A O + 1 , 1 7 , " M a x . g r i d s i z e : " + I n t e g e r T o S t r i n g ( M a x G r i d ) , ( M a x G r i d = = M A X _ I n _ O n e _ G r i d ) ? c l r O r a n g e : ( M a x G r i d > M A X _ I n _ O n e _ G r i d ) ? c l r R e d : C L _ S y m b ) ;
T e x t 2 ( c n t r A O + 2 , 1 7 , " M a x . t i m e : " + ( M i n O p T > T i m e C u r r e n t ( ) ? " 0 " : ( I n t e g e r T o S t r i n g ( ( T i m e C u r r e n t ( ) - M i n O p T ) / 8 6 4 0 0 ) + " . " + ( T i m e T o S t r i n g ( T i m e C u r r e n t ( ) - M i n O p T , T I M E _ M I N U T E S ) ) ) ) , ( M a x G r i d = = M A X _ I n _ O n e _ G r i d ) ? c l r O r a n g e : ( M a x G r i d > M A X _ I n _ O n e _ G r i d ) ? c l r R e d : C L _ S y m b ) ;
i n t c l e a n = c n t r A O + 3 ;
w h i l e ( O b j e c t F i n d ( 0 , o b j _ p r e f + " _ T 2 _ " + I n t e g e r T o S t r i n g ( c l e a n ) + " _ 1 7 " ) > - 1 )
{
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " _ T 2 _ " + I n t e g e r T o S t r i n g ( c l e a n ) + " _ 1 7 " ) ;
c l e a n + + ;
}
c l e a n = c n t r A O + 1 ;
w h i l e ( O b j e c t F i n d ( 0 , o b j _ p r e f + " _ B _ " + I n t e g e r T o S t r i n g ( c l e a n ) ) > - 1 )
{
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " _ B _ " + I n t e g e r T o S t r i n g ( c l e a n ) ) ;
c l e a n + + ;
}
T e x t 2 ( 0 , 1 8 , " A l r e a d y o p e n e d " + I n t e g e r T o S t r i n g ( c n t r A O ) + " g r i d s " + ( ( O n e c e C u r r | | O n e c e S y m b ) ? " ( " : " " ) +
( O n e c e C u r r ? I n t e g e r T o S t r i n g ( O p e n e d C u r r S y z e ) + " c u r r . " : " " ) +
( ( O n e c e S y m b & & ! O n e c e C u r r ) ? I n t e g e r T o S t r i n g ( O p e n e d S y m b S y z e ) + " s y m b . " : " " ) +
( ( O n e c e C u r r | | O n e c e S y m b ) ? " ) : " : " : " ) , C L _ S y m b , 2 ) ;
Y _ M I N = i n t ( M a t h M a x ( ( ( S T A T _ S H I F T + 1 4 ) * F S * V _ S t e p ) , ( M a t h M a x ( c n t r A O , c n t r M O ) + 1 ) * V _ S t e p ) ) ;
}
i f ( ! S i l e n t ) D a i l y _ I n f o ( ) ;
/ / ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ O n e c e p e r n e w b a r a c t i o n s ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
i f ( L a s t T i m e = = i T i m e ( N U L L , T F 2 , 0 ) + C h e c k P o i n t _ S h i f t ) r e t u r n ;
/ / P r i n t ( " R e c a l c u l a t i n g c o r r e l a t i o n t a b l e . R e a s o n : " , L a s t T i m e ! = 0 ? " n e w b a r . " : " o p e r a t i o n s w i t h g r i d s o r r e f r e s h . " ) ;
L a s t T i m e = i T i m e ( N U L L , T F 2 , 0 ) + C h e c k P o i n t _ S h i f t ;
i f ( S i l e n t & & ( ! T i m e T o T r a d e ( ) | | c n t r A O > = M A X _ G r i d s _ n m b r | | O r d e r s _ A L L / 2 > = M A X _ O R D _ T O T A L | | M a x G r i d > = M A X _ I n _ O n e _ G r i d ) ) r e t u r n ;
e l s e
i f ( S h o w M a y O p e n & & ! S i l e n t ) T e x t 2 ( 0 , 0 , " . . . . . r e c a l c u l a t i n g t a b l e . . . . . " , c l r O r a n g e , 2 ) ;
u l o n g c _ s t a r t 0 = G e t M i c r o s e c o n d C o u n t ( ) ;
R e c u l c L i s t s ( ) ;
c n t r M O = 0 ;
f o r ( i n t r = 0 ; r < S y m b _ T o t a l ; r + + )
f o r ( i n t c = r ; c < S y m b _ T o t a l ; c + + )
{
i f ( ! C a n T r a d e ( S y m b L i s t A R R [ r ] + " - " + S y m b L i s t A R R [ c ] , S y m b L i s t A R R [ c ] + " - " + S y m b L i s t A R R [ r ] )
/ / | | ! C a n T r a d e ( S y m b L i s t A R R [ r ] , S y m b L i s t A R R [ c ] )
) c o n t i n u e ;
d o u b l e C o r r 1 = C o r r e l a t i o n ( S y m b L i s t A R R [ r ] , S y m b L i s t A R R [ c ] , T F 1 , c P e r i o d 1 , 0 , c n t r M O ) ;
i f ( C o r r 1 > = 0 & & ! A l l o w _ P o s ) c o n t i n u e ;
i f ( C o r r 1 < = 0 & & ! A l l o w _ N e g ) c o n t i n u e ;
i f ( C o r r 1 > = 1 | | f a b s ( C o r r 1 ) < E n o u g h t ) c o n t i n u e ;
d o u b l e C o r r 2 = C o r r e l a t i o n ( S y m b L i s t A R R [ r ] , S y m b L i s t A R R [ c ] , T F 2 , c P e r i o d 2 , 0 , c n t r M O ) ;
M a y O p e n [ c n t r M O ] . D i f f = ( C o r r 1 > 0 ) ? C o r r 1 - C o r r 2 : C o r r 2 - C o r r 1 ;
i f ( C o r r 2 > = 1 | | M a y O p e n [ c n t r M O ] . D i f f < M i n ) c o n t i n u e ;
M a y O p e n [ c n t r M O ] . P o s _ N e g = ( C o r r 1 > 0 ) ? P o s i t i v e : N e g a t i v e ;
M a y O p e n [ c n t r M O ] . S y m b 1 = S y m b L i s t A R R [ r ] ;
M a y O p e n [ c n t r M O ] . S y m b 2 = S y m b L i s t A R R [ c ] ;
/ / C h e c k i f t h i s g r i d e x i s t
i n t f i n d m e = - 1 ;
f o r ( i n t i i = 0 ; i i < = c n t r A O ; i i + + )
i f ( M a y O p e n [ c n t r M O ] . P o s _ N e g = = A l r e a d y O p e n e d [ i i ] . P o s _ N e g & &
( ( M a y O p e n [ c n t r M O ] . S y m b 1 = = A l r e a d y O p e n e d [ i i ] . S y m b 1 & & M a y O p e n [ c n t r M O ] . S y m b 2 = = A l r e a d y O p e n e d [ i i ] . S y m b 2 ) | |
( M a y O p e n [ c n t r M O ] . S y m b 2 = = A l r e a d y O p e n e d [ i i ] . S y m b 1 & & M a y O p e n [ c n t r M O ] . S y m b 1 = = A l r e a d y O p e n e d [ i i ] . S y m b 2 ) ) )
{ f i n d m e = i i ; }
i f ( f i n d m e > = 0 ) c o n t i n u e ;
M a y O p e n [ c n t r M O ] . C o r r H i g h = C o r r 1 ;
M a y O p e n [ c n t r M O ] . C o r r L o w = C o r r 2 ;
F i n d _ D i v e r g ( ) ; / / A l s o f i l l s g a p , t r a d e d i r e c t i o n s
/ / P r i n t ( M a y O p e n [ c n t r M O ] . S y m b 1 = S y m b L i s t A R R [ r ] , " - " , M a y O p e n [ c n t r M O ] . S y m b 2 = S y m b L i s t A R R [ c ] , " g a p " , M a y O p e n [ c n t r M O ] . G a p ) ;
i f ( M a y O p e n [ c n t r M O ] . G a p < M i n G a p | |
M a y O p e n [ c n t r M O ] . B u y _ S e l l 1 = = - 1 | | M a y O p e n [ c n t r M O ] . B u y _ S e l l 2 = = - 1 | |
( M a y O p e n [ c n t r M O ] . P o s _ N e g = = P o s i t i v e & & M a y O p e n [ c n t r M O ] . B u y _ S e l l 1 = = M a y O p e n [ c n t r M O ] . B u y _ S e l l 2 ) | |
( M a y O p e n [ c n t r M O ] . P o s _ N e g = = N e g a t i v e & & M a y O p e n [ c n t r M O ] . B u y _ S e l l 1 ! = M a y O p e n [ c n t r M O ] . B u y _ S e l l 2 )
)
c o n t i n u e ;
c n t r M O + + ;
}
A r r a y S o r t M Y ( M a y O p e n , A r r a y S o r t W a y ) ;
/ / ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ o p e n i n g N E W g r i d ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
i f ( ( T i m e T o T r a d e ( ) & & ! M a n u a l _ S t a r t ) & &
! ( c n t r A O > = M A X _ G r i d s _ n m b r | | O r d e r s _ A L L / 2 > = M A X _ O R D _ T O T A L | | M a x G r i d > = M A X _ I n _ O n e _ G r i d ) )
f o r ( i n t i = 0 ; i < c n t r M O ; i + + )
{
R E A S O N S r e s = O p e n _ G r i d ( M a y O p e n [ i ] . P o s _ N e g , M a y O p e n [ i ] . S y m b 1 , M a y O p e n [ i ] . S y m b 2 , M a y O p e n [ i ] . B u y _ S e l l 1 , M a y O p e n [ i ] . B u y _ S e l l 2 , 0 ) ;
i f ( r e s = = D o n e ) { c n t r A O + + ; O r d e r s _ A L L + = 2 ; L a s t T i m e = 0 ; r e t u r n ; }
}
i f ( S h o w M a y O p e n & & ! S i l e n t )
{
f o r ( i n t i = 0 ; i < c n t r M O ; i + + )
B u t t 2 ( i + 1 , 0 , I n t e g e r T o S t r i n g ( i + 1 ) + " ) " + ( ( M a y O p e n [ i ] . B u y _ S e l l 1 = = O P _ B U Y ) ? " b . " : " s . " ) + M a y O p e n [ i ] . S y m b 1 + " - " +
( ( M a y O p e n [ i ] . B u y _ S e l l 2 = = O P _ B U Y ) ? " b . " : " s . " ) + M a y O p e n [ i ] . S y m b 2 +
" : g . " + D o u b l e T o S t r i n g ( M a y O p e n [ i ] . G a p , 0 ) +
" ; " + D o u b l e T o S t r i n g ( M a y O p e n [ i ] . C o r r H i g h , 2 ) + " / "
+ D o u b l e T o S t r i n g ( M a y O p e n [ i ] . C o r r L o w , 2 ) +
" / d . " + D o u b l e T o S t r i n g ( M a y O p e n [ i ] . D i f f , 2 )
, ( M a y O p e n [ i ] . P o s _ N e g = = P o s i t i v e ) ? C L _ P o s : C L _ N e g ) ;
i n t c l e a n = c n t r M O + 1 ;
w h i l e ( O b j e c t F i n d ( 0 , o b j _ p r e f + " _ B 2 _ " + I n t e g e r T o S t r i n g ( c l e a n ) + " _ 0 " ) > - 1 )
{
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " _ B 2 _ " + I n t e g e r T o S t r i n g ( c l e a n ) + " _ 0 " ) ;
c l e a n + + ;
}
u l o n g c _ f i n i s h = G e t M i c r o s e c o n d C o u n t ( ) ;
T e x t 2 ( 0 , 0 , " C a n b e o p e n e d " + I n t e g e r T o S t r i n g ( c n t r M O ) + " g r i d s ( " + D o u b l e T o S t r i n g ( ( c _ f i n i s h - c _ s t a r t 0 ) / 1 0 0 0 0 0 0 . 0 , 2 ) + " s e c ) : " , C L _ S y m b , 2 ) ;
}
e l s e
P r i n t ( " C a n b e o p e n e d " + I n t e g e r T o S t r i n g ( c n t r M O ) + " g r i d s . C u l c u l a t i o n t i m e - " + D o u b l e T o S t r i n g ( ( G e t M i c r o s e c o n d C o u n t ( ) - c _ s t a r t 0 ) / 1 0 0 0 0 0 0 . 0 , 2 ) + " s e c . " ) ;
i f ( ! S i l e n t ) { O b j e c t s D e l e t e A l l ( 0 , o b j _ p r e f + " _ T 1 _ " ) ; O b j e c t D e l e t e ( 0 , o b j _ p r e f + " _ B G " ) ; O b j e c t D e l e t e ( 0 , o b j _ p r e f + " _ D e p t h " ) ; S t a t i s t i c k ( ) ; }
R e d r a w L i s t ( ) ;
}
/ / ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ e n d o f m a i n u n i t ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
d o u b l e C o r r e l a t i o n ( s t r i n g s y m b o l 1 , s t r i n g s y m b o l 2 , i n t T F , i n t p e r i o d , i n t s h i f t = 0 , i n t M O _ C O U N T = - 1 )
{
i f ( i B a r s ( s y m b o l 1 , T F ) < p e r i o d + s h i f t + 1
| | i B a r s ( s y m b o l 2 , T F ) < p e r i o d + s h i f t + 1
| | S y m b o l I n f o D o u b l e ( s y m b o l 2 , S Y M B O L _ T R A D E _ T I C K _ V A L U E ) = = 0
| | S y m b o l I n f o D o u b l e ( s y m b o l 1 , S Y M B O L _ T R A D E _ T I C K _ V A L U E ) = = 0
| | S y m b o l I n f o D o u b l e ( s y m b o l 1 , S Y M B O L _ P O I N T ) = = 0
| | S y m b o l I n f o D o u b l e ( s y m b o l 2 , S Y M B O L _ P O I N T ) = = 0 )
{
i f ( C a n T r a d e ( s y m b o l 1 + " - " + s y m b o l 2 , s y m b o l 2 + " - " + s y m b o l 1 ) )
{
i f ( P r i n t _ T e s t ) P r i n t ( " A d d " , s y m b o l 1 + " - " + s y m b o l 2 , " t o s t o p - l i s t a s n o d a t a " ) ;
N o _ T r a d e s [ N o _ T r a d e s _ S i z e ] = s y m b o l 1 + " - " + s y m b o l 2 ;
N o _ T r a d e s _ S i z e + + ;
}
V o l a t i l i t y _ F a c t o r = C o r r e c t i o n = = C O _ N O ? 1 :
C o r r e c t i o n = = C O _ T V D ? S y m b o l I n f o D o u b l e ( s y m b o l 2 , S Y M B O L _ T R A D 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 1 , S Y M B O L _ T R A D E _ T I C K _ V A L U E ) :
9 9 9 9 9 9 9 9 9 9 9 9 ;
r e t u r n ( 2 ) ;
}
i n t i ;
d o u b l e M 1 = i M A ( s y m b o l 1 , T F , p e r i o d , 0 , M O D E _ S M A , P R I C E _ C L O S E , s h i f t ) ;
d o u b l e M 2 = i M A ( s y m b o l 2 , T F , p e r i o d , 0 , M O D E _ S M A , P R I C E _ C L O S E , s h i f t ) ;
d o u b l e D 1 , D 2 ;
d o u b l e S 1 = 0 ;
d o u b l e S 2 = 0 ;
d o u b l e S 3 = 0 ;
f o r ( i = s h i f t ; i < p e r i o d + s h i f t ; i + + )
{
D 1 = i C l o s e ( s y m b o l 1 , T F , i ) - M 1 ;
D 2 = i C l o s e ( s y m b o l 2 , T F , i B a r S h i f t ( s y m b o l 2 , T F , i T i m e ( s y m b o l 1 , T F , i ) ) ) - M 2 ;
S 1 + = D 1 * D 2 ;
S 2 + = D 1 * D 1 ;
S 3 + = D 2 * D 2 ;
}
i f ( M O _ C O U N T > - 1 )
{
V o l a t i l i t y _ F a c t o r = M a t h S q r t ( S 3 / S 2 )
* S y m b o l I n f o D o u b l e ( s y m b o l 2 , S Y M B O L _ T R A D 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 1 , S Y M B O L _ T R A D 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 1 , S Y M B O L _ 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 2 , S Y M B O L _ P O I N T ) ;
i f ( T F = = T F 1 & & p e r i o d = = c P e r i o d 1 )
{
M a y O p e n [ M O _ C O U N T ] . M 1 _ H = M 1 ;
M a y O p e n [ M O _ C O U N T ] . M 2 _ H = M 2 ;
M a y O p e n [ M O _ C O U N T ] . V o l F a c t H = V o l a t i l i t y _ F a c t o r ;
}
i f ( T F = = T F 2 & & p e r i o d = = c P e r i o d 2 )
{
M a y O p e n [ M O _ C O U N T ] . M 1 _ L = M 1 ;
M a y O p e n [ M O _ C O U N T ] . M 2 _ L = M 2 ;
M a y O p e n [ M O _ C O U N T ] . V o l F a c t L = V o l a t i l i t y _ F a c t o r ;
}
}
e l s e
V o l a t i l i t y _ F a c t o r = C o r r e c t i o n = = C O _ N O ? 1 :
( C o r r e c t i o n = = C O _ V O L _ H | | C o r r e c t i o n = = C O _ V O L _ L ) ?
M a t h S q r t ( S 3 / S 2 )
* S y m b o l I n f o D o u b l e ( s y m b o l 2 , S Y M B O L _ T R A D 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 1 , S Y M B O L _ T R A D 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 1 , S Y M B O L _ 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 2 , S Y M B O L _ 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 2 , S Y M B O L _ T R A D 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 1 , S Y M B O L _ T R A D E _ T I C K _ V A L U E ) ;
r e t u r n ( S 1 / ( M a t h S q r t ( S 2 * S 3 ) ) ) ;
}
d o u b l e L o t S i z e ( s t r i n g S y m b 1 , s t r i n g S y m b 2 , i n t O r d e r s N B R , i n t M O _ P O S = - 1 )
{
d o u b l e L o t R = 0 ;
d o u b l e F r e e = A c c o u n t F r e e M a r g i n ( ) / 3 ;
d o u b l e O n e _ L o t = M a r k e t I n f o ( S y m b 1 , M O D E _ M A R G I N R E Q U I R E D ) ;
d o u b l e L o t V a l 1 = M a r k e t I n f o ( S y m b 1 , M O D E _ T I C K V A L U E ) ; / / AB>8<>ABL 1 ?C=:B0 4;O 1 ;>B0
d o u b l e L o t V a l 2 = M a r k e t I n f o ( S y m b 2 , M O D E _ T I C K V A L U E ) ; / / AB>8<>ABL 1 ?C=:B0 4;O 1 ;>B0
d o u b l e M i n _ L o t = M a r k e t I n f o ( S y m b 1 , M O D E _ M I N L O T ) ;
d o u b l e M a x _ L o t = M a t h M i n ( M a x L o t _ I n p , M a r k e t I n f o ( S y m b 1 , M O D E _ M A X L O T ) ) ;
i f ( L o t V a l 1 = = 0 ) { P r i n t ( " S e r v e r r e t u r n e d z e r o M O D E _ T I C K V A L U E f o r " , S y m b 1 , " . A d d i t t o f u l l - s t o p l i s t . " ) ; F u l l L o c k [ F u l l L o c k S i z e ] = S y m b 1 ; F u l l L o c k S i z e + + ; r e t u r n ( 0 ) ; }
i f ( L o t V a l 2 = = 0 ) { P r i n t ( " S e r v e r r e t u r n e d z e r o M O D E _ T I C K V A L U E f o r " , S y m b 2 , " . A d d i t t o f u l l - s t o p l i s t . " ) ; F u l l L o c k [ F u l l L o c k S i z e ] = S y m b 1 ; F u l l L o c k S i z e + + ; r e t u r n ( 0 ) ; }
V o l a t i l i t y _ F a c t o r = C o r r e c t i o n = = C O _ N O ? 1 :
C o r r e c t i o n = = C O _ T V D ? S y m b o l I n f o D o u b l e ( S y m b 2 , S Y M B O L _ T R A D 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 1 , S Y M B O L _ T R A D E _ T I C K _ V A L U E ) :
9 9 9 9 9 9 9 9 9 9 9 9 ;
i f ( C o r r e c t i o n = = C O _ V O L _ H & & C o r r e l a t i o n ( S y m b 1 , S y m b 2 , T F 1 , c P e r i o d 1 ) = = 2 ) { r e t u r n ( 0 ) ; }
i f ( C o r r e c t i o n = = C O _ V O L _ L & & C o r r e l a t i o n ( S y m b 1 , S y m b 2 , T F 2 , c P e r i o d 2 ) = = 2 ) { r e t u r n ( 0 ) ; }
d o u b l e C o r r e c t o r = V o l a t i l i t y _ F a c t o r > 1 ? V o l a t i l i t y _ F a c t o r : 1 . 0 ;
i f ( V o l a t i l i t y _ F a c t o r > T e s t _ V F | | 1 / V o l a t i l i t y _ F a c t o r > T e s t _ V F )
{
i f ( P r i n t _ T e s t ) P r i n t ( " B i g v o l a t i l i t y f a c t o r f o r " , S y m b 1 , " a n d " , S y m b 2 , " : " , D o u b l e T o S t r ( V o l a t i l i t y _ F a c t o r , 2 ) , " ( " , D o u b l e T o S t r ( 1 / V o l a t i l i t y _ F a c t o r , 2 ) , " ) . A d d t h e m t o N o - T r a d e l i s t . " ) ;
i f ( C a n T r a d e ( S y m b 1 + " - " + S y m b 2 , S y m b 2 + " - " + S y m b 1 ) ) { N o _ T r a d e s [ N o _ T r a d e s _ S i z e ] = S y m b 1 + " - " + S y m b 2 ; N o _ T r a d e s _ S i z e + + ; }
i f ( V o l a t i l i t y _ F a c t o r > T e s t _ V F ) C o r r e c t o r = T e s t _ V F ;
}
i f ( L o t s > 0 )
{
i f ( M a r t i n _ w a y = = N O N E ) L o t R = L o t s * C o r r e c t o r ;
i f ( M a r t i n _ w a y = = M U L T ) L o t R = L o t s * C o r r e c t o r * p o w ( M a r t i n , M a t h M a x ( O r d e r s N B R - M a r t i n _ S t a r t + 2 , 0 ) ) ;
i f ( M a r t i n _ w a y = = S U M M ) L o t R = ( L o t s + M a r t i n * M a t h M a x ( O r d e r s N B R - M a r t i n _ S t a r t + 2 , 0 ) ) * C o r r e c t o r ;
}
i f ( L o t R > = M a x L o t _ I n p & & C a n T r a d e ( S y m b 1 ) )
{
i f ( P r i n t _ T e s t ) P r i n t ( " A d d " , S y m b 1 , " t o s t o p - l i s t a s i t r e a c h e d m a x l o t o n t r a d e " , O r d e r s N B R ) ;
{ N o _ T r a d e s [ N o _ T r a d e s _ S i z e ] = S y m b 1 ; N o _ T r a d e s _ S i z e + + ; }
}
i f ( L o t R < M i n _ L o t ) L o t R = M i n _ L o t ;
i f ( L o t R > M a x _ L o t ) L o t R = M a x _ L o t ;
i f ( L o t R * O n e _ L o t > F r e e ) r e t u r n ( 0 ) ;
i f ( M i n _ L o t > = 0 . 1 ) r e t u r n ( N o r m a l i z e D o u b l e ( L o t R , 1 ) ) ;
e l s e r e t u r n ( N o r m a l i z e D o u b l e ( L o t R , 2 ) ) ;
}
v o i d F i n d _ D i v e r g ( ) / / / / / / / / / / / / / / / / /
{
M a y O p e n [ c n t r M O ] . B u y _ S e l l 1 = M a y O p e n [ c n t r M O ] . B u y _ S e l l 2 = - 1 ;
i f ( V e r s i o n = = V 4 _ 1 | | V e r s i o n = = V 4 _ 2 )
{
d o u b l e M 1 , M 2 ;
i n t T F ;
i f ( V e r s i o n = = V 4 _ 2 )
{
M 1 = M a y O p e n [ c n t r M O ] . M 1 _ H ;
M 2 = M a y O p e n [ c n t r M O ] . M 2 _ H ;
T F = T F 1 ;
}
e l s e
{
M 1 = M a y O p e n [ c n t r M O ] . M 1 _ L ;
M 2 = M a y O p e n [ c n t r M O ] . M 2 _ L ;
T F = T F 2 ;
}
d o u b l e c o r r = M a y O p e n [ c n t r M O ] . C o r r L o w ;
d o u b l e V F = M a y O p e n [ c n t r M O ] . V o l F a c t L / ( M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 2 , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 1 , M O D E _ T I C K V A L U E )
* M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 1 , M O D E _ P O I N T ) / M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 2 , M O D E _ P O I N T ) ) ;
i n t f a c t o r = c o r r < 0 ? - 1 : 1 ;
d o u b l e d e l t a 1 = ( i C l o s e ( M a y O p e n [ c n t r M O ] . S y m b 1 , T F , 0 ) - ( M 1 - f a c t o r * ( M 2 - i C l o s e ( M a y O p e n [ c n t r M O ] . S y m b 2 , T F , 0 ) ) / V F ) ) / M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 2 , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 1 , M O D E _ P O I N T ) ;
d o u b l e d e l t a 2 = ( i C l o s e ( M a y O p e n [ c n t r M O ] . S y m b 2 , T F , 0 ) - ( M 2 - f a c t o r * ( M 1 - i C l o s e ( M a y O p e n [ c n t r M O ] . S y m b 1 , T F , 0 ) ) * V F ) ) / M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 1 , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 2 , M O D E _ P O I N T ) ;
d o u b l e s u m S p r e a d = M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 1 , M O D E _ S P R E A D ) / M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 1 , M O D E _ T I C K V A L U E ) + M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 2 , M O D E _ S P R E A D ) / M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 2 , M O D E _ T I C K V A L U E ) ;
M a y O p e n [ c n t r M O ] . G a p = f a b s ( d e l t a 1 + d e l t a 2 ) - P r o f _ P o i n t s - s u m S p r e a d ;
i f ( M a y O p e n [ c n t r M O ] . P o s _ N e g = = N e g a t i v e )
{
i n t R e v = R e v e r s e _ N e g ? - 1 : 1 ;
i f ( M a y O p e n [ c n t r M O ] . G a p > = M i n G a p )
{
i f ( d e l t a 1 * R e v > 0 & & d e l t a 2 * R e v > 0 ) M a y O p e n [ c n t r M O ] . B u y _ S e l l 1 = M a y O p e n [ c n t r M O ] . B u y _ S e l l 2 = O P _ S E L L ;
i f ( d e l t a 1 * R e v < 0 & & d e l t a 2 * R e v < 0 ) M a y O p e n [ c n t r M O ] . B u y _ S e l l 1 = M a y O p e n [ c n t r M O ] . B u y _ S e l l 2 = O P _ B U Y ;
}
}
i f ( M a y O p e n [ c n t r M O ] . P o s _ N e g = = P o s i t i v e )
{
i n t R e v = R e v e r s e _ P o s ? - 1 : 1 ;
i f ( d e l t a 1 * R e v > 0 & & d e l t a 2 * R e v < 0 ) { M a y O p e n [ c n t r M O ] . B u y _ S e l l 1 = O P _ S E L L ; M a y O p e n [ c n t r M O ] . B u y _ S e l l 2 = O P _ B U Y ; }
i f ( d e l t a 1 * R e v < 0 & & d e l t a 2 * R e v > 0 ) { M a y O p e n [ c n t r M O ] . B u y _ S e l l 1 = O P _ B U Y ; M a y O p e n [ c n t r M O ] . B u y _ S e l l 2 = O P _ S E L L ; }
}
r e t u r n ;
}
i f ( V e r s i o n = = V 2 )
{
d o u b l e T V 1 = M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 1 , M O D E _ T I C K V A L U E ) ;
d o u b l e T V 2 = M a r k e t I n f o ( M a y O p e n [ c n t r M O ] . S y m b 2 , M O D E _ T I C K V A L U E ) ;
i f ( T V 1 = = 0 | | T V 2 = = 0 ) { P r i n t ( " N o i n f o f r o m b r o k e r f o r " + M a y O p e n [ c n t r M O ] . S y m b 1 + " - " + M a y O p e n [ c n t r M O ] . S y m b 2 ) ; r e t u r n ; }
d o u b l e C o r r e c t o r 1 = ( T V 1 > T V 2 ) ? 1 : T V 2 / T V 1 ;
d o u b l e C o r r e c t o r 2 = ( T V 1 < T V 2 ) ? 1 : T V 1 / T V 2 ;
d o u b l e B e s t C = 0 , C U R R _ C O R R ;
i n t b a r P o s = 0 ;
i f ( M a y O p e n [ c n t r M O ] . P o s _ N e g = = P o s i t i v e )
f o r ( i n t i = 1 ; i < M a t h M i n ( c P e r i o d 2 , M a t h M i n ( B a r s ( M a y O p e n [ c n t r M O ] . S y m b 1 , T F 2 ) , B a r s ( M a y O p e n [ c n t r M O ] . S y m b 2 , T F 2 ) ) - 1 ) ; i + + )
{
C U R R _ C O R R = C o r r e l a t i o n ( M a y O p e n [ c n t r M O ] . S y m b 1 , M a y O p e n [ c n t r M O ] . S y m b 2 , T F 2 , c P e r i o d 2 , i ) ;
i f ( B e s t C < C U R R _ C O R R ) { B e s t C = C U R R _ C O R R ; b a r P o s = i ; }
}
e l s e
f o r ( i n t i = 0 ; i < M a t h M i n ( c P e r i o d 2 , M a t h M i n ( B a r s ( M a y O p e n [ c n t r M O ] . S y m b 1 , T F 2 ) , B a r s ( M a y O p e n [ c n t r M O ] . S y m b 2 , T F 2 ) ) - 1 ) ; i + + )
{
C U R R _ C O R R = C o r r e l a t i o n ( M a y O p e n [ c n t r M O ] . S y m b 1 , M a y O p e n [ c n t r M O ] . S y m b 2 , T F 2 , c P e r i o d 2 , i ) ;
i f ( B e s t C > C U R R _ C O R R ) { B e s t C = C U R R _ C O R R ; b a r P o s = i ; }
}
d o u b l e d e l t a 1 = ( i C l o s e ( M a y O p e n [ c n t r M O ] . S y m b 1 , T F 2 , 0 ) - i C l o s e ( M a y O p e n [ c n t r M O ] . S y m b 1 , T F 2 , b a r P o s ) ) / S y m b o l I n f o D o u b l e ( M a y O p e n [ c n t r M O ] . S y m b 1 , S Y M B O L _ P O I N T ) / C o r r e c t o r 1 ;
d o u b l e d e l t a 2 = ( i C l o s e ( M a y O p e n [ c n t r M O ] . S y m b 2 , T F 2 , 0 ) - i C l o s e ( M a y O p e n [ c n t r M O ] . S y m b 2 , T F 2 , b a r P o s ) ) / S y m b o l I n f o D o u b l e ( M a y O p e n [ c n t r M O ] . S y m b 2 , S Y M B O L _ P O I N T ) / C o r r e c t o r 2 ;
d o u b l e s u m S p r e a d = S y m b o l I n f o I n t e g e r ( M a y O p e n [ c n t r M O ] . S y m b 1 , S Y M B O L _ S P R E A D ) / C o r r e c t o r 1 + S y m b o l I n f o I n t e g e r ( M a y O p e n [ c n t r M O ] . S y m b 2 , S Y M B O L _ S P R E A D ) / C o r r e c t o r 2 ;
M a y O p e n [ c n t r M O ] . G a p = f a b s ( d e l t a 1 + d e l t a 2 ) - P r o f _ P o i n t s - s u m S p r e a d ;
i f ( M a y O p e n [ c n t r M O ] . P o s _ N e g = = N e g a t i v e )
{
i n t R e v = R e v e r s e _ N e g ? - 1 : 1 ;
i f ( ( d e l t a 1 + d e l t a 2 ) * R e v > 0 ) M a y O p e n [ c n t r M O ] . B u y _ S e l l 1 = M a y O p e n [ c n t r M O ] . B u y _ S e l l 2 = O P _ S E L L ;
e l s e M a y O p e n [ c n t r M O ] . B u y _ S e l l 1 = M a y O p e n [ c n t r M O ] . B u y _ S e l l 2 = O P _ B U Y ;
}
i f ( M a y O p e n [ c n t r M O ] . P o s _ N e g = = P o s i t i v e )
{
i n t R e v = R e v e r s e _ P o s ? - 1 : 1 ;
i f ( d e l t a 1 * R e v > d e l t a 2 * R e v ) { M a y O p e n [ c n t r M O ] . B u y _ S e l l 1 = O P _ S E L L ; M a y O p e n [ c n t r M O ] . B u y _ S e l l 2 = O P _ B U Y ; }
e l s e { M a y O p e n [ c n t r M O ] . B u y _ S e l l 1 = O P _ B U Y ; M a y O p e n [ c n t r M O ] . B u y _ S e l l 2 = O P _ S E L L ; }
}
}
}
v o i d A r r a y S o r t M Y ( D E S C R I P T O R 1 & A R R [ ] , i n t i n d e x )
{
/ / 0 - H i g e r T F c o r r , 1 - d i f f ( h i g h e r T F - l o w e r T F ) , 2 - g a p p o i n t s
i f ( i n d e x = = 0 )
f o r ( i n t i = 0 ; i < c n t r M O - 1 ; i + + )
f o r ( i n t j = 0 ; j < c n t r M O - 1 ; j + + )
i f ( f a b s ( M a y O p e n [ j + 1 ] . C o r r H i g h ) > f a b s ( M a y O p e n [ j ] . C o r r H i g h ) )
{
C o p y S t r u c t 1 ( c n t r M O + 1 , j + 1 ) ;
C o p y S t r u c t 1 ( j + 1 , j ) ;
C o p y S t r u c t 1 ( j , c n t r M O + 1 ) ;
}
i f ( i n d e x = = 1 )
f o r ( i n t i = 0 ; i < c n t r M O - 1 ; i + + )
f o r ( i n t j = 0 ; j < c n t r M O - 1 ; j + + )
i f ( M a y O p e n [ j + 1 ] . D i f f > M a y O p e n [ j ] . D i f f )
{
C o p y S t r u c t 1 ( c n t r M O + 1 , j + 1 ) ;
C o p y S t r u c t 1 ( j + 1 , j ) ;
C o p y S t r u c t 1 ( j , c n t r M O + 1 ) ;
}
i f ( i n d e x = = 2 )
f o r ( i n t i = 0 ; i < c n t r M O - 1 ; i + + )
f o r ( i n t j = 0 ; j < c n t r M O - 1 ; j + + )
i f ( M a y O p e n [ j + 1 ] . G a p > M a y O p e n [ j ] . G a p )
{
C o p y S t r u c t 1 ( c n t r M O + 1 , j + 1 ) ;
C o p y S t r u c t 1 ( j + 1 , j ) ;
C o p y S t r u c t 1 ( j , c n t r M O + 1 ) ;
}
}
v o i d C o p y S t r u c t 1 ( i n t d e s t i n a t i o n , i n t o r i g i n a l )
{
M a y O p e n [ d e s t i n a t i o n ] . P o s _ N e g = M a y O p e n [ o r i g i n a l ] . P o s _ N e g ;
M a y O p e n [ d e s t i n a t i o n ] . S y m b 1 = M a y O p e n [ o r i g i n a l ] . S y m b 1 ;
M a y O p e n [ d e s t i n a t i o n ] . S y m b 2 = M a y O p e n [ o r i g i n a l ] . S y m b 2 ;
M a y O p e n [ d e s t i n a t i o n ] . C o r r H i g h = M a y O p e n [ o r i g i n a l ] . C o r r H i g h ;
M a y O p e n [ d e s t i n a t i o n ] . C o r r L o w = M a y O p e n [ o r i g i n a l ] . C o r r L o w ;
M a y O p e n [ d e s t i n a t i o n ] . D i f f = M a y O p e n [ o r i g i n a l ] . D i f f ;
M a y O p e n [ d e s t i n a t i o n ] . G a p = M a y O p e n [ o r i g i n a l ] . G a p ;
M a y O p e n [ d e s t i n a t i o n ] . V o l F a c t H = M a y O p e n [ o r i g i n a l ] . V o l F a c t H ;
M a y O p e n [ d e s t i n a t i o n ] . V o l F a c t L = M a y O p e n [ o r i g i n a l ] . V o l F a c t L ;
M a y O p e n [ d e s t i n a t i o n ] . M 1 _ H = M a y O p e n [ o r i g i n a l ] . M 1 _ H ;
M a y O p e n [ d e s t i n a t i o n ] . M 2 _ H = M a y O p e n [ o r i g i n a l ] . M 2 _ H ;
M a y O p e n [ d e s t i n a t i o n ] . M 1 _ L = M a y O p e n [ o r i g i n a l ] . M 1 _ L ;
M a y O p e n [ d e s t i n a t i o n ] . M 2 _ L = M a y O p e n [ o r i g i n a l ] . M 2 _ L ;
M a y O p e n [ d e s t i n a t i o n ] . B u y _ S e l l 1 = M a y O p e n [ o r i g i n a l ] . B u y _ S e l l 1 ;
M a y O p e n [ d e s t i n a t i o n ] . B u y _ S e l l 2 = M a y O p e n [ o r i g i n a l ] . B u y _ S e l l 2 ;
}
v o i d C o p y S t r u c t 2 ( i n t d e s t i n a t i o n , b o o l A D D = f a l s e )
{
i f ( ! A D D )
{
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . P o s _ N e g = c u r r _ o r d e r . P o s _ N e g ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . S y m b 1 = c u r r _ o r d e r . S y m b 1 ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . S y m b 2 = c u r r _ o r d e r . S y m b 2 ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . B u y _ S e l l 1 = c u r r _ o r d e r . B u y _ S e l l 1 ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . B u y _ S e l l 2 = c u r r _ o r d e r . B u y _ S e l l 2 ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . p r o f i t = c u r r _ o r d e r . p r o f i t ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . O r d e r s 1 = 1 ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . O r d e r s 2 = 0 ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . L o t 1 = c u r r _ o r d e r . L o t 1 ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . L o t 2 = 0 ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . O p _ T i m e = c u r r _ o r d e r . O p _ T i m e ;
}
e l s e
{
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . p r o f i t + = c u r r _ o r d e r . p r o f i t ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . O p _ T i m e = M a t h M i n ( c u r r _ o r d e r . O p _ T i m e , A l r e a d y O p e n e d [ d e s t i n a t i o n ] . O p _ T i m e ) ;
i f ( c u r r _ o r d e r . S y m b 1 = = A l r e a d y O p e n e d [ d e s t i n a t i o n ] . S y m b 1 )
{
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . O r d e r s 1 + + ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . L o t 1 + = c u r r _ o r d e r . L o t 1 ;
}
e l s e
{
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . O r d e r s 2 + + ;
A l r e a d y O p e n e d [ d e s t i n a t i o n ] . L o t 2 + = c u r r _ o r d e r . L o t 1 ;
}
}
}
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
/ / / / / / / / / / / / / / / / / / / /
/ / / / / /
R E A S O N S O p e n _ G r i d ( s t r i n g P o s _ N e g , s t r i n g S y m b 1 , s t r i n g S y m b 2 , i n t B u y _ S e l l 1 , i n t B u y _ S e l l 2 , i n t o r d e r s M B R )
{
i f ( ! I s T r a d e A l l o w e d ( ) | | ( o r d e r s M B R = = 0 & & ( ( ! A l l o w _ N e g & & P o s _ N e g = = N e g a t i v e ) | | ( ! A l l o w _ P o s & & P o s _ N e g = = P o s i t i v e ) ) ) ) r e t u r n ( N o t _ A l o w e d _ C o r r e l a t i o n _ T y p e ) ;
i f ( ! T i m e T o T r a d e ( ) ) r e t u r n ( N o t _ T i m e _ T o _ T r a d e ) ;
/ / i f ( ! C a n T r a d e ( S y m b 1 , S y m b 2 ) ) r e t u r n ( S y m b o l _ F r o m _ S t o p _ L i s t ) ;
d o u b l e L o t _ s i z e = L o t S i z e ( S y m b 1 , S y m b 2 , o r d e r s M B R ) ;
i f ( L o t _ s i z e = = 0 ) r e t u r n ( N o _ M o n e y ) ;
i f ( B u y _ S e l l 1 = = O P _ B U Y )
i n t r e s = O r d e r S e n d ( S y m b 1 , O P _ B U Y , L o t _ s i z e , M a r k e t I n f o ( S y m b 1 , M O D E _ A S K ) , 9 9 9 9 9 , 0 , 0 , O C o m m + P o s _ N e g + S y m b 2 , M a g i c ) ;
e l s e
i n t r e s = O r d e r S e n d ( S y m b 1 , O P _ S E L L , L o t _ s i z e , M a r k e t I n f o ( S y m b 1 , M O D E _ B I D ) , 9 9 9 9 9 , 0 , 0 , O C o m m + P o s _ N e g + S y m b 2 , M a g i c ) ;
L o t _ s i z e = L o t S i z e ( S y m b 2 , S y m b 1 , o r d e r s M B R ) ;
i f ( L o t _ s i z e = = 0 ) r e t u r n ( N o _ M o n e y ) ;
i f ( B u y _ S e l l 2 = = O P _ B U Y )
i n t r e s = O r d e r S e n d ( S y m b 2 , O P _ B U Y , L o t _ s i z e , M a r k e t I n f o ( S y m b 2 , M O D E _ A S K ) , 9 9 9 9 9 , 0 , 0 , O C o m m + P o s _ N e g + S y m b 1 , M a g i c ) ;
e l s e
i n t r e s = O r d e r S e n d ( S y m b 2 , O P _ S E L L , L o t _ s i z e , M a r k e t I n f o ( S y m b 2 , M O D E _ B I D ) , 9 9 9 9 9 , 0 , 0 , O C o m m + P o s _ N e g + S y m b 1 , M a g i c ) ;
L a s t T i m e = 0 ;
r e t u r n ( D o n e ) ;
}
b o o l T i m e T o T r a d e ( )
{
d o u b l e h = T i m e H o u r ( T i m e C u r r e n t ( ) ) + T i m e M i n u t e ( T i m e C u r r e n t ( ) ) * 1 . 0 / 6 0 ;
i n t d = T i m e D a y O f W e e k ( T i m e C u r r e n t ( ) ) ;
i f ( ( d = = S t o p _ D & & h > = S t o p _ H )
| | ( d = = S t a r t _ D & & h < S t a r t _ H )
| | ( d > S t o p _ D | | d < S t a r t _ D ) )
{
i f ( ! S i l e n t )
T e x t 2 ( 1 2 + S T A T _ S H I F T , 1 0 , " S t o p m o d e : "
+ " " + E n u m T o S t r i n g ( S t o p _ D ) + " . " + T i m e T o S t r ( i n t ( S t o p _ H * 3 6 0 0 ) , T I M E _ M I N U T E S )
+ " > " + E n u m T o S t r i n g ( ( E N U M _ D A Y _ O F _ W E E K ) d ) + " . " + T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S )
+ " < " + E n u m T o S t r i n g ( S t a r t _ D ) + " . " + T i m e T o S t r ( i n t ( S t a r t _ H * 3 6 0 0 ) , T I M E _ M I N U T E S ) , c l r R e d ) ;
r e t u r n ( f a l s e ) ;
}
e l s e
i f ( ! S i l e n t ) T e x t 2 ( 1 2 + S T A T _ S H I F T , 1 0 , " T r a d i n g t i m e : " + E n u m T o S t r i n g ( ( E N U M _ D A Y _ O F _ W E E K ) d ) + " . " + T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S )
+ " ( " + I n t e g e r T o S t r i n g ( S t o p _ H - h > 0 ? S t o p _ D - d : S t o p _ D - d - 1 ) + " . " + T i m e T o S t r ( i n t ( ( ( S t o p _ H - h > 0 ? ( S t o p _ H - h ) : ( 2 4 + S t o p _ H - h ) ) * 3 6 0 0 ) ) , T I M E _ M I N U T E S ) + " ) " , c l r L i m e ) ;
d o u b l e T 1 = S w a p T i m e - M i n u t e s B e f o r S w a p * 1 . 0 / 6 0 ; T 1 = T 1 < 0 ? 2 4 + T 1 : T 1 ;
d o u b l e T 2 = S w a p T i m e + M i n u t e s A f t e r S w a p * 1 . 0 / 6 0 ; T 2 = T 2 > 2 4 ? T 2 - 2 4 : T 2 ;
i f ( T 2 > T 1 ) I s S w a p T i m e = ( h > = T 1 & & h < T 2 ) ;
e l s e I s S w a p T i m e = ( h > = T 1 | | h < T 2 ) ;
i f ( I s S w a p T i m e ) T e x t 2 ( 1 3 + S T A T _ S H I F T , 1 0 , " S w a p T i m e " , c l r R e d ) ;
e l s e T e x t 2 ( 1 3 + S T A T _ S H I F T , 1 0 , " " ) ;
r e t u r n ( ! I s S w a p T i m e ) ;
}
v o i d C l o s e _ A L L ( )
{
i f ( ! I s T r a d e A l l o w e d ( ) ) r e t u r n ;
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S )
& & O r d e r M a g i c N u m b e r ( ) = = M a g i c )
{
i f ( O r d e r T y p e ( ) = = O P _ B U Y ) i n t r e s = O r d e r C l o s e ( O r d e r T i c k e t ( ) , O r d e r L o t s ( ) , M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ B I D ) , 9 9 9 9 9 9 ) ;
i f ( O r d e r T y p e ( ) = = O P _ S E L L ) i n t r e s = O r d e r C l o s e ( O r d e r T i c k e t ( ) , O r d e r L o t s ( ) , M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ A S K ) , 9 9 9 9 9 9 ) ;
}
}
v o i d C l o s e _ G R I D _ D i r e c t ( s t r i n g P o s _ N e g , s t r i n g S y m b 1 , s t r i n g S y m b 2 )
{
i f ( ! I s T r a d e A l l o w e d ( ) ) r e t u r n ;
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S )
& & O r d e r M a g i c N u m b e r ( ) = = M a g i c
& & ( ( O r d e r S y m b o l ( ) = = S y m b 1 & & S t r i n g F i n d ( O r d e r C o m m e n t ( ) , P o s _ N e g + S y m b 2 ) > - 1 ) | |
( O r d e r S y m b o l ( ) = = S y m b 2 & & S t r i n g F i n d ( O r d e r C o m m e n t ( ) , P o s _ N e g + S y m b 1 ) > - 1 ) )
)
{
i f ( O r d e r T y p e ( ) = = O P _ B U Y ) i n t r e s = O r d e r C l o s e ( O r d e r T i c k e t ( ) , O r d e r L o t s ( ) , M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ B I D ) , 9 9 9 9 9 9 ) ;
i f ( O r d e r T y p e ( ) = = O P _ S E L L ) i n t r e s = O r d e r C l o s e ( O r d e r T i c k e t ( ) , O r d e r L o t s ( ) , M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ A S K ) , 9 9 9 9 9 9 ) ;
}
L a s t T i m e = 0 ;
}
v o i d T e x t 2 ( i n t r o w , i n t c o l u m n , s t r i n g t e x t = " " , c o l o r C L R = 0 , i n t F S _ s h i f t = 0 )
{
i f ( C L R = = 0 ) C L R = C L ;
/ / i f ( ! C a n T r a d e ( t e x t , S t o p L i s t ) ) C L R = c l r R e d ;
s t r i n g n a m e = o b j _ p r e f + " _ T 2 _ " + I n t e g e r T o S t r i n g ( r o w ) + " _ " + I n t e g e r T o S t r i n g ( c o l u m n ) ;
i f ( O b j e c t F i n d ( n a m e ) < 0 )
{
O b j e c t C r e a t e ( n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t ( 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 _ U P P 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 _ 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 _ S E L E C T A B L E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 ( n a m e , O B J P R O P _ X D I S T A N C E , i n t ( ( c o l u m n ) * F S * H _ S t e p + 5 + X _ S H I F T ) ) ;
O b j e c t S e t ( n a m e , O B J P R O P _ Y D I S T A N C E , i n t ( ( r o w ) * F S * V _ S t e p ) + 1 5 + Y _ S H I F T ) ;
}
O b j e c t S e t T e x t ( n a m e , t e x t , F S + F S _ s h i f t , " A r i a l " , C L R ) ;
}
v o i d B u t t 2 ( i n t r o w , i n t c o l u m n , s t r i n g t e x t = " " , c o l o r C L R = 0 , i n t F S _ s h i f t = 0 )
{
s t r i n g n a m e = o b j _ p r e f + " _ B 2 _ " + I n t e g e r T o S t r i n g ( r o w ) + " _ " + I n t e g e r T o S t r i n g ( c o l u m n ) ;
/ / i f ( C L R = = 0 ) C L R = C L ;
/ / i f ( ! C a n T r a d e ( t e x t , S t o p L i s t ) ) C L R = c l r R e d ;
i f ( O b j e c t F i n d ( n a m e ) < 0 )
{
i n t y = i n t ( ( r o w ) * ( F S * V _ S t e p ) ) + 1 5 ;
O b j e c t C r e a t e ( n a m e , O B J _ B U T T O N , 0 , 0 , 0 ) ;
O b j e c t S e t ( 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 _ U P P 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 _ X S I Z E , i n t ( F S * H _ S t e p * 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 S I Z E , i n t ( F S * V _ S t e p + 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 _ S E L E C T A B L E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 _ A L I G N , A L I G N _ L E F 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 _ 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 _ B O R D E R _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ B A C K , 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 _ S T A T E , 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 _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , i n t ( F S * H _ S t e p * c o l u m n + X _ S H I F T ) ) ;
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 + Y _ S H I F 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 , t e x t ) ;
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 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 , F S + F S _ s h i f t ) ;
}
v o i d B u t t ( i n t r o w )
{
s t r i n g n a m e = o b j _ p r e f + " _ B _ " + I n t e g e r T o S t r i n g ( r o w ) ;
i f ( O b j e c t F i n d ( n a m e ) < 0 )
{
i n t y = i n t ( ( r o w ) * F S * V _ S t e p ) + 1 5 ;
O b j e c t C r e a t e ( 0 , n a m e , O B J _ B U T T O N , 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 _ C O R N E R , C O R N E R _ L E F T _ U P P 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 _ X S I Z E , i n t ( F S * H _ S t e p ) ) ;
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 S I Z E , i n t ( F S * V _ S t e p ) ) ;
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 E L E C T A B L E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 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 , F S ) ;
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 B l a c k ) ;
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 O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
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 ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
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 A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
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 , " c l o s e " ) ; / / - - - CAB0=>28< B5:AB
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 G C O L O R , C 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 _ X D I S T A N C E , i n t ( F S * H _ S t e p * 2 2 . 5 + X _ S H I F T ) ) ;
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 + Y _ S H I F T ) ; }
}
v o i d D a i l y _ I n f o ( )
{
i f ( M a y S t a r t )
{
i n t O r d e r s _ H = 0 ;
d o u b l e l o t = 0 ;
d o u b l e c o m i s = 0 ;
d o u b l e P r o f _ H = 0 ;
f o r ( i n t i = 0 ; i < O r d e r s H i s t o r y T o t a l ( ) ; i + + )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ H I S T O R Y )
& & O r d e r M a g i c N u m b e r ( ) = = M a g i c
& & T i m e D a y O f Y e a r ( O r d e r C l o s e T i m e ( ) ) = = T i m e D a y O f Y e a r ( T i m e C u r r e n t ( ) )
& & T i m e Y e a r ( O r d e r C l o s e T i m e ( ) ) = = T i m e Y e a r ( T i m e C u r r e n t ( ) )
)
{
O r d e r s _ H + + ;
l o t + = O r d e r L o t s ( ) ;
c o m i s + = O r d e r C o m m i s s i o n ( ) ;
P r o f _ H + = O r d e r P r o f i t ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) ;
}
T e x t 2 ( S T A T _ S H I F T , 1 0 , " O r d e r s : o p e n e d " + I n t e g e r T o S t r i n g ( O r d e r s _ A L L ) + " / c l o s e d " + I n t e g e r T o S t r i n g ( O r d e r s _ H ) , C L _ S y m b , F S _ S t a t ) ;
T e x t 2 ( S T A T _ S H I F T + 2 , 1 0 , " C u r r e n t p r o f i t " + D o u b l e T o S t r ( P r o f A L L , 2 ) + " $ " , C L _ S y m b , F S _ S t a t ) ;
T e x t 2 ( S T A T _ S H I F T + 4 , 1 0 , " D a i l y p r o f i t i s " + D o u b l e T o S t r ( P r o f _ H , 2 ) + " $ " , C L _ S y m b , F S _ S t a t ) ;
T e x t 2 ( S T A T _ S H I F T + 6 , 1 0 , " D a i l y c o m m i s s i o n i s " + D o u b l e T o S t r ( - c o m i s , 2 ) + " $ " , C L _ S y m b , F S _ S t a t ) ;
T e x t 2 ( S T A T _ S H I F T + 8 , 1 0 , " D a i l y l o t i s " + D o u b l e T o S t r ( l o t , 2 ) , C L _ S y m b , F S _ S t a t ) ;
T e x t 2 ( S T A T _ S H I F T + 1 0 , 1 0 , " C o m m e n t " + ( O C o m m ! = " " ? " : " + O C o m m : " i s e m p t y " ) + " / M a g i c : " + I n t e g e r T o S t r i n g ( M a g i c ) , C L _ S y m b , F S _ S t a t / 2 ) ;
}
i f ( T i m e C u r r e n t ( ) % 6 0 = = 0 ) T i m e T o T r a d e ( ) ;
}
v o i d S t a t i s t i c k ( )
{
i f ( S h o w S t a t i s t i c & & M a y S t a r t )
{
/ / i n t D e p t h = ( O b j e c t F i n d ( C h a r t I D ( ) , o b j _ p r e f + " _ D e p t h " ) = = - 1 ) ? 7 : ( i n t ) S t r i n g T o I n t e g e r ( O b j e c t G e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " _ D e p t h " , O B J P R O P _ T E X T ) ) ;
i n t D e p t h = i n t ( G l o b a l V a r i a b l e G e t ( o b j _ p r e f + " _ D e p t h _ " + I n t e g e r T o S t r i n g ( M a g i c ) ) ) ;
i f ( O b j e c t F i n d ( o b j _ p r e f + " _ D e p t h " ) < 0 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " _ D e p t h " , O B J _ E D I T , 0 , 0 , 0 ) ;
i n t y = i n t ( ( 8 ) * F S * V _ S t e p ) + 7 ;
i n t x = i n t ( ( 1 . 5 ) * F S * H _ S t e p ) + 8 ;
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 _ p r e f + " _ D e p t h " , O B J P R O P _ X D I S T A N C E , x ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
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 _ p r e f + " _ D e p t h " , O B J P R O P _ Y D I S T A N C E , y ) ;
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 _ p r e f + " _ D e p t h " , O B J P R O P _ X S I Z E , ( F S + F S _ S t a t ) * 3 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
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 _ p r e f + " _ D e p t h " , O B J P R O P _ Y S I Z E , i n t ( ( F S + F S _ S t a t / 3 ) * V _ S t e 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 _ p r e f + " _ D e p t h " , O B J P R O P _ C O L O R , C L _ S y m b ) ;
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 _ p r e f + " _ D e p t h " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " _ D e p t h " , O B J P R O P _ F O N T S I Z E , ( F S + F S _ S t a t / 3 ) ) ;
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 _ p r e f + " _ D e p t h " , O B J P R O P _ R E A D O N L Y , 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 _ p r e f + " _ D e p t h " , O B J P R O P _ A L I G N , A L I G N _ L E F T ) ;
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 _ p r e f + " _ D e p t h " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " _ D e p t h " , O B J P R O P _ B O R D E R _ T Y P E , B O R D E R _ F L A T ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " _ D e p t h " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " _ D e p t h " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " _ D e p t h " , 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 _ p r e f + " _ D e p t h " , O B J P R O P _ S E L E C T E D , f a l s e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " _ D e p t h " , 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 _ p r e f + " _ D e p t h " , O B J P R O P _ Z O R D E R , 1 ) ;
}
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 _ p r e f + " _ D e p t h " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( D e p t h ) ) ;
i f ( O b j e c t F i n d ( o b j _ p r e f + " _ B G " ) < 0 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " _ B G " , O B J _ R E C T A N G L E _ L A B E L , 0 , 0 , 0 ) ;
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 _ p r e f + " _ B G " , O B J P R O P _ X D I S T A N C E , 0 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
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 _ p r e f + " _ B G " , O B J P R O P _ Y D I S T A N C E , i n t ( ( F S + F S _ S t a t / 3 ) * V _ S t e p * 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 _ p r e f + " _ B G " , O B J P R O P _ X S I Z E , C h a r t G e t I n t e g e r ( 0 , C H A R T _ W I D T H _ I N _ P I X E L S ) ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
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 _ p r e f + " _ B G " , O B J P R O P _ Y S I Z E , i n t ( ( F S + F S _ S t a t / 3 ) * V _ S t e p * 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 _ p r e f + " _ B G " , O B J P R O P _ C O L O R , c l r D a r k G r a y ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " _ B G " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " _ B G " , O B J P R O P _ B O R D E R _ T Y P E , B O R D E R _ F L A T ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " _ B G " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " _ B G " , O B J P R O P _ B A C K , 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 _ p r e f + " _ B G " , 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 _ p r e f + " _ B G " , 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 S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " _ D e p t h " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( D e p t h ) ) ;
d o u b l e O r d e r s _ H [ ] ;
d o u b l e l o t [ ] ;
d o u b l e c o m i s [ ] ;
d o u b l e P r o f _ H [ ] ;
d a t e t i m e L o n g e s t T [ ] ;
s t r i n g L o n g e s t P [ ] [ 3 ] ;
A r r a y R e s i z e ( O r d e r s _ H , D e p t h + 2 ) ;
A r r a y R e s i z e ( l o t , D e p t h + 2 ) ;
A r r a y R e s i z e ( c o m i s , D e p t h + 2 ) ;
A r r a y R e s i z e ( P r o f _ H , D e p t h + 2 ) ;
A r r a y R e s i z e ( L o n g e s t T , D e p t h + 2 ) ;
A r r a y R e s i z e ( L o n g e s t P , D e p t h + 2 ) ;
A r r a y I n i t i a l i z e ( O r d e r s _ H , 0 ) ;
A r r a y I n i t i a l i z e ( l o t , 0 ) ;
A r r a y I n i t i a l i z e ( c o m i s , 0 ) ;
A r r a y I n i t i a l i z e ( P r o f _ H , 0 ) ;
A r r a y I n i t i a l i z e ( L o n g e s t T , 0 ) ;
T e x t ( 7 , 0 , " D a y s t o c o u n t " , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 6 , 0 , " O r d e r s c l o s e d " , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 5 , 0 , " P r o f i t , $ " , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 4 , 0 , " C o m m i s s i o n , $ " , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 3 , 0 , " L o t " , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 2 , 0 , " L o n g e s t o r d e r d u r a t i o n " , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 1 , 0 , " L o n g e s t o r d e r s y m b o l 1 " , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 0 , 0 , " L o n g e s t o r d e r s y m b o l 2 " , C L _ S y m b , F S _ S t a t / 3 ) ;
/ / T e x t ( 8 , 4 , " C u r r e n t " , C L _ S y m b , F S _ S t a t / 2 ) ;
i f ( D e p t h > 0 ) T e x t ( 7 , 4 , " A v e r a g e " , C L _ S y m b ) ;
f o r ( i n t d a y = 0 ; d a y < = D e p t h ; d a y + + )
f o r ( i n t i = 0 ; i < O r d e r s H i s t o r y T o t a l ( ) ; i + + )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ H I S T O R Y )
& & O r d e r M a g i c N u m b e r ( ) = = M a g i c
& & T i m e D a y O f Y e a r ( O r d e r C l o s e T i m e ( ) ) = = T i m e D a y O f Y e a r ( T i m e C u r r e n t ( ) ) - d a y
& & T i m e Y e a r ( O r d e r C l o s e T i m e ( ) ) = = T i m e Y e a r ( T i m e C u r r e n t ( ) ) )
{
O r d e r s _ H [ d a y ] + + ;
l o t [ d a y ] + = O r d e r L o t s ( ) ;
c o m i s [ d a y ] + = O r d e r C o m m i s s i o n ( ) ;
P r o f _ H [ d a y ] + = O r d e r P r o f i t ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) ;
i f ( L o n g e s t T [ d a y ] < O r d e r C l o s e T i m e ( ) - O r d e r O p e n T i m e ( ) )
{
L o n g e s t T [ d a y ] = O r d e r C l o s e T i m e ( ) - O r d e r O p e n T i m e ( ) ;
L o n g e s t P [ d a y ] [ 0 ] = O r d e r S y m b o l ( ) ;
L o n g e s t P [ d a y ] [ 1 ] = S t r i n g S u b s t r ( O r d e r C o m m e n t ( ) , S t r i n g F i n d ( O r d e r C o m m e n t ( ) , " ~ " ) + 2 , 0 ) ;
L o n g e s t P [ d a y ] [ 2 ] = ( S t r i n g F i n d ( O r d e r C o m m e n t ( ) , P o s i t i v e ) > - 1 ) ? P o s i t i v e : N e g a t i v e ;
}
}
i n t l a s t _ d a y = 1 ;
i n t a n t i s h i f t = 0 ;
i n t s h i f t = 0 ;
f o r ( i n t d a y = 0 ; d a y < = D e p t h ; d a y + + )
{
i f ( O r d e r s _ H [ d a y ] = = 0 & & P r o f _ H [ d a y ] = = 0 & & l o t [ d a y ] = = 0 & & d a y ! = 0 ) { a n t i s h i f t + + ; c o n t i n u e ; }
s h i f t = d a y = = 0 ? 3 : ( d a y + 1 ) + 3 - a n t i s h i f t ;
T e x t ( 7 , s h i f t , T i m e T o S t r ( T i m e C u r r e n t ( ) - d a y * 8 6 4 0 0 , T I M E _ D A T E ) , C L _ S y m b , - 1 ) ;
T e x t ( 6 , s h i f t , I n t e g e r T o S t r i n g ( ( i n t ) O r d e r s _ H [ d a y ] ) , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 5 , s h i f t , D o u b l e T o S t r ( P r o f _ H [ d a y ] , 2 ) , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 4 , s h i f t , D o u b l e T o S t r ( - c o m i s [ d a y ] , 2 ) , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 3 , s h i f t , D o u b l e T o S t r ( l o t [ d a y ] , 2 ) , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 2 , s h i f t , I n t e g e r T o S t r i n g ( L o n g e s t T [ d a y ] / 8 6 4 0 0 ) + " . " + T i m e T o S t r ( L o n g e s t T [ d a y ] , T I M E _ M I N U T E S ) , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 1 , s h i f t , L o n g e s t P [ d a y ] [ 0 ] , ( L o n g e s t P [ d a y ] [ 2 ] = = P o s i t i v e ? C L _ P o s : C L _ N e g ) , - 1 ) ;
T e x t ( 0 , s h i f t , L o n g e s t P [ d a y ] [ 1 ] , ( L o n g e s t P [ d a y ] [ 2 ] = = P o s i t i v e ? C L _ P o s : C L _ N e g ) , - 1 ) ;
l a s t _ d a y = s h i f t + 1 ;
}
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 _ p r e f + " _ B G " , O B J P R O P _ X S I Z E , i n t ( ( s h i f t ) * H _ S t e p * ( F S + F S _ S t a t / 3 ) ) ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
i f ( D e p t h > 0 )
{
T e x t ( 6 , 4 , I n t e g e r T o S t r i n g ( ( i n t ) i M A O n A r r a y ( O r d e r s _ H , 0 , D e p t h , 0 , M O D E _ S M A , 1 ) ) , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 5 , 4 , D o u b l e T o S t r ( i M A O n A r r a y ( P r o f _ H , 0 , D e p t h , 0 , M O D E _ S M A , 1 ) , 2 ) , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 4 , 4 , D o u b l e T o S t r ( - i M A O n A r r a y ( c o m i s , 0 , D e p t h , 0 , M O D E _ S M A , 1 ) , 2 ) , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 3 , 4 , D o u b l e T o S t r ( i M A O n A r r a y ( l o t , 0 , D e p t h , 0 , M O D E _ S M A , 1 ) , 2 ) , C L _ S y m b , F S _ S t a t / 3 ) ;
d a t e t i m e L o n g e s t E v e r = L o n g e s t T [ A r r a y M a x i m u m ( L o n g e s t T ) ] ;
T e x t ( 2 , 4 , I n t e g e r T o S t r i n g ( L o n g e s t E v e r / 8 6 4 0 0 ) + " . " + T i m e T o S t r ( L o n g e s t E v e r , T I M E _ M I N U T E S ) , C L _ S y m b , F S _ S t a t / 3 ) ;
T e x t ( 1 , 4 , L o n g e s t P [ A r r a y M a x i m u m ( L o n g e s t T ) ] [ 0 ] , ( L o n g e s t P [ A r r a y M a x i m u m ( L o n g e s t T ) ] [ 2 ] = = P o s i t i v e ? C L _ P o s : C L _ N e g ) , - 1 ) ;
T e x t ( 0 , 4 , L o n g e s t P [ A r r a y M a x i m u m ( L o n g e s t T ) ] [ 1 ] , ( L o n g e s t P [ A r r a y M a x i m u m ( L o n g e s t T ) ] [ 2 ] = = P o s i t i v e ? C L _ P o s : C L _ N e g ) , - 1 ) ;
}
}
}
v o i d T e x t ( i n t r o w , i n t c o l u m n , s t r i n g t e x t = " " , c o l o r C L R = 0 , i n t F S _ s h i f t = 0 )
{
/ / i f ( C L R = = 0 ) C L R = C L ;
/ / i f ( ! C a n T r a d e ( t e x t , S t o p L i s t ) ) C L R = c l r R e d ;
s t r i n g n a m e = o b j _ p r e f + " _ T 1 _ " + I n t e g e r T o S t r i n g ( r o w ) + " _ " + I n t e g e r T o S t r i n g ( c o l u m n ) ; / / + " _ " + t e x t ;
i f ( O b j e c t F i n d ( n a m e ) < 0 )
{
i n t y = i n t ( ( r o w ) * F S * V _ S t e p ) + 5 ;
i n t x = i n t ( ( c o l u m n ) * F S * H _ S t e p ) + 5 ;
O b j e c t C r e a t e ( n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t ( 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 ( 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 ( n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
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 _ S E L E C T A B L E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , 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 T e x t ( n a m e , t e x t , F S + F S _ s h i f t , " A r i a l " , C L R ) ;
}
v o i d C l o s e _ H e d g e ( i n t i n d e x )
{
i f ( ! I s T r a d e A l l o w e d ( ) ) r e t u r n ;
i f ( U s e _ H E D G E _ C L O S E & & A l r e a d y O p e n e d [ i n d e x ] . O r d e r s 1 > = G r i d _ T o _ H e d g e )
{
i n t T i c k e t 1 = - 1 ,
T i c k e t 2 = - 1 ;
i f ( A l r e a d y O p e n e d [ i n d e x ] . B u y _ S e l l 1 = = O P _ S E L L )
T i c k e t 1 = O r d e r S e n d ( A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 , O P _ B U Y , N o r m a l i z e D o u b l e ( A l r e a d y O p e n e d [ i n d e x ] . L o t 1 , 2 ) , M a r k e t I n f o ( A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 , M O D E _ A S K ) , 9 9 9 9 9 9 , 0 , 0 , O C o m m + " [ H ] " , M a g i c , 0 ) ;
e l s e
T i c k e t 1 = O r d e r S e n d ( A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 , O P _ S E L L , N o r m a l i z e D o u b l e ( A l r e a d y O p e n e d [ i n d e x ] . L o t 1 , 2 ) , M a r k e t I n f o ( A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 , M O D E _ B I D ) , 9 9 9 9 9 9 , 0 , 0 , O C o m m + " [ H ] " , M a g i c , 0 ) ;
i f ( T i c k e t 1 = = - 1 )
{
P r i n t ( " ~ H e d g e o r d e r s e n d i n g e r r o r : " , G e t L a s t E r r o r ( ) , " . C l o s i n g g r i d u s u a l w a y . " ) ;
C l o s e _ G R I D _ D i r e c t ( A l r e a d y O p e n e d [ i n d e x ] . P o s _ N e g , A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 , A l r e a d y O p e n e d [ i n d e x ] . S y m b 2 ) ;
U s e _ H E D G E _ C L O S E = f a l s e ;
r e t u r n ;
}
e l s e
P r i n t ( " ~ H e d g e o r d e r " , A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 , " # " , T i c k e t 1 ) ;
i f ( A l r e a d y O p e n e d [ i n d e x ] . B u y _ S e l l 2 = = O P _ S E L L )
T i c k e t 2 = O r d e r S e n d ( A l r e a d y O p e n e d [ i n d e x ] . S y m b 2 , O P _ B U Y , N o r m a l i z e D o u b l e ( A l r e a d y O p e n e d [ i n d e x ] . L o t 2 , 2 ) , M a r k e t I n f o ( A l r e a d y O p e n e d [ i n d e x ] . S y m b 2 , M O D E _ A S K ) , 9 9 9 9 9 9 , 0 , 0 , O C o m m + " [ H ] " , M a g i c , 0 ) ;
e l s e
T i c k e t 2 = O r d e r S e n d ( A l r e a d y O p e n e d [ i n d e x ] . S y m b 2 , O P _ S E L L , N o r m a l i z e D o u b l e ( A l r e a d y O p e n e d [ i n d e x ] . L o t 2 , 2 ) , M a r k e t I n f o ( A l r e a d y O p e n e d [ i n d e x ] . S y m b 2 , M O D E _ A S K ) , 9 9 9 9 9 9 , 0 , 0 , O C o m m + " [ H ] " , M a g i c , 0 ) ;
i f ( T i c k e t 2 = = - 1 )
{
P r i n t ( " ~ H e d g e o r d e r s e n d i n g e r r o r : " , G e t L a s t E r r o r ( ) , " . C l o s i n g g r i d u s u a l w a y . " ) ;
i n t r e s = O r d e r C l o s e ( T i c k e t 1 , N o r m a l i z e D o u b l e ( A l r e a d y O p e n e d [ i n d e x ] . L o t 1 , 2 ) , ( A l r e a d y O p e n e d [ i n d e x ] . B u y _ S e l l 1 = = O P _ B U Y ) ? M a r k e t I n f o ( A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 , M O D E _ A S K ) : M a r k e t I n f o ( A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 , M O D E _ B I D ) , 9 9 9 9 9 ) ;
C l o s e _ G R I D _ D i r e c t ( A l r e a d y O p e n e d [ i n d e x ] . P o s _ N e g , A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 , A l r e a d y O p e n e d [ i n d e x ] . S y m b 2 ) ;
U s e _ H E D G E _ C L O S E = f a l s e ;
r e t u r n ;
}
e l s e
P r i n t ( " ~ H e d g e o r d e r f o r " , A l r e a d y O p e n e d [ i n d e x ] . S y m b 2 , " # " , T i c k e t 2 ) ;
/ / c l o s e S y m b 1 p a r t o f t h e g r i d
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S )
& & O r d e r S y m b o l ( ) = = A l r e a d y O p e n e d [ i n d e x ] . S y m b 1
& & S t r i n g F i n d ( O r d e r C o m m e n t ( ) , A l r e a d y O p e n e d [ i n d e x ] . P o s _ N e g + A l r e a d y O p e n e d [ i n d e x ] . S y m b 2 ) > - 1
& & O r d e r M a g i c N u m b e r ( ) = = M a g i c )
{
i f ( O r d e r C l o s e B y ( O r d e r T i c k e t ( ) , T i c k e t 1 ) )
{
d o u b l e n e w l o t = 0 ;
f o r ( i n t k = O r d e r s T o t a l ( ) - 1 ; k > = 0 ; k - - )
i f ( O r d e r S e l e c t ( k , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S )
& & O r d e r S y m b o l ( ) = = A l r e a d y O p e n e d [ i n d e x ] . S y m b 1
& & S t r i n g F i n d ( O r d e r C o m m e n t ( ) , P o s i t i v e ) = = - 1 & & S t r i n g F i n d ( O r d e r C o m m e n t ( ) , N e g a t i v e ) = = - 1
& & O r d e r M a g i c N u m b e r ( ) = = M a g i c
& & ( ( O r d e r T y p e ( ) = = O P _ S E L L & & A l r e a d y O p e n e d [ i n d e x ] . B u y _ S e l l 1 = = O P _ B U Y ) | | ( O r d e r T y p e ( ) = = O P _ B U Y & & A l r e a d y O p e n e d [ i n d e x ] . B u y _ S e l l 1 = = O P _ S E L L ) )
& & O r d e r L o t s ( ) > = n e w l o t )
{
n e w l o t = O r d e r L o t s ( ) ;
T i c k e t 1 = O r d e r T i c k e t ( ) ;
}
}
e l s e
{
A l e r t ( S y m b o l ( ) , " e r r o r " , G e t L a s t E r r o r ( ) , " w h e n c l o s e # " , O r d e r T i c k e t ( ) , " b y # " , T i c k e t 1 ) ;
P r i n t ( " S e t t i n g U s e _ H e d g e _ C l o s e t o f a l s e ! " ) ;
U s e _ H E D G E _ C L O S E = f a l s e ;
i f ( O r d e r S e l e c t ( T i c k e t 1 , S E L E C T _ B Y _ T I C K E T ) )
i n t r e s = O r d e r C l o s e ( O r d e r T i c k e t ( ) , O r d e r L o t s ( ) , ( O r d e r T y p e ( ) = = O P _ B U Y ) ? M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ A S K ) : M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ B I D ) , 9 9 9 9 9 ) ;
i f ( O r d e r S e l e c t ( T i c k e t 2 , S E L E C T _ B Y _ T I C K E T ) )
i n t r e s = O r d e r C l o s e ( O r d e r T i c k e t ( ) , O r d e r L o t s ( ) , ( O r d e r T y p e ( ) = = O P _ B U Y ) ? M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ A S K ) : M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ B I D ) , 9 9 9 9 9 ) ;
C l o s e _ G R I D _ D i r e c t ( A l r e a d y O p e n e d [ i n d e x ] . P o s _ N e g , A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 , A l r e a d y O p e n e d [ i n d e x ] . S y m b 2 ) ;
r e t u r n ;
/ / H e d g e _ S e c u r i t y ( O T , M N ) ;
}
}
/ / c l o s e S y m b 2 p a r t o f t h e g r i d
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S )
& & O r d e r S y m b o l ( ) = = A l r e a d y O p e n e d [ i n d e x ] . S y m b 2
& & S t r i n g F i n d ( O r d e r C o m m e n t ( ) , A l r e a d y O p e n e d [ i n d e x ] . P o s _ N e g + A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 ) > - 1
& & O r d e r M a g i c N u m b e r ( ) = = M a g i c )
{
i f ( O r d e r C l o s e B y ( O r d e r T i c k e t ( ) , T i c k e t 2 ) )
{
d o u b l e n e w l o t = 0 ;
f o r ( i n t k = O r d e r s T o t a l ( ) - 1 ; k > = 0 ; k - - )
i f ( O r d e r S e l e c t ( k , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S )
& & O r d e r S y m b o l ( ) = = A l r e a d y O p e n e d [ i n d e x ] . S y m b 2
& & S t r i n g F i n d ( O r d e r C o m m e n t ( ) , P o s i t i v e ) = = - 1 & & S t r i n g F i n d ( O r d e r C o m m e n t ( ) , N e g a t i v e ) = = - 1
& & O r d e r M a g i c N u m b e r ( ) = = M a g i c
& & ( ( O r d e r T y p e ( ) = = O P _ S E L L & & A l r e a d y O p e n e d [ i n d e x ] . B u y _ S e l l 2 = = O P _ B U Y ) | | ( O r d e r T y p e ( ) = = O P _ B U Y & & A l r e a d y O p e n e d [ i n d e x ] . B u y _ S e l l 2 = = O P _ S E L L ) )
& & O r d e r L o t s ( ) > = n e w l o t )
{
n e w l o t = O r d e r L o t s ( ) ;
T i c k e t 2 = O r d e r T i c k e t ( ) ;
}
}
e l s e
{
A l e r t ( S y m b o l ( ) , " e r r o r " , G e t L a s t E r r o r ( ) , " w h e n c l o s e # " , O r d e r T i c k e t ( ) , " b y # " , T i c k e t 2 ) ;
P r i n t ( " S e t t i n g U s e _ H e d g e _ C l o s e t o f a l s e ! " ) ;
U s e _ H E D G E _ C L O S E = f a l s e ;
i f ( O r d e r S e l e c t ( T i c k e t 2 , S E L E C T _ B Y _ T I C K E T ) )
i n t r e s = O r d e r C l o s e ( O r d e r T i c k e t ( ) , O r d e r L o t s ( ) , ( O r d e r T y p e ( ) = = O P _ B U Y ) ? M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ A S K ) : M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ B I D ) , 9 9 9 9 9 ) ;
C l o s e _ G R I D _ D i r e c t ( A l r e a d y O p e n e d [ i n d e x ] . P o s _ N e g , A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 , A l r e a d y O p e n e d [ i n d e x ] . S y m b 2 ) ;
r e t u r n ;
/ / H e d g e _ S e c u r i t y ( O T , M N ) ;
}
}
} / / u s e h e d g e c l o s e
e l s e
C l o s e _ G R I D _ D i r e c t ( A l r e a d y O p e n e d [ i n d e x ] . P o s _ N e g , A l r e a d y O p e n e d [ i n d e x ] . S y m b 1 , A l r e a d y O p e n e d [ i n d e x ] . S y m b 2 ) ;
L a s t T i m e = 0 ;
}
v o i d R e d r a w L i s t ( )
{
R e c u l c L i s t s ( ) ;
i n t c l e a n = 1 ;
i f ( L i s t = = N O T H )
O b j e c t S e t S t r i n g ( 0 , o b j _ p r e f + " B T 4 4 " , O B J P R O P _ T E X T , " < n o t h i n g > " ) ;
i f ( L i s t = = S T O P )
{
O b j e c t S e t S t r i n g ( 0 , o b j _ p r e f + " B T 4 4 " , O B J P R O P _ T E X T , " < s t o p - l i s t > " ) ; / / - - - CAB0=>28< B5:AB
T e x t 2 ( 1 , 7 , " F u l l L o c k : " , C L _ S y m b ) ;
f o r ( i n t i = 0 ; i < F u l l L o c k S i z e ; i + + )
T e x t 2 ( i + 2 , 7 , " - " + F u l l L o c k [ i ] , C L ) ;
T e x t 2 ( F u l l L o c k S i z e + 2 , 7 , " T o t a l : " + I n t e g e r T o S t r i n g ( F u l l L o c k S i z e ) , C L _ S y m b ) ;
T e x t 2 ( F u l l L o c k S i z e + 3 , 7 , " N o - T r a d e s : " , C L _ S y m b ) ;
f o r ( i n t i = 0 ; i < N o _ T r a d e s _ S i z e ; i + + )
T e x t 2 ( F u l l L o c k S i z e + i + 4 , 7 , " - " + N o _ T r a d e s [ i ] , C L ) ;
T e x t 2 ( N o _ T r a d e s _ S i z e + N o _ T r a d e s _ S i z e + 4 , 7 , " T o t a l : " + I n t e g e r T o S t r i n g ( N o _ T r a d e s _ S i z e ) , C L _ S y m b ) ;
c l e a n = F u l l L o c k S i z e + N o _ T r a d e s _ S i z e + 5 ;
}
i f ( L i s t = = C U R R )
{
O b j e c t S e t S t r i n g ( 0 , o b j _ p r e f + " B T 4 4 " , O B J P R O P _ T E X T , " < c u r r e n c i e s > " ) ;
f o r ( i n t i = 0 ; i < O p e n e d C u r r S y z e ; i + + )
T e x t 2 ( i + 1 , 7 , " - " + O p e n e d C u r r [ i ] , C L ) ;
T e x t 2 ( O p e n e d C u r r S y z e + 1 , 7 , " T o t a l : " + I n t e g e r T o S t r i n g ( O p e n e d C u r r S y z e ) , C L _ S y m b ) ;
c l e a n = O p e n e d C u r r S y z e + 2 ;
}
i f ( L i s t = = S Y M B _ O )
{
O b j e c t S e t S t r i n g ( 0 , o b j _ p r e f + " B T 4 4 " , O B J P R O P _ T E X T , " < o p e n e d s y m b o l s > " ) ;
f o r ( i n t i = 0 ; i < O p e n e d S y m b S y z e ; i + + )
T e x t 2 ( i + 1 , 7 , " - " + O p e n e d S y m b [ i ] , C L ) ;
T e x t 2 ( O p e n e d S y m b S y z e + 1 , 7 , " T o t a l : " + I n t e g e r T o S t r i n g ( O p e n e d S y m b S y z e ) , C L _ S y m b ) ;
c l e a n = O p e n e d S y m b S y z e + 2 ;
}
i f ( L i s t = = S Y M B _ T )
{
O b j e c t S e t S t r i n g ( 0 , o b j _ p r e f + " B T 4 4 " , O B J P R O P _ T E X T , " < s y m b o l - l i s t > " ) ;
f o r ( i n t i = 0 ; i < S y m b _ T o t a l ; i + + )
T e x t 2 ( i + 1 , 7 , " - " + S y m b L i s t A R R [ i ] , C L ) ;
T e x t 2 ( S y m b _ T o t a l + 1 , 7 , " T o t a l : " + I n t e g e r T o S t r i n g ( S y m b _ T o t a l ) , C L _ S y m b ) ;
c l e a n = S y m b _ T o t a l + 2 ;
}
w h i l e ( O b j e c t F i n d ( 0 , o b j _ p r e f + " _ T 2 _ " + I n t e g e r T o S t r i n g ( c l e a n ) + " _ 7 " ) > - 1 )
{
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " _ T 2 _ " + I n t e g e r T o S t r i n g ( c l e a n ) + " _ 7 " ) ;
c l e a n + + ;
}
}
v o i d R e c u l c L i s t s ( )
{
O p e n e d S y m b S y z e = 0 ;
O p e n e d C u r r S y z e = 0 ;
f o r ( i n t i = 0 ; i < O r d e r s T o t a l ( ) ; i + + )
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) )
{
i f ( ( O n e c e C u r r | | ( ! S i l e n t & & L i s t = = C U R R ) ) & & C a n T r a d e ( S t r i n g S u b s t r ( O r d e r S y m b o l ( ) , 0 , 3 ) , " W " , f a l s e , t r u e ) )
{ O p e n e d C u r r [ O p e n e d C u r r S y z e ] = S t r i n g S u b s t r ( O r d e r S y m b o l ( ) , 0 , 3 ) ; O p e n e d C u r r S y z e + + ; }
i f ( ( O n e c e C u r r | | ( ! S i l e n t & & L i s t = = C U R R ) ) & & C a n T r a d e ( S t r i n g S u b s t r ( O r d e r S y m b o l ( ) , 3 , 3 ) , " W " , f a l s e , t r u e ) )
{ O p e n e d C u r r [ O p e n e d C u r r S y z e ] = S t r i n g S u b s t r ( O r d e r S y m b o l ( ) , 3 , 3 ) ; O p e n e d C u r r S y z e + + ; }
i f ( ( O n e c e S y m b | | ( ! S i l e n t & & L i s t = = S Y M B _ O ) ) & & C a n T r a d e ( O r d e r S y m b o l ( ) , " W " , f a l s e , t r u e ) )
{ O p e n e d S y m b [ O p e n e d S y m b S y z e ] = O r d e r S y m b o l ( ) ; O p e n e d S y m b S y z e + + ; }
}
}
b o o l C a n T r a d e ( s t r i n g C u r r _ S y m b 1 , s t r i n g C u r r _ S y m b 2 = " W " , b o o l f u l l = f a l s e , b o o l f o r _ l i s t = f a l s e )
{
f o r ( i n t i = 0 ; i < F u l l L o c k S i z e ; i + + )
i f ( S t r i n g F i n d ( C u r r _ S y m b 1 , F u l l L o c k [ i ] ) > - 1 | | S t r i n g F i n d ( C u r r _ S y m b 2 , F u l l L o c k [ i ] ) > - 1 ) r e t u r n ( f a l s e ) ;
i f ( f u l l ) r e t u r n ( t r u e ) ;
i f ( O n e c e C u r r | | ( f o r _ l i s t & & L i s t = = C U R R ) )
f o r ( i n t i = 0 ; i < O p e n e d C u r r S y z e ; i + + )
i f ( S t r i n g F i n d ( C u r r _ S y m b 1 , O p e n e d C u r r [ i ] ) > - 1 | | S t r i n g F i n d ( C u r r _ S y m b 2 , O p e n e d C u r r [ i ] ) > - 1 ) r e t u r n ( f a l s e ) ;
i f ( ( O n e c e S y m b ) | | ( f o r _ l i s t & & L i s t = = S Y M B _ O ) )
f o r ( i n t i = 0 ; i < O p e n e d S y m b S y z e ; i + + )
i f ( S t r i n g F i n d ( C u r r _ S y m b 1 , O p e n e d S y m b [ i ] ) > - 1 | | S t r i n g F i n d ( C u r r _ S y m b 2 , O p e n e d S y m b [ i ] ) > - 1 ) r e t u r n ( f a l s e ) ;
f o r ( i n t i = 0 ; i < N o _ T r a d e s _ S i z e ; i + + )
i f ( S t r i n g F i n d ( C u r r _ S y m b 1 , N o _ T r a d e s [ i ] ) > - 1 | | S t r i n g F i n d ( C u r r _ S y m b 2 , N o _ T r a d e s [ i ] ) > - 1 ) 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 C r e a t e S c r o l l B u t t o n s ( )
{
/ / P r i n t ( X _ C U R R , " > = " , X _ M I N , " " , Y _ C U R R , " > = " , Y _ M I N ) ;
i f ( X _ C U R R > = X _ M I N & & Y _ C U R R > = Y _ M I N )
{
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " S c r o l l _ L e f t " ) ;
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " S c r o l l _ R i g h t " ) ;
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " S c r o l l _ U p " ) ;
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " S c r o l l _ D n " ) ;
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " X S i z e " ) ;
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " Y S i z e " ) ;
X _ S H I F T = Y _ S H I F T = 0 ;
r e t u r n ;
}
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " S c r o l l _ L e f t " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " S c r o l l _ L e f t " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
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 _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ L O W E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
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 _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ X D I S T A N C E , 8 0 ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
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 _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ Y D I S T A N C E , 5 5 ) ;
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 _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ X S I Z E , 2 0 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
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 _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ Y S I Z E , 2 0 ) ;
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 _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ T E X T , C h a r T o S t r i n g ( 2 3 9 ) ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ F O N T , " W i n g d i n g s " ) ;
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 _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ F O N T S I Z E , 1 5 ) ;
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 _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
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 _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
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 _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ B A C K , F a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
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 _ p r e f + " S c r o l l _ L e f t " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
}
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " S c r o l l _ R i g h t " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " S c r o l l _ R i g h t " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
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 _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ L O W E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
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 _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ X D I S T A N C E , 3 0 ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
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 _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ Y D I S T A N C E , 5 5 ) ;
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 _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ X S I Z E , 2 0 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
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 _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ Y S I Z E , 2 0 ) ;
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 _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ T E X T , C h a r T o S t r i n g ( 2 4 0 ) ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ F O N T , " W i n g d i n g s " ) ;
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 _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ F O N T S I Z E , 1 5 ) ;
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 _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
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 _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
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 _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ B A C K , F a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
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 _ p r e f + " S c r o l l _ R i g h t " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
}
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " S c r o l l _ U p " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " S c r o l l _ U p " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
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 _ p r e f + " S c r o l l _ U p " , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ L O W E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
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 _ p r e f + " S c r o l l _ U p " , O B J P R O P _ X D I S T A N C E , 5 5 ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
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 _ p r e f + " S c r o l l _ U p " , O B J P R O P _ Y D I S T A N C E , 8 0 ) ;
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 _ p r e f + " S c r o l l _ U p " , O B J P R O P _ X S I Z E , 2 0 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
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 _ p r e f + " S c r o l l _ U p " , O B J P R O P _ Y S I Z E , 2 0 ) ;
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 _ p r e f + " S c r o l l _ U p " , O B J P R O P _ T E X T , C h a r T o S t r i n g ( 2 4 1 ) ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " S c r o l l _ U p " , O B J P R O P _ F O N T , " W i n g d i n g s " ) ;
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 _ p r e f + " S c r o l l _ U p " , O B J P R O P _ F O N T S I Z E , 1 6 ) ;
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 _ p r e f + " S c r o l l _ U p " , O B J P R O P _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S c r o l l _ U p " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
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 _ p r e f + " S c r o l l _ U p " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
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 _ p r e f + " S c r o l l _ U p " , O B J P R O P _ B A C K , F a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
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 _ p r e f + " S c r o l l _ U p " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
}
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " S c r o l l _ D n " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " S c r o l l _ D n " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ L O W E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ X D I S T A N C E , 5 5 ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ Y D I S T A N C E , 3 0 ) ;
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ X S I Z E , 2 0 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ Y S I Z E , 2 0 ) ;
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ T E X T , C h a r T o S t r i n g ( 2 4 2 ) ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ F O N T , " W i n g d i n g s " ) ;
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ F O N T S I Z E , 1 6 ) ;
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S c r o l l _ D n " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ B A C K , F a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
}
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " S c r o l l _ D n " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " S c r o l l _ D n " , O B J _ B U T T O N , 0 , 0 , 0 ) ;
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ L O W E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ X D I S T A N C E , 5 5 ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ Y D I S T A N C E , 3 0 ) ;
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ X S I Z E , 2 0 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ Y S I Z E , 2 0 ) ;
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ T E X T , C h a r T o S t r i n g ( 2 4 2 ) ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ F O N T , " W i n g d i n g s " ) ;
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ F O N T S I Z E , 1 6 ) ;
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S c r o l l _ D n " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ B A C K , F a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
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 _ p r e f + " S c r o l l _ D n " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
}
/ *
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " X S i z e " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " X S i z 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 ( C h a r t I D ( ) , o b j _ p r e f + " X S i z e " , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ L O W E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
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 _ p r e f + " X S i z e " , O B J P R O P _ X D I S T A N C E , 5 5 ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
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 _ p r e f + " X S i z e " , O B J P R O P _ Y D I S T A N C E , 5 5 ) ;
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 _ p r e f + " X S i z e " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( Y _ M I N ) ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " X S i z 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 ( C h a r t I D ( ) , o b j _ p r e f + " X S i z e " , O B J P R O P _ F O N T S I Z E , 6 ) ;
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 _ p r e f + " X S i z e " , O B J P R O P _ C O L O R , c l r G r a y ) ;
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 _ p r e f + " X S i z e " , O B J P R O P _ S E L E C T A B L E , f a l s e ) ;
}
e l s e
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 _ p r e f + " X S i z e " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( Y _ M I N ) ) ; / / - - - CAB0=>28< B5:AB
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " Y S i z e " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " Y S i z 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 ( C h a r t I D ( ) , o b j _ p r e f + " Y S i z e " , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ L O W E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
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 _ p r e f + " Y S i z e " , O B J P R O P _ X D I S T A N C E , 5 5 ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
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 _ p r e f + " Y S i z e " , O B J P R O P _ Y D I S T A N C E , 4 5 ) ;
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 _ p r e f + " Y S i z e " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( Y _ C U R R ) ) ; / / - - - CAB0=>28< B5:AB
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 _ p r e f + " Y S i z 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 ( C h a r t I D ( ) , o b j _ p r e f + " Y S i z e " , O B J P R O P _ F O N T S I Z E , 6 ) ;
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 _ p r e f + " Y S i z e " , O B J P R O P _ C O L O R , c l r G r a y ) ;
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 _ p r e f + " Y S i z e " , O B J P R O P _ S E L E C T A B L E , f a l s e ) ;
}
e l s e
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 _ p r e f + " Y S i z e " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( Y _ C U R R ) ) ; / / - - - CAB0=>28< B5:AB* /
}
Comments
Markdown Formatting Guide
# H1## H2
### H3
**bold text***italicized text*[title](https://www.example.com)`code````code block
```
> blockquote- Item 1- Item 2
1. First item2. Second item
---