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