Price Data Components
Orders Execution
Miscellaneous
0
Views
0
Downloads
0
Favorites
S-v1
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | P r o j e c t N a m e |
/ / | C o p y r i g h t 2 0 1 8 , C o m p a n y N a m e |
/ / | h t t p : / / w w w . c o m p a n y n a m e . n e t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# p r o p e r t y c o p y r i g h t " C o p y r i g h t 2 0 1 9 , S E M "
# 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 "
# p r o p e r t y v e r s i o n " 1 . 0 0 "
/ / # i n c l u d e < T r a d e \ O r d e r I n f o . m q h >
# 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 c l u d e < T r a d e \ S y m b o l I n f o . m q h >
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 O r d e r I n f o m _ o r d e r ;
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 S y m b o l I n f o m _ s y m b o l ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e _ S Y M B O L _ P O I N 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 _ P O I N T ) ;
i n t _ S Y M B O L _ D I G I T S _ = ( i n t ) 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 _ D I G I T S ) ;
i n t E X P E R T _ M A G I C = 1 0 1 0 1 ; / / m a g i c n u m b e r
E N U M _ T I M E F R A M E S _ p e r i o d = P E R I O D _ C U R R E N T ; / / p e r i o d
i n p u t i n t T r a i l i n g S t o p _ S T O P S _ L E V E L B r e a k e v e n = 1 0 ;
i n p u t i n t T r a i l i n g S t o p _ S T O P S _ L E V E L = 3 5 ; / / T r a i l i n g S t o p L E V E L
i n p u t i n t T a k e P r o f i t = 1 0 0 ; / / P r o f i t
/ / i n t l i m i t _ t o t a l = 1 9 0 ;
i n p u t i n t l i m i t _ t o t a l _ s y m b o l = 1 9 0 ; / / 8<8B ?>78F89
i n p u t d o u b l e M a x i m u m R i s k = 0 . 0 1 ; / / M a x i m u m R i s k i n p e r c e n t a g e
i n p u t d o u b l e D e c r e a s e F a c t o r = 3 ; / / D e s c r e a s e f a c t o r
s t r i n g _ n a m e [ ] = { " l a b e l "
, " B U Y _ L o t " , " B U Y _ C l o s e _ P r o f i t " , " B U Y _ C l o s e _ L o s s " , " B U Y _ C l o s e _ A l l " , " B U Y _ B e z U b u t o k " , " B U Y _ T a k e P r o f i t " , " B U Y _ T r a i l i n g "
, " S E L L _ L o t " , " S E L L _ C l o s e _ P r o f i t " , " S E L L _ C l o s e _ L o s s " , " S E L L _ C l o s e _ A l l " , " S E L L _ B e z U b u t o k " , " S E L L _ T a k e P r o f i t " , " S E L L _ T r a i l i n g "
, " B u y S t o p " , " B u y L i m i t " , " S e l l S t o p " , " S e l l L i m i t " , " B u y S e l l S t o p " , " B u y S e l l L i m i t " , " S t o p L i m i t _ C l o s e "
, " T r a i l i n g "
} ;
s t r i n g _ n a m e O b e c t = S y m b o l ( ) + s t r i n g ( E X P E R T _ M A G I C ) ;
d o u b l e _ C l o s e T i k = 0 . 0 0 ;
d o u b l e _ C l o s e _ 1 = 0 . 0 0 ;
d o u b l e _ C l o s e _ 2 = 0 . 0 0 ;
d o u b l e _ O p e n T i k = 0 . 0 0 ;
d o u b l e _ O p e n _ 1 = 0 . 0 0 ;
d o u b l e _ O p e n _ 2 = 0 . 0 0 ;
d o u b l e _ _ _ F _ p r o f i t _ _ _ B = 0 . 0 ;
d o u b l e _ _ _ F _ p r o f i t _ _ _ S = 0 . 0 ;
/ / d o u b l e m _ a d j u s t e d _ p o i n t ; / / p o i n t v a l u e a d j u s t e d f o r 3 o r 5 p o i n t s
i n p u t u s h o r t I n p G e p = 5 ; / / BABC? >B B5:CI59 F5=K 4;O ?5@2>3> >B;>65==>3> >@45@0;
i n p u t u s h o r t I n p S t e p = 1 ; / / (03 <564C >B;>65==K<8 >@45@0<8;
i n p u t u c h a r I n p Q u a n t i t y = 5 ; / / >;8G5AB2> 2KAB02;O5<KE >@45@>2;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n p u t u s h o r t I n p S t o p L o s s = 0 ; / / S t o p L o s s ( i n p i p s )
i n p u t u s h o r t I n p T a k e P r o f i t = 0 ; / / T a k e P r o f i t ( i n p i p s )
u l o n g m _ s l i p p a g e = 3 0 ; / / s l i p p a g e
/ / d o u b l e m _ a d j u s t e d _ p o i n t S t o p ; / / p o i n t v a l u e a d j u s t e d f o r 3 o r 5 p o i n t s
d o u b l e E x t G e p = 0 . 0 ;
d o u b l e E x t S t e p = 0 . 0 ;
d o u b l e E x t S t o p L o s s = 0 . 0 ;
d o u b l e E x t T a k e P r o f i t = 0 . 0 ;
e n u m E N U M _ P E N D I N G _ O R D E R S
{
b u y _ l i m i t = 0 , / / B u y L i m i t
b u y _ s t o p = 1 , / / B u y S t o p
s e l l _ l i m i t = 2 , / / S e l l L i m i t
s e l l _ s t o p = 3 / / S e l l S t o p
} ;
i n p u t u i n t R T O T A L = 4 ; / / '8A;> ?>2B>@>2 ?@8 =5C40G=KE A45;:0E
/ / i n p u t u i n t S L E E P T I M E = 1 ; / / @5<O ?0C7K <564C ?>2B>@0<8 2 A5:C=40E
i n p u t u i n t D e v i a t i o n _ = 1 0 ; / / B:;>=5=85 F5=K
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | 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 ( )
{
E v e n t S e t T i m e r ( 1 ) ; / / :>;8G5AB2> A5:C=4
B u t t o n C r e a t e F o r ( ) ;
_ C l o s e T i k = i C l o s e ( N U L L , _ p e r i o d , 0 ) ;
_ C l o s e _ 1 = i C l o s e ( N U L L , _ p e r i o d , 1 ) ;
_ C l o s e _ 2 = i C l o s e ( N U L L , _ p e r i o d , 2 ) ;
_ O p e n T i k = i O p e n ( N U L L , _ p e r i o d , 0 ) ;
_ O p e n _ 1 = i O p e n ( N U L L , _ p e r i o d , 1 ) ;
_ O p e n _ 2 = i O p e n ( N U L L , _ p e r i o d , 2 ) ;
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 )
{
f o r ( i n t i = 0 ; i < A r r a y S i z e ( _ n a m e ) ; i + + )
{
O b j e c t D e l e t e ( 0 , _ n a m e O b e c t + _ n a m e [ i ] ) ;
} ;
E v e n t K i l l T i m e r ( ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i c k ( )
{
/ / O b j e c t G e t I n t e g e r ( 0 , " B U Y " , O B J P R O P _ S T A T E , 0 ) ;
_ C l o s e T i k = i C l o s e ( N U L L , _ p e r i o d , 0 ) ;
_ C l o s e _ 1 = i C l o s e ( N U L L , _ p e r i o d , 1 ) ;
_ C l o s e _ 2 = i C l o s e ( N U L L , _ p e r i o d , 2 ) ;
_ O p e n T i k = i O p e n ( N U L L , _ p e r i o d , 0 ) ;
_ O p e n _ 1 = i O p e n ( N U L L , _ p e r i o d , 1 ) ;
_ O p e n _ 2 = i O p e n ( N U L L , _ p e r i o d , 2 ) ;
_ B U Y ( ) ;
_ S E L L ( ) ;
/ / d o u b l e P R O F I T = 0 . 1 ;
/ / i n t t o t a l = P o s i t i o n s T o t a l ( ) ; / / :>;8G5AB2> >B:@KBKE ?>78F89
/ / i f ( t o t a l > 0 )
/ / {
/ / u l o n g p o s i t i o n _ t i c k e t = P o s i t i o n G e t T i c k e t ( t o t a l - 1 ) ; / / B8:5B ?>78F88
/ / / / P R O F I 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 _ P R O F I T ) ; / / >1J5< ?>78F88
/ /
/ / } ;
/ / i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " T r a i l i n g _ B U Y " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
/ / { _ T r a i l i n g _ B U Y ( ) ; } ;
/ / i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " T r a i l i n g _ S E L L " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
/ / { _ T r a i l i n g _ S E L L ( ) ; } ;
/ / i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " T r a i l i n g " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
/ / { _ T r a i l i n g ( ) ; } ;
/ /
/ /
/ / i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B e z U b u t o k _ B U Y " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
/ / { _ B T r a i l i n g _ B U Y ( ) ; } ;
/ / i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B e z U b u t o k _ S E L L " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
/ / { _ B T r a i l i n g _ S E L L ( ) ; } ;
/ /
/ /
/ / i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " T a k e P r o f i t _ B U Y " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
/ / { _ T a k e P r o f i t _ B U Y ( ) ; } ;
/ / i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " T a k e P r o f i t _ S E L L " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
/ / { _ T a k e P r o f i t _ S E L L ( ) ; } ;
/ / i f ( t o t a l < l i m i t _ t o t a l _ s y m b o l ) / / :>;8G5AB2> >B:@KBKE ?>78F89
/ / {
/ / / / i f ( P R O F I T > 0 )
/ / {
/ / / / i f ( _ O p e n _ 2 < _ C l o s e _ 2 )
/ / {
/ / / / i f ( _ O p e n _ 1 < _ C l o s e _ 1 )
/ / {
/ / i f ( _ O p e n T i k < _ C l o s e T i k )
/ / {
/ / i f ( F _ p r o f i t ( P O S I T I O N _ T Y P E _ B U Y ) > 0 . 0 0 )
/ / {
/ / i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
/ / {
/ /
/ / O p e n B u y ( T r a d e S i z e O p t i m i z e d ( ) ) ;
/ / } ;
/ /
/ / i f ( ( F _ p r o f i t ( P O S I T I O N _ T Y P E _ B U Y ) - _ _ _ F _ p r o f i t _ _ _ B ) > 0 )
/ / {
/ / / / _ T r a i l i n g _ B U Y ( ) ;
/ /
/ / _ _ _ F _ p r o f i t _ _ _ B = F _ p r o f i t ( P O S I T I O N _ T Y P E _ B U Y ) ;
/ / } ;
/ /
/ / } ;
/ / } ;
/ / } ;
/ / } ;
/ / / / i f ( _ O p e n _ 2 > _ C l o s e _ 2 )
/ / {
/ / / / i f ( _ O p e n _ 1 > _ C l o s e _ 1 )
/ / {
/ / i f ( _ O p e n T i k > _ C l o s e T i k )
/ / {
/ / i f ( F _ p r o f i t ( P O S I T I O N _ T Y P E _ S E L L ) > 0 . 0 0 )
/ / {
/ / i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
/ / {
/ /
/ / O p e n S e l l ( T r a d e S i z e O p t i m i z e d ( ) ) ;
/ / } ;
/ /
/ / i f ( ( F _ p r o f i t ( P O S I T I O N _ T Y P E _ S E L L ) - _ _ _ F _ p r o f i t _ _ _ S ) > 0 )
/ / {
/ / / / _ T r a i l i n g _ S E L L ( ) ;
/ /
/ / _ _ _ F _ p r o f i t _ _ _ S = F _ p r o f i t ( P O S I T I O N _ T Y P E _ S E L L ) ;
/ / } ;
/ / } ;
/ / } ;
/ / } ;
/ / } ;
/ / } ;
/ /
/ / / / _ T r a i l i n g ( ) ;
/ / / / _ p r o f i t _ ( ) ;
/ / } ;
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ B U Y ( )
{
/ / i f ( _ O p e n _ 2 < _ C l o s e _ 2 )
{
/ / i f ( _ O p e n _ 1 < _ C l o s e _ 1 )
{
i f ( _ O p e n T i k < _ C l o s e T i k )
{
i f ( F _ p r o f i t ( P O S I T I O N _ T Y P E _ B U Y ) > 0 . 0 0 )
{
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ L o t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O p e n B u y ( T r a d e S i z e O p t i m i z e d ( ) ) ;
i f ( ( F _ p r o f i t ( P O S I T I O N _ T Y P E _ B U Y ) - _ _ _ F _ p r o f i t _ _ _ B ) > 0 )
{
_ _ _ F _ p r o f i t _ _ _ B = F _ p r o f i t ( P O S I T I O N _ T Y P E _ B U Y ) ;
} ;
} ;
} ;
} ;
} ;
} ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ S E L L ( )
{
/ / i f ( _ O p e n _ 2 > _ C l o s e _ 2 )
{
/ / i f ( _ O p e n _ 1 > _ C l o s e _ 1 )
{
i f ( _ O p e n T i k > _ C l o s e T i k )
{
i f ( F _ p r o f i t ( P O S I T I O N _ T Y P E _ S E L L ) > 0 . 0 0 )
{
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ L o t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O p e n S e l l ( T r a d e S i z e O p t i m i z e d ( ) ) ;
} ;
i f ( ( F _ p r o f i t ( P O S I T I O N _ T Y P E _ S E L L ) - _ _ _ F _ p r o f i t _ _ _ S ) > 0 )
{
_ _ _ F _ p r o f i t _ _ _ S = F _ p r o f i t ( P O S I T I O N _ T Y P E _ S E L L ) ;
} ;
} ;
} ;
} ;
} ;
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l _ B U T T O N ( )
{
/ / 5>1E>48<K5 ?5@5<5==K5
d o u b l e B U Y _ L o t = 0 . 0 0 ;
d o u b l e B U Y _ C l o s e _ P r o f i t = 0 . 0 0 ;
d o u b l e B U Y _ C l o s e _ L o s s = 0 . 0 0 ;
d o u b l e B U Y _ C l o s e _ A l l = 0 . 0 0 ;
i n t B U Y _ B e z U b u t o k = 0 ;
i n t B U Y _ T a k e P r o f i t = 0 ;
i n t B U Y _ T r a i l i n g = 0 ;
d o u b l e S E L L _ L o t = 0 . 0 0 ;
d o u b l e S E L L _ C l o s e _ P r o f i t = 0 . 0 0 ;
d o u b l e S E L L _ C l o s e _ L o s s = 0 . 0 0 ;
d o u b l e S E L L _ C l o s e _ A l l = 0 . 0 0 ;
i n t S E L L _ B e z U b u t o k = 0 ;
i n t S E L L _ T a k e P r o f i t = 0 ;
i n t S E L L _ T r a i l i n g = 0 ;
d o u b l e B u y S t o p = 0 . 0 0 ;
d o u b l e B u y L i m i t = 0 . 0 0 ;
d o u b l e S e l l S t o p = 0 . 0 0 ;
d o u b l e S e l l L i m i t = 0 . 0 0 ;
i n t B u y S e l l S t o p = 0 ;
i n t B u y S e l l L i m i t = 0 ;
i n t S t o p L i m i t _ C l o s e = 0 ;
i n t T r a i l i n g = 0 ;
/ / 5>1E>48<K5 ?5@5<5==K5
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / 0AG5B 40==KE 4;O >B>1@065=8O
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - ) / / r e t u r n s t h e n u m b e r o f o p e n p o s i t i o n s
{
i f ( P o s i t i o n G e t S y m b o l ( i ) = = S y m b o l ( ) )
{
T r a i l i n g + = 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 )
{
i f ( m _ p o s i t i o n . S t o p L o s s ( ) > m _ p o s i t i o n . P r i c e O p e n ( ) )
{
B U Y _ B e z U b u t o k + = 1 ;
} ;
i f ( m _ p o s i t i o n . T a k e P r o f i t ( ) > 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 . T a k e P r o f i t ( ) > 0 )
{
B U Y _ T a k e P r o f i t + = 1 ;
} ;
B U Y _ 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 ) ;
B U Y _ T r a i l i n g + = 1 ;
i f ( 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 O F I T ) > 0 )
{
B U Y _ C l o s e _ P r o f i 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 _ P R O F I T ) ;
}
e l s e
{
B U Y _ C l o s e _ L o s s + = 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 O F I T ) ;
} ;
B U Y _ C l o s e _ A l l + = 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 O F I T ) ;
}
e l s e
{
i f ( m _ p o s i t i o n . S t o p L o s s ( ) < 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 . S t o p L o s s ( ) > 0 )
{
S E L L _ B e z U b u t o k + = 1 ;
} ;
i f ( m _ p o s i t i o n . T a k e P r o f i t ( ) < 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 . T a k e P r o f i t ( ) > 0 )
{
S E L L _ T a k e P r o f i t + = 1 ;
} ;
S E L L _ 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 ) ;
S E L L _ T r a i l i n g + = 1 ;
i f ( 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 O F I T ) > 0 )
{
S E L L _ C l o s e _ P r o f i 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 _ P R O F I T ) ;
}
e l s e
{
S E L L _ C l o s e _ L o s s + = 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 O F I T ) ;
} ;
S E L L _ C l o s e _ A l l + = 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 O F I T ) ;
} ;
} ;
} ;
/ / O R D E R
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - ) / / r e t u r n s t h e n u m b e r o f o p e n p o s i t i o n s
{
S t o p L i m i t _ C l o s e + = 1 ;
i f ( O r d e r G e t T i c k e t ( i ) > 0 )
{
i f ( O r d e r G e t S t r i n g ( O R D E R _ S Y M B O L ) = = S y m b o l ( ) )
{
i n t _ O R D E R _ T Y P E _ = ( i n t ) O r d e r G e t I n t e g e r ( O R D E R _ T Y P E ) ;
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 )
{
B u y S t o p + = O r d e r G e t D o u b l e ( O R D E R _ V O L U M E _ I N I T I A L ) ;
B u y S e l l S t o p + = 1 ;
}
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 )
{
S e l l S t o p + = O r d e r G e t D o u b l e ( O R D E R _ V O L U M E _ I N I T I A L ) ;
B u y S e l l S t o p + = 1 ;
}
e l s e
i f ( _ O R D E R _ T Y P E _ = = O R D E R _ T Y P E _ B U Y _ L I M I T )
{
B u y L i m i t + = O r d e r G e t D o u b l e ( O R D E R _ V O L U M E _ I N I T I A L ) ;
B u y S e l l L i m i t + = 1 ;
}
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 _ L I M I T )
{
S e l l L i m i t + = O r d e r G e t D o u b l e ( O R D E R _ V O L U M E _ I N I T I A L ) ;
B u y S e l l L i m i t + = 1 ;
} ;
} ;
} ;
} ;
/ / 0AG5B 40==KE 4;O >B>1@065=8O
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / / / 0720=8O :=>?>:
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " B U Y _ L o t " , O B J P R O P _ T E X T , " B U Y L o t ( " + D o u b l e T o S t r i n g ( B U Y _ L o t , 2 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ P r o f i t " , O B J P R O P _ T E X T , " C l o s e P r o f i t ( " + D o u b l e T o S t r i n g ( B U Y _ C l o s e _ P r o f i t , 2 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ L o s s " , O B J P R O P _ T E X T , " C l o s e L o s s ( " + D o u b l e T o S t r i n g ( B U Y _ C l o s e _ L o s s , 2 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ A l l " , O B J P R O P _ T E X T , " C l o s e A l l ( " + D o u b l e T o S t r i n g ( B U Y _ C l o s e _ A l l , 2 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " B U Y _ B e z U b u t o k " , O B J P R O P _ T E X T , " B r e a k e v e n ( " + I n t e g e r T o S t r i n g ( B U Y _ B e z U b u t o k , 0 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " B U Y _ T a k e P r o f i t " , O B J P R O P _ T E X T , " T a k e P r o f i t ( " + I n t e g e r T o S t r i n g ( B U Y _ T a k e P r o f i t , 0 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " B U Y _ T r a i l i n g " , O B J P R O P _ T E X T , " T r a i l i n g ( " + I n t e g e r T o S t r i n g ( B U Y _ T r a i l i n g , 0 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " S E L L _ L o t " , O B J P R O P _ T E X T , " S E L L L o t ( " + D o u b l e T o S t r i n g ( S E L L _ L o t , 2 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ P r o f i t " , O B J P R O P _ T E X T , " C l o s e P r o f i t ( " + D o u b l e T o S t r i n g ( S E L L _ C l o s e _ P r o f i t , 2 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ L o s s " , O B J P R O P _ T E X T , " C l o s e L o s s ( " + D o u b l e T o S t r i n g ( S E L L _ C l o s e _ L o s s , 2 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ A l l " , O B J P R O P _ T E X T , " C l o s e A l l ( " + D o u b l e T o S t r i n g ( S E L L _ C l o s e _ A l l , 2 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " S E L L _ B e z U b u t o k " , O B J P R O P _ T E X T , " B r e a k e v e n ( " + I n t e g e r T o S t r i n g ( S E L L _ B e z U b u t o k , 0 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " S E L L _ T a k e P r o f i t " , O B J P R O P _ T E X T , " T a k e P r o f i t ( " + I n t e g e r T o S t r i n g ( S E L L _ T a k e P r o f i t , 0 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " S E L L _ T r a i l i n g " , O B J P R O P _ T E X T , " T r a i l i n g ( " + I n t e g e r T o S t r i n g ( S E L L _ T r a i l i n g , 0 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " B u y S t o p " , O B J P R O P _ T E X T , " B u y S t o p ( " + D o u b l e T o S t r i n g ( B u y S t o p , 2 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " B u y L i m i t " , O B J P R O P _ T E X T , " B u y L i m i t ( " + D o u b l e T o S t r i n g ( B u y L i m i t , 2 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " S e l l S t o p " , O B J P R O P _ T E X T , " S e l l S t o p ( " + D o u b l e T o S t r i n g ( S e l l S t o p , 2 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " S e l l L i m i t " , O B J P R O P _ T E X T , " S e l l L i m i t ( " + D o u b l e T o S t r i n g ( S e l l L i m i t , 2 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " B u y S e l l S t o p " , O B J P R O P _ T E X T , " B u y S e l l S t o p ( " + I n t e g e r T o S t r i n g ( B u y S e l l S t o p , 0 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " B u y S e l l L i m i t " , O B J P R O P _ T E X T , " B u y S e l l L i m i t ( " + I n t e g e r T o S t r i n g ( B u y S e l l L i m i t , 0 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " S t o p L i m i t _ C l o s e " , O B J P R O P _ T E X T , " S t o p L i m i t C l o s e ( " + I n t e g e r T o S t r i n g ( S t o p L i m i t _ C l o s e , 0 ) + " ) " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " T r a i l i n g " , O B J P R O P _ T E X T , " T r a i l i n g = " + I n t e g e r T o S t r i n g ( T r a i l i n g , 0 ) + " , A l l = " + I n t e g e r T o S t r i n g ( P o s i t i o n s T o t a l ( ) , 0 ) + " . " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " l a b e l " , O B J P R O P _ T E X T , S y m b o l ( ) + " - " + T i m e T o S t r i n g ( i T i m e ( N U L L , 0 , 0 ) + P e r i o d ( ) * 6 0 - T i m e C u r r e n t ( ) , T I M E _ S E C O N D S ) ) ;
/ / / / 0720=8O :=>?>:
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / / / &25B :=>?>:
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ L o t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ L o t " , O B J P R O P _ B G C O L O R , c l r D e e p S k y B l u e ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ L o t " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / - - -
i f ( B U Y _ C l o s e _ P r o f i t > 0 )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ P r o f i t " , O B J P R O P _ B G C O L O R , c l r L i m e G r e e n ) ;
}
e l s e
i f ( B U Y _ C l o s e _ P r o f i t = = 0 )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ P r o f i t " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ P r o f i t " , O B J P R O P _ B G C O L O R , c l r C r i m s o n ) ;
} ;
/ / - - -
i f ( B U Y _ C l o s e _ L o s s > 0 )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ L o s s " , O B J P R O P _ B G C O L O R , c l r L i m e G r e e n ) ;
}
e l s e
i f ( B U Y _ C l o s e _ L o s s = = 0 )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ L o s s " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ L o s s " , O B J P R O P _ B G C O L O R , c l r C r i m s o n ) ;
} ;
/ / - - -
i f ( B U Y _ C l o s e _ A l l > 0 )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ A l l " , O B J P R O P _ B G C O L O R , c l r L i m e G r e e n ) ;
}
e l s e
i f ( B U Y _ C l o s e _ A l l = = 0 )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ A l l " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ A l l " , O B J P R O P _ B G C O L O R , c l r C r i m s o n ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ B e z U b u t o k " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ B e z U b u t o k " , O B J P R O P _ B G C O L O R , c l r D e e p S k y B l u e ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ B e z U b u t o k " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ T a k e P r o f i t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ T a k e P r o f i t " , O B J P R O P _ B G C O L O R , c l r D e e p S k y B l u e ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ T a k e P r o f i t " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ T r a i l i n g " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ T r a i l i n g " , O B J P R O P _ B G C O L O R , c l r D e e p S k y B l u e ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ T r a i l i n g " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ L o t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ L o t " , O B J P R O P _ B G C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ L o t " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / - - -
i f ( S E L L _ C l o s e _ P r o f i t > 0 )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ P r o f i t " , O B J P R O P _ B G C O L O R , c l r L i m e G r e e n ) ;
}
e l s e
i f ( S E L L _ C l o s e _ P r o f i t = = 0 )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ P r o f i t " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ P r o f i t " , O B J P R O P _ B G C O L O R , c l r C r i m s o n ) ;
} ;
/ / - - -
i f ( S E L L _ C l o s e _ L o s s > 0 )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ L o s s " , O B J P R O P _ B G C O L O R , c l r L i m e G r e e n ) ;
}
e l s e
i f ( S E L L _ C l o s e _ L o s s = = 0 )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ L o s s " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ L o s s " , O B J P R O P _ B G C O L O R , c l r C r i m s o n ) ;
} ;
/ / - - -
i f ( S E L L _ C l o s e _ A l l > 0 )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ A l l " , O B J P R O P _ B G C O L O R , c l r L i m e G r e e n ) ;
}
e l s e
i f ( S E L L _ C l o s e _ A l l = = 0 )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ A l l " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ A l l " , O B J P R O P _ B G C O L O R , c l r C r i m s o n ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ B e z U b u t o k " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ B e z U b u t o k " , O B J P R O P _ B G C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ B e z U b u t o k " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ T a k e P r o f i t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ T a k e P r o f i t " , O B J P R O P _ B G C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ T a k e P r o f i t " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ T r a i l i n g " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ T r a i l i n g " , O B J P R O P _ B G C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ T r a i l i n g " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S t o p " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S t o p " , O B J P R O P _ B G C O L O R , c l r D e e p S k y B l u e ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S t o p " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y L i m i t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y L i m i t " , O B J P R O P _ B G C O L O R , c l r D e e p S k y B l u e ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y L i m i t " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S e l l S t o p " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S e l l S t o p " , O B J P R O P _ B G C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S e l l S t o p " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S e l l L i m i t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S e l l L i m i t " , O B J P R O P _ B G C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S e l l L i m i t " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S e l l S t o p " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S e l l S t o p " , O B J P R O P _ B G C O L O R , c l r C a d e t B l u e ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S e l l S t o p " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S e l l L i m i t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S e l l L i m i t " , O B J P R O P _ B G C O L O R , c l r C a d e t B l u e ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S e l l L i m i t " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S t o p L i m i t _ C l o s e " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S t o p L i m i t _ C l o s e " , O B J P R O P _ B G C O L O R , c l r D a r k V i o l e t ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S t o p L i m i t _ C l o s e " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " T r a i l i n g " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " T r a i l i n g " , O B J P R O P _ B G C O L O R , c l r C a d e t B l u e ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " T r a i l i n g " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " l a b e l " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " l a b e l " , O B J P R O P _ B G C O L O R , c l r C a d e t B l u e ) ;
C h a r t R e d r a w ( 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " l a b e l " , O B J P R O P _ S T A T E , f a l s e ) ;
_ S k r i n s h o t ( ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " l a b e l " , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
} ;
/ / / / &25B :=>?>:
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ P r o f i t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
C h e c k F o r C l o s e B u y P r o f i t ( ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ P r o f i t " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ P r o f i t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
C h e c k F o r C l o s e S e l l P r o f i t ( ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ P r o f i t " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ L o s s " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
C h e c k F o r C l o s e B u y L o s s ( ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ L o s s " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ L o s s " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
C h e c k F o r C l o s e S e l l L o s s ( ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ L o s s " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ A l l " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
C h e c k F o r C l o s e B u y ( ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ C l o s e _ A l l " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ A l l " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
C h e c k F o r C l o s e S e l l ( ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ C l o s e _ A l l " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | _ B T r a i l i n g _ B U Y |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ B e z U b u t o k " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
_ B T r a i l i n g _ B U Y ( ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ B e z U b u t o k " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
_ B T r a i l i n g _ S E L L ( ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | _ T a k e P r o f i t _ B U Y |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ T a k e P r o f i t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
_ T a k e P r o f i t _ B U Y ( ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ T a k e P r o f i t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
_ T a k e P r o f i t _ S E L L ( ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | B U Y _ T r a i l i n g |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B U Y _ T r a i l i n g " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
_ T r a i l i n g _ B U Y ( ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S E L L _ T r a i l i n g " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
_ T r a i l i n g _ S E L L ( ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S t o p |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / b u y _ l i m i t = 0 , / / B u y L i m i t
/ / b u y _ s t o p = 1 , / / B u y S t o p
/ / s e l l _ l i m i t = 2 / / S e l l L i m i t
/ / s e l l _ s t o p = 3 / / S e l l S t o p
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S t o p " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
B u y S t o p S e l l L i m i t ( b u y _ s t o p ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S t o p " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y L i m i t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
B u y L i m i t S e l l S t o p ( b u y _ l i m i t ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y L i m i t " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S e l l S t o p " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
B u y L i m i t S e l l S t o p ( s e l l _ s t o p ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S e l l S t o p " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S e l l L i m i t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
B u y S t o p S e l l L i m i t ( s e l l _ l i m i t ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S e l l L i m i t " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S e l l S t o p " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
B u y S t o p S e l l L i m i t ( b u y _ s t o p ) ;
B u y L i m i t S e l l S t o p ( s e l l _ s t o p ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S e l l S t o p " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S e l l L i m i t " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
B u y L i m i t S e l l S t o p ( b u y _ l i m i t ) ;
B u y S t o p S e l l L i m i t ( s e l l _ l i m i t ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " B u y S e l l L i m i t " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " S t o p L i m i t _ C l o s e " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
S t o p L i m i t _ C l o s e _ F ( ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " S t o p L i m i t _ C l o s e " , O B J P R O P _ S T A T E , f a l s e ) ;
} ;
/ / - - -
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( O b j e c t G e t I n t e g e r ( 0 , _ n a m e O b e c t + " T r a i l i n g " , O B J P R O P _ S T A T E , 0 ) = = t r u e )
{
_ T r a i l i n g ( ) ;
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
r e t u r n t r u e ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i m e r ( )
{
_ B U T T O N ( ) ;
C h a r t R e d r a w ( 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d S t o p L i m i t _ C l o s e _ F ( )
{
/ / - - - -
f o r ( u i n t c o u n t = 0 ; c o u n t < = R T O T A L & & ! I s S t o p p e d ( ) ; c o u n t + + )
{
/ / - - - - 70:@K205< 2A5 2KAB02;5==K5 >@45@0 ?> B5:CI5<C A8<2>;C
i n t t o t a l = O r d e r s T o t a l ( ) ;
i f ( ! t o t a l )
r e t u r n ; / / 2A5 >@45@0 70:@KBK
f o r ( i n t p o s = t o t a l - 1 ; p o s > = 0 ; p o s - - )
{
u l o n g t i c k e t = u l o n g ( O r d e r G e t T i c k e t ( p o s ) ) ;
i f ( ! O r d e r S e l e c t ( t i c k e t ) )
c o n t i n u e ;
s t r i n g s y m b o l = O r d e r G e t S t r i n g ( O R D E R _ S Y M B O L ) ;
i f ( s y m b o l ! = S y m b o l ( ) )
c o n t i n u e ;
b o o l _ C l o s e = t r u e ;
O r d e r C l o s e B y T i c k e t ( _ C l o s e , s y m b o l , t i c k e t , D e v i a t i o n _ ) ;
}
i f ( ! O r d e r s T o t a l ( ) )
b r e a k ;
S l e e p ( 1 0 0 ) ;
}
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l O r d e r C l o s e B y T i c k e t
(
b o o l & S i g n a l , / / D;03 @07@5H5=8O =0 A45;:C
c o n s t s t r i n g s y m b o l , / / B>@3>20O ?0@0 A45;:8
u l o n g t i c k e t , / / B8:5B
u i n t d e v i a t i o n / / A;8??06
)
{
/ / - - - -
i f ( ! S i g n a l )
r e t u r n ( t r u e ) ;
/ / - - - - 1JO2;5=85 AB@C:BC@ B>@3>2>3> 70?@>A0 8 @57C;LB0B0 B>@3>2>3> 70?@>A0
M q l T r a d e R e q u e s t r e q u e s t ;
M q l T r a d e R e s u l t r e s u l t ;
/ / - - - - 1JO2;5=85 AB@C:BC@K @57C;LB0B0 ?@>25@:8 B>@3>2>3> 70?@>A0
M q l T r a d e C h e c k R e s u l t c h e c k ;
/ / - - - - >1=C;5=85 AB@C:BC@
Z e r o M e m o r y ( r e q u e s t ) ;
Z e r o M e m o r y ( r e s u l t ) ;
Z e r o M e m o r y ( c h e c k ) ;
/ / - - - - =8F80;870F8O AB@C:BC@K B>@3>2>3> 70?@>A0 M q l T r a d e R e q u e s t 4;O C40;5=8O >B;>65==>3> >@45@0
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ R E M O V E ;
r e q u e s t . d e v i a t i o n = d e v i a t i o n ;
r e q u e s t . o r d e r = t i c k e t ;
/ / - - - -
s t r i n g c o m m e n t = " " ;
s t r i n g o r d e r t y p e = E n u m T o S t r i n g ( E N U M _ O R D E R _ T Y P E ( O r d e r G e t I n t e g e r ( O R D E R _ T Y P E ) ) ) ;
S t r i n g C o n c a t e n a t e ( c o m m e n t , " < < < = = = = = = = = = = = = " , _ _ F U N C T I O N _ _ , " ( ) : #40;O5< >B;>65==K9 " , o r d e r t y p e , " >@45@ ?> " , s y m b o l , " A B8:5B>< " , s t r i n g ( t i c k e t ) , " = = = = = = = = = = = = > > > " ) ;
P r i n t ( c o m m e n t ) ;
/ / - - - - B?@02:0 ?@8:070 =0 70:@K20=85 ?>78F88 =0 B>@3>2K9 A5@25@
i f ( ! O r d e r S e n d ( r e q u e s t , r e s u l t ) | | r e s u l t . r e t c o d e ! = T R A D E _ R E T C O D E _ D O N E )
{
P r i n t ( _ _ F U N C T I O N _ _ , " ( ) : 52>7<>6=> C40;8BL " , o r d e r t y p e , " >@45@ A B8:5B>< " , s t r i n g ( t i c k e t ) , " ! " ) ;
P r i n t ( _ _ F U N C T I O N _ _ , " ( ) : O r d e r S e n d ( ) : " , R e s u l t R e t c o d e D e s c r i p t i o n ( r e s u l t . r e t c o d e ) ) ;
r e t u r n ( f a l s e ) ;
}
e l s e
i f ( r e s u l t . r e t c o d e = = T R A D E _ R E T C O D E _ D O N E )
{
S i g n a l = f a l s e ;
c o m m e n t = " " ;
S t r i n g C o n c a t e n a t e ( c o m m e n t , " < < < = = = = = = = = = = = = " , _ _ F U N C T I O N _ _ , " ( ) : B;>65==K9 " , o r d e r t y p e , " >@45@ ?> " , s y m b o l , " A B8:5B>< " , s t r i n g ( t i c k e t ) , " C40;Q= = = = = = = = = = = = = > > > " ) ;
P r i n t ( c o m m e n t ) ;
P l a y S o u n d ( " o k . w a v " ) ;
}
e l s e
{
P r i n t ( _ _ F U N C T I O N _ _ , " ( ) : 52>7<>6=> C40;8BL " , o r d e r t y p e , " >@45@ A B8:5B>< " , s t r i n g ( t i c k e t ) , " ! " ) ;
P r i n t ( _ _ F U N C T I O N _ _ , " ( ) : O r d e r S e n d ( ) : " , R e s u l t R e t c o d e D e s c r i p t i o n ( r e s u l t . r e t c o d e ) ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | 2>72@0B AB@8=3>2>3> @57C;LB0B0 B>@3>2>9 >?5@0F88 ?> 53> :>4C |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g R e s u l t R e t c o d e D e s c r i p t i o n ( i n t r e t c o d e )
{
s t r i n g s t r ;
/ / - - - -
s w i t c h ( r e t c o d e )
{
c a s e T R A D E _ R E T C O D E _ R E Q U O T E :
s t r = " 5:2>B0" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ R E J E C T :
s t r = " 0?@>A >B25@3=CB" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ C A N C E L :
s t r = " 0?@>A >B<5=5= B@5945@><" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ P L A C E D :
s t r = " @45@ @07<5I5=" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ D O N E :
s t r = " 0O2:0 2K?>;=5=0" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ D O N E _ P A R T I A L :
s t r = " 0O2:0 2K?>;=5=0 G0AB8G=>" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ E R R O R :
s t r = " H81:0 >1@01>B:8 70?@>A0" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ T I M E O U T :
s t r = " 0?@>A >B<5=5= ?> 8AB5G5=8N 2@5<5=8" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ I N V A L I D :
s t r = " 5?@028;L=K9 70?@>A" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ I N V A L I D _ V O L U M E :
s t r = " 5?@028;L=K9 >1J5< 2 70?@>A5" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ I N V A L I D _ P R I C E :
s t r = " 5?@028;L=0O F5=0 2 70?@>A5" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ I N V A L I D _ S T O P S :
s t r = " 5?@028;L=K5 AB>?K 2 70?@>A5" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ T R A D E _ D I S A B L E D :
s t r = " ">@3>2;O 70?@5I5=0" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ M A R K E T _ C L O S E D :
s t r = " K=>: 70:@KB" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ N O _ M O N E Y :
s t r = " 5B 4>AB0B>G=KE 45=56=KE A@54AB2 4;O 2K?>;=5=8O 70?@>A0" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ P R I C E _ C H A N G E D :
s t r = " &5=K 87<5=8;8AL" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ P R I C E _ O F F :
s t r = " BACBAB2CNB :>B8@>2:8 4;O >1@01>B:8 70?@>A0" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ I N V A L I D _ E X P I R A T I O N :
s t r = " 525@=0O 40B0 8AB5G5=8O >@45@0 2 70?@>A5" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ O R D E R _ C H A N G E D :
s t r = " !>AB>O=85 >@45@0 87<5=8;>AL" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ T O O _ M A N Y _ R E Q U E S T S :
s t r = " !;8H:>< G0ABK5 70?@>AK" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ N O _ C H A N G E S :
s t r = " 70?@>A5 =5B 87<5=5=89" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ S E R V E R _ D I S A B L E S _ A T :
s t r = " 2B>B@5948=3 70?@5I5= A5@25@><" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ C L I E N T _ D I S A B L E S _ A T :
s t r = " 2B>B@5948=3 70?@5I5= :;85=BA:8< B5@<8=0;><" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ L O C K E D :
s t r = " 0?@>A 701;>:8@>20= 4;O >1@01>B:8" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ F R O Z E N :
s t r = " @45@ 8;8 ?>78F8O 70<>@>65=K" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ I N V A L I D _ F I L L :
s t r = " #:070= =5?>445@68205<K9 B8? 8A?>;=5=8O >@45@0 ?> >AB0B:C" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ C O N N E C T I O N :
s t r = " 5B A>548=5=8O A B>@3>2K< A5@25@><" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ O N L Y _ R E A L :
s t r = " ?5@0F8O @07@5H5=0 B>;L:> 4;O @50;L=KE AG5B>2" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ L I M I T _ O R D E R S :
s t r = " >AB83=CB ;8<8B =0 :>;8G5AB2> >B;>65==KE >@45@>2" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ L I M I T _ V O L U M E :
s t r = " >AB83=CB ;8<8B =0 >1J5< >@45@>2 8 ?>78F89 4;O 40==>3> A8<2>;0" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ I N V A L I D _ O R D E R :
s t r = " 525@=K9 8;8 70?@5IQ==K9 B8? >@45@0" ;
b r e a k ;
c a s 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 :
s t r = " >78F8O A C:070==K< P O S I T I O N _ I D E N T I F I E R C65 70:@KB0" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ I N V A L I D _ C L O S E _ V O L U M E :
s t r = " 0:@K205<K9 >1J5< ?@52KH05B B5:CI89 >1J5< ?>78F88" ;
b r e a k ;
c a s e T R A D E _ R E T C O D E _ C L O S E _ O R D E R _ E X I S T :
s t r = " ;O C:070==>9 ?>78F88 C65 5ABL >@45@ =0 70:@KB85" ;
b r e a k ;
c a s 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 :
s t r = " >;8G5AB2> >B:@KBKE ?>78F89, :>B>@>5 <>6=> >4=>2@5<5==> 8<5BL =0 AG5B5, <>65B 1KBL >3@0=8G5=> =0AB@>9:0<8 A5@25@0" ;
b r e a k ;
/ / c a s e : s t r = " " ; b r e a k ;
/ / c a s e : s t r = " " ; b r e a k ;
/ / c a s e : s t r = " " ; b r e a k ;
/ / c a s e : s t r = " " ; b r e a k ;
d e f a u l t :
s t r = " 58725AB=K9 @57C;LB0B" ;
}
/ / - - - -
r e t u r n ( s t r ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d B u y S t o p S e l l L i m i t ( E N U M _ P E N D I N G _ O R D E R S I n p O r d e r s )
{
/ / - - -
/ / i f ( I n p L o t s < = 0 . 0 )
/ / {
/ / P r i n t ( " T h e \ " L o t s \ " c a n ' t b e s m a l l e r o r e q u a l t o z e r o " ) ;
/ / r e t u r n ;
/ / }
/ / - - -
i f ( ! m _ s y m b o l . N a m e ( S y m b o l ( ) ) ) / / s e t s s y m b o l n a m e
r e t u r n ;
i f ( ! R e f r e s h R a t e s ( ) )
r e t u r n ;
s t r i n g e r r _ t e x t = " " ;
/ / i f ( ! C h e c k V o l u m e V a l u e ( I n p L o t s , e r r _ t e x t ) )
/ / {
/ / P r i n t ( e r r _ t e x t ) ;
/ / r e t u r n ;
/ / }
/ / - - -
i f ( I s F i l l i n g T y p e A l l o w e d ( S Y M B O L _ F I L L I N G _ F O K ) )
m _ t r a d e . S e t T y p e F i l l i n g ( O R D E R _ F I L L I N G _ F O K ) ;
e l s e
i f ( I s F i l l i n g T y p e A l l o w e d ( S Y M B O L _ F I L L I N G _ I O C ) )
m _ t r a d e . S e t T y p e F i l l i n g ( O R D E R _ F I L L I N G _ I O C ) ;
e l s e
m _ t r a d e . S e t T y p e F i l l i n g ( O R D E R _ F I L L I N G _ R E T U R N ) ;
/ / - - -
m _ t r a d e . S e t D e v i a t i o n I n P o i n t s ( m _ s l i p p a g e ) ;
m _ t r a d e . S e t A s y n c M o d e ( t r u e ) ;
/ / - - - t u n i n g f o r 3 o r 5 d i g i t s
/ / m _ a d j u s t e d _ p o i n t S t o p = m _ s y m b o l . P o i n t ( ) * _ S Y M B O L _ D I G I T S _ ;
i n t _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = ( i n t ) 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 ) ;
/ / P r i n t ( _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L ) ;
i f ( I n p G e p > _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L )
{ _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = I n p G e p ; } ;
i n t _ S Y M B O L _ S P R E A D = ( i n t ) 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 _ S P R E A D ) ;
/ / P r i n t ( _ S Y M B O L _ S P R E A D ) ;
i f ( I n p S t e p > _ S Y M B O L _ S P R E A D )
{ _ S Y M B O L _ S P R E A D = I n p G e p ; } ;
E x t G e p = _ S Y M B O L _ P O I N T _ * _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L ;
E x t S t e p = _ S Y M B O L _ P O I N T _ * _ S Y M B O L _ S P R E A D ;
E x t S t o p L o s s = _ S Y M B O L _ P O I N T _ * I n p S t o p L o s s ;
E x t T a k e P r o f i t = _ S Y M B O L _ P O I N T _ * I n p T a k e P r o f i t ;
/ / - - - s t a r t w o r k
d o u b l e s t a r t _ p r i c e _ a s k = m _ s y m b o l . A s k ( ) + E x t G e p ;
d o u b l e s t a r t _ p r i c e _ b i d = m _ s y m b o l . B i d ( ) + E x t G e p ;
/ / - - - p e n d i n g o r d e r s U P
f o r ( i n t i = 0 ; i < I n p Q u a n t i t y ; i + + )
{
d o u b l e p r i c e _ a s k = s t a r t _ p r i c e _ a s k + i * E x t S t e p ;
d o u b l e p r i c e _ b i d = s t a r t _ p r i c e _ b i d + i * E x t S t e p ;
i f ( I n p O r d e r s = = b u y _ s t o p )
{
d o u b l e s l = ( E x t S t o p L o s s = = 0 . 0 ) ? 0 . 0 : p r i c e _ a s k - E x t S t o p L o s s ;
d o u b l e t p = ( E x t T a k e P r o f i t = = 0 . 0 ) ? 0 . 0 : p r i c e _ a s k + E x t T a k e P r o f i t ;
m _ t r a d e . B u y S t o p (
/ / m _ s y m b o l . L o t s M i n ( )
T r a d e S i z e O p t i m i z e d ( ) , m _ s y m b o l . N o r m a l i z e P r i c e ( p r i c e _ a s k ) , m _ s y m b o l . N a m e ( ) ,
m _ s y m b o l . N o r m a l i z e P r i c e ( s l ) ,
m _ s y m b o l . N o r m a l i z e P r i c e ( t p ) ,
1 ) ;
}
e l s e
{
d o u b l e s l = ( E x t S t o p L o s s = = 0 . 0 ) ? 0 . 0 : p r i c e _ a s k + E x t S t o p L o s s ;
d o u b l e t p = ( E x t T a k e P r o f i t = = 0 . 0 ) ? 0 . 0 : p r i c e _ b i d - E x t T a k e P r o f i t ;
m _ t r a d e . S e l l L i m i t ( T r a d e S i z e O p t i m i z e d ( ) , m _ s y m b o l . N o r m a l i z e P r i c e ( p r i c e _ b i d ) , m _ s y m b o l . N a m e ( ) ,
m _ s y m b o l . N o r m a l i z e P r i c e ( s l ) ,
m _ s y m b o l . N o r m a l i z e P r i c e ( t p ) ,
1 )
;
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d B u y L i m i t S e l l S t o p ( E N U M _ P E N D I N G _ O R D E R S I n p O r d e r s )
{
/ / - - -
/ / i f ( I n p L o t s < = 0 . 0 )
/ / {
/ / P r i n t ( " T h e \ " L o t s \ " c a n ' t b e s m a l l e r o r e q u a l t o z e r o " ) ;
/ / r e t u r n ;
/ / }
/ / - - -
i f ( ! m _ s y m b o l . N a m e ( S y m b o l ( ) ) ) / / s e t s s y m b o l n a m e
r e t u r n ;
i f ( ! R e f r e s h R a t e s ( ) )
r e t u r n ;
/ / s t r i n g e r r _ t e x t = " " ;
/ / i f ( ! C h e c k V o l u m e V a l u e ( I n p L o t s , e r r _ t e x t ) )
/ / {
/ / P r i n t ( e r r _ t e x t ) ;
/ / r e t u r n ;
/ / }
/ / - - -
i f ( I s F i l l i n g T y p e A l l o w e d ( S Y M B O L _ F I L L I N G _ F O K ) )
m _ t r a d e . S e t T y p e F i l l i n g ( O R D E R _ F I L L I N G _ F O K ) ;
e l s e
i f ( I s F i l l i n g T y p e A l l o w e d ( S Y M B O L _ F I L L I N G _ I O C ) )
m _ t r a d e . S e t T y p e F i l l i n g ( O R D E R _ F I L L I N G _ I O C ) ;
e l s e
m _ t r a d e . S e t T y p e F i l l i n g ( O R D E R _ F I L L I N G _ R E T U R N ) ;
/ / - - -
m _ t r a d e . S e t D e v i a t i o n I n P o i n t s ( m _ s l i p p a g e ) ;
m _ t r a d e . S e t A s y n c M o d e ( t r u e ) ;
/ / - - - t u n i n g f o r 3 o r 5 d i g i t s
i n t d i g i t s _ a d j u s t = 1 ;
i f ( m _ s y m b o l . D i g i t s ( ) = = 3 | | m _ s y m b o l . D i g i t s ( ) = = 5 )
d i g i t s _ a d j u s t = 1 0 ;
/ / m _ a d j u s t e d _ p o i n t S t o p = m _ s y m b o l . P o i n t ( ) * d i g i t s _ a d j u s t ;
i n t _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = ( i n t ) 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 ) ;
/ / P r i n t ( _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L ) ;
i f ( I n p G e p > _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L )
{ _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = I n p G e p ; } ;
i n t _ S Y M B O L _ S P R E A D = ( i n t ) 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 _ S P R E A D ) ;
/ / P r i n t ( _ S Y M B O L _ S P R E A D ) ;
i f ( I n p S t e p > _ S Y M B O L _ S P R E A D )
{ _ S Y M B O L _ S P R E A D = I n p G e p ; } ;
/ / E x t G e p = m _ a d j u s t e d _ p o i n t S t o p * I n p G e p ;
/ / E x t S t e p = m _ a d j u s t e d _ p o i n t S t o p * I n p S t e p ;
E x t G e p = _ S Y M B O L _ P O I N T _ * _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L ;
E x t S t e p = _ S Y M B O L _ P O I N T _ * _ S Y M B O L _ S P R E A D ;
E x t S t o p L o s s = _ S Y M B O L _ P O I N T _ * I n p S t o p L o s s ;
E x t T a k e P r o f i t = _ S Y M B O L _ P O I N T _ * I n p T a k e P r o f i t ;
/ / - - - s t a r t w o r k
d o u b l e s t a r t _ p r i c e _ a s k = m _ s y m b o l . A s k ( ) - E x t G e p ;
d o u b l e s t a r t _ p r i c e _ b i d = m _ s y m b o l . B i d ( ) - E x t G e p ;
/ / - - - p e n d i n g o r d e r s D O W N
f o r ( i n t i = 0 ; i < I n p Q u a n t i t y ; i + + )
{
d o u b l e p r i c e _ a s k = s t a r t _ p r i c e _ a s k - i * E x t S t e p ;
d o u b l e p r i c e _ b i d = s t a r t _ p r i c e _ b i d - i * E x t S t e p ;
i f ( I n p O r d e r s = = b u y _ l i m i t )
{
d o u b l e s l = ( E x t S t o p L o s s = = 0 . 0 ) ? 0 . 0 : p r i c e _ a s k - E x t S t o p L o s s ;
d o u b l e t p = ( E x t T a k e P r o f i t = = 0 . 0 ) ? 0 . 0 : p r i c e _ a s k + E x t T a k e P r o f i t ;
m _ t r a d e . B u y L i m i t ( T r a d e S i z e O p t i m i z e d ( ) , m _ s y m b o l . N o r m a l i z e P r i c e ( p r i c e _ a s k ) , m _ s y m b o l . N a m e ( ) , / / m _ s y m b o l . L o t s M i n ( )
m _ s y m b o l . N o r m a l i z e P r i c e ( s l ) ,
m _ s y m b o l . N o r m a l i z e P r i c e ( t p ) ,
1 ) ;
}
e l s e
{
d o u b l e s l = ( E x t S t o p L o s s = = 0 . 0 ) ? 0 . 0 : p r i c e _ b i d + E x t S t o p L o s s ;
d o u b l e t p = ( E x t T a k e P r o f i t = = 0 . 0 ) ? 0 . 0 : p r i c e _ b i d - E x t T a k e P r o f i t ;
m _ t r a d e . S e l l S t o p ( T r a d e S i z e O p t i m i z e d ( ) , m _ s y m b o l . N o r m a l i z e P r i c e ( p r i c e _ b i d ) , m _ s y m b o l . N a m e ( ) ,
m _ s y m b o l . N o r m a l i z e P r i c e ( s l ) ,
m _ s y m b o l . N o r m a l i z e P r i c e ( t p ) ,
1 ) ;
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | R e f r e s h e s t h e s y m b o l q u o t e s d a t a |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l R e f r e s h R a t e s ( )
{
/ / - - - r e f r e s h r a t e s
i f ( ! m _ s y m b o l . R e f r e s h R a t e s ( ) )
r e t u r n ( f a l s e ) ;
/ / - - - p r o t e c t i o n a g a i n s t t h e r e t u r n v a l u e o f " z e r o "
i f ( m _ s y m b o l . A s k ( ) = = 0 | | m _ s y m b o l . B i d ( ) = = 0 )
r e t u r n ( f a l s e ) ;
/ / - - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h e c k t h e c o r r e c t n e s s o f t h e o r d e r v o l u m e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 , s t r i n g & e r r o r _ d e s c r i p t i o n )
{
/ / - - - m i n i m a l a l l o w e d v o l u m e f o r t r a d e o p e r a t i o n s
d o u b l e m i n _ v o l u m e = m _ s y m b o l . L o t s M i n ( ) ;
i f ( v o l u m e < m i n _ v o l u m e )
{
e r r o r _ d e s c r i p t i o n = S t r i n g F o r m a t ( " V o l u m e i s l e s s t h a n t h e m i n i m a l a l l o w e d S Y M B O L _ V O L U M E _ M I N = % . 2 f " , m i n _ v o l u m e ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - m a x i m a l a l l o w e d v o l u m e o f t r a d e o p e r a t i o n s
d o u b l e m a x _ v o l u m e = m _ s y m b o l . L o t s M a x ( ) ;
i f ( v o l u m e > m a x _ v o l u m e )
{
e r r o r _ d e s c r i p t i o n = S t r i n g F o r m a t ( " V o l u m e i s g r e a t e r t h a n t h e m a x i m a l a l l o w e d S Y M B O L _ V O L U M E _ M A X = % . 2 f " , m a x _ v o l u m e ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - g e t m i n i m a l s t e p o f v o l u m e c h a n g i n g
d o u b l e v o l u m e _ s t e p = m _ s y m b o l . L o t s 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 )
{
e r r o r _ d e s c r i p t i o n = S t r i n g F o r m a t ( " V o l u m e i s n o t a m u l t i p l e o f t h e m i n i m a l s t e p S Y M B O L _ V O L U M E _ S T E P = % . 2 f , t h e c l o s e s t c o r r e c t v o l u m e i s % . 2 f " ,
v o l u m e _ s t e p , r a t i o * v o l u m e _ s t e p ) ;
r e t u r n ( f a l s e ) ;
}
e r r o r _ d e s c r i p t i o n = " C o r r e c t v o l u m e v a l u e " ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h e c k s i f t h e s p e c i f i e d f i l l i n g m o d e i s a l l o w e d |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l I s F i l l i n g T y p e A l l o w e d ( i n t f i l l _ t y p e )
{
/ / - - - O b t a i n t h e v a l u e o f t h e p r o p e r t y t h a t d e s c r i b e s a l l o w e d f i l l i n g m o d e s
i n t f i l l i n g = m _ s y m b o l . T r a d e F i l l F l a g s ( ) ;
/ / - - - R e t u r n t r u e , i f m o d e f i l l _ t y p e i s a l l o w e d
r e t u r n ( ( f i l l i n g & f i l l _ t y p e ) = = f i l l _ t y p e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ T r a i l i n g _ B U Y ( )
{
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - ) / / r e t u r n s t h e n u m b e r o f o p e n 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 ( i ) ) / / 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
{
s t r i n g p o s i t i o n _ G e t S y m b o l = P o s i t i o n G e t S y m b o l ( i ) ; / / G e t S y m b o l ?>78F88
i f ( p o s i t i o n _ G e t S y m b o l = = S y m b o l ( ) )
{
/ / l o n g d i g i t s = S y m b o l I n f o I n t e g e r ( m _ p o s i t i o n . S y m b o l ( ) , S Y M B O L _ D I G I T S ) ;
l o n g _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = S y m b o l I n f o I n t e g e r ( m _ p o s i t i o n . 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 ) ;
d o u b l e _ P r i c e C u r r e n t _ S t o p = 0 . 0 ;
d o u b l e _ P r i c e O p e n _ S t o p _ b e z u b u t o k = 0 . 0 ;
d o u b l e _ P o s i t i o n M o d i f y _ S t o p = 0 . 0 ;
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
i f ( T r a i l i n g S t o p _ S T O P S _ L E V E L > _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L )
{ _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = T r a i l i n g S t o p _ S T O P S _ L E V E 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 C u r r e n t _ S t o p = m _ p o s i t i o n . P r i c e C u r r e n t ( ) - ( _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L + 1 ) * _ S Y M B O L _ P O I N T _ ;
i f ( m _ p o s i t i o n . P r i c e C u r r e n t ( ) > m _ p o s i t i o n . P r i c e O p e n ( ) )
{
/ / _ P r i c e O p e n _ S t o p _ b e z u b u t o k = m _ p o s i t i o n . P r i c e O p e n ( ) + ( T r a i l i n g S t o p P r o f i t * m _ a d j u s t e d _ p o i n t ) ; / / 157 C1KB>:
/ / i f ( _ P r i c e C u r r e n t _ S t o p > = _ P r i c e O p e n _ S t o p _ b e z u b u t o k & & T r a i l i n g S t o p P r o f i t > 0 )
/ / { _ P o s i t i o n M o d i f y _ S t o p = _ P r i c e O p e n _ S t o p _ b e z u b u t o k ; } / / 157 C1KB>:
/ / e l s e i f ( T r a i l i n g S t o p P r o f i t = = 0 | | _ P r i c e C u r r e n t _ S t o p > _ P r i c e O p e n _ S t o p _ b e z u b u t o k | | m _ p o s i t i o n . S t o p L o s s ( ) = = 0 )
/ / { _ P o s i t i o n M o d i f y _ S t o p = _ P r i c e C u r r e n t _ S t o p ; } ;
/ / i f ( _ P o s i t i o n M o d i f y _ S t o p > m _ p o s i t i o n . S t o p L o s s ( )
i f ( _ P r i c e C u r r e n t _ S t o p > m _ p o s i t i o n . S t o p L o s s ( )
| | m _ p o s i t i o n . S t o p L o s s ( ) = = 0 . 0 / / AB>?>2 =5B
)
{
/ / - - - s a v e M a g i c N u m b e r f o r t h e p o s i t i o n
i f ( _ P r i c e C u r r e n t _ S t o 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 ( m _ p o s i t i o n . M a g i c ( ) ) ;
m _ t r a d e . P o s i t i o n M o d i f y ( m _ p o s i t i o n . T i c k e t ( ) ,
_ P r i c e C u r r e n t _ S t o p ,
m _ p o s i t i o n . T a k e P r o f i t ( ) ) ;
} ;
} ;
} ;
} ;
} ;
} ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ T r a i l i n g _ S E L L ( )
{
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - ) / / r e t u r n s t h e n u m b e r o f o p e n 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 ( i ) ) / / 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
{
s t r i n g p o s i t i o n _ G e t S y m b o l = P o s i t i o n G e t S y m b o l ( i ) ; / / G e t S y m b o l ?>78F88
i f ( p o s i t i o n _ G e t S y m b o l = = S y m b o l ( ) )
{
l o n g _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = S y m b o l I n f o I n t e g e r ( m _ p o s i t i o n . 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 ) ;
d o u b l e _ P r i c e C u r r e n t _ S t o p = 0 . 0 ;
d o u b l e _ P r i c e O p e n _ S t o p _ b e z u b u t o k = 0 . 0 ;
d o u b l e _ P o s i t i o n M o d i f y _ S t o p = 0 . 0 ;
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
i f ( T r a i l i n g S t o p _ S T O P S _ L E V E L > _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L )
{ _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = T r a i l i n g S t o p _ S T O P S _ L E V E 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 _ S E L L )
{
_ P r i c e C u r r e n t _ S t o p = m _ p o s i t i o n . P r i c e C u r r e n t ( ) + _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L * _ S Y M B O L _ P O I N T _ ;
i f ( m _ p o s i t i o n . P r i c e C u r r e n t ( ) < m _ p o s i t i o n . P r i c e O p e n ( ) )
{
/ / _ P r i c e O p e n _ S t o p _ b e z u b u t o k = m _ p o s i t i o n . P r i c e O p e n ( ) - ( T r a i l i n g S t o p P r o f i t * m _ a d j u s t e d _ p o i n t ) ; / / 157 C1KB>:
/ / i f ( _ P r i c e C u r r e n t _ S t o p < = _ P r i c e O p e n _ S t o p _ b e z u b u t o k & & T r a i l i n g S t o p P r o f i t > 0 )
/ / { _ P o s i t i o n M o d i f y _ S t o p = _ P r i c e O p e n _ S t o p _ b e z u b u t o k ; } / / 157 C1KB>:
/ / e l s e i f ( T r a i l i n g S t o p P r o f i t = = 0 | | _ P r i c e C u r r e n t _ S t o p < _ P r i c e O p e n _ S t o p _ b e z u b u t o k | | m _ p o s i t i o n . S t o p L o s s ( ) = = 0 )
/ / { _ P o s i t i o n M o d i f y _ S t o p = _ P r i c e C u r r e n t _ S t o p ; } ;
/ / i f ( _ P o s i t i o n M o d i f y _ S t o p < m _ p o s i t i o n . S t o p L o s s ( )
i f ( _ P r i c e C u r r e n t _ S t o p < m _ p o s i t i o n . S t o p L o s s ( )
| | m _ p o s i t i o n . S t o p L o s s ( ) = = 0 . 0 / / AB>?>2 =5B
)
{
/ / P r i n t ( _ P r i c e O p e n _ S t o p _ b e z u b u t o k ) ;
i f ( _ P r i c e C u r r e n t _ S t o p > 0 )
{
/ / - - - s a v e M a g i c N u m b e r f o r t h e p o s i t i o n
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 _ p o s i t i o n . M a g i c ( ) ) ;
m _ t r a d e . P o s i t i o n M o d i f y ( m _ p o s i t i o n . T i c k e t ( ) ,
_ P r i c e C u r r e n t _ S t o p ,
m _ p o s i t i o n . T a k e P r o f i t ( ) ) ;
} ;
}
} ;
} ;
} ;
} ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ T r a i l i n g ( )
{
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - ) / / r e t u r n s t h e n u m b e r o f o p e n 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 ( i ) ) / / 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
{
s t r i n g p o s i t i o n _ G e t S y m b o l = P o s i t i o n G e t S y m b o l ( i ) ; / / G e t S y m b o l ?>78F88
i f ( p o s i t i o n _ G e t S y m b o l = = S y m b o l ( ) )
{
l o n g d i g i t s = S y m b o l I n f o I n t e g e r ( m _ p o s i t i o n . S y m b o l ( ) , S Y M B O L _ D I G I T S ) ;
l o n g _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = S y m b o l I n f o I n t e g e r ( m _ p o s i t i o n . 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 ) ;
d o u b l e m _ a d j u s t e d _ p o i n t = S y m b o l I n f o D o u b l e ( m _ p o s i t i o n . S y m b o l ( ) , S Y M B O L _ P O I N T ) ;
d o u b l e _ P r i c e C u r r e n t _ S t o p = 0 . 0 ;
d o u b l e _ P r i c e O p e n _ S t o p _ b e z u b u t o k = 0 . 0 ;
d o u b l e _ P o s i t i o n M o d i f y _ S t o p = 0 . 0 ;
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
i f ( T r a i l i n g S t o p _ S T O P S _ L E V E L > _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L )
{ _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = T r a i l i n g S t o p _ S T O P S _ L E V E 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 C u r r e n t _ S t o p = m _ p o s i t i o n . P r i c e C u r r e n t ( ) - ( _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L + 1 ) * m _ a d j u s t e d _ p o i n t ;
i f ( m _ p o s i t i o n . P r i c e C u r r e n t ( ) > m _ p o s i t i o n . P r i c e O p e n ( ) )
{
/ / _ P r i c e O p e n _ S t o p _ b e z u b u t o k = m _ p o s i t i o n . P r i c e O p e n ( ) + ( T r a i l i n g S t o p P r o f i t * m _ a d j u s t e d _ p o i n t ) ; / / 157 C1KB>:
/ / i f ( _ P r i c e C u r r e n t _ S t o p > = _ P r i c e O p e n _ S t o p _ b e z u b u t o k & & T r a i l i n g S t o p P r o f i t > 0 )
/ / { _ P o s i t i o n M o d i f y _ S t o p = _ P r i c e O p e n _ S t o p _ b e z u b u t o k ; } / / 157 C1KB>:
/ / e l s e i f ( T r a i l i n g S t o p P r o f i t = = 0 | | _ P r i c e C u r r e n t _ S t o p > _ P r i c e O p e n _ S t o p _ b e z u b u t o k | | m _ p o s i t i o n . S t o p L o s s ( ) = = 0 )
/ / { _ P o s i t i o n M o d i f y _ S t o p = _ P r i c e C u r r e n t _ S t o p ; } ;
/ / i f ( _ P o s i t i o n M o d i f y _ S t o p > m _ p o s i t i o n . S t o p L o s s ( )
i f ( _ P r i c e C u r r e n t _ S t o p > m _ p o s i t i o n . S t o p L o s s ( )
| | m _ p o s i t i o n . S t o p L o s s ( ) = = 0 . 0 / / AB>?>2 =5B
)
{
/ / - - - s a v e M a g i c N u m b e r f o r t h e p o s i t i o n
i f ( _ P r i c e C u r r e n t _ S t o 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 ( m _ p o s i t i o n . M a g i c ( ) ) ;
m _ t r a d e . P o s i t i o n M o d i f y ( m _ p o s i t i o n . T i c k e t ( ) ,
_ P r i c e C u r r e n t _ S t o p ,
m _ p o s i t i o n . T a k e P r o f i t ( ) ) ;
} ;
} ;
} ;
} ;
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
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 C u r r e n t _ S t o p = m _ p o s i t i o n . P r i c e C u r r e n t ( ) + _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L * m _ a d j u s t e d _ p o i n t ;
i f ( m _ p o s i t i o n . P r i c e C u r r e n t ( ) < m _ p o s i t i o n . P r i c e O p e n ( ) )
{
/ / _ P r i c e O p e n _ S t o p _ b e z u b u t o k = m _ p o s i t i o n . P r i c e O p e n ( ) - ( T r a i l i n g S t o p P r o f i t * m _ a d j u s t e d _ p o i n t ) ; / / 157 C1KB>:
/ / i f ( _ P r i c e C u r r e n t _ S t o p < = _ P r i c e O p e n _ S t o p _ b e z u b u t o k & & T r a i l i n g S t o p P r o f i t > 0 )
/ / { _ P o s i t i o n M o d i f y _ S t o p = _ P r i c e O p e n _ S t o p _ b e z u b u t o k ; } / / 157 C1KB>:
/ / e l s e i f ( T r a i l i n g S t o p P r o f i t = = 0 | | _ P r i c e C u r r e n t _ S t o p < _ P r i c e O p e n _ S t o p _ b e z u b u t o k | | m _ p o s i t i o n . S t o p L o s s ( ) = = 0 )
/ / { _ P o s i t i o n M o d i f y _ S t o p = _ P r i c e C u r r e n t _ S t o p ; } ;
/ / i f ( _ P o s i t i o n M o d i f y _ S t o p < m _ p o s i t i o n . S t o p L o s s ( )
i f ( _ P r i c e C u r r e n t _ S t o p < m _ p o s i t i o n . S t o p L o s s ( )
| | m _ p o s i t i o n . S t o p L o s s ( ) = = 0 . 0 / / AB>?>2 =5B
)
{
/ / P r i n t ( _ P r i c e O p e n _ S t o p _ b e z u b u t o k ) ;
i f ( _ P r i c e C u r r e n t _ S t o p > 0 )
{
/ / - - - s a v e M a g i c N u m b e r f o r t h e p o s i t i o n
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 _ p o s i t i o n . M a g i c ( ) ) ;
m _ t r a d e . P o s i t i o n M o d i f y ( m _ p o s i t i o n . T i c k e t ( ) ,
_ P r i c e C u r r e n t _ S t o p ,
m _ p o s i t i o n . T a k e P r o f i t ( ) ) ;
} ;
}
} ;
} ;
} ;
} ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g T F M i g r a t e ( i n t t f )
{
s w i t c h ( t f )
{
c a s e 0 :
r e t u r n ( " C U R R E N T " ) ;
c a s e 1 :
r e t u r n ( " M 0 1 " ) ;
c a s e 5 :
r e t u r n ( " M 0 5 " ) ;
c a s e 1 5 :
r e t u r n ( " M 1 5 " ) ;
c a s e 3 0 :
r e t u r n ( " M 3 0 " ) ;
c a s e 6 0 :
r e t u r n ( " H 1 " ) ;
c a s e 2 4 0 :
r e t u r n ( " H 4 " ) ;
c a s e 1 4 4 0 :
r e t u r n ( " D 1 " ) ;
c a s e 1 0 0 8 0 :
r e t u r n ( " W 1 " ) ;
c a s e 4 3 2 0 0 :
r e t u r n ( " M N 1 " ) ;
c a s e 2 :
r e t u r n ( " M 2 " ) ;
c a s e 3 :
r e t u r n ( " M 3 " ) ;
c a s e 4 :
r e t u r n ( " M 4 " ) ;
c a s e 6 :
r e t u r n ( " M 6 " ) ;
c a s e 1 0 :
r e t u r n ( " M 1 0 " ) ;
c a s e 1 2 :
r e t u r n ( " M 1 2 " ) ;
c a s e 2 0 :
r e t u r n ( " M 2 0 " ) ;
c a s e 1 6 3 8 5 :
r e t u r n ( " H 1 " ) ;
c a s e 1 6 3 8 6 :
r e t u r n ( " H 2 " ) ;
c a s e 1 6 3 8 7 :
r e t u r n ( " H 3 " ) ;
c a s e 1 6 3 8 8 :
r e t u r n ( " H 4 " ) ;
c a s e 1 6 3 9 0 :
r e t u r n ( " H 6 " ) ;
c a s e 1 6 3 9 2 :
r e t u r n ( " H 8 " ) ;
c a s e 1 6 3 9 6 :
r e t u r n ( " H 1 2 " ) ;
c a s e 1 6 4 0 8 :
r e t u r n ( " D 1 " ) ;
c a s e 3 2 7 6 9 :
r e t u r n ( " W 1 " ) ;
c a s e 4 9 1 5 3 :
r e t u r n ( " M N 1 " ) ;
d e f a u l t :
r e t u r n ( " C U R R E N T " ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g n o m e r P e r i o d ( i n t t f )
{
s w i t c h ( t f )
{
c a s e 0 :
r e t u r n ( " 0 " ) ;
c a s e 1 :
r e t u r n ( " 0 1 " ) ;
c a s e 2 :
r e t u r n ( " 0 2 " ) ;
c a s e 3 :
r e t u r n ( " 0 3 " ) ;
c a s e 4 :
r e t u r n ( " 0 4 " ) ;
c a s e 5 :
r e t u r n ( " 0 5 " ) ;
c a s e 6 :
r e t u r n ( " 0 6 " ) ;
c a s e 1 0 :
r e t u r n ( " 0 7 " ) ;
c a s e 1 2 :
r e t u r n ( " 0 8 " ) ;
c a s e 1 5 :
r e t u r n ( " 0 9 " ) ;
c a s e 2 0 :
r e t u r n ( " 1 0 " ) ;
c a s e 3 0 :
r e t u r n ( " 1 1 " ) ;
c a s e 6 0 :
r e t u r n ( " 1 2 " ) ;
c a s e 2 4 0 :
r e t u r n ( " 1 3 " ) ;
c a s e 1 4 4 0 :
r e t u r n ( " 1 4 " ) ;
c a s e 1 0 0 8 0 :
r e t u r n ( " 1 5 " ) ;
c a s e 4 3 2 0 0 :
r e t u r n ( " 1 6 " ) ;
c a s e 1 6 3 8 5 :
r e t u r n ( " 1 7 " ) ;
c a s e 1 6 3 8 6 :
r e t u r n ( " 1 8 " ) ;
c a s e 1 6 3 8 7 :
r e t u r n ( " 1 9 " ) ;
c a s e 1 6 3 8 8 :
r e t u r n ( " 2 0 " ) ;
c a s e 1 6 3 9 0 :
r e t u r n ( " 2 1 " ) ;
c a s e 1 6 3 9 2 :
r e t u r n ( " 2 2 " ) ;
c a s e 1 6 3 9 6 :
r e t u r n ( " 2 3 " ) ;
c a s e 1 6 4 0 8 :
r e t u r n ( " 2 4 " ) ;
c a s e 3 2 7 6 9 :
r e t u r n ( " 2 5 " ) ;
c a s e 4 9 1 5 3 :
r e t u r n ( " 2 6 " ) ;
d e f a u l t :
r e t u r n ( " 0 " ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S c r o l l T o T i m e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l S c r o l l T o T i m e ( d a t e t i m e a T i m e , l o n g c u r r C h a r t )
{
d a t e t i m e t m [ 1 ] ;
a T i m e / = P e r i o d S e c o n d s ( C h a r t P e r i o d ( c u r r C h a r t ) ) ;
a T i m e * = P e r i o d S e c o n d s ( C h a r t P e r i o d ( c u r r C h a r t ) ) ;
i n t r v = C o p y T i m e ( C h a r t S y m b o l ( c u r r C h a r t ) , C h a r t P e r i o d ( c u r r C h a r t ) , 0 , 1 , t m ) ;
i n t N e w P o s = B a r s ( C h a r t S y m b o l ( c u r r C h a r t ) , C h a r t P e r i o d ( c u r r C h a r t ) , a T i m e , t m [ 0 ] ) - 1 ;
N e w P o s = M a t h M i n ( N e w P o s , B a r s ( C h a r t S y m b o l ( c u r r C h a r t ) , C h a r t P e r i o d ( c u r r C h a r t ) ) - 1 ) ;
/ / C h a r t N a v i g a t e ( 0 , C H A R T _ E N D , - N e w P o s ) ;
C h a r t N a v i g a t e ( c u r r C h a r t , C H A R T _ E N D , - N e w P o s ) ;
r e t u r n t r u e ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / s t r i n g _ S u m b o l _ N ( s t r i n g f t )
/ / {
/ / i f ( f t = = " E U R U S D " ) r e t u r n ( " 0 1 " ) ;
/ / i f ( f t = = " G B P U S D " ) r e t u r n ( " 0 2 " ) ;
/ / i f ( f t = = " N Z D U S D " ) r e t u r n ( " 0 3 " ) ;
/ / i f ( f t = = " A U D U S D " ) r e t u r n ( " 0 4 " ) ;
/ / i f ( f t = = " U S D C A D " ) r e t u r n ( " 0 5 " ) ;
/ / i f ( f t = = " U S D C H F " ) r e t u r n ( " 0 6 " ) ;
/ / i f ( f t = = " U S D J P Y " ) r e t u r n ( " 0 7 " ) ;
/ / i f ( f t = = " X A U U S D " ) r e t u r n ( " 0 8 " ) ;
/ / i f ( f t = = " H O " ) r e t u r n ( " 0 9 " ) ;
/ / i f ( f t = = " C L " ) r e t u r n ( " 1 0 " ) ;
/ / i f ( f t = = " W T " ) r e t u r n ( " 1 1 " ) ;
/ / i f ( f t = = " B R N " ) r e t u r n ( " 1 2 " ) ;
/ / i f ( f t = = " U S D X " ) r e t u r n ( " 1 3 " ) ;
/ / i f ( f t = = " U S D X X X " ) r e t u r n ( " 1 4 " ) ;
/ /
/ / r e t u r n " " ;
/ / }
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / s t r i n g T F M i g r a t e ( i n t t f )
/ / {
/ / s w i t c h ( t f )
/ / {
/ / c a s e 0 : r e t u r n ( " C U R R E N T " ) ;
/ / c a s e 1 : r e t u r n ( " M 1 " ) ;
/ / c a s e 5 : r e t u r n ( " M 5 " ) ;
/ / c a s e 1 5 : r e t u r n ( " M 1 5 " ) ;
/ / c a s e 3 0 : r e t u r n ( " M 3 0 " ) ;
/ / c a s e 6 0 : r e t u r n ( " H 1 " ) ;
/ / c a s e 2 4 0 : r e t u r n ( " H 4 " ) ;
/ / c a s e 1 4 4 0 : r e t u r n ( " D 1 " ) ;
/ / c a s e 1 0 0 8 0 : r e t u r n ( " W 1 " ) ;
/ / c a s e 4 3 2 0 0 : r e t u r n ( " M N 1 " ) ;
/ /
/ / c a s e 2 : r e t u r n ( " M 2 " ) ;
/ / c a s e 3 : r e t u r n ( " M 3 " ) ;
/ / c a s e 4 : r e t u r n ( " M 4 " ) ;
/ / c a s e 6 : r e t u r n ( " M 6 " ) ;
/ / c a s e 1 0 : r e t u r n ( " M 1 0 " ) ;
/ / c a s e 1 2 : r e t u r n ( " M 1 2 " ) ;
/ / c a s e 2 0 : r e t u r n ( " M 2 0 " ) ;
/ / c a s e 1 6 3 8 5 : r e t u r n ( " H 1 " ) ;
/ / c a s e 1 6 3 8 6 : r e t u r n ( " H 2 " ) ;
/ / c a s e 1 6 3 8 7 : r e t u r n ( " H 3 " ) ;
/ / c a s e 1 6 3 8 8 : r e t u r n ( " H 4 " ) ;
/ / c a s e 1 6 3 9 0 : r e t u r n ( " H 6 " ) ;
/ / c a s e 1 6 3 9 2 : r e t u r n ( " H 8 " ) ;
/ / c a s e 1 6 3 9 6 : r e t u r n ( " H 1 2 " ) ;
/ / c a s e 1 6 4 0 8 : r e t u r n ( " D 1 " ) ;
/ / c a s e 3 2 7 6 9 : r e t u r n ( " W 1 " ) ;
/ / c a s e 4 9 1 5 3 : r e t u r n ( " M N 1 " ) ;
/ / d e f a u l t : r e t u r n ( " C U R R E N T " ) ;
/ / }
/ / }
/ / | ?8A0=85 : >102;O5B : AB@>:5 S AB>;L:> ;848@CNI8E =C;59 " 0 " , |
/ / | : GB>1K 4;8=0 AB@>:8 S AB0;0 @02=0 K . |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | 0@0<5B@K: |
/ / | s - AB@>:0 |
/ / | k - 4;8=0 AB@>:8 S |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / s t r i n g A d d L e a d i n g Z e r o ( s t r i n g s , i n t k )
/ / {
/ / i f ( S t r i n g L e n ( s ) = = k )
/ / { r e t u r n ( s ) ; }
/ / e l s e
/ / { w h i l e ( S t r i n g C o n c a t e n a t e ( s , " 0 " , s ) < k ) ; } ;
/ / r e t u r n ( s ) ;
/ / }
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S c r i p t p r o g r a m s t a r t f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / v o i d O n S t a r t ( )
/ / {
/ / C o m m e n t ( " " ) ;
/ / C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H I F T , f a l s e ) ;
/ / C h a r t S e t I n t e g e r ( 0 , C H A R T _ A U T O S C R O L L , f a l s e ) ;
/ / i n t _ b a r s = B a r s ( S y m b o l ( ) , 0 ) ;
/ / / / _ b a r s = 1 0 0 0 ;
/ / i n t _ c o u n t = 0 ;
/ / f o r ( i n t i = 0 ; i < _ b a r s ; i + + )
/ / {
/ / M q l D a t e T i m e t i m e _ n o w ;
/ / d a t e t i m e c a n d l e _ t i m e = i T i m e ( N U L L , _ P e r i o d , i ) ;
/ / T i m e T o S t r u c t ( c a n d l e _ t i m e , t i m e _ n o w ) ; / / c h a n g e t i m e t o s t r u c t
/ /
/ / i f ( t i m e _ n o w . h o u r = = 1 3 & & t i m e _ n o w . m i n = = 0 0 )
/ / {
/ / _ c o u n t + = 1 ;
/ / s t r i n g _ d a t e = s t r i n g ( t i m e _ n o w . y e a r ) + " . " + A d d L e a d i n g Z e r o ( s t r i n g ( t i m e _ n o w . m o n ) , 2 ) + " . " + A d d L e a d i n g Z e r o ( s t r i n g ( t i m e _ n o w . d a y ) , 2 ) ;
/ / C o m m e n t ( _ d a t e ) ;
/ / b o o l _ t r u e = S c r o l l T o T i m e ( c a n d l e _ t i m e ) ;
/ / S l e e p ( 1 0 0 0 ) ;
/ / / / - - - ?>;CG8< =><5@ A0<>3> ?5@2>3> 2848<>3> =0 3@0D8:5 10@0 ( =C<5@0F8O :0: 2 B09<A5@88)
/ / l o n g f i r s t _ b a r = C h a r t G e t I n t e g e r ( 0 , C H A R T _ F I R S T _ V I S I B L E _ B A R , 0 ) ;
/ / P r i n t ( s t r i n g ( f i r s t _ b a r ) + " = " + s t r i n g ( i ) ) ;
/ /
/ / s t r i n g n a m e = _ S u m b o l _ N ( s t r i n g ( S y m b o l ( ) ) )
/ / + " " + A d d L e a d i n g Z e r o ( s t r i n g ( _ c o u n t ) , 3 )
/ / + " " + s t r i n g ( t i m e _ n o w . y e a r ) + " . "
/ / + A d d L e a d i n g Z e r o ( s t r i n g ( t i m e _ n o w . m o n ) , 2 ) + " . "
/ / + A d d L e a d i n g Z e r o ( s t r i n g ( t i m e _ n o w . d a y ) , 2 )
/ / / / + " " + A d d L e a d i n g Z e r o ( s t r i n g ( t i m e _ n o w . h o u r ) , 2 ) + " . "
/ / / / + A d d L e a d i n g Z e r o ( s t r i n g ( t i m e _ n o w . m i n ) , 2 )
/ / + " " + _ n a m e O b e c t + " _ " + T F M i g r a t e ( P e r i o d ( ) )
/ / / / + " 2 5 6 0 _ 1 6 0 0 . P N G "
/ / ;
/ /
/ / C h a r t S c r e e n S h o t ( 0 , " / / !:@8=H>BK/ / " + _ n a m e O b e c t + " / / " + n a m e + " . P N G " , 2 5 6 0 , 1 6 0 0 , A L I G N _ C E N T E R ) ;
/ / / / i = 5 ;
/ / } ;
/ / } ;
/ /
/ / / / P r i n t ( i T i m e ( N U L L , _ P e r i o d , 0 ) ) ;
/ /
/ / }
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C a l c u l a t e o p t i m a l l o t s i z e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e T r a d e S i z e O p t i m i z e d ( v o i d )
{
d o u b l e p r i c e = 0 . 0 ;
d o u b l e m a r g i n = 0 . 0 ;
/ / - - - s e l e c t l o t s i z e
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 , p r i c e ) )
r e t u r n ( 0 . 0 ) ;
i f ( ! O r d e r C a l c M a r g i n ( O R D E R _ T Y P E _ B U Y , _ S y m b o l , 1 . 0 , p r i c e , m a r g i n ) )
r e t u r n ( 0 . 0 ) ;
i f ( m a r g i n < = 0 . 0 )
r e t u r n ( 0 . 0 ) ;
d o u b l e l o t = N o r m a l i z e D o u b l e ( 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 ) * M a x i m u m R i s k / m a r g i n , 2 ) ;
/ / - - - c a l c u l a t e n u m b e r o f l o s s e s o r d e r s w i t h o u t a b r e a k
i f ( D e c r e a s e F a c t o r > 0 )
{
/ / - - - s e l e c t h i s t o r y f o r a c c e s s
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 o r d e r s = H i s t o r y D e a l s T o t a l ( ) ; / / t o t a l h i s t o r y d e a l s
i n t l o s s e s = 0 ; / / n u m b e r o f l o s s e s o r d e r s w i t h o u t a b r e a k
f o r ( i n t i = o r d e r s - 1 ; i > = 0 ; i - - )
{
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 ( i ) ;
i f ( t i c k e t = = 0 )
{
P r i n t ( " H i s t o r y D e a l G e t T i c k e t f a i l e d , n o t r a d e h i s t o r y " ) ;
b r e a k ;
}
/ / - - - c h e c k s y m b o l
i f ( 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 ) ! = _ S y m b o l )
c o n t i n u e ;
/ / - - - c h e c k E x p e r t M a g i c n u m b e r
/ / 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 ) ! = M A _ M A G I C )
/ / c o n t i n u e ;
/ / - - - c h e c k p r o f i t
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 ( t i c k e t , D E A L _ P R O F I T ) ;
i f ( p r o f i t > 0 . 0 )
b r e a k ;
i f ( p r o f i t < 0 . 0 )
l o s s e s + + ;
}
/ / - - -
i f ( l o s s e s > 1 )
l o t = N o r m a l i z e D o u b l e ( l o t - l o t * l o s s e s / D e c r e a s e F a c t o r , 1 ) ;
}
/ / - - - n o r m a l i z e a n d c h e c k l i m i t s
d o u b l e s t e p v o l = 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 ) ;
l o t = s t e p v o l * N o r m a l i z e D o u b l e ( l o t / s t e p v o l , 0 ) ;
d o u b l e m i n v o l = 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 ( l o t < m i n v o l )
l o t = m i n v o l ;
d o u b l e m a x v o l = 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 ( l o t > m a x v o l )
l o t = m a x v o l ;
/ / - - - r e t u r n t r a d i n g v o l u m e
r e t u r n ( l o t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d B u t t o n C r e a t e ( s t r i n g n a m e , i n t Y d i s t , i n t Y s i z e , i n t F O N T S I Z E = 1 2 )
{
i n t X d i s t = 1 0 ;
i n t X s i z e = 1 5 0 ;
i f ( O b j e c t F i n d ( 0 , _ n a m e O b e c t + n a m e ) < 0 )
{
O b j e c t C r e a t e ( 0 , _ n a m e O b e c t + n a m e , O B J _ B U T T O N , 0 , 1 0 0 , 1 0 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ B G C O L O R , c l r G o l d e n r o d ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ B O R D E R _ C O L O R , c l r L i m e ) ;
/ / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ B A C K , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ X D I S T A N C E , X d i s t + X s i z e ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ Y D I S T A N C E , Y d i s t ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ X S I Z E , X s i z e ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ Y S I Z E , Y s i z e ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ F O N T , " S a n s S e r i f " ) ;
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ T E X T , n a m e ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ F O N T S I Z E , F O N T S I Z E ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ S E L E C T A B L E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ H I D D E N , t r u e ) ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + n a m e , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ U P P E R ) ;
} ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d B u t t o n C r e a t e F o r ( )
{
i n t Y d i s t = 5 ;
i n t Y s i z e = 1 8 ;
f o r ( i n t i = 0 ; i < A r r a y S i z e ( _ n a m e ) ; i + + )
{
i f ( _ n a m e [ i ] = = " l a b e l " )
{
B u t t o n C r e a t e ( _ n a m e [ i ] , Y d i s t , Y s i z e - 2 , 1 0 ) ;
Y d i s t = Y d i s t + Y s i z e ;
O b j e c t S e t I n t e g e r ( 0 , _ n a m e O b e c t + " l a b e l " , O B J P R O P _ S T A T E , f a l s e ) ;
d o u b l e p r i c e = 0 . 0 ;
d o u b l e m a r g i n = 0 . 0 ;
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 , p r i c e ) )
{
i f ( O r d e r C a l c M a r g i n ( O R D E R _ T Y P E _ B U Y , _ S y m b o l , 1 . 0 , p r i c e , m a r g i n ) )
{ O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " l a b e l " , O B J P R O P _ T E X T , S y m b o l ( ) + " " + D o u b l e T o S t r i n g ( M a t h C e i l ( m a r g i n ) , 0 ) ) ; }
e l s e
{
O b j e c t S e t S t r i n g ( 0 , _ n a m e O b e c t + " l a b e l " , O B J P R O P _ T E X T , S y m b o l ( ) + " " + D o u b l e T o S t r i n g ( M a t h C e i l ( 0 ) , 0 ) ) ;
} ;
} ;
}
e l s e
{
i f ( i = = 8 | | i = = 1 5 | | i = = 1 | | i = = ( A r r a y S i z e ( _ n a m e ) - 1 ) )
{
Y d i s t = Y d i s t + 3 ;
} ;
B u t t o n C r e a t e ( _ n a m e [ i ] , Y d i s t , Y s i z e , 1 0 ) ;
Y d i s t = Y d i s t + Y s i z e + 3 ;
} ;
} ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ T a k e P r o f i t _ B U Y ( )
{
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( m _ p o s i t i o n . S e l e c t B y I n d e x ( i ) )
{
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 )
{
d o u b l e _ P r i c e C u r r e n t _ T a k e P r o f i t = N o r m a l i z e D o u b l e ( 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 ) * _ S Y M B O L _ P O I N T _ ) , _ S Y M B O L _ D I G I T S _ ) ;
d o u b l e _ P r i c e C u r r e n t = N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e C u r r e n t ( ) + ( ( T a k e P r o f i t ) * _ S Y M B O L _ P O I N T _ ) , _ S Y M B O L _ D I G I T S _ ) ;
{
i f ( _ P r i c e C u r r e n t _ T a k e P r o f i t > m _ p o s i t i o n . T a k e P r o f i t ( ) | | m _ p o s i t i o n . T a k e P r o f i t ( ) = = 0 . 0 )
{
i f ( _ P r i c e C u r r e n t _ T a k e P r o f i t > 0 )
{
m _ t r a d e . P o s i t i o n M o d i f y ( m _ p o s i t i o n . T i c k e t ( ) ,
m _ p o s i t i o n . S t o p L o s s ( ) ,
_ P r i c e C u r r e n t _ T a k e P r o f i t ) ;
} ;
} ;
} ;
} ;
} ;
} ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ T a k e P r o f i t _ S E L L ( )
{
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - ) / / r e t u r n s t h e n u m b e r o f o p e n 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 ( i ) ) / / 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 ( P o s i t i o n G e t S y m b o l ( i ) = = 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 _ S E L L )
{
d o u b l e _ P r i c e C u r r e n t _ T a k e P r o f i t = N o r m a l i z e D o u b l e ( 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 * _ S Y M B O L _ P O I N T _ ) , _ S Y M B O L _ D I G I T S _ ) ;
d o u b l e _ P r i c e C u r r e n t = N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e C u r r e n t ( ) - ( T a k e P r o f i t * _ S Y M B O L _ P O I N T _ ) , _ S Y M B O L _ D I G I T S _ ) ;
/ / P r i n t ( _ P r i c e C u r r e n t - _ P r i c e C u r r e n t _ T a k e P r o f i t ) ;
{
i f ( _ P r i c e C u r r e n t _ T a k e P r o f i t < m _ p o s i t i o n . T a k e P r o f i t ( ) | | m _ p o s i t i o n . T a k e P r o f i t ( ) = = 0 . 0 )
{
i f ( _ P r i c e C u r r e n t _ T a k e P r o f i t > 0 )
{
m _ t r a d e . P o s i t i o n M o d i f y ( m _ p o s i t i o n . T i c k e t ( ) ,
m _ p o s i t i o n . S t o p L o s s ( ) ,
_ P r i c e C u r r e n t _ T a k e P r o f i t ) ;
}
;
}
} ;
} ;
} ;
} ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ B T r a i l i n g _ B U Y ( )
{
/ / d o u b l e _ B _ B U Y = 0 . 0 ;
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - )
i f ( m _ p o s i t i o n . S e l e c t B y I n d e x ( i ) )
{
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 )
{
l o n g _ S Y M B O L _ T R A D E _ S T O P S _ L E V E 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 ( T r a i l i n g S t o p _ S T O P S _ L E V E L B r e a k e v e n > _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L )
/ / { _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = T r a i l i n g S t o p _ S T O P S _ L E V E L B r e a k e v e n ; } ;
d o u b l e _ P r i c e C u r r e n t _ S t o p = N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) + ( ( T r a i l i n g S t o p _ S T O P S _ L E V E L B r e a k e v e n ) * _ S Y M B O L _ P O I N T _ ) , _ S Y M B O L _ D I G I T S _ ) ;
d o u b l e _ P r i c e C u r r e n t _ S t o p _ L E V E L = N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) + ( ( _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L ) * _ S Y M B O L _ P O I N T _ ) , _ S Y M B O L _ D I G I T S _ ) ;
d o u b l e _ P r i c e C u r r e n t = N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e C u r r e n t ( ) - ( ( _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L ) * _ S Y M B O L _ P O I N T _ ) , _ S Y M B O L _ D I G I T S _ ) ;
i f ( _ P r i c e C u r r e n t > _ P r i c e C u r r e n t _ S t o p & & _ P r i c e C u r r e n t > _ P r i c e C u r r e n t _ S t o p _ L E V E L )
{
i f ( _ P r i c e C u r r e n t _ S t o p > m _ p o s i t i o n . S t o p L o s s ( ) | | m _ p o s i t i o n . S t o p L o s s ( ) = = 0 . 0 )
{
i f ( _ P r i c e C u r r e n t _ S t o p > 0 )
{
m _ t r a d e . P o s i t i o n M o d i f y ( m _ p o s i t i o n . T i c k e t ( ) ,
_ P r i c e C u r r e n t _ S t o p ,
m _ p o s i t i o n . T a k e P r o f i t ( ) ) ;
} ;
} ;
} ;
} ;
} ;
} ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ B T r a i l i n g _ S E L L ( )
{
/ / d o u b l e _ B _ S E L L = 0 . 0 ;
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - ) / / r e t u r n s t h e n u m b e r o f o p e n 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 ( i ) ) / / 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 ( P o s i t i o n G e t S y m b o l ( i ) = = S y m b o l ( ) )
{
l o n g _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = S y m b o l I n f o I n t e g e r ( m _ p o s i t i o n . 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 ( T r a i l i n g S t o p _ S T O P S _ L E V E L B r e a k e v e n > _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L )
/ / { _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L = T r a i l i n g S t o p _ S T O P S _ L E V E L B r e a k e v e n ; } ;
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 )
{
d o u b l e _ P r i c e C u r r e n t _ S t o p = N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) - ( ( T r a i l i n g S t o p _ S T O P S _ L E V E L B r e a k e v e n ) * _ S Y M B O L _ P O I N T _ ) , _ S Y M B O L _ D I G I T S _ ) ;
d o u b l e _ P r i c e C u r r e n t _ S t o p _ L E V E L = N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e O p e n ( ) - ( ( _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L ) * _ S Y M B O L _ P O I N T _ ) , _ S Y M B O L _ D I G I T S _ ) ;
d o u b l e _ P r i c e C u r r e n t = N o r m a l i z e D o u b l e ( m _ p o s i t i o n . P r i c e C u r r e n t ( ) + ( ( _ S Y M B O L _ T R A D E _ S T O P S _ L E V E L ) * _ S Y M B O L _ P O I N T _ ) , _ S Y M B O L _ D I G I T S _ ) ;
i f ( _ P r i c e C u r r e n t < _ P r i c e C u r r e n t _ S t o p & & _ P r i c e C u r r e n t < _ P r i c e C u r r e n t _ S t o p _ L E V E L )
{
i f ( _ P r i c e C u r r e n t _ S t o p < m _ p o s i t i o n . S t o p L o s s ( ) | | m _ p o s i t i o n . S t o p L o s s ( ) = = 0 . 0 )
{
i f ( _ P r i c e C u r r e n t _ S t o p > 0 )
{
m _ t r a d e . P o s i t i o n M o d i f y ( m _ p o s i t i o n . T i c k e t ( ) ,
_ P r i c e C u r r e n t _ S t o p ,
m _ p o s i t i o n . T a k e P r o f i t ( ) ) ;
} ;
}
} ;
} ;
} ;
} ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g _ S u m b o l _ N ( s t r i n g f t )
{
i f ( f t = = " E U R U S D " )
r e t u r n ( " 0 1 " ) ;
i f ( f t = = " G B P U S D " )
r e t u r n ( " 0 2 " ) ;
i f ( f t = = " N Z D U S D " )
r e t u r n ( " 0 3 " ) ;
i f ( f t = = " A U D U S D " )
r e t u r n ( " 0 4 " ) ;
i f ( f t = = " U S D C A D " )
r e t u r n ( " 0 5 " ) ;
i f ( f t = = " U S D C H F " )
r e t u r n ( " 0 6 " ) ;
i f ( f t = = " U S D J P Y " )
r e t u r n ( " 0 7 " ) ;
i f ( f t = = " X A U U S D " )
r e t u r n ( " 0 8 " ) ;
i f ( f t = = " H O " )
r e t u r n ( " 0 9 " ) ;
i f ( f t = = " C L " )
r e t u r n ( " 1 0 " ) ;
i f ( f t = = " W T " )
r e t u r n ( " 1 1 " ) ;
i f ( f t = = " B R N " )
r e t u r n ( " 1 2 " ) ;
i f ( f t = = " U S D X " )
r e t u r n ( " 1 3 " ) ;
i f ( f t = = " U S D X X X " )
r e t u r n ( " 1 4 " ) ;
r e t u r n " " ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g A d d L e a d i n g Z e r o ( s t r i n g s , i n t k )
{
i f ( S t r i n g L e n ( s ) = = k )
{ r e t u r n ( s ) ; }
e l s e
{ w h i l e ( S t r i n g C o n c a t e n a t e ( s , " 0 " , s ) < k ) ; } ;
r e t u r n ( s ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e F _ p r o f i t ( E N U M _ P O S I T I O N _ T Y P E _ _ P O S I T I O N _ T Y P E )
{
d o u b l e P R O F I T = 0 . 0 1 ;
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - ) / / r e t u r n s t h e n u m b e r o f o p e n p o s i t i o n s
{
i f ( P o s i t i o n G e t S y m b o l ( i ) = = 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 )
{
d o u b l e _ P O S I T I O N _ P R O F I 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 _ P R O F I T ) ;
P R O F I T = P R O F I T + _ P O S I T I O N _ P R O F I T ;
i f ( _ P O S I T I O N _ P R O F I T < 0 . 0 )
{
r e t u r n - 1 ;
} ;
} ;
} ;
} ;
r e t u r n P R O F I T ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l _ S k r i n s h o t ( )
{
M q l D a t e T i m e t i m e _ n o w ;
T i m e T o S t r u c t ( T i m e L o c a l ( ) , t i m e _ n o w ) ;
s t r i n g n a m e = " S E N D \ \ " + _ S u m b o l _ N ( S y m b o l ( ) ) + " " + ( S y m b o l ( ) ) + " " + n o m e r P e r i o d ( P e r i o d ( ) ) + " _ " + T F M i g r a t e ( P e r i o d ( ) ) + " " + s t r i n g ( t i m e _ n o w . y e a r ) + " . " + A d d L e a d i n g Z e r o ( s t r i n g ( t i m e _ n o w . m o n ) , 2 )
+ " . " + A d d L e a d i n g Z e r o ( s t r i n g ( t i m e _ n o w . d a y ) , 2 ) + " " + A d d L e a d i n g Z e r o ( s t r i n g ( t i m e _ n o w . h o u r ) , 2 ) + " . " + A d d L e a d i n g Z e r o ( s t r i n g ( t i m e _ n o w . m i n ) , 2 ) ;
S l e e p ( 1 0 0 ) ;
C h a r t S c r e e n S h o t ( 0 , n a m e + " 1 9 2 0 _ 1 2 0 0 . P N G " , 1 9 2 0 , 1 2 0 0 , A L I G N _ L E F T ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l O p e n B u y ( d o u b l e L o t s X )
{
/ / - - - ?5@51>@ 2A5E >B:@KBKE ?>78F89
i f ( P o s i t i o n s T o t a l ( ) < l i m i t _ t o t a l _ s y m b o l )
{
/ / - - - >1JO2;5=85 8 8=8F80;870F8O 70?@>A0 8 @57C;LB0B0
M q l T r a d e R e q u e s t r e q u e s t = { 0 } ;
M q l T r a d e R e s u l t r e s u l t = { 0 } ;
/ / - - - ?0@0<5B@K 70?@>A0
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ D E A L ; / / B8? B>@3>2>9 >?5@0F88
r e q u e s t . s y m b o l = S y m b o l ( ) ; / / A8<2>;
r e q u e s t . v o l u m e = L o t s X ; / / >1J5< 2 0 . 1 ;>B * ( ( i n t ) M a t h A b s ( m a i n _ b u f f e r ) )
r e q u e s t . t y p e = O R D E R _ T Y P E _ B U Y ; / / B8? >@45@0
r e q u e s t . 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 ) ; / / F5=0 4;O >B:@KB8O
r e q u e s t . d e v i a t i o n = 5 ; / / 4>?CAB8<>5 >B:;>=5=85 >B F5=K
r e q u e s t . m a g i c = E X P E R T _ M A G I C ; / / M a g i c N u m b e r >@45@0
/ / r e q u e s t . s l = 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 ) - T r a i l i n g S t o p _ S T O P S _ L E V E L * 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 _ P O I N T ) ; / / #@>25=L S t o p L o s s >@45@0
/ / r e q u e s t . t 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 _ B I D ) + ( T r a i l i n g S t o p _ S T O P S _ L E V E L * 2 ) * 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 _ P O I N T ) ; / / #@>25=L T a k e P r o f i t >@45@0
/ / r e q u e s t . t p = 0 . 7 2 1 0 2 ; / / #@>25=L T a k e P r o f i t >@45@0
/ / - - - >B?@02:0 70?@>A0
i f ( ! O r d e r S e n d ( r e q u e s t , r e s u l t ) )
P r i n t F o r m a t ( " O r d e r S e n d e r r o r % d " , G e t L a s t E r r o r ( ) ) ; / / 5A;8 >B?@028BL 70?@>A =5 C40;>AL, 2K25AB8 :>4 >H81:8
/ / - - - 8=D>@<0F8O >1 >?5@0F88
P r i n t F o r m a t ( " r e t c o d e = % u d e a l = % I 6 4 u o r d e r = % I 6 4 u " , r e s u l t . r e t c o d e , r e s u l t . d e a l , r e s u l t . o r d e r ) ;
} ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l O p e n S e l l ( d o u b l e L o t s X )
{
/ / - - - ?5@51>@ 2A5E >B:@KBKE ?>78F89
i f ( P o s i t i o n s T o t a l ( ) < l i m i t _ t o t a l _ s y m b o l )
{
/ / - - - >1JO2;5=85 8 8=8F80;870F8O 70?@>A0 8 @57C;LB0B0
M q l T r a d e R e q u e s t r e q u e s t = { 0 } ;
M q l T r a d e R e s u l t r e s u l t = { 0 } ;
/ / - - - ?0@0<5B@K 70?@>A0
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ D E A L ; / / B8? B>@3>2>9 >?5@0F88
r e q u e s t . s y m b o l = S y m b o l ( ) ; / / A8<2>;
r e q u e s t . v o l u m e = L o t s X ; / / >1J5< 2 0 . 1 ;>B * ( ( i n t ) M a t h A b s ( m a i n _ b u f f e r ) )
r e q u e s t . t y p e = O R D E R _ T Y P E _ S E L L ; / / B8? >@45@0
r e q u e s t . 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 ) ; / / F5=0 4;O >B:@KB8O
r e q u e s t . d e v i a t i o n = 5 ; / / 4>?CAB8<>5 >B:;>=5=85 >B F5=K
r e q u e s t . m a g i c = E X P E R T _ M A G I C ; / / M a g i c N u m b e r >@45@0
/ / r e q u e s t . s l = 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 r a i l i n g S t o p _ S T O P S _ L E V E L * 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 _ P O I N T ) ; / / #@>25=L S t o p L o s s >@45@0
/ / r e q u e s t . t 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 _ A S K ) - ( T r a i l i n g S t o p _ S T O P S _ L E V E L * 2 ) * 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 _ P O I N T ) ; / / #@>25=L T a k e P r o f i t >@45@0
/ / r e q u e s t . t p = 0 . 6 7 4 0 9 ; / / #@>25=L T a k e P r o f i t >@45@0
/ / - - - >B?@02:0 70?@>A0
i f ( ! O r d e r S e n d ( r e q u e s t , r e s u l t ) )
P r i n t F o r m a t ( " O r d e r S e n d e r r o r % d " , G e t L a s t E r r o r ( ) ) ; / / 5A;8 >B?@028BL 70?@>A =5 C40;>AL, 2K25AB8 :>4 >H81:8
/ / - - - 8=D>@<0F8O >1 >?5@0F88
P r i n t F o r m a t ( " r e t c o d e = % u d e a l = % I 6 4 u o r d e r = % I 6 4 u " , r e s u l t . r e t c o d e , r e s u l t . d e a l , r e s u l t . o r d e r ) ;
} ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | 0:@KB85 2A5E ?>78F89 S e l l |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C h e c k F o r C l o s e S e l l ( )
{
/ / - - - >1JO2;5=85 70?@>A0 8 @57C;LB0B0
M q l T r a d e R e q u e s t r e q u e s t ;
M q l T r a d e R e s u l t r e s u l t ;
i n t t o t a l = P o s i t i o n s T o t a l ( ) ; / / :>;8G5AB2> >B:@KBKE ?>78F89
/ / - - - ?5@51>@ 2A5E >B:@KBKE ?>78F89
f o r ( i n t i = t o t a l - 1 ; i > = 0 ; i - - )
{
/ / - - - ?0@0<5B@K >@45@0
u l o n g p o s i t i o n _ t i c k e t = P o s i t i o n G e t T i c k e t ( i ) ; / / B8:5B ?>78F88
s t r i n g p o s i t i o n _ s y m b o l = 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 ) ; / / A8<2>;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( p o s i t i o n _ s y m b o l , S Y M B O L _ D I G I T S ) ; / / :>;8G5AB2> 7=0:>2 ?>A;5 70?OB>9
u l o n g m a g i c = 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 u m b e r ?>78F88
d o u b l e v o l u m 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 _ V O L U M E ) ; / / >1J5< ?>78F88
E N U M _ P O S I T I O N _ T Y P E t y p e = ( E N U M _ P O S I T I O N _ T Y P E ) 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 ) ; / / B8? ?>78F88
/ / - - - 2K2>4 8=D>@<0F88 > ?>78F88
P r i n t F o r m a t ( " # % I 6 4 u % s % s % . 2 f % s [ % I 6 4 d ] " ,
p o s i t i o n _ t i c k e t ,
p o s i t i o n _ s y m b o l ,
E n u m T o S t r i n g ( t y p e ) ,
v o l u m e ,
D o u b l e T o S t r i n g ( 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 ) , d i g i t s ) ,
m a g i c ) ;
/ / - - - 5A;8 M a g i c N u m b e r A>2?0405B
i f ( t y p e = = P O S I T I O N _ T Y P E _ S E L L & & p o s i t i o n _ s y m b o l = = S y m b o l ( ) )
{
/ / - - - >1=C;5=85 7=0G5=89 70?@>A0 8 @57C;LB0B0
Z e r o M e m o r y ( r e q u e s t ) ;
Z e r o M e m o r y ( r e s u l t ) ;
/ / - - - CAB0=>2:0 ?0@0<5B@>2 >?5@0F88
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ D E A L ; / / B8? B>@3>2>9 >?5@0F88
r e q u e s t . p o s i t i o n = p o s i t i o n _ t i c k e t ; / / B8:5B ?>78F88
r e q u e s t . s y m b o l = p o s i t i o n _ s y m b o l ; / / A8<2>;
r e q u e s t . v o l u m e = v o l u m e ; / / >1J5< ?>78F88
r e q u e s t . d e v i a t i o n = 5 ; / / 4>?CAB8<>5 >B:;>=5=85 >B F5=K
r e q u e s t . m a g i c = E X P E R T _ M A G I C ; / / M a g i c N u m b e r ?>78F88
/ / - - - CAB0=>2:0 F5=K 8 B8?0 >@45@0 2 7028A8<>AB8 >B B8?0 ?>78F88
r e q u e s t . p r i c e = S y m b o l I n f o D o u b l e ( p o s i t i o n _ s y m b o l , S Y M B O L _ A S K ) ;
r e q u e s t . t y p e = O R D E R _ T Y P E _ B U Y ;
/ / - - - 2K2>4 8=D>@<0F88 > 70:@KB88
P r i n t F o r m a t ( " C l o s e # % I 6 4 d % s % s " , p o s i t i o n _ t i c k e t , p o s i t i o n _ s y m b o l , E n u m T o S t r i n g ( t y p e ) ) ;
/ / - - - >B?@02:0 70?@>A0
i f ( ! O r d e r S e n d ( r e q u e s t , r e s u l t ) )
P r i n t F o r m a t ( " O r d e r S e n d e r r o r % d " , G e t L a s t E r r o r ( ) ) ; / / 5A;8 >B?@028BL 70?@>A =5 C40;>AL, 2K25AB8 :>4 >H81:8
/ / - - - 8=D>@<0F8O >1 >?5@0F88
P r i n t F o r m a t ( " r e t c o d e = % u d e a l = % I 6 4 u o r d e r = % I 6 4 u " , r e s u l t . r e t c o d e , r e s u l t . d e a l , r e s u l t . o r d e r ) ;
/ / - - -
}
}
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | 0:@KB85 2A5E ?>78F89 B u y |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C h e c k F o r C l o s e B u y ( )
{
/ / - - - >1JO2;5=85 70?@>A0 8 @57C;LB0B0
M q l T r a d e R e q u e s t r e q u e s t ;
M q l T r a d e R e s u l t r e s u l t ;
i n t t o t a l = P o s i t i o n s T o t a l ( ) ; / / :>;8G5AB2> >B:@KBKE ?>78F89
/ / - - - ?5@51>@ 2A5E >B:@KBKE ?>78F89
f o r ( i n t i = t o t a l - 1 ; i > = 0 ; i - - )
{
/ / - - - ?0@0<5B@K >@45@0
u l o n g p o s i t i o n _ t i c k e t = P o s i t i o n G e t T i c k e t ( i ) ; / / B8:5B ?>78F88
s t r i n g p o s i t i o n _ s y m b o l = 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 ) ; / / A8<2>;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( p o s i t i o n _ s y m b o l , S Y M B O L _ D I G I T S ) ; / / :>;8G5AB2> 7=0:>2 ?>A;5 70?OB>9
u l o n g m a g i c = 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 u m b e r ?>78F88
d o u b l e v o l u m 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 _ V O L U M E ) ; / / >1J5< ?>78F88
E N U M _ P O S I T I O N _ T Y P E t y p e = ( E N U M _ P O S I T I O N _ T Y P E ) 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 ) ; / / B8? ?>78F88
/ / - - - 2K2>4 8=D>@<0F88 > ?>78F88
P r i n t F o r m a t ( " # % I 6 4 u % s % s % . 2 f % s [ % I 6 4 d ] " ,
p o s i t i o n _ t i c k e t ,
p o s i t i o n _ s y m b o l ,
E n u m T o S t r i n g ( t y p e ) ,
v o l u m e ,
D o u b l e T o S t r i n g ( 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 ) , d i g i t s ) ,
m a g i c ) ;
/ / - - - 5A;8 M a g i c N u m b e r A>2?0405B
i f ( t y p e = = P O S I T I O N _ T Y P E _ B U Y & & p o s i t i o n _ s y m b o l = = S y m b o l ( ) )
{
/ / - - - >1=C;5=85 7=0G5=89 70?@>A0 8 @57C;LB0B0
Z e r o M e m o r y ( r e q u e s t ) ;
Z e r o M e m o r y ( r e s u l t ) ;
/ / - - - CAB0=>2:0 ?0@0<5B@>2 >?5@0F88
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ D E A L ; / / B8? B>@3>2>9 >?5@0F88
r e q u e s t . p o s i t i o n = p o s i t i o n _ t i c k e t ; / / B8:5B ?>78F88
r e q u e s t . s y m b o l = p o s i t i o n _ s y m b o l ; / / A8<2>;
r e q u e s t . v o l u m e = v o l u m e ; / / >1J5< ?>78F88
r e q u e s t . d e v i a t i o n = 5 ; / / 4>?CAB8<>5 >B:;>=5=85 >B F5=K
r e q u e s t . m a g i c = E X P E R T _ M A G I C ; / / M a g i c N u m b e r ?>78F88
/ / - - - CAB0=>2:0 F5=K 8 B8?0 >@45@0 2 7028A8<>AB8 >B B8?0 ?>78F88
r e q u e s t . p r i c e = S y m b o l I n f o D o u b l e ( p o s i t i o n _ s y m b o l , S Y M B O L _ B I D ) ;
r e q u e s t . t y p e = O R D E R _ T Y P E _ S E L L ;
/ / - - - 2K2>4 8=D>@<0F88 > 70:@KB88
P r i n t F o r m a t ( " C l o s e # % I 6 4 d % s % s " , p o s i t i o n _ t i c k e t , p o s i t i o n _ s y m b o l , E n u m T o S t r i n g ( t y p e ) ) ;
/ / - - - >B?@02:0 70?@>A0
i f ( ! O r d e r S e n d ( r e q u e s t , r e s u l t ) )
P r i n t F o r m a t ( " O r d e r S e n d e r r o r % d " , G e t L a s t E r r o r ( ) ) ; / / 5A;8 >B?@028BL 70?@>A =5 C40;>AL, 2K25AB8 :>4 >H81:8
/ / - - - 8=D>@<0F8O >1 >?5@0F88
P r i n t F o r m a t ( " r e t c o d e = % u d e a l = % I 6 4 u o r d e r = % I 6 4 u " , r e s u l t . r e t c o d e , r e s u l t . d e a l , r e s u l t . o r d e r ) ;
/ / - - -
}
}
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C h e c k F o r C l o s e B u y P r o f i t ( )
{
/ / - - - >1JO2;5=85 70?@>A0 8 @57C;LB0B0
M q l T r a d e R e q u e s t r e q u e s t ;
M q l T r a d e R e s u l t r e s u l t ;
i n t t o t a l = P o s i t i o n s T o t a l ( ) ; / / :>;8G5AB2> >B:@KBKE ?>78F89
/ / - - - ?5@51>@ 2A5E >B:@KBKE ?>78F89
f o r ( i n t i = t o t a l - 1 ; i > = 0 ; i - - )
{
/ / - - - ?0@0<5B@K >@45@0
u l o n g p o s i t i o n _ t i c k e t = P o s i t i o n G e t T i c k e t ( i ) ; / / B8:5B ?>78F88
s t r i n g p o s i t i o n _ s y m b o l = 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 ) ; / / A8<2>;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( p o s i t i o n _ s y m b o l , S Y M B O L _ D I G I T S ) ; / / :>;8G5AB2> 7=0:>2 ?>A;5 70?OB>9
u l o n g m a g i c = 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 u m b e r ?>78F88
d o u b l e v o l u m 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 _ V O L U M E ) ; / / >1J5< ?>78F88
E N U M _ P O S I T I O N _ T Y P E t y p e = ( E N U M _ P O S I T I O N _ T Y P E ) 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 ) ; / / B8? ?>78F88
/ / - - - 2K2>4 8=D>@<0F88 > ?>78F88
P r i n t F o r m a t ( " # % I 6 4 u % s % s % . 2 f % s [ % I 6 4 d ] " ,
p o s i t i o n _ t i c k e t ,
p o s i t i o n _ s y m b o l ,
E n u m T o S t r i n g ( t y p e ) ,
v o l u m e ,
D o u b l e T o S t r i n g ( 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 ) , d i g i t s ) ,
m a g i c ) ;
/ / - - - 5A;8 M a g i c N u m b e r A>2?0405B
i f ( t y p e = = P O S I T I O N _ T Y P E _ B U Y & & 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 D o u b l e ( P O S I T I O N _ P R O F I T ) > 0 . 0 )
{
/ / - - - >1=C;5=85 7=0G5=89 70?@>A0 8 @57C;LB0B0
Z e r o M e m o r y ( r e q u e s t ) ;
Z e r o M e m o r y ( r e s u l t ) ;
/ / - - - CAB0=>2:0 ?0@0<5B@>2 >?5@0F88
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ D E A L ; / / B8? B>@3>2>9 >?5@0F88
r e q u e s t . p o s i t i o n = p o s i t i o n _ t i c k e t ; / / B8:5B ?>78F88
r e q u e s t . s y m b o l = p o s i t i o n _ s y m b o l ; / / A8<2>;
r e q u e s t . v o l u m e = v o l u m e ; / / >1J5< ?>78F88
r e q u e s t . d e v i a t i o n = 5 ; / / 4>?CAB8<>5 >B:;>=5=85 >B F5=K
r e q u e s t . m a g i c = E X P E R T _ M A G I C ; / / M a g i c N u m b e r ?>78F88
/ / - - - CAB0=>2:0 F5=K 8 B8?0 >@45@0 2 7028A8<>AB8 >B B8?0 ?>78F88
r e q u e s t . p r i c e = S y m b o l I n f o D o u b l e ( p o s i t i o n _ s y m b o l , S Y M B O L _ B I D ) ;
r e q u e s t . t y p e = O R D E R _ T Y P E _ S E L L ;
/ / - - - 2K2>4 8=D>@<0F88 > 70:@KB88
P r i n t F o r m a t ( " C l o s e # % I 6 4 d % s % s " , p o s i t i o n _ t i c k e t , p o s i t i o n _ s y m b o l , E n u m T o S t r i n g ( t y p e ) ) ;
/ / - - - >B?@02:0 70?@>A0
i f ( ! O r d e r S e n d ( r e q u e s t , r e s u l t ) )
P r i n t F o r m a t ( " O r d e r S e n d e r r o r % d " , G e t L a s t E r r o r ( ) ) ; / / 5A;8 >B?@028BL 70?@>A =5 C40;>AL, 2K25AB8 :>4 >H81:8
/ / - - - 8=D>@<0F8O >1 >?5@0F88
P r i n t F o r m a t ( " r e t c o d e = % u d e a l = % I 6 4 u o r d e r = % I 6 4 u " , r e s u l t . r e t c o d e , r e s u l t . d e a l , r e s u l t . o r d e r ) ;
/ / - - -
}
}
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C h e c k F o r C l o s e S e l l P r o f i t ( )
{
/ / - - - >1JO2;5=85 70?@>A0 8 @57C;LB0B0
M q l T r a d e R e q u e s t r e q u e s t ;
M q l T r a d e R e s u l t r e s u l t ;
i n t t o t a l = P o s i t i o n s T o t a l ( ) ; / / :>;8G5AB2> >B:@KBKE ?>78F89
/ / - - - ?5@51>@ 2A5E >B:@KBKE ?>78F89
f o r ( i n t i = t o t a l - 1 ; i > = 0 ; i - - )
{
/ / - - - ?0@0<5B@K >@45@0
u l o n g p o s i t i o n _ t i c k e t = P o s i t i o n G e t T i c k e t ( i ) ; / / B8:5B ?>78F88
s t r i n g p o s i t i o n _ s y m b o l = 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 ) ; / / A8<2>;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( p o s i t i o n _ s y m b o l , S Y M B O L _ D I G I T S ) ; / / :>;8G5AB2> 7=0:>2 ?>A;5 70?OB>9
u l o n g m a g i c = 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 u m b e r ?>78F88
d o u b l e v o l u m 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 _ V O L U M E ) ; / / >1J5< ?>78F88
E N U M _ P O S I T I O N _ T Y P E t y p e = ( E N U M _ P O S I T I O N _ T Y P E ) 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 ) ; / / B8? ?>78F88
/ / - - - 2K2>4 8=D>@<0F88 > ?>78F88
P r i n t F o r m a t ( " # % I 6 4 u % s % s % . 2 f % s [ % I 6 4 d ] " ,
p o s i t i o n _ t i c k e t ,
p o s i t i o n _ s y m b o l ,
E n u m T o S t r i n g ( t y p e ) ,
v o l u m e ,
D o u b l e T o S t r i n g ( 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 ) , d i g i t s ) ,
m a g i c ) ;
/ / - - - 5A;8 M a g i c N u m b e r A>2?0405B
i f ( t y p e = = P O S I T I O N _ T Y P E _ S E L L & & 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 D o u b l e ( P O S I T I O N _ P R O F I T ) > 0 . 0 )
{
/ / - - - >1=C;5=85 7=0G5=89 70?@>A0 8 @57C;LB0B0
Z e r o M e m o r y ( r e q u e s t ) ;
Z e r o M e m o r y ( r e s u l t ) ;
/ / - - - CAB0=>2:0 ?0@0<5B@>2 >?5@0F88
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ D E A L ; / / B8? B>@3>2>9 >?5@0F88
r e q u e s t . p o s i t i o n = p o s i t i o n _ t i c k e t ; / / B8:5B ?>78F88
r e q u e s t . s y m b o l = p o s i t i o n _ s y m b o l ; / / A8<2>;
r e q u e s t . v o l u m e = v o l u m e ; / / >1J5< ?>78F88
r e q u e s t . d e v i a t i o n = 5 ; / / 4>?CAB8<>5 >B:;>=5=85 >B F5=K
r e q u e s t . m a g i c = E X P E R T _ M A G I C ; / / M a g i c N u m b e r ?>78F88
/ / - - - CAB0=>2:0 F5=K 8 B8?0 >@45@0 2 7028A8<>AB8 >B B8?0 ?>78F88
r e q u e s t . p r i c e = S y m b o l I n f o D o u b l e ( p o s i t i o n _ s y m b o l , S Y M B O L _ A S K ) ;
r e q u e s t . t y p e = O R D E R _ T Y P E _ B U Y ;
/ / - - - 2K2>4 8=D>@<0F88 > 70:@KB88
P r i n t F o r m a t ( " C l o s e # % I 6 4 d % s % s " , p o s i t i o n _ t i c k e t , p o s i t i o n _ s y m b o l , E n u m T o S t r i n g ( t y p e ) ) ;
/ / - - - >B?@02:0 70?@>A0
i f ( ! O r d e r S e n d ( r e q u e s t , r e s u l t ) )
P r i n t F o r m a t ( " O r d e r S e n d e r r o r % d " , G e t L a s t E r r o r ( ) ) ; / / 5A;8 >B?@028BL 70?@>A =5 C40;>AL, 2K25AB8 :>4 >H81:8
/ / - - - 8=D>@<0F8O >1 >?5@0F88
P r i n t F o r m a t ( " r e t c o d e = % u d e a l = % I 6 4 u o r d e r = % I 6 4 u " , r e s u l t . r e t c o d e , r e s u l t . d e a l , r e s u l t . o r d e r ) ;
/ / - - -
}
}
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C h e c k F o r C l o s e B u y L o s s ( )
{
/ / - - - >1JO2;5=85 70?@>A0 8 @57C;LB0B0
M q l T r a d e R e q u e s t r e q u e s t ;
M q l T r a d e R e s u l t r e s u l t ;
i n t t o t a l = P o s i t i o n s T o t a l ( ) ; / / :>;8G5AB2> >B:@KBKE ?>78F89
/ / - - - ?5@51>@ 2A5E >B:@KBKE ?>78F89
f o r ( i n t i = t o t a l - 1 ; i > = 0 ; i - - )
{
/ / - - - ?0@0<5B@K >@45@0
u l o n g p o s i t i o n _ t i c k e t = P o s i t i o n G e t T i c k e t ( i ) ; / / B8:5B ?>78F88
s t r i n g p o s i t i o n _ s y m b o l = 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 ) ; / / A8<2>;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( p o s i t i o n _ s y m b o l , S Y M B O L _ D I G I T S ) ; / / :>;8G5AB2> 7=0:>2 ?>A;5 70?OB>9
u l o n g m a g i c = 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 u m b e r ?>78F88
d o u b l e v o l u m 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 _ V O L U M E ) ; / / >1J5< ?>78F88
E N U M _ P O S I T I O N _ T Y P E t y p e = ( E N U M _ P O S I T I O N _ T Y P E ) 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 ) ; / / B8? ?>78F88
/ / - - - 2K2>4 8=D>@<0F88 > ?>78F88
P r i n t F o r m a t ( " # % I 6 4 u % s % s % . 2 f % s [ % I 6 4 d ] " ,
p o s i t i o n _ t i c k e t ,
p o s i t i o n _ s y m b o l ,
E n u m T o S t r i n g ( t y p e ) ,
v o l u m e ,
D o u b l e T o S t r i n g ( 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 ) , d i g i t s ) ,
m a g i c ) ;
/ / - - - 5A;8 M a g i c N u m b e r A>2?0405B
i f ( t y p e = = P O S I T I O N _ T Y P E _ B U Y & & 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 D o u b l e ( P O S I T I O N _ P R O F I T ) < 0 . 0 )
{
/ / - - - >1=C;5=85 7=0G5=89 70?@>A0 8 @57C;LB0B0
Z e r o M e m o r y ( r e q u e s t ) ;
Z e r o M e m o r y ( r e s u l t ) ;
/ / - - - CAB0=>2:0 ?0@0<5B@>2 >?5@0F88
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ D E A L ; / / B8? B>@3>2>9 >?5@0F88
r e q u e s t . p o s i t i o n = p o s i t i o n _ t i c k e t ; / / B8:5B ?>78F88
r e q u e s t . s y m b o l = p o s i t i o n _ s y m b o l ; / / A8<2>;
r e q u e s t . v o l u m e = v o l u m e ; / / >1J5< ?>78F88
r e q u e s t . d e v i a t i o n = 5 ; / / 4>?CAB8<>5 >B:;>=5=85 >B F5=K
r e q u e s t . m a g i c = E X P E R T _ M A G I C ; / / M a g i c N u m b e r ?>78F88
/ / - - - CAB0=>2:0 F5=K 8 B8?0 >@45@0 2 7028A8<>AB8 >B B8?0 ?>78F88
r e q u e s t . p r i c e = S y m b o l I n f o D o u b l e ( p o s i t i o n _ s y m b o l , S Y M B O L _ B I D ) ;
r e q u e s t . t y p e = O R D E R _ T Y P E _ S E L L ;
/ / - - - 2K2>4 8=D>@<0F88 > 70:@KB88
P r i n t F o r m a t ( " C l o s e # % I 6 4 d % s % s " , p o s i t i o n _ t i c k e t , p o s i t i o n _ s y m b o l , E n u m T o S t r i n g ( t y p e ) ) ;
/ / - - - >B?@02:0 70?@>A0
i f ( ! O r d e r S e n d ( r e q u e s t , r e s u l t ) )
P r i n t F o r m a t ( " O r d e r S e n d e r r o r % d " , G e t L a s t E r r o r ( ) ) ; / / 5A;8 >B?@028BL 70?@>A =5 C40;>AL, 2K25AB8 :>4 >H81:8
/ / - - - 8=D>@<0F8O >1 >?5@0F88
P r i n t F o r m a t ( " r e t c o d e = % u d e a l = % I 6 4 u o r d e r = % I 6 4 u " , r e s u l t . r e t c o d e , r e s u l t . d e a l , r e s u l t . o r d e r ) ;
/ / - - -
}
}
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C h e c k F o r C l o s e S e l l L o s s ( )
{
/ / - - - >1JO2;5=85 70?@>A0 8 @57C;LB0B0
M q l T r a d e R e q u e s t r e q u e s t ;
M q l T r a d e R e s u l t r e s u l t ;
i n t t o t a l = P o s i t i o n s T o t a l ( ) ; / / :>;8G5AB2> >B:@KBKE ?>78F89
/ / - - - ?5@51>@ 2A5E >B:@KBKE ?>78F89
f o r ( i n t i = t o t a l - 1 ; i > = 0 ; i - - )
{
/ / - - - ?0@0<5B@K >@45@0
u l o n g p o s i t i o n _ t i c k e t = P o s i t i o n G e t T i c k e t ( i ) ; / / B8:5B ?>78F88
s t r i n g p o s i t i o n _ s y m b o l = 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 ) ; / / A8<2>;
i n t d i g i t s = ( i n t ) S y m b o l I n f o I n t e g e r ( p o s i t i o n _ s y m b o l , S Y M B O L _ D I G I T S ) ; / / :>;8G5AB2> 7=0:>2 ?>A;5 70?OB>9
u l o n g m a g i c = 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 u m b e r ?>78F88
d o u b l e v o l u m 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 _ V O L U M E ) ; / / >1J5< ?>78F88
E N U M _ P O S I T I O N _ T Y P E t y p e = ( E N U M _ P O S I T I O N _ T Y P E ) 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 ) ; / / B8? ?>78F88
/ / - - - 2K2>4 8=D>@<0F88 > ?>78F88
P r i n t F o r m a t ( " # % I 6 4 u % s % s % . 2 f % s [ % I 6 4 d ] " ,
p o s i t i o n _ t i c k e t ,
p o s i t i o n _ s y m b o l ,
E n u m T o S t r i n g ( t y p e ) ,
v o l u m e ,
D o u b l e T o S t r i n g ( 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 ) , d i g i t s ) ,
m a g i c ) ;
/ / - - - 5A;8 M a g i c N u m b e r A>2?0405B
i f ( t y p e = = P O S I T I O N _ T Y P E _ S E L L & & 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 D o u b l e ( P O S I T I O N _ P R O F I T ) < 0 . 0 )
{
/ / - - - >1=C;5=85 7=0G5=89 70?@>A0 8 @57C;LB0B0
Z e r o M e m o r y ( r e q u e s t ) ;
Z e r o M e m o r y ( r e s u l t ) ;
/ / - - - CAB0=>2:0 ?0@0<5B@>2 >?5@0F88
r e q u e s t . a c t i o n = T R A D E _ A C T I O N _ D E A L ; / / B8? B>@3>2>9 >?5@0F88
r e q u e s t . p o s i t i o n = p o s i t i o n _ t i c k e t ; / / B8:5B ?>78F88
r e q u e s t . s y m b o l = p o s i t i o n _ s y m b o l ; / / A8<2>;
r e q u e s t . v o l u m e = v o l u m e ; / / >1J5< ?>78F88
r e q u e s t . d e v i a t i o n = 5 ; / / 4>?CAB8<>5 >B:;>=5=85 >B F5=K
r e q u e s t . m a g i c = E X P E R T _ M A G I C ; / / M a g i c N u m b e r ?>78F88
/ / - - - CAB0=>2:0 F5=K 8 B8?0 >@45@0 2 7028A8<>AB8 >B B8?0 ?>78F88
r e q u e s t . p r i c e = S y m b o l I n f o D o u b l e ( p o s i t i o n _ s y m b o l , S Y M B O L _ A S K ) ;
r e q u e s t . t y p e = O R D E R _ T Y P E _ B U Y ;
/ / - - - 2K2>4 8=D>@<0F88 > 70:@KB88
P r i n t F o r m a t ( " C l o s e # % I 6 4 d % s % s " , p o s i t i o n _ t i c k e t , p o s i t i o n _ s y m b o l , E n u m T o S t r i n g ( t y p e ) ) ;
/ / - - - >B?@02:0 70?@>A0
i f ( ! O r d e r S e n d ( r e q u e s t , r e s u l t ) )
P r i n t F o r m a t ( " O r d e r S e n d e r r o r % d " , G e t L a s t E r r o r ( ) ) ; / / 5A;8 >B?@028BL 70?@>A =5 C40;>AL, 2K25AB8 :>4 >H81:8
/ / - - - 8=D>@<0F8O >1 >?5@0F88
P r i n t F o r m a t ( " r e t c o d e = % u d e a l = % I 6 4 u o r d e r = % I 6 4 u " , r e s u l t . r e t c o d e , r e s u l t . d e a l , r e s u l t . o r d e r ) ;
/ / - - -
}
}
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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
---