Price Data Components
Indicators Used
0
Views
0
Downloads
0
Favorites
Currency Strength EA 3.0
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | P r o j e c t N a m e |
/ / | C o p y r i g h t 2 0 2 2 , C o m p a n y N a m e |
/ / | h t t p : / / w w w . c o m p a n y n a m e . n e t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# p r o p e r t y c o p y r i g h t " C o p y r i g h t 2 0 2 2 "
# p r o p e r t y v e r s i o n " 3 . 0 "
# p r o p e r t y s t r i c t
# i n c l u d e < T r a d e \ P o s i t i o n I n f o . m q h > C P o s i t i o n I n f o m _ p o s i t i o n ;
# i n c l u d e < T r a d e \ T r a d e . m q h > C T r a d e t r a d e ;
e n u m t i m e r
{
S e r v e r , / / S e r v e r T i m e
G M T , / / G M T T i m e
L o c a l / / L o c a l T i m e
} ;
e n u m S t e p M o d e
{
i n A T R , / / I n A T R
i n P i p s / / I n P i p s
} ;
e n u m P T y p e
{
i n P e r c e n t , / / i n P e r c e n t
i n C u r r e n c y / / i n M o n e y
} ;
i n p u t c o n s t s t r i n g T i m e r = " / / - - - - - - - - - - - - - - - - T i m e S e t t i n g s - - - - - - - - - - - - - - - - / / " ;
i n p u t t i m e r T i m e M o d e = S e r v e r ; / / T i m e M o d e
i n p u t s t r i n g S t a r t T i m e = " 1 0 : 0 0 " ; / / O p e n i n g T i m e
i n p u t s t r i n g E n d T i m e = " 1 6 : 0 0 " ; / / E n d T i m e
i n p u t c o n s t s t r i n g C S t r e n g t h = " / / - - - - - - - - - - - - - - - - C u r r e n c y S t r e n g t h S e t t i n g s - - - - - - - - - - - - - - - - / / " ;
i n p u t E N U M _ T I M E F R A M E S t m f = P E R I O D _ H 4 ; / / S t r e n g t h P e r i o d C a l c u l a t i o n
i n p u t i n t N u m b e r O f C a n d l e s = 5 5 ; / / N u m b e r o f C a n d l e t o C a l c u l a t e
i n p u t b o o l A p p l y S m o o t h i n g = t r u e ; / / A p p l y S m o o t h i n g
i n p u t b o o l T r i a n g u l a r W e i g h t i n g = t r u e ; / / T r i a n g u l a r W e i g h t i n g
i n p u t i n t H i s t o r i c a l S h i f t = 0 ; / / S h i f t
i n p u t d o u b l e U p p e r L i m i t = 7 . 2 ; / / U p p e r L i m i t V a l u e
i n p u t d o u b l e L o w e r L i m i t = 3 . 3 ; / / L o w e r L i m i t V a l u e
i n p u t c o n s t s t r i n g I n d i = " / / - - - - - - - - - - - - - - - - I n d i c a t o r S e t t i n g s - - - - - - - - - - - - - - - - / / " ;
i n p u t E N U M _ T I M E F R A M E S A T R T F = P E R I O D _ C U R R E N T ; / / A T R T i m e f r a m e
i n p u t i n t A T R P e r i o d = 1 4 ; / / A T R P e r i o d
i n p u t S t e p M o d e S L T P = i n A T R ; / / S L T P T y p e
i n p u t d o u b l e S t o p l o s s = 0 . 0 ; / / S t o p l o s s
i n p u t d o u b l e T a k e p r o f i t = 1 . 0 ; / / T a k e p r o f i t
i n p u t i n t T r a i l i n g S t o p = 3 0 ; / / T r a i l i n g S t o p ( i n P o i n t s )
i n p u t i n t T r a i l i n g S t e p = 5 ; / / T r a i l i n g S t e p ( i n P o i n t s )
i n p u t c o n s t s t r i n g M a r t i n g a l e = " / / - - - - - - - - - - - - - - - - M a r t i n g a l e S e t t i n g s - - - - - - - - - - - - - - - - / / " ;
i n p u t b o o l E n a b l e A v e r a g i n g = t r u e ; / / E n a b l e M a r t i n g a l e
i n p u t d o u b l e M u l t i p l i e r = 1 . 3 ; / / L o t M u l t i p l i e r
i n p u t S t e p M o d e P i p S t e p M o d e = i n A T R ; / / P i p S t e p T y p e
i n p u t d o u b l e P i p S t e p = 0 . 8 ; / / P i p S t e p
i n p u t d o u b l e P S M = 2 ; / / P i p S t e p M u l t i p l i e r
i n p u t i n t S t a r t P S M A f t e r = 2 ; / / S t a r t P S M A f t e r O r d e r N u m b e r :
i n p u t i n t T P P l u s = 2 0 ; / / T P A v e r a g e i n P i p s
i n p u t c o n s t s t r i n g M M = " / / - - - - - - - - - - - - - - - - M o n e y M a n a g e m e n t S e t t i n g s - - - - - - - - - - - - - - - - / / " ;
i n p u t b o o l A u t o l o t = t r u e ; / / E n a b l e A u t o L o t
i n p u t d o u b l e L o t = 0 . 0 1 ; / / C o n s t a n t L o t
i n p u t d o u b l e R i s k P e r c e n t = 0 . 1 ; / / R i s k i n P e r c e n t
i n p u t b o o l U s e T a r g e t P e r c e n t = t r u e ; / / U s e D a i l y T a r g e t P e r c e n t
i n p u t P T y p e P r o f i t T y p e = i n P e r c e n t ; / / P r o f i t C l o s e T y p e
i n p u t d o u b l e D a i l y P r o f i t = 0 . 0 5 ; / / D a i l y T a r g e t P r o f i t P e r c e n t a g e
i n p u t c o n s t s t r i n g O t h e r = " / / - - - - - - - - - - - - - - - - O t h e r S e t t i n g s - - - - - - - - - - - - - - - - / / " ;
i n p u t i n t i M a g i c N u m b e r = 2 2 7 ; / / M a g i c N u m b e r
i n p u t i n t i S l i p p a g e = 3 ; / / S l i p p a g e
i n p u t s t r i n g C o m m e n t a r y = " C u r r e n c y S t r e n g t h E A " ; / / O r d e r C o m m e n t
i n p u t s t r i n g p r e f i x = " " ; / / I f h a v e P r e f i x , e l s e l e a v e B l a n k
i n p u t s t r i n g p o s t f i x = " " ; / / I f h a v e P o s t f i x , e l s e l e a v e B l a n k
i n p u t i n t m a x T r a d e d S y m b o l s = 2 ; / / M a x S i m u l t a n e o u s T r a d e d S y m b o l s
s t r i n g C u r r e n c y P a i r s = " G U , U F , E U , U J , U C , N U , A U , A N , A C , A F , A J , C J , F J , E G , E A , E F , E J , E N , E C , G F , G A , G C , G J , G N , N J " ;
d o u b l e c c y _ s t r e n g t h [ 8 ] ;
i n t c c y _ c o u n t [ 8 ] , c c C P ;
s t r i n g c c y , C P [ 4 0 ] , C u r r e n c y P a i r s 0 ;
s t r i n g C u r r e n c y [ ] = { " U S D " , " E U R " , " G B P " , " C H F " , " C A D " , " A U D " , " J P Y " , " N Z D " } ;
d o u b l e U S D [ ] , E U R [ ] , G B P [ ] , C H F [ ] , C A D [ ] , A U D [ ] , J P Y [ ] , N Z D [ ] ;
d o u b l e T d [ ] [ 8 ] ;
l o n g c h a r t I D = 0 ;
# d e f i n e H R 2 4 0 0 ( P E R I O D _ D 1 * 6 0 ) / / 8 6 4 0 0 = 2 4 * 3 6 0 0 = 1 4 4 0 * 6 0
s t r i n g E A N a m e = " C u r r e n c y S t r e n g t h E A " ;
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / * * /
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
i n t O n I n i t ( )
{
t r a d e . L o g L e v e l ( L O G _ L E V E L _ E R R O R S ) ;
t r a d e . S e t E x p e r t M a g i c N u m b e r ( i M a g i c N u m b e r ) ;
t r a d e . S e t D e v i a t i o n I n P o i n t s ( i S l i p p a g e ) ;
t r a d e . S e t M a r g i n M o d e ( ) ;
t r a d e . S e t T y p e F i l l i n g ( O R D E R _ F I L L I N G _ F O K ) ;
C u r r e n c y P a i r s 0 = S t r i n g U p p e r ( C u r r e n c y P a i r s ) ;
i f ( C u r r e n c y P a i r s 0 = = " " )
{
C u r r e n c y P a i r s 0 = S y m b o l ( ) ;
}
i f ( S t r i n g S u b s t r ( C u r r e n c y P a i r s 0 , S t r i n g L e n ( C u r r e n c y P a i r s 0 ) - 1 , 1 ) ! = " , " )
C u r r e n c y P a i r s 0 = C u r r e n c y P a i r s 0 + " , " ;
c c C P = S t r i n g F i n d C o u n t ( C u r r e n c y P a i r s 0 , " , " ) ;
f o r ( i n t i = 0 ; i < 4 0 ; i + + )
C P [ i ] = " " ;
i n t c o m m a 1 = - 1 ;
f o r ( i n t i = 0 ; i < 4 0 ; i + + )
{
i n t c o m m a 2 = S t r i n g F i n d ( C u r r e n c y P a i r s 0 , " , " , c o m m a 1 + 1 ) ;
s t r i n g t e m p = S t r i n g S u b s t r ( C u r r e n c y P a i r s 0 , c o m m a 1 + 1 , c o m m a 2 - c o m m a 1 - 1 ) ;
C P [ i ] = E x p a n d C c y ( t e m p ) ;
i f ( c o m m a 2 > = S t r i n g L e n ( C u r r e n c y P a i r s 0 ) - 1 )
b r e a k ;
c o m m a 1 = c o m m a 2 ;
}
A r r a y R e s i z e ( U S D , 2 ) ;
A r r a y R e s i z e ( E U R , 2 ) ;
A r r a y R e s i z e ( G B P , 2 ) ;
A r r a y R e s i z e ( C H F , 2 ) ;
A r r a y R e s i z e ( C A D , 2 ) ;
A r r a y R e s i z e ( A U D , 2 ) ;
A r r a y R e s i z e ( J P Y , 2 ) ;
A r r a y R e s i z e ( N Z D , 2 ) ;
A r r a y I n i t i a l i z e ( U S D , 0 . 0 ) ;
A r r a y I n i t i a l i z e ( E U R , 0 . 0 ) ;
A r r a y I n i t i a l i z e ( G B P , 0 . 0 ) ;
A r r a y I n i t i a l i z e ( C H F , 0 . 0 ) ;
A r r a y I n i t i a l i z e ( C A D , 0 . 0 ) ;
A r r a y I n i t i a l i z e ( A U D , 0 . 0 ) ;
A r r a y I n i t i a l i z e ( J P Y , 0 . 0 ) ;
A r r a y I n i t i a l i z e ( N Z D , 0 . 0 ) ;
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 )
{
s t r i n g l o o k F o r = E A N a m e ;
O b j e c t s D e l e t e A l l ( c h a r t I D , l o o k F o r , - 1 , - 1 ) ;
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i c k ( v o i d )
{
c r e a t e B a c k g r o u n d ( E A N a m e + " B a c k g r o u n d " ) ;
c r e a t e O b j e c t ( E A N a m e + " U S D " , " U S D : " + D o u b l e T o S t r i n g ( U S D [ 0 ] , 1 ) , 2 0 , 4 0 , 1 6 , c l r R e d ) ;
c r e a t e O b j e c t ( E A N a m e + " E U R " , " E U R : " + D o u b l e T o S t r i n g ( E U R [ 0 ] , 1 ) , 2 0 , 7 0 , 1 6 , c l r Y e l l o w ) ;
c r e a t e O b j e c t ( E A N a m e + " A U D " , " A U D : " + D o u b l e T o S t r i n g ( A U D [ 0 ] , 1 ) , 2 0 , 1 0 0 , 1 6 , c l r G r e e n ) ;
c r e a t e O b j e c t ( E A N a m e + " G B P " , " G B P : " + D o u b l e T o S t r i n g ( G B P [ 0 ] , 1 ) , 2 0 , 1 3 0 , 1 6 , c l r B l u e V i o l e t ) ;
c r e a t e O b j e c t ( E A N a m e + " C H F " , " C H F : " + D o u b l e T o S t r i n g ( C H F [ 0 ] , 1 ) , 2 0 , 1 6 0 , 1 6 , c l r G o l d e n r o d ) ;
c r e a t e O b j e c t ( E A N a m e + " J P Y " , " J P Y : " + D o u b l e T o S t r i n g ( J P Y [ 0 ] , 1 ) , 2 0 , 1 9 0 , 1 6 , c l r V i o l e t ) ;
c r e a t e O b j e c t ( E A N a m e + " N Z D " , " N Z D : " + D o u b l e T o S t r i n g ( N Z D [ 0 ] , 1 ) , 2 0 , 2 2 0 , 1 6 , c l r O r a n g e ) ;
c r e a t e O b j e c t ( E A N a m e + " C A D " , " C A D : " + D o u b l e T o S t r i n g ( C A D [ 0 ] , 1 ) , 2 0 , 2 5 0 , 1 6 , c l r W h i t e S m o k e ) ;
S t r e n g t h ( ) ;
/ / T a r g e t P r o f i t
b o o l c l o s e P r o f i t = f a l s e , c l o s e L o s s = f a l s e ;
d o u b l e T a r g e t = P r o f i t T o d a y ( ) + F l o a t i n g P r o f i t ( ) ;
d o u b l e P e r c e n t = ( 1 0 0 * T a r g e t ) / ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) ) ;
d o u b l e m a x D D = ( 1 0 0 * F l o a t i n g P r o f i t ( ) ) / ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) ) ;
i n t c o u n t S y m = 0 ;
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( P o s i t i o n G e t T i c k e t ( i ) )
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) = = i M a g i c N u m b e r )
{
c o u n t S y m + + ;
i f ( I s M a r k e t O p e n ( P o s i t i o n G e t S y m b o l ( i ) , f a l s e ) )
{
T r a i l i n g ( P o s i t i o n G e t S y m b o l ( i ) ) ;
i f ( E n a b l e A v e r a g i n g )
M a r t i n ( P o s i t i o n G e t S y m b o l ( i ) ) ;
}
}
}
}
s w i t c h ( P r o f i t T y p e )
{
c a s e i n P e r c e n t :
{
i f ( P e r c e n t > = D a i l y P r o f i t )
c l o s e P r o f i t = t r u e ;
b r e a k ;
}
c a s e i n C u r r e n c y :
{
i f ( T a r g e t > = D a i l y P r o f i t )
c l o s e P r o f i t = t r u e ;
b r e a k ;
}
}
i f ( U s e T a r g e t P e r c e n t )
{
i f ( c l o s e P r o f i t )
{
c l o s e A l l P o s i t i o n s ( ) ;
i f ( ! c o u n t S y m )
{
c l o s e P r o f i t = f a l s e ;
}
}
}
e l s e
c l o s e P r o f i t = f a l s e ;
S i g n a l ( ) ;
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l I s M a r k e t O p e n ( c o n s t s t r i n g s y m b , c o n s t b o o l d e b u g = f a l s e )
{
d a t e t i m e f r o m = N U L L ;
d a t e t i m e t o = N U L L ;
d a t e t i m e s e r v e r T i m e = T i m e T r a d e S e r v e r ( ) ;
/ / G e t t h e d a y o f t h e w e e k
M q l D a t e T i m e d t ;
T i m e T o S t r u c t ( s e r v e r T i m e , d t ) ;
c o n s t E N U M _ D A Y _ O F _ W E E K d a y _ o f _ w e e k = ( E N U M _ D A Y _ O F _ W E E K ) d t . d a y _ o f _ w e e k ;
/ / G e t t h e t i m e c o m p o n e n t o f t h e c u r r e n t d a t e t i m e
c o n s t i n t t i m e = ( i n t ) M a t h M o d ( s e r v e r T i m e , H R 2 4 0 0 ) ;
i f ( d e b u g )
P r i n t F o r m a t ( " % s ( % s ) : C h e c k i n g % s " , _ _ F U N C T I O N _ _ , s y m b , E n u m T o S t r i n g ( d a y _ o f _ w e e k ) ) ;
/ / B r o k e r s s p l i t s o m e s y m b o l s b e t w e e n m u l t i p l e s e s s i o n s .
/ / O n e b r o k e r s p l i t s f o r e x b e t w e e n t w o s e s s i o n s ( T u e s t h r u T h u r s o n d i f f e r e n t s e s s i o n ) .
/ / 2 s e s s i o n s ( 0 , 1 , 2 ) s h o u l d c o v e r m o s t c a s e s .
i n t s e s s i o n = 2 ;
w h i l e ( s e s s i o n > - 1 )
{
i f ( S y m b o l I n f o S e s s i o n T r a d e ( s y m b , d a y _ o f _ w e e k , s e s s i o n , f r o m , t o ) )
{
i f ( d e b u g )
P r i n t F o r m a t ( " % s ( % s ) : C h e c k i n g % d > = % d & & % d < = % d " ,
_ _ F U N C T I O N _ _ ,
s y m b ,
t i m e ,
f r o m ,
t i m e ,
t o ) ;
i f ( t i m e > = f r o m & & t i m e < = t o )
{
i f ( d e b u g )
P r i n t F o r m a t ( " % s M a r k e t i s o p e n " , _ _ F U N C T I O N _ _ ) ;
r e t u r n t r u e ;
}
}
s e s s i o n - - ;
}
i f ( d e b u g )
P r i n t F o r m a t ( " % s M a r k e t n o t o p e n " , _ _ F U N C T I O N _ _ ) ;
r e t u r n f a l s e ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e F l o a t i n g P r o f i t ( )
{
d o u b l e t F l o a t i n g = 0 . 0 ;
i n t t O r d e r = P o s i t i o n s T o t a l ( ) ;
f o r ( i n t i = t O r d e r - 1 ; i > = 0 ; i - - )
{
i f ( P o s i t i o n G e t T i c k e t ( i ) ) / / s e l e c t s t h e p o s i t i o n b y i n d e x f o r f u r t h e r a c c e s s t o i t s p r o p e r t i e s
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) = = i M a g i c N u m b e r )
{
t F l o a t i n g + = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R O F I T ) + P o s i t i o n G e t D o u b l e ( P O S I T I O N _ S W A P ) + A c c o u n t I n f o D o u b l e ( A C C O U N T _ C O M M I S S I O N _ B L O C K E D ) ;
}
}
}
r e t u r n ( t F l o a t i n g ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e P r o f i t T o d a y ( )
{
H i s t o r y S e l e c t ( 0 , T i m e C u r r e n t ( ) ) ;
i n t t O r d e r H i s = H i s t o r y D e a l s T o t a l ( ) ;
s t r i n g s t r T o d a y = T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ;
u l o n g t i c k e t = 0 ;
d o u b l e t F l o a t i n g = 0 . 0 ;
f o r ( i n t i = t O r d e r H i s - 1 ; i > = 0 ; i - - )
{
i f ( ( t i c k e t = H i s t o r y D e a l G e t T i c k e t ( i ) ) > 0 )
{
d a t e t i m e t i m e = ( d a t e t i m e ) H i s t o r y D e a l G e t I n t e g e r ( t i c k e t , D E A L _ T I M E ) ;
s t r i n g s y m b o l = H i s t o r y D e a l G e t S t r i n g ( t i c k e t , D E A L _ S Y M B O L ) ;
u l o n g m a g i c = H i s t o r y D e a l G e t I n t e g e r ( t i c k e t , D E A L _ M A G I C ) ;
d o u b l e p r o f i t = H i s t o r y D e a l G e t D o u b l e ( t i c k e t , D E A L _ P R O F I T ) ;
d o u b l e s w a p = H i s t o r y D e a l G e t D o u b l e ( t i c k e t , D E A L _ S W A P ) ;
d o u b l e c o m m i s s i o n = H i s t o r y D e a l G e t D o u b l e ( t i c k e t , D E A L _ C O M M I S S I O N ) ;
i f ( m a g i c = = i M a g i c N u m b e r & & S t r i n g F i n d ( T i m e T o S t r i n g ( t i m e , T I M E _ D A T E ) , s t r T o d a y , 0 ) = = 0 )
{
t F l o a t i n g + = p r o f i t + s w a p + c o m m i s s i o n ;
}
}
}
r e t u r n ( t F l o a t i n g ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d c l o s e A l l P o s i t i o n s ( )
{
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( P o s i t i o n G e t T i c k e t ( i ) ) / / s e l e c t s t h e p o s i t i o n b y i n d e x f o r f u r t h e r a c c e s s t o i t s p r o p e r t i e s
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) = = i M a g i c N u m b e r )
{
t r a d e . P o s i t i o n C l o s e ( P o s i t i o n G e t T i c k e t ( i ) , - 1 ) ;
P r i n t ( " T a r g e t R e a c h e d " ) ;
}
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e H i s t o r y ( s t r i n g s y m b )
{
H i s t o r y S e l e c t ( 0 , T i m e C u r r e n t ( ) ) ;
i n t t O r d e r H i s = H i s t o r y D e a l s T o t a l ( ) ;
s t r i n g s t r T o d a y = T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ;
u l o n g t i c k e t = 0 ;
f o r ( i n t i = t O r d e r H i s - 1 ; i > = 0 ; i - - )
{
i f ( ( t i c k e t = H i s t o r y D e a l G e t T i c k e t ( i ) ) > 0 )
{
d a t e t i m e t i m e = ( d a t e t i m e ) H i s t o r y D e a l G e t I n t e g e r ( t i c k e t , D E A L _ T I M E ) ;
s t r i n g s y m b o l = H i s t o r y D e a l G e t S t r i n g ( t i c k e t , D E A L _ S Y M B O L ) ;
u l o n g m a g i c = H i s t o r y D e a l G e t I n t e g e r ( t i c k e t , D E A L _ M A G I C ) ;
i f ( s y m b o l = = s y m b )
{
i f ( m a g i c = = i M a g i c N u m b e r & & S t r i n g F i n d ( T i m e T o S t r i n g ( t i m e , T I M E _ D A T E ) , s t r T o d a y , 0 ) = = 0 )
{
r e t u r n ( t r u e ) ;
}
}
}
}
r e t u r n ( f a l s e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d S i g n a l ( )
{
i f ( ( U S D [ 0 ] > ( U p p e r L i m i t ) & & J P Y [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " U S D J P Y " + p o s t f i x ) ;
}
i f ( ( U S D [ 0 ] < ( L o w e r L i m i t ) & & J P Y [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " U S D J P Y " + p o s t f i x ) ;
}
i f ( ( U S D [ 0 ] > ( U p p e r L i m i t ) & & C A D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " U S D C A D " + p o s t f i x ) ;
}
i f ( ( U S D [ 0 ] < ( L o w e r L i m i t ) & & C A D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " U S D C A D " + p o s t f i x ) ;
}
i f ( ( A U D [ 0 ] > ( U p p e r L i m i t ) & & U S D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " A U D U S D " + p o s t f i x ) ;
}
i f ( ( A U D [ 0 ] < ( L o w e r L i m i t ) & & U S D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " A U D U S D " + p o s t f i x ) ;
}
i f ( ( U S D [ 0 ] > ( U p p e r L i m i t ) & & C H F [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " U S D C H F " + p o s t f i x ) ;
}
i f ( ( U S D [ 0 ] < ( L o w e r L i m i t ) & & C H F [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " U S D C H F " + p o s t f i x ) ;
}
i f ( ( G B P [ 0 ] > ( U p p e r L i m i t ) & & U S D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " G B P U S D " + p o s t f i x ) ;
}
i f ( ( G B P [ 0 ] < ( L o w e r L i m i t ) & & U S D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " G B P U S D " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] > ( U p p e r L i m i t ) & & U S D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " E U R U S D " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] < ( L o w e r L i m i t ) & & U S D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " E U R U S D " + p o s t f i x ) ;
}
i f ( ( N Z D [ 0 ] > ( U p p e r L i m i t ) & & U S D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " N Z D U S D " + p o s t f i x ) ;
}
i f ( ( N Z D [ 0 ] < ( L o w e r L i m i t ) & & U S D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " N Z D U S D " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] > ( U p p e r L i m i t ) & & J P Y [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " E U R J P Y " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] < ( L o w e r L i m i t ) & & J P Y [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " E U R J P Y " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] > ( U p p e r L i m i t ) & & C A D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " E U R C A D " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] < ( L o w e r L i m i t ) & & C A D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " E U R C A D " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] > ( U p p e r L i m i t ) & & G B P [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " E U R G B P " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] < ( L o w e r L i m i t ) & & G B P [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " E U R G B P " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] > ( U p p e r L i m i t ) & & C H F [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " E U R C H F " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] < ( L o w e r L i m i t ) & & C H F [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " E U R C H F " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] > ( U p p e r L i m i t ) & & A U D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " E U R A U D " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] < ( L o w e r L i m i t ) & & A U D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " E U R A U D " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] > ( U p p e r L i m i t ) & & N Z D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " E U R N Z D " + p o s t f i x ) ;
}
i f ( ( E U R [ 0 ] < ( L o w e r L i m i t ) & & N Z D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " E U R N Z D " + p o s t f i x ) ;
}
i f ( ( A U D [ 0 ] > ( U p p e r L i m i t ) & & N Z D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " A U D N Z D " + p o s t f i x ) ;
}
i f ( ( A U D [ 0 ] < ( L o w e r L i m i t ) & & N Z D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " A U D N Z D " + p o s t f i x ) ;
}
i f ( ( A U D [ 0 ] > ( U p p e r L i m i t ) & & C A D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " A U D C A D " + p o s t f i x ) ;
}
i f ( ( A U D [ 0 ] < ( L o w e r L i m i t ) & & C A D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " A U D C A D " + p o s t f i x ) ;
}
i f ( ( A U D [ 0 ] > ( U p p e r L i m i t ) & & C H F [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " A U D C H F " + p o s t f i x ) ;
}
i f ( ( A U D [ 0 ] < ( L o w e r L i m i t ) & & C H F [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " A U D C H F " + p o s t f i x ) ;
}
i f ( ( A U D [ 0 ] > ( U p p e r L i m i t ) & & J P Y [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " A U D J P Y " + p o s t f i x ) ;
}
i f ( ( A U D [ 0 ] < ( L o w e r L i m i t ) & & J P Y [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " A U D J P Y " + p o s t f i x ) ;
}
i f ( ( C H F [ 0 ] > ( U p p e r L i m i t ) & & J P Y [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " C H F J P Y " + p o s t f i x ) ;
}
i f ( ( C H F [ 0 ] < ( L o w e r L i m i t ) & & J P Y [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " C H F J P Y " + p o s t f i x ) ;
}
i f ( ( G B P [ 0 ] > ( U p p e r L i m i t ) & & C H F [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " G B P C H F " + p o s t f i x ) ;
}
i f ( ( G B P [ 0 ] < ( L o w e r L i m i t ) & & C H F [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " G B P C H F " + p o s t f i x ) ;
}
i f ( ( G B P [ 0 ] > ( U p p e r L i m i t ) & & A U D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " G B P A U D " + p o s t f i x ) ;
}
i f ( ( G B P [ 0 ] < ( L o w e r L i m i t ) & & A U D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " G B P A U D " + p o s t f i x ) ;
}
i f ( ( G B P [ 0 ] > ( U p p e r L i m i t ) & & C A D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " G B P C A D " + p o s t f i x ) ;
}
i f ( ( G B P [ 0 ] < ( L o w e r L i m i t ) & & C A D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " G B P C A D " + p o s t f i x ) ;
}
i f ( ( G B P [ 0 ] > ( U p p e r L i m i t ) & & J P Y [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " G B P J P Y " + p o s t f i x ) ;
}
i f ( ( G B P [ 0 ] < ( L o w e r L i m i t ) & & J P Y [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " G B P J P Y " + p o s t f i x ) ;
}
i f ( ( C A D [ 0 ] > ( U p p e r L i m i t ) & & J P Y [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " C A D J P Y " + p o s t f i x ) ;
}
i f ( ( C A D [ 0 ] < ( L o w e r L i m i t ) & & J P Y [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " C A D J P Y " + p o s t f i x ) ;
}
i f ( ( N Z D [ 0 ] > ( U p p e r L i m i t ) & & J P Y [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " N Z D J P Y " + p o s t f i x ) ;
}
i f ( ( N Z D [ 0 ] < ( L o w e r L i m i t ) & & J P Y [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " N Z D J P Y " + p o s t f i x ) ;
}
i f ( ( G B P [ 0 ] > ( U p p e r L i m i t ) & & N Z D [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " G B P N Z D " + p o s t f i x ) ;
}
i f ( ( G B P [ 0 ] < ( L o w e r L i m i t ) & & N Z D [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " G B P N Z D " + p o s t f i x ) ;
}
i f ( ( C A D [ 0 ] > ( U p p e r L i m i t ) & & C H F [ 0 ] < ( L o w e r L i m i t ) ) )
{
T r a d e ( " B u y " , p r e f i x + " C A D C H F " + p o s t f i x ) ;
}
i f ( ( C A D [ 0 ] < ( L o w e r L i m i t ) & & C H F [ 0 ] > ( U p p e r L i m i t ) ) )
{
T r a d e ( " S e l l " , p r e f i x + " C A D C H F " + p o s t f i x ) ;
}
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d T r a d e ( s t r i n g s i g , s t r i n g s y m b )
{
i f ( ! R e f r e s h ( s y m b ) )
r e t u r n ;
d o u b l e a s k = S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ A S K ) ;
d o u b l e b i d = S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ B I D ) ;
d o u b l e p o i n t = S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ P O I N T ) ;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m b , S Y M B O L _ D I G I T S ) ;
d o u b l e S L b u y = 0 , T P b u y = 0 , S L s e l l = 0 , T P s e l l = 0 ;
d o u b l e a t r P i p s = N o r m a l i z e D o u b l e ( A T R ( s y m b , 1 ) , d i g i t s ) ;
i f ( S L T P = = i n A T R )
{
i f ( S t o p l o s s > 0 )
{
S L b u y = N o r m a l i z e D o u b l e ( a s k - S t o p l o s s * a t r P i p s , d i g i t s ) ;
S L s e l l = N o r m a l i z e D o u b l e ( b i d + S t o p l o s s * a t r P i p s , d i g i t s ) ;
}
i f ( T a k e p r o f i t > 0 )
{
T P b u y = N o r m a l i z e D o u b l e ( a s k + T a k e p r o f i t * a t r P i p s , d i g i t s ) ;
T P s e l l = N o r m a l i z e D o u b l e ( b i d - T a k e p r o f i t * a t r P i p s , d i g i t s ) ;
}
}
e l s e
i f ( S L T P = = i n P i p s )
{
i f ( S t o p l o s s > 0 )
{
S L b u y = N o r m a l i z e D o u b l e ( a s k - S t o p l o s s * p o i n t , d i g i t s ) ; / / S t o p L o s s s p e c i f i e d
S L s e l l = N o r m a l i z e D o u b l e ( b i d + S t o p l o s s * p o i n t , d i g i t s ) ; / / S t o p L o s s s p e c i f i e d
}
i f ( T a k e p r o f i t > 0 )
{
T P b u y = N o r m a l i z e D o u b l e ( a s k + T a k e p r o f i t * p o i n t , d i g i t s ) ; / / T a k e P r o f i t s p e c i f i e d
T P s e l l = N o r m a l i z e D o u b l e ( b i d - T a k e p r o f i t * p o i n t , d i g i t s ) ; / / T a k e P r o f i t s p e c i f i e d
}
}
i n t c o u n t O p e n = 0 , c o u n t S y m = 0 ;
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( P o s i t i o n G e t T i c k e t ( i ) ) / / s e l e c t s t h e p o s i t i o n b y i n d e x f o r f u r t h e r a c c e s s t o i t s p r o p e r t i e s
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) = = i M a g i c N u m b e r )
c o u n t S y m + + ;
i f ( P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) = = s y m b )
{
c o u n t O p e n + + ;
}
}
}
i f ( T i m e s ( ) )
i f ( c o u n t S y m < m a x T r a d e d S y m b o l s )
i f ( I s M a r k e t O p e n ( s y m b , f a l s e ) )
i f ( ! H i s t o r y ( s y m b ) )
i f ( ! c o u n t O p e n )
{
i f ( s i g = = " B u y " )
{
i f ( C h e c k M o n e y F o r T r a d e ( s y m b , L o t A u t o ( s y m b ) , O R D E R _ T Y P E _ B U Y ) & & C h e c k V o l u m e V a l u e ( s y m b , L o t A u t o ( s y m b ) ) )
t r a d e . B u y ( L o t A u t o ( s y m b ) , s y m b , a s k , S L b u y , T P b u y , C o m m e n t a r y ) ;
}
e l s e
i f ( s i g = = " S e l l " )
{
i f ( C h e c k M o n e y F o r T r a d e ( s y m b , L o t A u t o ( s y m b ) , O R D E R _ T Y P E _ S E L L ) & & C h e c k V o l u m e V a l u e ( s y m b , L o t A u t o ( s y m b ) ) )
t r a d e . S e l l ( L o t A u t o ( s y m b ) , s y m b , b i d , S L s e l l , T P s e l l , C o m m e n t a r y ) ;
}
}
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l c r e a t e B a c k g r o u n d ( s t r i n g n a m e )
{
O b j e c t C r e a t e ( c h a r t I D , n a m e , 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 , n a m e , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ Y D I S T A N C E , 2 0 ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ X S I Z E , 1 2 0 ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ Y S I Z E , 2 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 , 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 ( c h a r t I D , 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 W h i t e S m o k e ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ B O R D E R _ T Y P E , B O R D E R _ R A I S E D ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ W I D T H , 0 ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , 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 ( c h a r t I D , n a m e , O B J P R O P _ S E L E C T A B L E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ H I D D E N , t r u e ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l c r e a t e O b j e c t ( s t r i n g n a m e , s t r i n g t e x t , i n t x , i n t y , i n t s i z e , i n t c l r )
{
O b j e c t C r e a t e ( c h a r t I D , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , 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 ( c h a r t I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , 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 S t r i n g ( c h a r t I D , 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 ( c h a r t I D , n a m e , O B J P R O P _ F O N T S I Z E , s i z e ) ;
O b j e c t S e t I n t e g e r ( c h a r t I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d S t r e n g t h ( )
{
i n t t 1 , t 2 = 0 ;
A r r a y R e s i z e ( T d , 8 ) ;
A r r a y I n i t i a l i z e ( c c y _ s t r e n g t h , 0 . 0 ) ;
A r r a y I n i t i a l i z e ( c c y _ c o u n t , 0 ) ;
f o r ( i n t i = 0 ; i < 4 0 ; i + + )
{
i n t h i _ b a r , l o _ b a r ;
d o u b l e c u r r _ b i d , c a n d l e _ h i g h , c a n d l e _ l o w , b i d _ r a t i o ;
d o u b l e C a n d l e S u m = N u m b e r O f C a n d l e s * ( N u m b e r O f C a n d l e s + 1 ) / 2 ;
c u r r _ b i d = S y m b o l I n f o D o u b l e ( C P [ i ] , S Y M B O L _ B I D ) ;
i f ( c u r r _ b i d = = 0 )
c u r r _ b i d = i C l o s e ( C P [ i ] , t m f , H i s t o r i c a l S h i f t ) ;
i f ( A p p l y S m o o t h i n g )
{
b i d _ r a t i o = 0 ;
f o r ( i n t k = 1 ; k < = N u m b e r O f C a n d l e s ; k + + )
{
h i _ b a r = i H i g h e s t ( C P [ i ] , t m f , M O D E _ H I G H , k , H i s t o r i c a l S h i f t ) ;
l o _ b a r = i L o w e s t ( C P [ i ] , t m f , M O D E _ L O W , k , H i s t o r i c a l S h i f t ) ;
c a n d l e _ h i g h = i H i g h ( C P [ i ] , t m f , h i _ b a r ) ;
c a n d l e _ l o w = i L o w ( C P [ i ] , t m f , l o _ b a r ) ;
i f ( T r i a n g u l a r W e i g h t i n g )
b i d _ r a t i o + = D i v Z e r o ( c u r r _ b i d - c a n d l e _ l o w , c a n d l e _ h i g h - c a n d l e _ l o w ) * ( N u m b e r O f C a n d l e s + 1 - k ) / C a n d l e S u m ;
e l s e
b i d _ r a t i o + = D i v Z e r o ( c u r r _ b i d - c a n d l e _ l o w , c a n d l e _ h i g h - c a n d l e _ l o w ) / N u m b e r O f C a n d l e s ;
}
}
e l s e
{
h i _ b a r = i H i g h e s t ( C P [ i ] , t m f , M O D E _ H I G H , N u m b e r O f C a n d l e s , H i s t o r i c a l S h i f t ) ;
l o _ b a r = i L o w e s t ( C P [ i ] , t m f , M O D E _ L O W , N u m b e r O f C a n d l e s , H i s t o r i c a l S h i f t ) ;
c a n d l e _ h i g h = i H i g h ( C P [ i ] , t m f , h i _ b a r ) ;
c a n d l e _ l o w = i L o w ( C P [ i ] , t m f , l o _ b a r ) ;
b i d _ r a t i o = D i v Z e r o ( c u r r _ b i d - c a n d l e _ l o w , c a n d l e _ h i g h - c a n d l e _ l o w ) ;
}
/ *
d o u b l e d a y _ h i g h = S y m b o l I n f o D o u b l e ( C P [ i ] , S Y M B O L _ B I D H I G H ) ;
d o u b l e d a y _ l o w = S y m b o l I n f o D o u b l e ( C P [ i ] , S Y M B O L _ B I D L O W ) ;
d o u b l e c u r r _ b i d = S y m b o l I n f o D o u b l e ( C P [ i ] , S Y M B O L _ B I D ) ;
d o u b l e b i d _ r a t i o = D i v Z e r o ( c u r r _ b i d - d a y _ l o w , d a y _ h i g h - d a y _ l o w ) ;
* /
d o u b l e i n d _ s t r e n g t h = 0 ;
i f ( b i d _ r a t i o > = 0 . 9 7 )
i n d _ s t r e n g t h = 9 ;
e l s e
i f ( b i d _ r a t i o > = 0 . 9 0 )
i n d _ s t r e n g t h = 8 ;
e l s e
i f ( b i d _ r a t i o > = 0 . 7 5 )
i n d _ s t r e n g t h = 7 ;
e l s e
i f ( b i d _ r a t i o > = 0 . 6 0 )
i n d _ s t r e n g t h = 6 ;
e l s e
i f ( b i d _ r a t i o > = 0 . 5 0 )
i n d _ s t r e n g t h = 5 ;
e l s e
i f ( b i d _ r a t i o > = 0 . 4 0 )
i n d _ s t r e n g t h = 4 ;
e l s e
i f ( b i d _ r a t i o > = 0 . 2 5 )
i n d _ s t r e n g t h = 3 ;
e l s e
i f ( b i d _ r a t i o > = 0 . 1 0 )
i n d _ s t r e n g t h = 2 ;
e l s e
i f ( b i d _ r a t i o > = 0 . 0 3 )
i n d _ s t r e n g t h = 1 ;
s t r i n g t e m p = S t r i n g S u b s t r ( C P [ i ] , 0 , 3 ) ;
f o r ( i n t j = 0 ; j < = 7 ; j + + )
{
i f ( C u r r e n c y [ j ] = = t e m p )
{
c c y _ s t r e n g t h [ j ] + = i n d _ s t r e n g t h ;
c c y _ c o u n t [ j ] + = 1 ;
b r e a k ;
}
}
t e m p = S t r i n g S u b s t r ( C P [ i ] , 3 , 3 ) ;
f o r ( i n t j = 0 ; j < = 7 ; j + + )
{
i f ( C u r r e n c y [ j ] = = t e m p )
{
c c y _ s t r e n g t h [ j ] + = 9 - i n d _ s t r e n g t h ;
c c y _ c o u n t [ j ] + = 1 ;
b r e a k ;
}
}
}
t 1 = 0 ;
w h i l e ( t 1 < = 7 )
{
T d [ t 1 ] [ 0 ] = D i v Z e r o ( c c y _ s t r e n g t h [ t 1 ] , c c y _ c o u n t [ t 1 ] ) ;
T d [ t 1 ] [ 1 ] = t 1 ;
t 1 + + ;
}
U S D [ 0 ] = T d [ 0 ] [ 0 ] ;
E U R [ 0 ] = T d [ 1 ] [ 0 ] ;
G B P [ 0 ] = T d [ 2 ] [ 0 ] ;
C H F [ 0 ] = T d [ 3 ] [ 0 ] ;
C A D [ 0 ] = T d [ 4 ] [ 0 ] ;
A U D [ 0 ] = T d [ 5 ] [ 0 ] ;
J P Y [ 0 ] = T d [ 6 ] [ 0 ] ;
N Z D [ 0 ] = T d [ 7 ] [ 0 ] ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e D i v Z e r o ( d o u b l e n , d o u b l e d )
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / D i v i d e s N b y D , a n d r e t u r n s 0 i f t h e d e n o m i n a t o r ( D ) = 0
/ / U s a g e : d o u b l e x = D i v Z e r o ( y , z ) s e t s x = y / z
{
i f ( d = = 0 )
r e t u r n ( 0 ) ;
e l s e
r e t u r n ( n / d ) ;
}
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / * * /
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
b o o l C h e c k V o l u m e V a l u e ( s t r i n g s y m b o l , d o u b l e v o l u m e )
{
d o u b l e m i n _ v o l u m e = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M I N ) ;
i f ( v o l u m e < m i n _ v o l u m e )
r e t u r n ( f a l s e ) ;
d o u b l e m a x _ v o l u m e = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M A X ) ;
i f ( v o l u m e > m a x _ v o l u m e )
r e t u r n ( f a l s e ) ;
d o u b l e v o l u m e _ s t e p = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ S T E P ) ;
i n t r a t i o = ( i n t ) M a t h R o u n d ( v o l u m e / v o l u m e _ s t e p ) ;
i f ( M a t h A b s ( r a t i o * v o l u m e _ s t e p - v o l u m e ) > 0 . 0 0 0 0 0 0 1 )
r e t u r n ( f a l s e ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C h e c k M o n e y F o r T r a d e ( s t r i n g s y m b , d o u b l e l o t s , E N U M _ O R D E R _ T Y P E t y p e )
{
/ / - - - G e t t i n g t h e o p e n i n g p r i c e
M q l T i c k m q l t i c k ;
S y m b o l I n f o T i c k ( s y m b , m q l t i c k ) ;
d o u b l e p r i c e = m q l t i c k . a s k ;
i f ( t y p e = = O R D E R _ T Y P E _ S E L L )
p r i c e = m q l t i c k . b i d ;
/ / - - - v a l u e s o f t h e r e q u i r e d a n d f r e e m a r g i n
d o u b l e m a r g i n , f r e e _ m a r g i n = A c c o u n t I n f o D o u b l e ( A C C O U N T _ M A R G I N _ F R E E ) ;
/ / - - - c a l l o f t h e c h e c k i n g f u n c t i o n
i f ( ! O r d e r C a l c M a r g i n ( t y p e , s y m b , l o t s , p r i c e , m a r g i n ) )
{
/ / - - - s o m e t h i n g w e n t w r o n g , r e p o r t a n d r e t u r n f a l s e
r e t u r n ( f a l s e ) ;
}
/ / - - - i f t h e r e a r e i n s u f f i c i e n t f u n d s t o p e r f o r m t h e o p e r a t i o n
i f ( m a r g i n > f r e e _ m a r g i n )
{
/ / - - - r e p o r t t h e e r r o r a n d r e t u r n f a l s e
r e t u r n ( f a l s e ) ;
}
/ / - - - c h e c k i n g s u c c e s s f u l
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l T i m e s ( )
{
s t r i n g n o w ;
s w i t c h ( T i m e M o d e )
{
c a s e S e r v e r :
{
n o w = T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S ) ;
b r e a k ;
}
c a s e G M T :
{
n o w = T i m e T o S t r i n g ( T i m e G M T ( ) , T I M E _ M I N U T E S ) ;
b r e a k ;
}
c a s e L o c a l :
{
n o w = T i m e T o S t r i n g ( T i m e L o c a l ( ) , T I M E _ M I N U T E S ) ;
b r e a k ;
}
}
i f ( S t a r t T i m e < E n d T i m e )
i f ( ( n o w < S t a r t T i m e ) | | ( n o w > = E n d T i m e ) )
r e t u r n ( f a l s e ) ;
i f ( S t a r t T i m e > E n d T i m e )
i f ( ( n o w < E n d T i m e ) | | ( n o w > = S t a r t T i m e ) )
r e t u r n ( f a l s e ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d T r a i l i n g ( s t r i n g s y m b )
{
d o u b l e a s k = S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ A S K ) ;
d o u b l e b i d = S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ B I D ) ;
d o u b l e p o i n t s = S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ P O I N T ) ;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m b , S Y M B O L _ D I G I T S ) ;
i n t b = 0 , s = 0 ;
u l o n g T i c k e t B = 0 , T i c k e t S = 0 ;
d o u b l e T P b = 0 , S L b = 0 , O P b = 0 ;
d o u b l e T P s = 0 , S L s = 0 , O P s = 0 ;
d o u b l e S t o p L e v e l = ( ( i n t ) S y m b o l I n f o I n t e g e r ( s y m b , S Y M B O L _ T R A D E _ S T O P S _ L E V E L ) ) * p o i n t s ;
d o u b l e T S t o p = T r a i l i n g S t o p * p o i n t s + S t o p L e v e l ;
d o u b l e T S t e p = T r a i l i n g S t e p * p o i n t s + S t o p L e v e l ;
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( P o s i t i o n G e t T i c k e t ( i ) ) / / s e l e c t s t h e p o s i t i o n b y i n d e x f o r f u r t h e r a c c e s s t o i t s p r o p e r t i e s
i f ( P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) = = s y m b )
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) = = i M a g i c N u m b e r )
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ B U Y )
{
b + + ;
T i c k e t B = P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I C K E T ) ;
T P b = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) ;
S L b = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ S L ) ;
O P b = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R I C E _ O P E N ) ;
}
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ S E L L )
{
s + + ;
T i c k e t S = P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I C K E T ) ;
T P s = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) ;
S L s = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ S L ) ;
O P s = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R I C E _ O P E N ) ;
}
}
/ / - - -
i f ( b = = 1 )
{
i f ( b i d - O P b > T S t o p + T S t e p & & ( S L b < O P b | | S L b = = 0 ) )
{
i f ( t r a d e . P o s i t i o n M o d i f y ( T i c k e t B , N o r m a l i z e D o u b l e ( b i d - T S t o p , d i g i t s ) , T P b ) )
P r i n t ( s y m b + " T r a i l i n g 1 S u c c e s s " ) ;
e l s e
P r i n t ( s y m b + " T r a i l i n g 1 F a i l e d " + I n t e g e r T o S t r i n g ( G e t L a s t E r r o r ( ) ) ) ;
}
i f ( S L b ! = 0 & & S L b > O P b & & b i d - S L b > T S t o p + T S t e p )
{
i f ( t r a d e . P o s i t i o n M o d i f y ( T i c k e t B , N o r m a l i z e D o u b l e ( b i d - T S t o p , d i g i t s ) , T P b ) )
P r i n t ( s y m b + " T r a i l i n g 2 S u c c e s s " ) ;
e l s e
P r i n t ( s y m b + " T r a i l i n g 2 F a i l e d " + I n t e g e r T o S t r i n g ( G e t L a s t E r r o r ( ) ) ) ;
}
}
i f ( s = = 1 )
{
i f ( O P s - a s k > T S t o p + T S t e p & & ( S L s > O P s | | S L s = = 0 ) )
{
i f ( t r a d e . P o s i t i o n M o d i f y ( T i c k e t S , N o r m a l i z e D o u b l e ( a s k + T S t o p , d i g i t s ) , T P s ) )
P r i n t ( s y m b + " T r a i l i n g 1 S u c c e s s " ) ;
e l s e
P r i n t ( s y m b + " T r a i l i n g 1 F a i l e d " + I n t e g e r T o S t r i n g ( G e t L a s t E r r o r ( ) ) ) ;
}
i f ( S L s ! = 0 & & S L s < O P s & & S L s - a s k > T S t o p + T S t e p )
{
i f ( t r a d e . P o s i t i o n M o d i f y ( T i c k e t S , N o r m a l i z e D o u b l e ( a s k + T S t o p , d i g i t s ) , T P s ) )
P r i n t ( s y m b + " T r a i l i n g 2 S u c c e s s " ) ;
e l s e
P r i n t ( s y m b + " T r a i l i n g 2 F a i l e d " + I n t e g e r T o S t r i n g ( G e t L a s t E r r o r ( ) ) ) ;
}
}
R e s e t L a s t E r r o r ( ) ;
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l R e f r e s h ( s t r i n g s y m b o l )
{
i f ( S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ A S K ) = = 0 | | S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ B I D ) = = 0 )
r e t u r n ( f a l s e ) ;
/ / - - - s u c c e e d
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e A T R ( s t r i n g s y m b , i n t i n d e x )
{
d o u b l e a r r [ ] ;
A r r a y S e t A s S e r i e s ( a r r , t r u e ) ;
i n t h a n d l e = i A T R ( s y m b , A T R T F , A T R P e r i o d ) ;
i n t c o p i e d = C o p y B u f f e r ( h a n d l e , 0 , i n d e x , 7 , a r r ) ;
r e t u r n ( a r r [ i n d e x ] ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d M a r t i n ( s t r i n g s y m b )
{
d o u b l e a s k = S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ A S K ) ;
d o u b l e b i d = S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ B I D ) ;
d o u b l e p o i n t = S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ P O I N T ) ;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m b , S Y M B O L _ D I G I T S ) ;
i f ( d i g i t s = = 3 | | d i g i t s = = 5 )
p o i n t = 1 0 * p o i n t ;
e l s e
p o i n t = p o i n t ;
d o u b l e
B u y P r i c e M a x = 0 , B u y P r i c e M i n = 0 , B u y P r i c e M a x L o t = 0 , B u y P r i c e M i n L o t = 0 ,
S e l P r i c e M i n = 0 , S e l P r i c e M a x = 0 , S e l P r i c e M i n L o t = 0 , S e l P r i c e M a x L o t = 0 ;
u l o n g
B u y P r i c e M a x T i c = 0 , B u y P r i c e M i n T i c = 0 , S e l P r i c e M a x T i c = 0 , S e l P r i c e M i n T i c = 0 ;
u l o n g t k b = 0 , t k s = 0 ;
d o u b l e
o p P r i c e = 0 , l t = 0 , t p b = 0 , t p s = 0 , s l b = 0 , s l s = 0 ;
i n t O p e n P o s = 0 , b = 0 , s = 0 ;
f o r ( i n t k = P o s i t i o n s T o t a l ( ) - 1 ; k > = 0 ; k - - )
{
i f ( P o s i t i o n G e t T i c k e t ( k ) )
{
i f ( P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) = = s y m b )
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) = = i M a g i c N u m b e r )
{
O p e n P o s + + ;
o p P r i c e = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R I C E _ O P E N ) , d i g i t s ) ;
l t = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ V O L U M E ) , 2 ) ;
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ B U Y )
{
b + + ;
t p b = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) , d i g i t s ) ;
s l b = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ S L ) , d i g i t s ) ;
t k b = P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I C K E T ) ;
i f ( o p P r i c e > B u y P r i c e M a x | | B u y P r i c e M a x = = 0 )
{
B u y P r i c e M a x = o p P r i c e ;
B u y P r i c e M a x L o t = l t ;
B u y P r i c e M a x T i c = t k b ;
}
i f ( o p P r i c e < B u y P r i c e M i n | | B u y P r i c e M i n = = 0 )
{
B u y P r i c e M i n = o p P r i c e ;
B u y P r i c e M i n L o t = l t ;
B u y P r i c e M i n T i c = t k b ;
}
}
/ / = = =
e l s e
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ S E L L )
{
s + + ;
t p s = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) , d i g i t s ) ;
s l s = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ S L ) , d i g i t s ) ;
t k s = P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I C K E T ) ;
i f ( o p P r i c e > S e l P r i c e M a x | | S e l P r i c e M a x = = 0 )
{
S e l P r i c e M a x = o p P r i c e ;
S e l P r i c e M a x L o t = l t ;
S e l P r i c e M a x T i c = t k s ;
}
i f ( o p P r i c e < S e l P r i c e M i n | | S e l P r i c e M i n = = 0 )
{
S e l P r i c e M i n = o p P r i c e ;
S e l P r i c e M i n L o t = l t ;
S e l P r i c e M i n T i c = t k s ;
}
}
}
}
}
}
d o u b l e n n = 0 , b b = 0 ;
d o u b l e f a c t b = 0 . 0 ;
f o r ( i n t u i = P o s i t i o n s T o t a l ( ) - 1 ; u i > = 0 ; u i - - )
{
i f ( P o s i t i o n G e t T i c k e t ( u i ) )
{
i f ( P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) = = s y m b )
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ B U Y & & P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) = = i M a g i c N u m b e r )
{
d o u b l e o p = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R I C E _ O P E N ) , d i g i t s ) ;
d o u b l e l l o t = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ V O L U M E ) , 2 ) ;
d o u b l e i t o g = o p * l l o t ;
b b = b b + i t o g ;
n n = n n + l l o t ;
f a c t b = b b / n n ;
}
}
}
}
d o u b l e n n n = 0 , b b b = 0 ;
d o u b l e f a c t s = 0 . 0 ;
f o r ( i n t u s i = P o s i t i o n s T o t a l ( ) - 1 ; u s i > = 0 ; u s i - - )
{
i f ( P o s i t i o n G e t T i c k e t ( u s i ) )
{
i f ( P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) = = s y m b )
{
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ S E L L & & P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) = = i M a g i c N u m b e r )
{
d o u b l e o p s = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R I C E _ O P E N ) , d i g i t s ) ;
d o u b l e l l o t s = N o r m a l i z e D o u b l e ( P o s i t i o n G e t D o u b l e ( P O S I T I O N _ V O L U M E ) , 2 ) ;
d o u b l e i t o g s = o p s * l l o t s ;
b b b = b b b + i t o g s ;
n n n = n n n + l l o t s ;
f a c t s = b b b / n n n ;
}
}
}
}
d o u b l e P S t e p = 0 ;
d o u b l e a t r P i p s = N o r m a l i z e D o u b l e ( A T R ( s y m b , 1 ) , d i g i t s ) ;
i f ( P i p S t e p M o d e = = i n A T R )
{
P S t e p = P i p S t e p * a t r P i p s ;
}
e l s e
i f ( P i p S t e p M o d e = = i n P i p s )
{
P S t e p = P i p S t e p * p o i n t ;
}
i f ( O p e n P o s > = S t a r t P S M A f t e r )
P S t e p = P S t e p * P S M * ( O p e n P o s - S t a r t P S M A f t e r + 1 ) ;
e l s e
P S t e p = P S t e p ;
d o u b l e n e x t L o t = N o r m a l i z e D o u b l e ( L a s t O r d e r L o t ( s y m b ) * M u l t i p l i e r , 2 ) ;
i f ( b > 0 )
{
i f ( B u y P r i c e M i n - a s k > = P S t e p )
{
i f ( C h e c k M o n e y F o r T r a d e ( s y m b , n e x t L o t , O R D E R _ T Y P E _ B U Y ) & & C h e c k V o l u m e V a l u e ( s y m b , n e x t L o t ) )
{
i f ( t r a d e . B u y ( n e x t L o t , s y m b , a s k , 0 , 0 , C o m m e n t a r y ) )
P r i n t ( s y m b + " A v e r a g i n g S u c c e s s " ) ;
e l s e
P r i n t ( s y m b + " A v e r a g i n g F a i l e d " + I n t e g e r T o S t r i n g ( G e t L a s t E r r o r ( ) ) ) ;
}
}
}
i f ( s > 0 )
{
i f ( b i d - S e l P r i c e M a x > = P S t e p )
{
i f ( C h e c k M o n e y F o r T r a d e ( s y m b , n e x t L o t , O R D E R _ T Y P E _ S E L L ) & & C h e c k V o l u m e V a l u e ( s y m b , n e x t L o t ) )
{
i f ( t r a d e . S e l l ( n e x t L o t , s y m b , b i d , 0 , 0 , C o m m e n t a r y ) )
P r i n t ( s y m b + " A v e r a g i n g S u c c e s s " ) ;
e l s e
P r i n t ( s y m b + " A v e r a g i n g F a i l e d " + I n t e g e r T o S t r i n g ( G e t L a s t E r r o r ( ) ) ) ;
}
}
}
d o u b l e C O R R = 0 ;
C O R R = N o r m a l i z e D o u b l e ( T P P l u s * p o i n t , d i g i t s ) ;
f o r ( i n t u u i = P o s i t i o n s T o t a l ( ) - 1 ; u u i > = 0 ; u u i - - )
{
i f ( P o s i t i o n G e t T i c k e t ( u u i ) )
{
i f ( P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) = = s y m b )
{
i f ( b > = 2 & & P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ B U Y & & P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) = = i M a g i c N u m b e r )
{
i f ( ! c o m p a r e D o u b l e s ( s y m b , P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) , f a c t b + C O R R ) )
{
i f ( t r a d e . P o s i t i o n M o d i f y ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I C K E T ) , s l b , f a c t b + C O R R ) )
P r i n t ( s y m b + " M o d i f y T P A v e r a g e S u c c e s s " ) ;
e l s e
P r i n t ( s y m b + " M o d i f y T P A v e r a g e F a i l e d " + I n t e g e r T o S t r i n g ( G e t L a s t E r r o r ( ) ) ) ;
}
}
i f ( s > = 2 & & P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T Y P E ) = = P O S I T I O N _ T Y P E _ S E L L & & P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) = = i M a g i c N u m b e r )
{
i f ( ! c o m p a r e D o u b l e s ( s y m b , P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) , f a c t s - C O R R ) )
{
i f ( t r a d e . P o s i t i o n M o d i f y ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I C K E T ) , s l s , f a c t s - C O R R ) )
P r i n t ( s y m b + " M o d i f y T P A v e r a g e S u c c e s s " ) ;
e l s e
P r i n t ( s y m b + " M o d i f y T P A v e r a g e F a i l e d " + I n t e g e r T o S t r i n g ( G e t L a s t E r r o r ( ) ) ) ;
}
}
}
}
}
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e L a s t O r d e r L o t ( s t r i n g s y m b )
{
l o n g l a s t O r d e r T i m e = 0 ;
d o u b l e l o t = 9 9 9 9 ;
d o u b l e f i r s t l o t = 0 ;
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( P o s i t i o n G e t T i c k e t ( i ) ) / / s e l e c t s t h e p o s i t i o n b y i n d e x f o r f u r t h e r a c c e s s t o i t s p r o p e r t i e s
{
i f ( P o s i t i o n G e t S t r i n g ( P O S I T I O N _ S Y M B O L ) = = s y m b )
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ M A G I C ) = = i M a g i c N u m b e r )
i f ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I M E ) > l a s t O r d e r T i m e )
{
l a s t O r d e r T i m e = P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I M E ) ;
f i r s t l o t = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ V O L U M E ) ;
}
e l s e
c o n t i n u e ;
}
e l s e
c o n t i n u e ;
}
r e t u r n ( f i r s t l o t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l c o m p a r e D o u b l e s ( s t r i n g s y m b , d o u b l e v a l 1 , d o u b l e v a l 2 )
{
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( s y m b , S Y M B O L _ D I G I T S ) ;
i f ( N o r m a l i z e D o u b l e ( v a l 1 - v a l 2 , d i g i t s - 1 ) = = 0 )
r e t u r n ( t r u e ) ;
r e t u r n ( f a l s e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e L o t A u t o ( s t r i n g s y m b )
{
d o u b l e l o t v a l u e = 0 ;
d o u b l e M a r g i n = A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) ;
i f ( A u t o l o t )
l o t v a l u e = M a t h M i n ( M a t h M a x ( ( M a t h R o u n d ( ( M a r g i n * R i s k P e r c e n t / 1 0 0 / 1 0 0 0 ) / S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ V O L U M E _ S T E P ) ) * S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ V O L U M E _ S T E P ) ) , S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ V O L U M E _ M I N ) ) , S y m b o l I n f o D o u b l e ( s y m b , S Y M B O L _ V O L U M E _ M A X ) ) ;
e l s e
l o t v a l u e = N o r m a l i z e D o u b l e ( L o t , 2 ) ;
r e t u r n ( l o t v a l u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t S t r i n g F i n d C o u n t ( s t r i n g s t r , s t r i n g s t r 2 )
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / R e t u r n s t h e n u m b e r o f o c c u r r e n c e s o f S T R 2 i n S T R
/ / U s a g e : i n t x = S t r i n g F i n d C o u n t ( " A B C D E F G H I J K A B A C A B B " , " A B " ) r e t u r n s x = 3
{
i n t c = 0 ;
f o r ( i n t i = 0 ; i < S t r i n g L e n ( s t r ) ; i + + )
i f ( S t r i n g S u b s t r ( s t r , i , S t r i n g L e n ( s t r 2 ) ) = = s t r 2 )
c + + ;
r e t u r n ( c ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g S t r i n g U p p e r ( s t r i n g s t r )
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / C o n v e r t s a n y l o w e r c a s e c h a r a c t e r s i n a s t r i n g t o u p p e r c a s e
/ / U s a g e : s t r i n g x = S t r i n g U p p e r ( " T h e Q u i c k B r o w n F o x " ) r e t u r n s x = " T H E Q U I C K B R O W N F O X "
{
s t r i n g o u t s t r = " " ;
s t r i n g l o w e r = " a b c d e f g h i j k l m n o p q r s t u v w x y z " ;
s t r i n g u p p e r = " A B C D E F G H I J K L M N O P Q R S T U V W X Y Z " ;
f o r ( i n t i = 0 ; i < S t r i n g L e n ( s t r ) ; i + + )
{
i n t t 1 = S t r i n g F i n d ( l o w e r , S t r i n g S u b s t r ( s t r , i , 1 ) , 0 ) ;
i f ( t 1 > = 0 )
o u t s t r = o u t s t r + S t r i n g S u b s t r ( u p p e r , t 1 , 1 ) ;
e l s e
o u t s t r = o u t s t r + S t r i n g S u b s t r ( s t r , i , 1 ) ;
}
r e t u r n ( o u t s t r ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g S t r i n g L o w e r ( s t r i n g s t r )
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / C o n v e r t s a n y u p p e r c a s e c h a r a c t e r s i n a s t r i n g t o l o w e r c a s e
/ / U s a g e : s t r i n g x = S t r i n g U p p e r ( " T h e Q u i c k B r o w n F o x " ) r e t u r n s x = " t h e q u i c k b r o w n f o x "
{
s t r i n g o u t s t r = " " ;
s t r i n g l o w e r = " a b c d e f g h i j k l m n o p q r s t u v w x y z " ;
s t r i n g u p p e r = " A B C D E F G H I J K L M N O P Q R S T U V W X Y Z " ;
f o r ( i n t i = 0 ; i < S t r i n g L e n ( s t r ) ; i + + )
{
i n t t 1 = S t r i n g F i n d ( u p p e r , S t r i n g S u b s t r ( s t r , i , 1 ) , 0 ) ;
i f ( t 1 > = 0 )
o u t s t r = o u t s t r + S t r i n g S u b s t r ( l o w e r , t 1 , 1 ) ;
e l s e
o u t s t r = o u t s t r + S t r i n g S u b s t r ( s t r , i , 1 ) ;
}
r e t u r n ( o u t s t r ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g S t r i n g T r i m ( s t r i n g s t r )
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / R e m o v e s a l l s p a c e s ( l e a d i n g , t r a i n g e m b e d d e d ) f r o m a s t r i n g
/ / U s a g e : s t r i n g x = S t r i n g U p p e r ( " T h e Q u i c k B r o w n F o x " ) r e t u r n s x = " T h e Q u i c k B r o w n F o x "
{
s t r i n g o u t s t r = " " ;
f o r ( i n t i = 0 ; i < S t r i n g L e n ( s t r ) ; i + + )
{
i f ( S t r i n g S u b s t r ( s t r , i , 1 ) ! = " " )
o u t s t r = o u t s t r + S t r i n g S u b s t r ( s t r , i , 1 ) ;
}
r e t u r n ( o u t s t r ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g E x p a n d C c y ( s t r i n g s t r )
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
{
s t r = S t r i n g T r i m ( S t r i n g U p p e r ( s t r ) ) ;
i f ( S t r i n g L e n ( s t r ) < 1 | | S t r i n g L e n ( s t r ) > 2 )
r e t u r n ( s t r ) ;
s t r i n g s t r 2 = " " ;
f o r ( i n t i = 0 ; i < S t r i n g L e n ( s t r ) ; i + + )
{
s t r i n g s 1 = S t r i n g S u b s t r ( s t r , i , 1 ) ;
i f ( s 1 = = " A " )
s t r 2 = s t r 2 + " A U D " ;
e l s e
i f ( s 1 = = " C " )
s t r 2 = s t r 2 + " C A D " ;
e l s e
i f ( s 1 = = " E " )
s t r 2 = s t r 2 + " E U R " ;
e l s e
i f ( s 1 = = " F " )
s t r 2 = s t r 2 + " C H F " ;
e l s e
i f ( s 1 = = " G " )
s t r 2 = s t r 2 + " G B P " ;
e l s e
i f ( s 1 = = " J " )
s t r 2 = s t r 2 + " J P Y " ;
e l s e
i f ( s 1 = = " N " )
s t r 2 = s t r 2 + " N Z D " ;
e l s e
i f ( s 1 = = " U " )
s t r 2 = s t r 2 + " U S D " ;
e l s e
i f ( s 1 = = " H " )
s t r 2 = s t r 2 + " H K D " ;
e l s e
i f ( s 1 = = " S " )
s t r 2 = s t r 2 + " S G D " ;
e l s e
i f ( s 1 = = " Z " )
s t r 2 = s t r 2 + " Z A R " ;
}
r e t u r n ( s t r 2 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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
---