0
Views
0
Downloads
0
Favorites
DVA_Martin
ÿþ/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
| D V A _ M a r t i n . m q 5 |
| © 2 0 2 1 , A l e x e y V i k t o r o v |
| h t t p s : / / w w w . m q l 5 . c o m / r u / u s e r s / a l e x e y v i k / n e w s |
\ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
# p r o p e r t y c o p y r i g h t " © 2 0 2 1 , A l e x e y V i k t o r o v "
# p r o p e r t y l i n k " h t t p s : / / w w w . m q l 5 . c o m / r u / u s e r s / a l e x e y v i k / n e w s "
# p r o p e r t y v e r s i o n " 3 . 0 0 "
# 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 ;
i n p u t i n t T a k e P r o f i t 1 = 3 0 0 ; / / ?@>D8B ?5@2>9 ?>78F88
i n p u t i n t T a k e P r o f i t 2 = 2 5 0 ; / / ?@>D8B 2B>@>9 ?>78F88
i n p u t i n t T a k e P r o f i t 3 = 2 0 0 ; / / ?@>D8B B@5BL59 ?>78F88
i n p u t i n t T a k e P r o f i t 4 = 1 0 0 ; / / ?@>D8B G5B25@B>9 8 A;54CNI8E ?>78F89
i n p u t i n t S t e p = 2 0 0 ; / / H03 ?5@2>9 ?>78F88
i n p u t i n t D e l t a = 1 0 0 ; / / 4>102:0 : H03C
/ / A> 2B>@>9 ?>78F88 C25;8G8205B @0AAB>O=85 ?>A;54CNI8E ?>78F89 =0 25;8G8=C " 45;LB0" >B ?@54K4CI53>
i n p u t d o u b l e L o t = 0 . 0 3 ; / / ?5@2K9 ;>B >B:@KB8O
i n p u t d o u b l e M a x i m a l L o t = 0 . 5 ; / / <0:A8<0;L=K9 ;>B, :>B>@K9 <K @07@5H05<
i n p u t i n t M a x T r a d e s = 9 ; / / <0:A8<0;L=>5 :>;8G5AB2> ?>78F89 >4=>3> =0?@02;5=8O
i n p u t d o u b l e M u l t i p l i c a t o r L o t = 1 . 6 ; / / C<=>605< ?>A;54CNI85 ?>78F88
i n p u t i n t M a g i c = 1 2 3 ; / / 845=B8D8:0B>@ A>25B=8:0
/ / - - - @5<5==K5 4;O E@0=5=8O A>1@0==>9 8=D>@<0F88
d o u b l e M a x L o t = 0 ,
L o t B u y = 0 ,
L o t S e l l = 0 ;
/ * * * * * * * * * * * * * * * * * * * E x p e r t i n i t i a l i z a t i o n f u n c t i o n * * * * * * * * * * * * * * * * * * * /
i n t O n I n i t ( )
{
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 ( M a g i c ) ;
M a x L o t = c o n t r a c t S i z e ( M a x i m a l L o t ) ;
r e t u r n ( I N I T _ S U C C E E D E D ) ;
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * * * * * * * * * * * * * * * * * * * * * * * * E x p e r t t i c k f u n c t i o n * * * * * * * * * * * * * * * * * * * * * * * * /
v o i d O n T i c k ( )
{
i n t p o s T o t a l = P o s i t i o n s T o t a l ( ) ;
d o u b l e B u y M i n P r i c e = D B L _ M A X , / / 8=8<0;L=0O F5=0 B u y ?>78F88
S e l M a x P r i c e = D B L _ M I N , / / 0:A8<0;L=0O F5=0 S e l l ?>78F88
B u y M i n L o t = 0 , / / >B A0<>9 =86=59 B u y ?>78F88
S e l M a x L o t = 0 , / / >5 A0<>9 25@E=59 S e l l ?>78F88
p o s P r i c e = 0 . 0 ,
p o s L o t = 0 . 0 ,
B u y A w e r a g e = 0 ,
S e l A w e r a g e = 0 ,
B u y P r i c e = 0 ,
S e l P r i c e = 0 ,
B u y L o t = 0 ,
S e l L o t = 0 ;
M q l T i c k t i c k ;
i f ( ! S y m b o l I n f o T i c k ( _ S y m b o l , t i c k ) )
r e t u r n ;
i n t b = 0 ,
s = 0 ;
f o r ( i n t i = 0 ; i < p o s T o t a l ; i + + )
{
u l o n g p o s T i c k e t = 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 S t r i n g ( P O S I T I O N _ S Y M B O L ) = = _ S y m b o l & & 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 ) = = M a g i c )
{
p o s P r i c 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 ) ;
p o s 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 ) ;
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 + + ; / / !G8B05< >B:@KBK5 ?>78F88 =0 ?>:C?:C
i f ( p o s P r i c e < B u y M i n P r i c e )
{
B u y M i n P r i c e = p o s P r i c e ;
B u y M i n L o t = p o s L o t ;
B u y P r i c e + = p o s P r i c e * p o s L o t ; / / 4>1028BL : ?5@5<5==>9 B u y P r i c e &5=0 >@54@0 1 * ;>B >@45@0 1
B u y L o t + = p o s L o t ; / / AC<<8@C5< ;>BK
}
}
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 + + ; / / !G8B05< >B:@KBK5 ?>78F88 =0 ?@>406C
i f ( p o s P r i c e > S e l M a x P r i c e )
{
S e l M a x P r i c e = p o s P r i c e ;
S e l M a x L o t = p o s L o t ;
S e l P r i c e + = p o s P r i c e * p o s L o t ; / / 4>1028BL : ?5@5<5==>9 B u y P r i c e &5=0 >@54@0 1 * ;>B >@45@0 1
S e l L o t + = p o s L o t ; / / AC<<8@C5< ;>BK
}
}
}
}
L o t B u y = b = = 0 ? c o n t r a c t S i z e ( L o t ) : f m i n ( M a x L o t , c o n t r a c t S i z e ( B u y M i n L o t * M u l t i p l i c a t o r L o t ) ) ;
L o t S e l l = s = = 0 ? c o n t r a c t S i z e ( L o t ) : f m i n ( M a x L o t , c o n t r a c t S i z e ( S e l M a x L o t * M u l t i p l i c a t o r L o t ) ) ;
/ / - - -
i f ( b = = 0 | | ( b < M a x T r a d e s & & B u y M i n P r i c e - t i c k . a s k > = ( S t e p + D e l t a * b ) * _ P o i n t ) )
o p e n P o s ( O R D E R _ T Y P E _ B U Y , L o t B u y , t i c k . a s k ) ;
i f ( s = = 0 | | ( s < M a x T r a d e s & & t i c k . b i d - S e l M a x P r i c e > = ( S t e p + D e l t a * s ) * _ P o i n t ) )
o p e n P o s ( O R D E R _ T Y P E _ S E L L , L o t S e l l , t i c k . b i d ) ;
/ / - - - ?>AG8B05< <0B5<0B8G5A:85 D>@<C;K A@54=8E F5=
s w i t c h ( b )
{
c a s e 0 :
r e t u r n ;
c a s e 1 :
B u y A w e r a g e = B u y P r i c e / B u y L o t + T a k e P r o f i t 1 * _ P o i n t ;
b r e a k ;
c a s e 2 :
B u y A w e r a g e = B u y P r i c e / B u y L o t + T a k e P r o f i t 2 * _ P o i n t ;
b r e a k ;
c a s e 3 :
B u y A w e r a g e = B u y P r i c e / B u y L o t + T a k e P r o f i t 3 * _ P o i n t ;
b r e a k ;
d e f a u l t :
B u y A w e r a g e = B u y P r i c e / B u y L o t + T a k e P r o f i t 4 * _ P o i n t ;
b r e a k ;
}
s w i t c h ( s )
{
c a s e 0 :
r e t u r n ;
c a s e 1 :
S e l A w e r a g e = S e l P r i c e / S e l L o t - T a k e P r o f i t 1 * _ P o i n t ;
b r e a k ;
c a s e 2 :
S e l A w e r a g e = S e l P r i c e / S e l L o t - T a k e P r o f i t 2 * _ P o i n t ;
b r e a k ;
c a s e 3 :
S e l A w e r a g e = S e l P r i c e / S e l L o t - T a k e P r o f i t 3 * _ P o i n t ;
b r e a k ;
d e f a u l t :
S e l A w e r a g e = S e l P r i c e / S e l L o t - T a k e P r o f i t 4 * _ P o i n t ;
b r e a k ;
}
n o r m a l i z e P r i c e ( B u y A w e r a g e ) ; / / @>872545< @0AG5B F5=K T P B u y
n o r m a l i z e P r i c e ( S e l A w e r a g e ) ; / / @>872545< @0AG5B F5=K T P S e l l
/ / - - -
f o r ( i n t i = 0 ; i < p o s T o t a l ; i + + )
{
u l o n g p o s T i c k e t = 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 S t r i n g ( P O S I T I O N _ S Y M B O L ) = = _ S y m b o l & & 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 ) = = M a g i c )
{
d o u b l e p o s T P = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ T P ) ;
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 )
{
i f ( f a b s ( p o s T P - B u y A w e r a g e ) > _ P o i n t & & t i c k . a s k < B u y A w e r a g e ) / / A;8 B59: =5 @025= B@51C5<>9 F5=5
i f ( ! t r a d e . P o s i t i o n M o d i f y ( p o s T i c k e t , 0 . 0 , B u y A w e r a g e ) )
P r i n t ( " H81:0 " , _ _ L I N 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 )
{
i f ( f a b s ( p o s T P - S e l A w e r a g e ) > _ P o i n t & & t i c k . b i d > S e l A w e r a g e ) / / A;8 B59: =5 @025= B@51C5<>9 F5=5
i f ( ! t r a d e . P o s i t i o n M o d i f y ( p o s T i c k e t , 0 . 0 , S e l A w e r a g e ) )
P r i n t ( " H81:0 " , _ _ L I N E _ _ ) ;
}
}
}
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
v o i d o p e n P o s ( E N U M _ O R D E R _ T Y P E t y p e , d o u b l e l o t , d o u b l e p r i c e )
{
t r a d e . C h e c k V o l u m e ( _ S y m b o l , l o t , p r i c e , t y p e ) ;
i f ( t r a d e . C h e c k R e s u l t M a r g i n F r e e ( ) < = 0 . 0 )
{
P r i n t ( " N o t e n o u g h m o n e y f o r " , E n u m T o S t r i n g ( t y p e ) , " " , l o t , " " , _ S y m b o l , " E r r o r c o d e = " , t r a d e . C h e c k R e s u l t R e t c o d e ( ) ) ;
r e t u r n ;
}
i f ( ! t r a d e . P o s i t i o n O p e n ( _ S y m b o l , t y p e , l o t , p r i c e , 0 . 0 , 0 . 0 ) )
P r i n t ( t r a d e . R e s u l t R e t c o d e ( ) ) ;
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
d o u b l e c o n t r a c t S i z e ( d o u b l e v o l u m e , s t r i n g s y m b o l = N U L L )
{
s y m b o l = s y m b o l = = N U L L ? _ S y m b o l : s y m b o l ;
d o u b l e v = v o l u m 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 ) ;
v = r o u n d ( v o l u m e / v o l u m e S t e p ) * v o l u m e S t e p ;
d o u b l e m i n L o t = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ V O L U M E _ M I N ) ;
r e t u r n ( ( v < m i n L o t ? m i n L o t : v ) ) ;
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
d o u b l e n o r m a l i z e P r i c e ( d o u b l e & p r i c e , s t r i n g s y m b o l = N U L L )
{
s y m b o l = s y m b o l = = N U L L ? _ S y m b o l : s y m b o l ;
d o u b l e t i c k S i z e = S y m b o l I n f o D o u b l e ( s y m b o l , S Y M B O L _ T R A D E _ T I C K _ S I Z E ) ;
p r i c e = r o u n d ( p r i c e / t i c k S i z e ) * t i c k S i z e ;
r e t u r n ( t i c k S i z e ) ;
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * * * * * * * * * * * * * * * * * * E x p e r t d e i n i t i a l i z a t i o n f u n c t i o n * * * * * * * * * * * * * * * * * * /
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 )
{
C o m m e n t ( " " ) ;
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * * * * * * * * * * * * * * * * * * * * * * * O n C h a r t E v e n t f u n c t i o n * * * * * * * * * * * * * * * * * * * * * * * *
v o i d O n C h a r t E v e n t ( c o n s t i n t i d , / / 845=B8D8:0B>@ A>1KB8O
c o n s t l o n g & l p a r a m , / / ?0@0<5B@ A>1KB8O B8?0 l o n g
c o n s t d o u b l e & d p a r a m , / / ?0@0<5B@ A>1KB8O B8?0 d o u b l e
c o n s t s t r i n g & s p a r a m / / ?0@0<5B@ A>1KB8O B8?0 s t r i n g
)
{
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ * * * * * * * * * * * * * * * * * * * * * T r a d e T r a n s a c t i o n f u n c t i o n * * * * * * * * * * * * * * * * * * * * * *
v o i d O n T r a d e T r a n s a c t i o n ( c o n s t M q l T r a d e T r a n s a c t i o n & t r a n s ,
c o n s t M q l T r a d e R e q u e s t & r e q u e s t ,
c o n s t M q l T r a d e R e s u l t & r e s u l t )
{
} / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
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
---