2
Views
0
Downloads
0
Favorites
GbpChf 4
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | G b p C h f 4 . m q 4 |
/ / | C o p y r i g h t 2 0 1 9 , B a s k a k o v V l a d i m i r |
/ / | h t t p s : / / w w w . m q l 5 . c o m / r u / u s e r s / k a l i p s o 1 9 7 9 |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# 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 1 9 , B a s k a k o v V l a d i m i r "
# 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 / r u / u s e r s / k a l i p s o 1 9 7 9 "
# p r o p e r t y v e r s i o n " 1 . 0 0 "
# p r o p e r t y s t r i c t
i n p u t d o u b l e _ L o t s = 0 . 0 1 ; / / L o t s
i n p u t i n t _ S L = 9 0 ; / / S t o p L o s s
i n p u t i n t _ T P = 4 5 ; / / T a k e P r o f i t
i n p u t i n t _ M a g i c N u m b e r = 8 3 8 3 ; / / M a g i c
i n p u t s t r i n g _ C o m m e n t = " G b p C h f E A " ; / / C o m m e n t s
i n t _ S l i p p a g e = 5 ;
b o o l _ O n l y O n e O p e n e d P o s = t r u e ;
b o o l _ A u t o D i g i t s = t r u e ;
/ / - - -
/ / M A C D _ g b p _ 1
i n t f a s t _ e m a = 1 2 ;
i n t s l o w _ e m a = 2 6 ;
i n t m a c d _ s m a = 9 ;
i n t a p p l y = 0 ;
/ / - - -
/ / M A C D _ c h f _ 1
i n t f a s t _ e m a _ 2 = 1 2 ;
i n t s l o w _ e m a _ 2 = 2 6 ;
i n t m a c d _ s m a _ 2 = 9 ;
i n t a p p l y _ 2 = 0 ;
/ / - - -
/ / M A C D _ g b p
i n t f a s t _ e m a _ 3 = 1 2 ;
i n t s l o w _ e m a _ 3 = 2 6 ;
i n t m a c d _ s m a _ 3 = 9 ;
i n t a p p l y _ 3 = 0 ;
/ / - - -
/ / M A C D _ _ c h f
i n t f a s t _ e m a _ 4 = 1 2 ;
i n t s l o w _ e m a _ 4 = 2 6 ;
i n t m a c d _ s m a _ 4 = 9 ;
i n t a p p l y _ 4 = 0 ;
/ / - - -
d o u b l e O P _ L O T S = 0 . 0 ;
/ / - - -
c l a s s C K D i g
{
p u b l i c :
C K D i g ( c o n s t b o o l u s e A u t o D i g i t s )
{
S e t ( u s e A u t o D i g i t s ) ;
}
~ C K D i g ( v o i d )
{
}
u i n t G e t ( v o i d )
{
r e t u r n m _ v a l u e ;
}
p r i v a t e :
u i n t m _ v a l u e ;
v o i d S e t ( c o n s t b o o l u s e A u t o D i g i t s )
{
m _ v a l u e = 1 ;
i f ( ! u s e A u t o D i g i t s )
{
r e t u r n ;
}
i f ( D i g i t s ( ) = = 3 | | D i g i t s ( ) = = 5 )
{
m _ v a l u e = 1 0 ;
}
}
} ;
C K D i g * K D i g ;
# d e f i n e K _ D I G ( K D i g . G e t ( ) )
d a t e t i m e L A S T _ B U Y _ B A R T I M E = 0 ;
d a t e t i m e L A S T _ S E L L _ B A R T I M E = 0 ;
/ / - - -
v o i d O n I n i t ( )
{
/ / - - -
g e t _ l o t s _ b y _ i n p u t ( ) ;
/ / - - -
K D i g = n e w C K D i g ( _ A u t o D i g i t s ) ;
}
/ / - - -
v o i d O n D e i n i t ( c o n s t i n t r e a s o n )
{
/ / - - -
/ / - - -
i f ( C h e c k P o i n t e r ( K D i g ) )
{
d e l e t e K D i g ;
}
}
/ / - - -
v o i d O n T i c k ( )
{
/ / - - -
i f ( f i n d _ o r d e r s ( _ M a g i c N u m b e r ) )
{
i f ( c l _ b u y _ s i g ( ) )
{
c b m ( _ M a g i c N u m b e r , _ S l i p p a g e , O P _ B U Y ) ;
}
i f ( c l _ s e l l _ s i g ( ) )
{
c b m ( _ M a g i c N u m b e r , _ S l i p p a g e , O P _ S E L L ) ;
}
}
/ / - - -
/ / - - -
i f ( ! f i n d _ o r d e r s ( _ M a g i c N u m b e r , ( _ O n l y O n e O p e n e d P o s ? - 1 : O P _ B U Y ) ) )
{
i f ( o p _ b u y _ s i g ( ) & & L A S T _ B U Y _ B A R T I M E ! = i T i m e ( S y m b o l ( ) , P e r i o d ( ) , 0 ) )
{
L A S T _ B U Y _ B A R T I M E = i T i m e ( S y m b o l ( ) , P e r i o d ( ) , 0 ) ;
o p e n _ p o s i t i o n s ( O P _ B U Y , O P _ L O T S ) ;
}
}
/ / - - -
i f ( ! f i n d _ o r d e r s ( _ M a g i c N u m b e r , ( _ O n l y O n e O p e n e d P o s ? - 1 : O P _ S E L L ) ) )
{
i f ( o p _ s e l l _ s i g ( ) & & L A S T _ S E L L _ B A R T I M E ! = i T i m e ( S y m b o l ( ) , P e r i o d ( ) , 0 ) )
{
L A S T _ S E L L _ B A R T I M E = i T i m e ( S y m b o l ( ) , P e r i o d ( ) , 0 ) ;
o p e n _ p o s i t i o n s ( O P _ S E L L , O P _ L O T S ) ;
}
}
}
/ / - - -
/ / - - -
/ / - - -
v o i d g e t _ l o t s _ b y _ i n p u t ( )
{
O P _ L O T S = _ L o t s ;
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 o l ( ) , M O D E _ M I N L O T ) ;
d o u b l e M a x L o t = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M A X L O T ) ;
d o u b l e L o t S t e p = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ L O T S T E P ) ;
i f ( O P _ L O T S < M i n L o t ) O P _ L O T S = M i n L o t ;
i f ( O P _ L O T S > M a x L o t ) O P _ L O T S = M a x L o t ;
}
/ / - - -
/ / - - -
b o o l f i n d _ o r d e r s ( i n t m a g i c = - 1 , i n t t y p e = - 1 , i n t t i m e = - 1 , s t r i n g s y m b = " N U L L " , d o u b l e p r i c e = - 1 , d o u b l e l o t = - 1 )
{
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 ) )
b r e a k ;
i f ( ( ( O r d e r T y p e ( ) = = t y p e ) | | ( t y p e = = - 1 ) )
& & ( ( O r d e r M a g i c N u m b e r ( ) = = m a g i c ) | | ( m a g i c = = - 1 ) )
& & ( ( O r d e r S y m b o l ( ) = = s y m b ) | | ( s y m b = = " N U L L " & & O r d e r S y m b o l ( ) = = S y m b o l ( ) ) )
& & ( ( O r d e r O p e n T i m e ( ) > = t i m e ) | | ( t i m e = = - 1 ) )
& & ( ( O r d e r L o t s ( ) = = l o t ) | | ( l o t = = - 1 ) )
& & ( ( N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) = = N o r m a l i z e D o u b l e ( p r i c e , D i g i t s ) ) | | ( p r i c e = = - 1 ) ) )
{
r e t u r n ( t r u e ) ;
b r e a k ;
}
}
r e t u r n ( f a l s e ) ;
}
/ / - - -
s t r i n g M a r k e t _ E r r _ T o _ S t r ( i n t e r r C o d e )
{
s t r i n g e r r T e x t ;
s w i t c h ( e r r C o d e )
{
c a s e 0 :
e r r T e x t = " 5B >H81>:" ;
b r e a k ;
c a s e 1 :
e r r T e x t = " 5B >H81:8, => @57C;LB0B =58725AB5=" ;
b r e a k ;
c a s e 2 :
e r r T e x t = " 1I0O >H81:0" ;
b r e a k ;
c a s e 3 :
e r r T e x t = " 5?@028;L=K5 ?0@0<5B@K" ;
b r e a k ;
c a s e 4 :
e r r T e x t = " ">@3>2K9 A5@25@ 70=OB" ;
b r e a k ;
c a s e 5 :
e r r T e x t = " !B0@0O 25@A8O :;85=BA:>3> B5@<8=0;0" ;
b r e a k ;
c a s e 6 :
e r r T e x t = " 5B A2O78 A B>@3>2K< A5@25@><" ;
b r e a k ;
c a s e 7 :
e r r T e x t = " 54>AB0B>G=> ?@02" ;
b r e a k ;
c a s e 8 :
e r r T e x t = " !;8H:>< G0ABK5 70?@>AK" ;
b r e a k ;
c a s e 9 :
e r r T e x t = " 54>?CAB8<0O >?5@0F8O =0@CH0NI0O DC=:F8>=8@>20=85 A5@25@0" ;
b r e a k ;
c a s e 6 4 :
e r r T e x t = " !G5B 701;>:8@>20=" ;
b r e a k ;
c a s e 6 5 :
e r r T e x t = " 5?@028;L=K9 =><5@ AG5B0" ;
b r e a k ;
c a s e 1 2 8 :
e r r T e x t = " AB5: A@>: >6840=8O A>25@H5=8O A45;:8" ;
b r e a k ;
c a s e 1 2 9 :
e r r T e x t = " 5?@028;L=0O F5=0" ;
b r e a k ;
c a s e 1 3 0 :
e r r T e x t = " 5?@028;L=K5 AB>?K" ;
b r e a k ;
c a s e 1 3 1 :
e r r T e x t = " 5?@028;L=K9 >1J5<" ;
b r e a k ;
c a s e 1 3 2 :
e r r T e x t = " K=>: 70:@KB" ;
b r e a k ;
c a s e 1 3 3 :
e r r T e x t = " ">@3>2;O 70?@5I5=0" ;
b r e a k ;
c a s e 1 3 4 :
e r r T e x t = " 54>AB0B>G=> 45=53 4;O A>25@H5=8O >?5@0F88" ;
b r e a k ;
c a s e 1 3 5 :
e r r T e x t = " &5=0 87<5=8;0AL" ;
b r e a k ;
c a s e 1 3 6 :
e r r T e x t = " 5B F5=" ;
b r e a k ;
c a s e 1 3 7 :
e r r T e x t = " @>:5@ 70=OB" ;
b r e a k ;
c a s e 1 3 8 :
e r r T e x t = " >2K5 F5=K" ;
b r e a k ;
c a s e 1 3 9 :
e r r T e x t = " @45@ 701;>:8@>20= 8 C65 >1@010BK205BAO" ;
b r e a k ;
c a s e 1 4 0 :
e r r T e x t = " 07@5H5=0 B>;L:> ?>:C?:0" ;
b r e a k ;
c a s e 1 4 1 :
e r r T e x t = " !;8H:>< <=>3> 70?@>A>2" ;
b r e a k ;
c a s e 1 4 5 :
e r r T e x t = " >48D8:0F8O 70?@5I5=0, B0: :0: >@45@ A;8H:>< 1;87>: : @K=:C" ;
b r e a k ;
c a s e 1 4 6 :
e r r T e x t = " >4A8AB5<0 B>@3>2;8 70=OB0" ;
b r e a k ;
c a s e 1 4 7 :
e r r T e x t = " A?>;L7>20=85 40BK 8AB5G5=8O >@45@0 70?@5I5=> 1@>:5@><" ;
b r e a k ;
c a s e 1 4 8 :
e r r T e x t = " >;8G5AB2> >B:@KBKE 8 >B;>65==KE >@45@>2 4>AB83;> ?@545;0, CAB0=>2;5==>3> 1@>:5@><. " ;
b r e a k ;
c a s e 4 0 0 0 :
e r r T e x t = " 5B >H81:8" ;
b r e a k ;
c a s e 4 0 0 1 :
e r r T e x t = " 5?@028;L=K9 C:070B5;L DC=:F88" ;
b r e a k ;
c a s e 4 0 0 2 :
e r r T e x t = " =45:A <0AA820 - 2=5 480?07>=0" ;
b r e a k ;
c a s e 4 0 0 3 :
e r r T e x t = " 5B ?0<OB8 4;O AB5:0 DC=:F89" ;
b r e a k ;
c a s e 4 0 0 4 :
e r r T e x t = " 5@5?>;=5=85 AB5:0 ?>A;5 @5:C@A82=>3> 2K7>20" ;
b r e a k ;
c a s e 4 0 0 5 :
e r r T e x t = " 0 AB5:5 =5B ?0<OB8 4;O ?5@540G8 ?0@0<5B@>2" ;
b r e a k ;
c a s e 4 0 0 6 :
e r r T e x t = " 5B ?0<OB8 4;O AB@>:>2>3> ?0@0<5B@0" ;
b r e a k ;
c a s e 4 0 0 7 :
e r r T e x t = " 5B ?0<OB8 4;O 2@5<5==>9 AB@>:8" ;
b r e a k ;
c a s e 4 0 0 8 :
e r r T e x t = " 58=8F80;878@>20==0O AB@>:0" ;
b r e a k ;
c a s e 4 0 0 9 :
e r r T e x t = " 58=8F80;878@>20==0O AB@>:0 2 <0AA825" ;
b r e a k ;
c a s e 4 0 1 0 :
e r r T e x t = " 5B ?0<OB8 4;O AB@>:>2>3> <0AA820" ;
b r e a k ;
c a s e 4 0 1 1 :
e r r T e x t = " !;8H:>< 4;8==0O AB@>:0" ;
b r e a k ;
c a s e 4 0 1 2 :
e r r T e x t = " AB0B>: >B 45;5=8O =0 =>;L" ;
b r e a k ;
c a s e 4 0 1 3 :
e r r T e x t = " 5;5=85 =0 =>;L" ;
b r e a k ;
c a s e 4 0 1 4 :
e r r T e x t = " 58725AB=0O :><0=40" ;
b r e a k ;
c a s e 4 0 1 5 :
e r r T e x t = " 5?@028;L=K9 ?5@5E>4" ;
b r e a k ;
c a s e 4 0 1 6 :
e r r T e x t = " 58=8F80;878@>20==K9 <0AA82" ;
b r e a k ;
c a s e 4 0 1 7 :
e r r T e x t = " K7>2K D L L =5 @07@5H5=K" ;
b r e a k ;
c a s e 4 0 1 8 :
e r r T e x t = " 52>7<>6=> 703@C78BL 181;8>B5:C" ;
b r e a k ;
c a s e 4 0 1 9 :
e r r T e x t = " 52>7<>6=> 2K720BL DC=:F8N" ;
b r e a k ;
c a s e 4 0 2 0 :
e r r T e x t = " K7>2K 2=5H=8E 181;8>B5G=KE DC=:F89 =5 @07@5H5=K" ;
b r e a k ;
c a s e 4 0 2 1 :
e r r T e x t = " 54>AB0B>G=> ?0<OB8 4;O AB@>:8, 2>72@0I05<>9 87 DC=:F88" ;
b r e a k ;
c a s e 4 0 2 2 :
e r r T e x t = " !8AB5<0 70=OB0" ;
b r e a k ;
c a s e 4 0 5 0 :
e r r T e x t = " 5?@028;L=>5 :>;8G5AB2> ?0@0<5B@>2 DC=:F88" ;
b r e a k ;
c a s e 4 0 5 1 :
e r r T e x t = " 54>?CAB8<>5 7=0G5=85 ?0@0<5B@0 DC=:F88" ;
b r e a k ;
c a s e 4 0 5 2 :
e r r T e x t = " =CB@5==OO >H81:0 AB@>:>2>9 DC=:F88" ;
b r e a k ;
c a s e 4 0 5 3 :
e r r T e x t = " H81:0 <0AA820" ;
b r e a k ;
c a s e 4 0 5 4 :
e r r T e x t = " 5?@028;L=>5 8A?>;L7>20=85 <0AA820- B09<A5@88" ;
b r e a k ;
c a s e 4 0 5 5 :
e r r T e x t = " H81:0 ?>;L7>20B5;LA:>3> 8=48:0B>@0" ;
b r e a k ;
c a s e 4 0 5 6 :
e r r T e x t = " 0AA82K =5A>2<5AB8<K" ;
b r e a k ;
c a s e 4 0 5 7 :
e r r T e x t = " H81:0 >1@01>B:8 3;>10;L=K5E ?5@5<5==KE" ;
b r e a k ;
c a s e 4 0 5 8 :
e r r T e x t = " ;>10;L=0O ?5@5<5==0O =5 >1=0@C65=0" ;
b r e a k ;
c a s e 4 0 5 9 :
e r r T e x t = " $C=:F8O =5 @07@5H5=0 2 B5AB>2>< @568<5" ;
b r e a k ;
c a s e 4 0 6 0 :
e r r T e x t = " $C=:F8O =5 @07@5H5=0" ;
b r e a k ;
c a s e 4 0 6 1 :
e r r T e x t = " H81:0 >B?@02:8 ?>GBK" ;
b r e a k ;
c a s e 4 0 6 2 :
e r r T e x t = " 68405BAO ?0@0<5B@ B8?0 s t r i n g " ;
b r e a k ;
c a s e 4 0 6 3 :
e r r T e x t = " 68405BAO ?0@0<5B@ B8?0 i n t e g e r " ;
b r e a k ;
c a s e 4 0 6 4 :
e r r T e x t = " 68405BAO ?0@0<5B@ B8?0 d o u b l e " ;
b r e a k ;
c a s e 4 0 6 5 :
e r r T e x t = " :0G5AB25 ?0@0<5B@0 >68405BAO <0AA82" ;
b r e a k ;
c a s e 4 0 6 6 :
e r r T e x t = " 0?@>H5==K5 8AB>@8G5A:85 40==K5 2 A>AB>O=88 >1=>2;5=8O" ;
b r e a k ;
c a s e 4 0 6 7 :
e r r T e x t = " H81:0 ?@8 2K?>;=5=88 B>@3>2>9 >?5@0F88" ;
b r e a k ;
c a s e 4 0 9 9 :
e r r T e x t = " >=5F D09;0" ;
b r e a k ;
c a s e 4 1 0 0 :
e r r T e x t = " H81:0 ?@8 @01>B5 A D09;><" ;
b r e a k ;
c a s e 4 1 0 1 :
e r r T e x t = " 5?@028;L=>5 8<O D09;0" ;
b r e a k ;
c a s e 4 1 0 2 :
e r r T e x t = " !;8H:>< <=>3> >B:@KBKE D09;>2" ;
b r e a k ;
c a s e 4 1 0 3 :
e r r T e x t = " 52>7<>6=> >B:@KBL D09;" ;
b r e a k ;
c a s e 4 1 0 4 :
e r r T e x t = " 5A>2<5AB8<K9 @568< 4>ABC?0 : D09;C" ;
b r e a k ;
c a s e 4 1 0 5 :
e r r T e x t = " 8 >48= >@45@ =5 2K1@0=" ;
b r e a k ;
c a s e 4 1 0 6 :
e r r T e x t = " 58725AB=K9 A8<2>;" ;
b r e a k ;
c a s e 4 1 0 7 :
e r r T e x t = " 5?@028;L=K9 ?0@0<5B@ F5=K 4;O B>@3>2>9 DC=:F88" ;
b r e a k ;
c a s e 4 1 0 8 :
e r r T e x t = " 525@=K9 =><5@ B8:5B0" ;
b r e a k ;
c a s e 4 1 0 9 :
e r r T e x t = " ">@3>2;O =5 @07@5H5=0. 5>1E>48<> 2:;NG8BL >?F8N 07@5H8BL A>25B=8:C B>@3>20BL 2 A2>9AB20E M:A?5@B0. " ;
b r e a k ;
c a s e 4 1 1 0 :
e r r T e x t = " ;8==K5 ?>78F88 =5 @07@5H5=K. 5>1E>48<> ?@>25@8BL A2>9AB20 M:A?5@B0. " ;
b r e a k ;
c a s e 4 1 1 1 :
e r r T e x t = " >@>B:85 ?>78F88 =5 @07@5H5=K. 5>1E>48<> ?@>25@8BL A2>9AB20 M:A?5@B0. " ;
b r e a k ;
c a s e 4 2 0 0 :
e r r T e x t = " 1J5:B C65 ACI5AB2C5B" ;
b r e a k ;
c a s e 4 2 0 1 :
e r r T e x t = " 0?@>H5=> =58725AB=>5 A2>9AB2> >1J5:B0" ;
b r e a k ;
c a s e 4 2 0 2 :
e r r T e x t = " 1J5:B =5 ACI5AB2C5B" ;
b r e a k ;
c a s e 4 2 0 3 :
e r r T e x t = " 58725AB=K9 B8? >1J5:B0" ;
b r e a k ;
c a s e 4 2 0 4 :
e r r T e x t = " 5B 8<5=8 >1J5:B0" ;
b r e a k ;
c a s e 4 2 0 5 :
e r r T e x t = " H81:0 :>>@48=0B >1J5:B0" ;
b r e a k ;
c a s e 4 2 0 6 :
e r r T e x t = " 5 =0945=> C:070==>5 ?>4>:=>" ;
b r e a k ;
d e f a u l t :
e r r T e x t = " H81:0 ?@8 @01>B5 A >1J5:B><" ;
}
/ / - - -
r e t u r n ( e r r T e x t ) ;
}
/ / - - -
v o i d o p e n _ p o s i t i o n s ( i n t s i g n a l , d o u b l e l o t , d o u b l e p r i c e = 0 . 0 , s t r i n g s y m b = " N O N E " , i n t m o d e = 0 )
{
R e f r e s h R a t e s ( ) ;
/ / - - -
i n t s y m b D i g i t s = 0 ;
s t r i n g _ s y m b = s y m b ;
/ / - - -
i f ( _ s y m b = = " N O N E " )
{
s y m b D i g i t s = D i g i t s ;
_ s y m b = S y m b o l ( ) ;
}
e l s e
s y m b D i g i t s = i n t ( M a r k e t I n f o ( _ s y m b , M O D E _ D I G I T S ) ) ;
/ / - - -
i f ( ( A c c o u n t F r e e M a r g i n C h e c k ( _ s y m b , O P _ B U Y , l o t ) < = 0 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 4 ) )
{
P r i n t ( _ s y m b , " " , l o t , " N o t e n o u g h m o n e y . " ) ;
r e t u r n ;
}
i f ( s i g n a l = = O P _ B U Y )
p r i c e = N o r m a l i z e D o u b l e ( M a r k e t I n f o ( _ s y m b , M O D E _ A S K ) , s y m b D i g i t s ) ;
i f ( ( A c c o u n t F r e e M a r g i n C h e c k ( _ s y m b , O P _ S E L L , l o t ) < = 0 ) | | ( G e t L a s t E r r o r ( ) = = 1 3 4 ) )
{
P r i n t ( _ s y m b , " " , l o t , " N o t e n o u g h m o n e y . " ) ;
r e t u r n ;
}
i f ( s i g n a l = = O P _ S E L L )
p r i c e = N o r m a l i z e D o u b l e ( M a r k e t I n f o ( _ s y m b , M O D E _ B I D ) , s y m b D i g i t s ) ;
/ / - - -
i n t e r r = 0 ;
f o r ( i n t i = 0 ; i < = 5 ; i + + )
{
R e f r e s h R a t e s ( ) ;
/ / - - -
i n t t i c k e t = O r d e r S e n d ( _ s y m b , / /
s i g n a l , / / B8? >@45@0
l o t , / / >1J5<
N o r m a l i z e D o u b l e ( p r i c e , s y m b D i g i t s ) ,
_ S l i p p a g e * K D i g . G e t ( ) ,
0 , / / S t o p L o s s
0 , / / T a k e P r o f i t
_ C o m m e n t ,
_ M a g i c N u m b e r ,
0 ,
C L R _ N O N E ) ;
/ / - - -
i f ( t i c k e t ! = - 1 )
{
e r r = 0 ;
/ / - - -
i f ( ! I s T e s t i n g ( ) )
S l e e p ( 1 0 0 0 ) ;
/ / - - -
R e f r e s h R a t e s ( ) ;
/ / - - -
i f ( _ S L ! = 0 | | _ T P ! = 0 )
{
f o r ( i n t t r y M o d i f y = 0 ; t r y M o d i f y < = 5 ; t r y M o d i f y + + )
{
R e f r e s h R a t e s ( ) ;
/ / - - -
i f ( O r d e r S e l e c t ( t i c k e t , S E L E C T _ B Y _ T I C K E T , M O D E _ T R A D E S ) )
{
d o u b l e s l = N o r m a l i z e D o u b l e ( g e t _ s l ( _ S L * K D i g . G e t ( ) , s i g n a l , p r i c e , _ s y m b ) , s y m b D i g i t s ) ;
d o u b l e t p = N o r m a l i z e D o u b l e ( g e t _ t p ( _ T P * K D i g . G e t ( ) , s i g n a l , p r i c e , _ s y m b ) , s y m b D i g i t s ) ;
/ / - - -
i f ( s l ! = 0 | | t p ! = 0 )
i f ( O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , s l , t p , O r d e r E x p i r a t i o n ( ) ) )
b r e a k ;
/ / - - -
e r r = G e t L a s t E r r o r ( ) ;
}
/ / - - -
i f ( ! I s T e s t i n g ( ) )
S l e e p ( t r y M o d i f y * 1 0 0 0 ) ;
}
/ / - - -
i f ( e r r ! = 0 )
A l e r t ( " H81:0 2KAB02;5=8O S L / T P : " + M a r k e t _ E r r _ T o _ S t r ( e r r ) ) ;
}
/ / - - -
b r e a k ;
}
e l s e
{
e r r = G e t L a s t E r r o r ( ) ;
/ / - - -
i f ( e r r = = 0 )
b r e a k ;
/ / - - -
i + + ;
/ / - - -
i f ( ! I s T e s t i n g ( ) )
S l e e p ( i * 5 0 0 ) ;
}
}
/ / - - -
i f ( e r r ! = 0 )
{
i f ( s i g n a l = = O P _ B U Y )
L A S T _ B U Y _ B A R T I M E = 0 ;
i f ( s i g n a l = = O P _ S E L L )
L A S T _ S E L L _ B A R T I M E = 0 ;
A l e r t ( " H81:0 >B:@KB8O: " + M a r k e t _ E r r _ T o _ S t r ( e r r ) ) ;
}
}
/ / - - -
d o u b l e g e t _ t p ( i n t t p _ v a l u e , i n t t y p e , d o u b l e p r i c e = 0 . 0 , s t r i n g s y m b = " N O N E " )
{
d o u b l e _ p r i c e = p r i c e ;
s t r i n g _ s y m b = s y m b ;
/ / - - -
i f ( _ s y m b = = " N O N E " )
_ s y m b = S y m b o l ( ) ;
i n t s y m b D i g i t s = i n t ( M a r k e t I n f o ( _ s y m b , M O D E _ D I G I T S ) ) ;
/ / - - -
i f ( _ p r i c e = = 0 )
{
i f ( t y p e = = O P _ B U Y )
_ p r i c e = N o r m a l i z e D o u b l e ( M a r k e t I n f o ( _ s y m b , M O D E _ A S K ) , s y m b D i g i t s ) ;
/ / - - -
i f ( t y p e = = O P _ S E L L )
_ p r i c e = N o r m a l i z e D o u b l e ( M a r k e t I n f o ( _ s y m b , M O D E _ B I D ) , s y m b D i g i t s ) ;
}
/ / - - -
i f ( t p _ v a l u e > 0 )
{
i f ( t y p e = = O P _ B U Y | | t y p e = = O P _ B U Y L I M I T | | t y p e = = O P _ B U Y S T O P )
r e t u r n N o r m a l i z e D o u b l e ( _ p r i c e + t p _ v a l u e * M a r k e t I n f o ( _ s y m b , M O D E _ P O I N T ) , s y m b D i g i t s ) ;
/ / - - -
i f ( t y p e = = O P _ S E L L | | t y p e = = O P _ S E L L L I M I T | | t y p e = = O P _ S E L L S T O P )
r e t u r n N o r m a l i z e D o u b l e ( _ p r i c e - t p _ v a l u e * M a r k e t I n f o ( _ s y m b , M O D E _ P O I N T ) , s y m b D i g i t s ) ;
}
/ / - - -
r e t u r n 0 . 0 ;
}
/ / - - -
d o u b l e g e t _ s l ( i n t s l _ v a l u e , i n t t y p e , d o u b l e p r i c e = 0 . 0 , s t r i n g _ s y m b = " N O N E " )
{
i f ( _ s y m b = = " N O N E " )
_ s y m b = S y m b o l ( ) ;
i n t s y m b D i g i t s = i n t ( M a r k e t I n f o ( _ s y m b , M O D E _ D I G I T S ) ) ;
d o u b l e s y m b P o i n t = M a r k e t I n f o ( _ s y m b , M O D E _ P O I N T ) ;
/ / - - -
i f ( p r i c e = = 0 . 0 )
{
i f ( t y p e = = O P _ B U Y )
p r i c e = N o r m a l i z e D o u b l e ( M a r k e t I n f o ( _ s y m b , M O D E _ A S K ) , s y m b D i g i t s ) ;
i f ( t y p e = = O P _ S E L L )
p r i c e = N o r m a l i z e D o u b l e ( M a r k e t I n f o ( _ s y m b , M O D E _ B I D ) , s y m b D i g i t s ) ;
}
/ / - - -
i f ( s l _ v a l u e > 0 )
{
i f ( t y p e = = O P _ B U Y | | t y p e = = O P _ B U Y L I M I T | | t y p e = = O P _ B U Y S T O P )
r e t u r n N o r m a l i z e D o u b l e ( p r i c e - s l _ v a l u e * s y m b P o i n t , s y m b D i g i t s ) ;
i f ( t y p e = = O P _ S E L L | | t y p e = = O P _ S E L L L I M I T | | t y p e = = O P _ S E L L S T O P )
r e t u r n N o r m a l i z e D o u b l e ( p r i c e + s l _ v a l u e * s y m b P o i n t , s y m b D i g i t s ) ;
}
/ / - - -
r e t u r n 0 . 0 ;
}
/ / - - -
b o o l c l o s e _ b y _ t i c k e t ( c o n s t i n t t i c k e t , c o n s t i n t s l i p p a g e )
{
i f ( ! O r d e r S e l e c t ( t i c k e t , S E L E C T _ B Y _ T I C K E T , M O D E _ T R A D E S ) )
{
r e t u r n f a l s e ;
}
i n t e r r = 0 ;
f o r ( i n t i = 0 ; i < 5 ; i + + )
{
R e s e t L a s t E r r o r ( ) ;
R e f r e s h R a t e s ( ) ;
d o u b l e p r i c e = 0 . 0 ;
i f ( O r d e r T y p e ( ) = = O P _ B U Y )
{
p r i c e = N o r m a l i z e D o u b l e ( S y m b o l I n f o D o u b l e ( O r d e r S y m b o l ( ) , S Y M B O L _ B I D ) , ( i n t ) S y m b o l I n f o I n t e g e r ( O r d e r S y m b o l ( ) , S Y M B O L _ D I G I T S ) ) ;
}
i f ( O r d e r T y p e ( ) = = O P _ S E L L )
{
p r i c e = N o r m a l i z e D o u b l e ( S y m b o l I n f o D o u b l e ( O r d e r S y m b o l ( ) , S Y M B O L _ A S K ) , ( i n t ) S y m b o l I n f o I n t e g e r ( O r d e r S y m b o l ( ) , S Y M B O L _ D I G I T S ) ) ;
}
b o o l r e s u l t = f a l s e ;
i f ( O r d e r T y p e ( ) < = O P _ S E L L )
{
r e s u l t = 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 ( ) , p r i c e , s l i p p a g e * K D i g . G e t ( ) , c l r N O N E ) ;
}
e l s e
{
r e s u l t = O r d e r D e l e t e ( O r d e r T i c k e t ( ) ) ;
}
i f ( r e s u l t )
{
r e t u r n ( t r u e ) ;
}
e r r = G e t L a s t E r r o r ( ) ;
i f ( e r r ! = 0 )
{
P r i n t ( " E r r o r o f c l o s e _ b y _ t i c k e t ( ) # " + ( s t r i n g ) e r r + " : " + M a r k e t _ E r r _ T o _ S t r ( e r r ) ) ;
}
S l e e p ( 3 0 0 * i ) ;
}
r e t u r n ( f a l s e ) ;
}
/ / - - -
b o o l c b m ( i n t m a g i c , i n t s l i p p a g e , i n t t y p e )
{
i n t n = 0 ;
R e f r e s h R a t e s ( ) ;
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 ) )
b r e a k ;
i f ( ( O r d e r T y p e ( ) = = t y p e ) & & ( O r d e r M a g i c N u m b e r ( ) = = m a g i c ) & & ( S y m b o l ( ) = = O r d e r S y m b o l ( ) ) )
{
c l o s e _ b y _ t i c k e t ( O r d e r T i c k e t ( ) , s l i p p a g e ) ;
n + + ;
}
}
i f ( n > 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 e _ M A C D _ g b p _ 1 ( )
{
r e t u r n i M A C D ( " G B P U S D " , 6 0 , f a s t _ e m a , s l o w _ e m a , m a c d _ s m a , a p p l y , 0 , 2 ) ;
}
d o u b l e e _ M A C D _ c h f _ 1 ( )
{
r e t u r n i M A C D ( " U S D C H F " , 6 0 , f a s t _ e m a _ 2 , s l o w _ e m a _ 2 , m a c d _ s m a _ 2 , a p p l y _ 2 , 0 , 2 ) ;
}
d o u b l e e _ M A C D _ g b p ( )
{
r e t u r n i M A C D ( " G B P U S D " , 6 0 , f a s t _ e m a _ 3 , s l o w _ e m a _ 3 , m a c d _ s m a _ 3 , a p p l y _ 3 , 0 , 1 ) ;
}
d o u b l e e _ M A C D _ _ c h f ( )
{
r e t u r n i M A C D ( " U S D C H F " , 6 0 , f a s t _ e m a _ 4 , s l o w _ e m a _ 4 , m a c d _ s m a _ 4 , a p p l y _ 4 , 0 , 1 ) ;
}
/ / - - -
b o o l o p _ b u y _ s i g ( )
{
i f ( ( ( ( e _ M A C D _ g b p _ 1 ( ) > 0 . 0 ) & & ( e _ M A C D _ c h f _ 1 ( ) > 0 . 0 ) ) & & ( e _ M A C D _ g b p _ 1 ( ) < e _ M A C D _ c h f _ 1 ( ) ) ) & & ( e _ M A C D _ g b p ( ) > e _ M A C D _ _ c h f ( ) ) )
r e t u r n t r u e ;
/ / - - -
r e t u r n f a l s e ;
}
/ / - - -
b o o l o p _ s e l l _ s i g ( )
{
i f ( ( ( ( e _ M A C D _ g b p _ 1 ( ) < 0 . 0 ) & & ( e _ M A C D _ c h f _ 1 ( ) < 0 . 0 ) ) & & ( e _ M A C D _ g b p _ 1 ( ) > e _ M A C D _ c h f _ 1 ( ) ) ) & & ( e _ M A C D _ g b p ( ) < e _ M A C D _ _ c h f ( ) ) )
r e t u r n t r u e ;
/ / - - -
r e t u r n f a l s e ;
}
/ / - - -
b o o l c l _ b u y _ s i g ( )
{
r e t u r n f a l s e ;
}
/ / - - -
b o o l c l _ s e l l _ s i g ( )
{
r e t u r n f a l s e ;
}
Comments