7
Views
0
Downloads
0
Favorites
VR Smart Grid Lite
ÿþ/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / * V R S m a r t G r i d L i t e . m q 4 * /
/ / * C o p y r i g h t 2 0 2 0 , T r a d i n g - g o P r o j e c t . * /
/ / * A u t h o r : V o l d e m a r , V e r s i o n : 1 8 . 1 2 . 2 0 1 9 , S i t e h t t p s : / / t r a d i n g - g o . r u * /
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / * * /
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / V R S m a r t G r i d h t t p s : / / w w w . m q l 5 . c o m / r u / m a r k e t / p r o d u c t / 2 8 1 4 0
/ / V R S m a r t G r i d L i t e h t t p s : / / w w w . m q l 5 . c o m / r u / c o d e / 2 0 2 2 3 /
/ / V R S m a r t G r i d M T 5 h t t p s : / / w w w . m q l 5 . c o m / r u / m a r k e t / p r o d u c t / 3 8 6 2 6 /
/ / V R S m a r t G r i d L i t e M T 5 h t t p s : / / w w w . m q l 5 . c o m / r u / c o d e / 2 5 5 2 8 /
/ / B l o g R U h t t p s : / / w w w . m q l 5 . c o m / r u / b l o g s / p o s t / 7 2 6 5 6 8
/ / B l o g E N h t t p s : / / w w w . m q l 5 . c o m / e n / b l o g s / p o s t / 7 2 6 5 6 9
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / | A l l p r o d u c t s o f t h e A u t h o r h t t p s : / / w w w . m q l 5 . c o m / r u / u s e r s / v o l d e m a r / s e l l e r
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
# 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 0 , T r a d i n g - g o P r o j e c t . "
# p r o p e r t y l i n k " h t t p s : / / t r a d i n g - g o . r u "
# p r o p e r t y v e r s i o n " 1 9 . 1 2 0 "
# p r o p e r t y d e s c r i p t i o n " "
# p r o p e r t y s t r i c t
e n u m E N U M _ S T
{
A w e r a g e = 0 , / / A w e r a g e
P a r t C l o s e = 1 / / P a r t C l o s e
} ;
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / * * /
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
i n p u t i n t i T a k e P r o f i t = 3 0 0 ; / / T a k e P r o f i t ( i n p i p s )
i n p u t d o u b l e i S t a r t L o t s = 0 . 0 1 ; / / S t a r t l o t
i n p u t d o u b l e i M a x i m a l L o t s = 2 . 5 6 ; / / M a x i m a l L o t s
i n p u t E N U M _ S T i C l o s e O r d e r = A w e r a g e ; / / T y p e c l o s e o r d e r s
i n p u t i n t i P o i n t O r d e r S t e p = 3 9 0 ; / / P o i n t o r d e r s t e p ( i n p i p s )
i n p u t i n t i M i n i m a l P r o f i t = 7 0 ; / / M i n i m a l p r o f i t f o r c l o s e g r i d ( i n p i p 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 n u m b e r )
i n p u t i n t i S l i p p a g e = 3 0 ; / / S l i p p a g e ( i n p i p s )
/ / - - -
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / * * /
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
i n t O n I n i t ( )
{
C o m m e n t ( " " ) ;
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 T i c k ( )
{
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 ;
i n t
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 ;
d o u b l e
o p = 0 , l t = 0 , t p = 0 ;
i n t
t k = 0 , b = 0 , s = 0 ;
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 ) )
i f ( O r d e r M a g i c N u m b e r ( ) = = i M a g i c N u m b e r )
i f ( O r d e r S y m b o l ( ) = = S y m b o l ( ) )
{
o p = 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 ( ) ) ;
l t = N o r m a l i z e D o u b l e ( O r d e r L o t s ( ) , 2 ) ;
t k = O r d e r T i c k e t ( ) ;
i f ( O r d e r T y p e ( ) = = O P _ B U Y )
{
b + + ;
i f ( o p > 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 ;
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 ;
}
i f ( o p < 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 ;
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 ;
}
}
/ / = = =
i f ( O r d e r T y p e ( ) = = O P _ S E L L )
{
s + + ;
i f ( o p > 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 ;
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 ;
}
i f ( o p < 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 ;
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 ;
}
}
}
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / /
d o u b l e A w e r a g e B u y P r i c e = 0 , A w e r a g e S e l P r i c e = 0 ;
i f ( i C l o s e O r d e r = = A w e r a g e )
{
i f ( b > = 2 )
A w e r a g e B u y P r i c e = N o r m a l i z e D o u b l e ( ( B u y P r i c e M a x * B u y P r i c e M a x L o t + B u y P r i c e M i n * B u y P r i c e M i n L o t ) / ( B u y P r i c e M a x L o t + B u y P r i c e M i n L o t ) + i M i n i m a l P r o f i t * P o i n t ( ) , D i g i t s ( ) ) ;
i f ( s > = 2 )
A w e r a g e S e l P r i c e = N o r m a l i z e D o u b l e ( ( S e l P r i c e M a x * S e l P r i c e M a x L o t + S e l P r i c e M i n * S e l P r i c e M i n L o t ) / ( S e l P r i c e M a x L o t + S e l P r i c e M i n L o t ) - i M i n i m a l P r o f i t * P o i n t ( ) , D i g i t s ( ) ) ;
}
i f ( i C l o s e O r d e r = = P a r t C l o s e )
{
i f ( b > = 2 )
A w e r a g e B u y P r i c e = N o r m a l i z e D o u b l e ( ( B u y P r i c e M a x * i S t a r t L o t s + B u y P r i c e M i n * B u y P r i c e M i n L o t ) / ( i S t a r t L o t s + B u y P r i c e M i n L o t ) + i M i n i m a l P r o f i t * P o i n t ( ) , D i g i t s ( ) ) ;
i f ( s > = 2 )
A w e r a g e S e l P r i c e = N o r m a l i z e D o u b l e ( ( S e l P r i c e M a x * S e l P r i c e M a x L o t + S e l P r i c e M i n * i S t a r t L o t s ) / ( S e l P r i c e M a x L o t + i S t a r t L o t s ) - i M i n i m a l P r o f i t * P o i n t ( ) , D i g i t s ( ) ) ;
}
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / /
d o u b l e B u y L o t = 0 , S e l L o t = 0 ;
i f ( B u y P r i c e M i n L o t = = 0 )
B u y L o t = i S t a r t L o t s ;
e l s e
B u y L o t = B u y P r i c e M i n L o t * 2 ;
i f ( S e l P r i c e M a x L o t = = 0 )
S e l L o t = i S t a r t L o t s ;
e l s e
S e l L o t = S e l P r i c e M a x L o t * 2 ;
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / /
i f ( i M a x i m a l L o t s > 0 )
{
i f ( B u y L o t > i M a x i m a l L o t s )
B u y L o t = i M a x i m a l L o t s ;
i f ( S e l L o t > i M a x i m a l L o t s )
S e l L o t = i M a x i m a l L o t s ;
}
i f ( ! C h e c k V o l u m e V a l u e ( B u y L o t ) | | ! C h e c k V o l u m e V a l u e ( S e l L o t ) )
r e t u r n ;
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / /
i f ( C l o s e [ 1 ] > O p e n [ 1 ] )
i f ( ( b = = 0 ) | | ( b > 0 & & ( B u y P r i c e M i n - A s k ) > ( i P o i n t O r d e r S t e p * P o i n t ( ) ) ) )
i f ( O r d e r S e n d ( S y m b o l ( ) , O P _ B U Y , N o r m a l i z e D o u b l e ( B u y L o t , 2 ) , N o r m a l i z e D o u b l e ( A s k , D i g i t s ( ) ) , i S l i p p a g e , 0 , 0 , " V R S e t k a L i t e " , i M a g i c N u m b e r , 0 , c l r G r e e n ) < 0 )
P r i n t ( " O r d e r S e n d e r r o r # " , G e t L a s t E r r o r ( ) ) ;
i f ( C l o s e [ 1 ] < O p e n [ 1 ] )
i f ( ( s = = 0 ) | | ( s > 0 & & ( B i d - S e l P r i c e M a x ) > ( i P o i n t O r d e r S t e p * P o i n t ( ) ) ) )
i f ( O r d e r S e n d ( S y m b o l ( ) , O P _ S E L L , N o r m a l i z e D o u b l e ( S e l L o t , 2 ) , N o r m a l i z e D o u b l e ( B i d , D i g i t s ( ) ) , i S l i p p a g e , 0 , 0 , " V R S e t k a L i t e " , i M a g i c N u m b e r , 0 , c l r G r e e n ) < 0 )
P r i n t ( " O r d e r S e n d e r r o r # " , G e t L a s t E r r o r ( ) ) ;
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / /
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 ) )
i f ( O r d e r M a g i c N u m b e r ( ) = = i M a g i c N u m b e r )
i f ( O r d e r S y m b o l ( ) = = S y m b o l ( ) )
{
o p = 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 ( ) ) ;
t p = N o r m a l i z e D o u b l e ( O r d e r T a k e P r o f i t ( ) , D i g i t s ( ) ) ;
l t = N o r m a l i z e D o u b l e ( O r d e r L o t s ( ) , 2 ) ;
t k = O r d e r T i c k e t ( ) ;
i f ( O r d e r T y p e ( ) = = O P _ B U Y & & b = = 1 & & t p = = 0 )
i f ( ! O r d e r M o d i f y ( t k , o p , O r d e r S t o p L o s s ( ) , N o r m a l i z e D o u b l e ( A s k + i T a k e P r o f i t * P o i n t ( ) , D i g i t s ( ) ) , 0 , c l r R e d ) )
P r i n t ( " O r d e r M o d i f y e r r o r # " , G e t L a s t E r r o r ( ) ) ;
i f ( O r d e r T y p e ( ) = = O P _ S E L L & & s = = 1 & & t p = = 0 )
i f ( ! O r d e r M o d i f y ( t k , o p , O r d e r S t o p L o s s ( ) , N o r m a l i z e D o u b l e ( B i d - i T a k e P r o f i t * P o i n t ( ) , D i g i t s ( ) ) , 0 , c l r R e d ) )
P r i n t ( " O r d e r M o d i f y e r r o r # " , G e t L a s t E r r o r ( ) ) ;
i f ( i C l o s e O r d e r = = A w e r a g e )
{
i f ( O r d e r T y p e ( ) = = O P _ B U Y & & b > = 2 )
{
i f ( t k = = B u y P r i c e M a x T i c | | t k = = B u y P r i c e M i n T i c )
i f ( B i d < A w e r a g e B u y P r i c e & & t p ! = A w e r a g e B u y P r i c e )
i f ( ! O r d e r M o d i f y ( t k , o p , O r d e r S t o p L o s s ( ) , A w e r a g e B u y P r i c e , 0 , c l r R e d ) )
P r i n t ( " O r d e r M o d i f y e r r o r # " , G e t L a s t E r r o r ( ) ) ;
i f ( t k ! = B u y P r i c e M a x T i c & & t k ! = B u y P r i c e M i n T i c & & t p ! = 0 )
i f ( ! O r d e r M o d i f y ( t k , o p , 0 , 0 , 0 , c l r R e d ) )
P r i n t ( " O r d e r M o d i f y e r r o r # " , G e t L a s t E r r o r ( ) ) ;
}
i f ( O r d e r T y p e ( ) = = O P _ S E L L & & s > = 2 )
{
i f ( t k = = S e l P r i c e M a x T i c | | t k = = S e l P r i c e M i n T i c )
i f ( A s k > A w e r a g e S e l P r i c e & & t p ! = A w e r a g e S e l P r i c e )
i f ( ! O r d e r M o d i f y ( t k , o p , O r d e r S t o p L o s s ( ) , A w e r a g e S e l P r i c e , 0 , c l r R e d ) )
P r i n t ( " O r d e r M o d i f y e r r o r # " , G e t L a s t E r r o r ( ) ) ;
i f ( t k ! = S e l P r i c e M a x T i c & & t k ! = S e l P r i c e M i n T i c & & t p ! = 0 )
i f ( ! O r d e r M o d i f y ( t k , o p , 0 , 0 , 0 , c l r R e d ) )
P r i n t ( " O r d e r M o d i f y e r r o r # " , G e t L a s t E r r o r ( ) ) ;
}
}
}
i f ( i C l o s e O r d e r = = P a r t C l o s e )
{
i f ( b > = 2 )
i f ( A w e r a g e B u y P r i c e > 0 & & B i d > = A w e r a g e B u y P r i c e )
{
i f ( ! O r d e r C l o s e ( B u y P r i c e M a x T i c , i S t a r t L o t s , B i d , i S l i p p a g e , c l r R e d ) )
P r i n t ( " O r d e r C l o s e E r r o r " , G e t L a s t E r r o r ( ) ) ;
i f ( ! O r d e r C l o s e ( B u y P r i c e M i n T i c , B u y P r i c e M i n L o t , B i d , i S l i p p a g e , c l r R e d ) )
P r i n t ( " O r d e r C l o s e E r r o r " , G e t L a s t E r r o r ( ) ) ;
}
i f ( s > = 2 )
i f ( A w e r a g e S e l P r i c e > 0 & & A s k < = A w e r a g e S e l P r i c e )
{
i f ( ! O r d e r C l o s e ( S e l P r i c e M i n T i c , i S t a r t L o t s , A s k , i S l i p p a g e , c l r R e d ) )
P r i n t ( " O r d e r C l o s e E r r o r " , G e t L a s t E r r o r ( ) ) ;
i f ( ! O r d e r C l o s e ( S e l P r i c e M a x T i c , S e l P r i c e M a x L o t , B i d , i S l i p p a g e , c l r R e d ) )
P r i n t ( " O r d e r C l o s e E r r o r " , G e t L a s t E r r o r ( ) ) ;
}
}
}
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / * * /
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
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 )
{
}
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / * * /
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
b o o l C h e c k V o l u m e V a l u e ( d o u b l e v o l u m e )
{
/ / - - - <8=8<0;L=> 4>?CAB8<K9 >1J5< 4;O B>@3>2KE >?5@0F89
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 ) ;
/ / - - - <0:A8<0;L=> 4>?CAB8<K9 >1J5< 4;O B>@3>2KE >?5@0F89
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 ) ;
/ / - - - ?>;CG8< <8=8<0;L=CN 3@040F8N >1J5<0
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 ) ;
}
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
/ / * * /
/ / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /
Comments