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