Orders Execution
Miscellaneous
0
Views
0
Downloads
0
Favorites
keg of money
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | >G>=>: 45=53/ K e g o f m o n e y . m q 4 |
/ / | h t t p : / / w a v e . u c o z . c o m |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# p r o p e r t y c o p y r i g h t " >;=>1;>3"
# p r o p e r t y l i n k " h t t p : / / w a v e . u c o z . c o m "
# 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
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
c l a s s C L i b A r r a y
{
p r i v a t e :
/ / @>25@:0 ACI5AB2>20=8O 2 <0AA825 M;5<5=B0 A 7040==K< 7=0G5=85<
i n t F i n d ( s t r i n g & a A r r a y [ ] , s t r i n g a V a l u e )
{
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a A r r a y ) ; i + + )
{
i f ( a A r r a y [ i ] = = a V a l u e )
{
r e t u r n ( i ) ; / / -;5<5=B ACI5AB2C5B, 2>72@0I05< 8=45:A M;5<5=B0
}
}
r e t u r n ( - 1 ) ; / / 5B B0:>3> M;5<5=B0, 2>72@0I05< - 1
}
p u b l i c :
/ / >102:0 2 :>=5F <0AA820
v o i d A d d T o E n d ( s t r i n g & a A r r a y [ ] , s t r i n g a V a l u e )
{
i n t m _ s i z e = A r r a y S i z e ( a A r r a y ) ;
A r r a y R e s i z e ( a A r r a y , m _ s i z e + 1 ) ;
a A r r a y [ m _ s i z e ] = a V a l u e ;
}
/ / >102:0 2 :>=5F <0AA820 ?@8 CA;>288 >BACBAB28O 2 <0AA825 B0:>3> 7=0G5=8O
v o i d A d d T o E n d I f N o t E x i s t s s ( s t r i n g & a A r r a y [ ] , s t r i n g a V a l u e )
{
i f ( F i n d ( a A r r a y , a V a l u e ) = = - 1 )
{
A d d T o E n d ( a A r r a y , a V a l u e ) ;
}
}
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n S t a r t ( )
{
C L i b A r r a y a r ;
d o u b l e l o t s , l e v l o s s , i n c o m e ;
i n t i = 0 , j = 0 , k = 0 , s i z e = 0 , n o n T P , n o n S L ;
i n t T o t a l = O r d e r s T o t a l ( ) ;
s t r i n g N a m e G r u p [ ] ; / / <0AA82 A =0720=8O<8 3@C??
s t r i n g m s g ,
m s g 1 , m s g 2 , m s g 3 , m s g 4 , m s g 5 , u s d = A c c o u n t C u r r e n c y ( ) ;
/ / - - -
f o r ( i = 0 ; i < T o t a l ; i + + ) / / 0=>A8< 2 <0AA82 A?8A>: B>@3C5<KE 8=AB@C<5=B>2
{
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 ;
a r . A d d T o E n d I f N o t E x i s t s s ( N a m e G r u p , O r d e r S y m b o l ( ) ) ;
}
s i z e = A r r a y S i z e ( N a m e G r u p ) ;
m s g + = " B>@3C5<KE 8=AB@C<5B>2: " + I n t e g e r T o S t r i n g ( s i z e ) + " \ n " ;
f o r ( j = 0 ; j < s i z e ; j + + )
{
n o n T P = 0 ;
n o n S L = 0 ;
l o t s = 0 ;
l e v l o s s = 0 ;
i n c o m e = 0 ;
f o r ( k = 0 ; k < T o t a l ; k + + )
{
i f ( ! O r d e r S e l e c t ( k , 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 ( ) = = N a m e G r u p [ j ] )
{
i f ( ( O r d e r T y p e ( ) = = O P _ B U Y ) ) l o t s = l o t s + O r d e r L o t s ( ) ;
i f ( ( O r d e r T y p e ( ) = = O P _ S E L L ) ) l o t s = l o t s - O r d e r L o t s ( ) ;
i f ( ( O r d e r T y p e ( ) = = O P _ B U Y ) & & ( O r d e r S t o p L o s s ( ) > 0 ) ) { l e v l o s s = l e v l o s s - ( O r d e r L o t s ( ) * ( ( ( O r d e r O p e n P r i c e ( ) - O r d e r S t o p L o s s ( ) ) / M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ P O I N T ) ) * M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ T I C K V A L U E ) ) ) ; }
i f ( ( O r d e r T y p e ( ) = = O P _ B U Y ) & & ( O r d e r T a k e P r o f i t ( ) > 0 ) ) { i n c o m e = i n c o m e + ( O r d e r L o t s ( ) * ( ( ( O r d e r T a k e P r o f i t ( ) - O r d e r O p e n P r i c e ( ) ) / M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ P O I N T ) ) * M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ T I C K V A L U E ) ) ) ; }
i f ( ( O r d e r T y p e ( ) = = O P _ S E L L ) & & ( O r d e r S t o p L o s s ( ) > 0 ) ) { l e v l o s s = l e v l o s s - ( O r d e r L o t s ( ) * ( ( ( O r d e r S t o p L o s s ( ) - O r d e r O p e n P r i c e ( ) ) / M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ P O I N T ) ) * M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ T I C K V A L U E ) ) ) ; }
i f ( ( O r d e r T y p e ( ) = = O P _ S E L L ) & & ( O r d e r T a k e P r o f i t ( ) > 0 ) ) { i n c o m e = i n c o m e + ( O r d e r L o t s ( ) * ( ( ( O r d e r O p e n P r i c e ( ) - O r d e r T a k e P r o f i t ( ) ) / M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ P O I N T ) ) * M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ T I C K V A L U E ) ) ) ; }
i f ( O r d e r T a k e P r o f i t ( ) < = 0 ) n o n T P + + ;
i f ( O r d e r S t o p L o s s ( ) = = 0 ) n o n S L + + ;
}
}
i f ( l o t s > 0 ) m s g 5 = " | >B>2: ! " + D o u b l e T o S t r ( l o t s , 2 ) ;
i f ( l o t s < 0 ) m s g 5 = " | >B>2: ! " + D o u b l e T o S t r ( - l o t s , 2 ) ;
i f ( l e v l o s s < 0 ) { m s g 1 = " | >7<. C1. : " + D o u b l e T o S t r ( - l e v l o s s , 2 ) + " " + u s d + " | @8A: " + D o u b l e T o S t r ( ( - 1 0 0 * l e v l o s s / A c c o u n t B a l a n c e ( ) ) , 2 ) + " % | " ; }
i f ( l e v l o s s > = 0 ) { m s g 1 = " | / #: " + D o u b l e T o S t r ( l e v l o s s , 2 ) + " " + u s d + " | 4>E>4 " + D o u b l e T o S t r ( ( ( 1 0 0 * l e v l o s s / A c c o u n t B a l a n c e ( ) ) ) , 2 ) + " % | " ; }
/ / i f ( l e v l o s s = = 0 ) { m s g 1 = " " ; }
i f ( i n c o m e > 0 & & ( O r d e r T a k e P r o f i t ( ) > 0 ) ) { m s g 1 = " | >7<>6=K9 4>E>4: " + D o u b l e T o S t r ( i n c o m e , 2 ) + " " + u s d ; }
i f ( i n c o m e = = 0 ) { m s g 2 = " " ; }
i f ( n o n S L > 0 ) { m s g 3 = " | 5BC S L : " + I n t e g e r T o S t r i n g ( n o n S L ) ; } e l s e { m s g 3 = " " ; } ;
i f ( n o n T P > 0 ) { m s g 4 = " | 5BC T P : " + I n t e g e r T o S t r i n g ( n o n T P ) ; } e l s e { m s g 4 = " " ; } ; / / 5A;8 7=0G5=85 n o n T P = 0 , B> B59: ?@>D8BK 2KAB2;5=K
m s g + = N a m e G r u p [ j ] ;
m s g + = m s g 5 ;
m s g + = m s g 3 ;
m s g + = m s g 4 ;
m s g + = m s g 1 ;
m s g + = m s g 2 + " \ n " ;
}
/ / >1I85 ?> 2A5<C AG5BC
n o n T P = 0 ;
n o n S L = 0 ;
l o t s = 0 ;
l e v l o s s = 0 ;
i n c o m e = 0 ;
f o r ( k = 0 ; k < T o t a l ; k + + )
{
i f ( ! O r d e r S e l e c t ( k , 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 T y p e ( ) = = O P _ B U Y ) & & ( O r d e r S t o p L o s s ( ) > 0 ) ) { l e v l o s s = l e v l o s s - ( O r d e r L o t s ( ) * ( ( ( O r d e r O p e n P r i c e ( ) - O r d e r S t o p L o s s ( ) ) / M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ P O I N T ) ) * M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ T I C K V A L U E ) ) ) ; }
i f ( ( O r d e r T y p e ( ) = = O P _ B U Y ) & & ( O r d e r T a k e P r o f i t ( ) > 0 ) ) { i n c o m e = i n c o m e + ( O r d e r L o t s ( ) * ( ( ( O r d e r T a k e P r o f i t ( ) - O r d e r O p e n P r i c e ( ) ) / M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ P O I N T ) ) * M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ T I C K V A L U E ) ) ) ; }
i f ( ( O r d e r T y p e ( ) = = O P _ S E L L ) & & ( O r d e r S t o p L o s s ( ) > 0 ) ) { l e v l o s s = l e v l o s s - ( O r d e r L o t s ( ) * ( ( ( O r d e r S t o p L o s s ( ) - O r d e r O p e n P r i c e ( ) ) / M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ P O I N T ) ) * M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ T I C K V A L U E ) ) ) ; }
i f ( ( O r d e r T y p e ( ) = = O P _ S E L L ) & & ( O r d e r T a k e P r o f i t ( ) > 0 ) ) { i n c o m e = i n c o m e + ( O r d e r L o t s ( ) * ( ( ( O r d e r O p e n P r i c e ( ) - O r d e r T a k e P r o f i t ( ) ) / M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ P O I N T ) ) * M a r k e t I n f o ( O r d e r S y m b o l ( ) , M O D E _ T I C K V A L U E ) ) ) ; }
}
m s g + = " _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ \ n " ;
m s g + = m s g 1 = " 0@0=B. 10;0=A: " + D o u b l e T o S t r ( ( A c c o u n t B a l a n c e ( ) + l e v l o s s ) , 1 ) + " " + u s d ;
i f ( l e v l o s s < 0 ) { m s g 2 = " | >7<>6=K9 C1KB>:: " + D o u b l e T o S t r ( - l e v l o s s , 2 ) + " " + u s d + " | @8A: " + D o u b l e T o S t r ( ( 1 0 0 * l e v l o s s / A c c o u n t B a l a n c e ( ) ) , 1 ) + " % | " ; }
i f ( l e v l o s s > 0 ) { m s g 2 = " | / #: " + D o u b l e T o S t r ( l e v l o s s , 2 ) + " " + u s d + " | 4>E>4 " + D o u b l e T o S t r ( ( 1 0 0 * l e v l o s s / A c c o u n t B a l a n c e ( ) ) , 1 ) + " % | " ; }
m s g + = m s g 2 ;
M e s s a g e B o x ( m s g , " >G>=>: 45=53" ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
Comments