101 lines
9.7 KiB
MQL5
101 lines
9.7 KiB
MQL5
|
<EFBFBD><EFBFBD>d o u b l e s e t _ s l _ t p ( s t r i n g p s y m b o l , d o u b l e p r i c e , d o u b l e A T R B ,
|
|||
|
|
E N U M _ S T O P _ T Y P E S S l _ T y p e B , d o u b l e S L L e v e l B , E N U M _ T I M E F R A M E S S l T i m e f r a m e B , i n t S l B a r s B , d o u b l e S l F i x e d )
|
|||
|
|
{
|
|||
|
|
d o u b l e s l = 0 ;
|
|||
|
|
/ / i f ( o p t y p e = = B u y ) / / s l b u y , t p s e l l
|
|||
|
|
s w i t c h ( S l _ T y p e B )
|
|||
|
|
{
|
|||
|
|
c a s e F l u c t u a t i o n : { s l = p r i c e - S L L e v e l B * A T R B ; b r e a k ; }
|
|||
|
|
c a s e M i n i m u m : { s l = i L o w ( p s y m b o l , S l T i m e f r a m e B , i L o w e s t ( p s y m b o l , S l T i m e f r a m e B , M O D E _ L O W , S l B a r s B ) ) - S L L e v e l B * A T R B ; b r e a k ; } / / p o d e s e r o m e n o r d o s f e c h a m e n t o s , a b e r t u r a s , m <EFBFBD> x i m o s . . .
|
|||
|
|
c a s e M a x i m u m : { s l = i L o w ( p s y m b o l , S l T i m e f r a m e B , i L o w e s t ( p s y m b o l , S l T i m e f r a m e B , M O D E _ L O W , S l B a r s B ) ) - S L L e v e l B * A T R B ; b r e a k ; }
|
|||
|
|
/ / c a s e M a x i m u m : { s l = i H i g h ( p s y m b o l , S l T i m e f r a m e B , i H i g h e s t ( p s y m b o l , S l T i m e f r a m e B , M O D E _ H I G H , S l B a r s B ) ) - S L L e v e l B * A T R B ; b r e a k ; }
|
|||
|
|
c a s e M e a n : { s l = A v g ( p s y m b o l , S l B a r s B , S l T i m e f r a m e B ) - S L L e v e l B * A T R B ; b r e a k ; }
|
|||
|
|
c a s e F i x e d : { s l = S l F i x e d ; b r e a k ; }
|
|||
|
|
}
|
|||
|
|
i f ( s l ! = 0 )
|
|||
|
|
{
|
|||
|
|
i f ( A d j u s t S l T p ) s l - = S y m b o l I n f o D o u b l e ( p s y m b o l , S Y M B O L _ T R A D E _ T I C K _ S I Z E ) ;
|
|||
|
|
s l = N o r m a l i z e P r i c e ( p s y m b o l , s l , t r u e ) ;
|
|||
|
|
}
|
|||
|
|
r e t u r n ( s l ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
d o u b l e s e t _ t p _ s l ( s t r i n g p s y m b o l , d o u b l e p r i c e , d o u b l e A T R B ,
|
|||
|
|
E N U M _ S T O P _ T Y P E S T p _ T y p e B , d o u b l e T P L e v e l B , E N U M _ T I M E F R A M E S T p T i m e f r a m e B , i n t T p B a r s B , d o u b l e T p F i x e d )
|
|||
|
|
{
|
|||
|
|
d o u b l e t p = 0 ;
|
|||
|
|
/ / i f ( o p t y p e = = B u y ) / / t p b u y , s l s e l l
|
|||
|
|
s w i t c h ( T p _ T y p e B )
|
|||
|
|
{
|
|||
|
|
c a s e F l u c t u a t i o n : { t p = p r i c e + T P L e v e l B * A T R B ; b r e a k ; }
|
|||
|
|
/ / c a s e M i n i m u m : { t p = i L o w ( p s y m b o l , T p T i m e f r a m e B , i L o w e s t ( p s y m b o l , T p T i m e f r a m e B , M O D E _ L O W , T p B a r s B ) ) + T P L e v e l B * A T R B ; b r e a k ; }
|
|||
|
|
c a s e M i n i m u m : { t p = i H i g h ( p s y m b o l , T p T i m e f r a m e B , i H i g h e s t ( p s y m b o l , T p T i m e f r a m e B , M O D E _ H I G H , T p B a r s B ) ) + T P L e v e l B * A T R B ; b r e a k ; }
|
|||
|
|
c a s e M a x i m u m : { t p = i H i g h ( p s y m b o l , T p T i m e f r a m e B , i H i g h e s t ( p s y m b o l , T p T i m e f r a m e B , M O D E _ H I G H , T p B a r s B ) ) + T P L e v e l B * A T R B ; b r e a k ; }
|
|||
|
|
c a s e M e a n : { t p = A v g ( p s y m b o l , T p B a r s B , T p T i m e f r a m e B ) + T P L e v e l B * A T R B ; b r e a k ; }
|
|||
|
|
c a s e F i x e d : { t p = T p F i x e d ; b r e a k ; }
|
|||
|
|
}
|
|||
|
|
i f ( t p ! = 0 )
|
|||
|
|
{
|
|||
|
|
i f ( A d j u s t S l T p ) t p + = S y m b o l I n f o D o u b l e ( p s y m b o l , S Y M B O L _ T R A D E _ T I C K _ S I Z E ) ;
|
|||
|
|
t p = N o r m a l i z e P r i c e ( p s y m b o l , t p , t r u e ) ;
|
|||
|
|
}
|
|||
|
|
r e t u r n ( t p ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
v o i d M o d i f y S l T p ( s t r i n g p s y m b o l , d o u b l e A T R , b o o l E x p P o s , i n t P o s E x p T i m e , b o o l o p _ t y p e , b o o l U s e S L T r a i l i n g , b o o l U s e T P T r a i l i n g , b o o l F a d e T P , b o o l F a d e S L ,
|
|||
|
|
E N U M _ S T O P _ T Y P E S S l _ T y p e M , d o u b l e S L L e v e l M , E N U M _ T I M E F R A M E S S l T i m e f r a m e M , i n t S l B a r s M ,
|
|||
|
|
E N U M _ S T O P _ T Y P E S T p _ T y p e M , d o u b l e T P L e v e l M , E N U M _ T I M E F R A M E S T p T i m e f r a m e M , i n t T p B a r s M ,
|
|||
|
|
C L o c k & l o c k , b o o l n o t _ l o c k e d , d o u b l e S l F i x e d , d o u b l e T p F i x e d , b o o l S l P e n d i n g , b o o l T p P e n d i n g ) / / , b o o l u s e p e n d i n g o p e n , b o o l u s e p e n d i n g c l o s e , b o o l u s e p e n d i n g s l t p , P o s i t i o n D a t a & P o s D a t a )
|
|||
|
|
{ / / s <EFBFBD> v a i s e r c h a m a d a s e n <EFBFBD> o f o r p e n d e n t e p a r a s l / t p . N e s s e c a s o s l / t p s <EFBFBD> o a m e r c a d o , e a i n f o f i c a n a p o s i <EFBFBD> <EFBFBD> o
|
|||
|
|
|
|||
|
|
i f ( ! n o t _ l o c k e d ) r e t u r n ;
|
|||
|
|
d o u b l e a s l = ( ( ! S l P e n d 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 _ S L ) : 0 ) ;
|
|||
|
|
d o u b l e a t p = ( ( ! T p P e n d 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 _ T P ) : 0 ) ;
|
|||
|
|
d o u b l e a p r i c e = P o s i t i o n G e t D o u b l e ( P O S I T I O N _ P R I C E _ O P E N ) ;
|
|||
|
|
d o u b l e n s l = ( ( ! S l P e n d i n g ) ? S l F i x e d : 0 ) ;
|
|||
|
|
d o u b l e n t p = ( ( ! T p P e n d i n g ) ? T p F i x e d : 0 ) ;
|
|||
|
|
|
|||
|
|
i f ( o p _ t y p e = = B u y ) / / b u y
|
|||
|
|
{
|
|||
|
|
i f ( ( U s e S L T r a i l i n g ) & & ( ! S l P e n d i n g ) ) n s l = s e t _ s l _ t p ( p s y m b o l , a p r i c e , A T R , S l _ T y p e M , S L L e v e l M , S l T i m e f r a m e M , S l B a r s M , S l F i x e d ) ;
|
|||
|
|
i f ( ( U s e T P T r a i l i n g ) & & ( ! T p P e n d i n g ) ) n t p = s e t _ t p _ s l ( p s y m b o l , a p r i c e , A T R , T p _ T y p e M , T P L e v e l M , T p T i m e f r a m e M , T p B a r s M , T p F i x e d ) ;
|
|||
|
|
}
|
|||
|
|
e l s e i f ( o p _ t y p e = = S e l l ) / / s e l l
|
|||
|
|
{
|
|||
|
|
i f ( ( U s e S L T r a i l i n g ) & & ( ! S l P e n d i n g ) ) n s l = s e t _ t p _ s l ( p s y m b o l , a p r i c e , A T R , S l _ T y p e M , S L L e v e l M , S l T i m e f r a m e M , S l B a r s M , S l F i x e d ) ;
|
|||
|
|
i f ( ( U s e T P T r a i l i n g ) & & ( ! T p P e n d i n g ) ) n t p = s e t _ s l _ t p ( p s y m b o l , a p r i c e , A T R , T p _ T y p e M , T P L e v e l M , T p T i m e f r a m e M , T p B a r s M , T p F i x e d ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
i f ( E x p P o s & & ( T i m e L o c a l ( ) > ( P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I M E ) + P o s E x p T i m e * 3 6 0 0 / 2 ) ) ) / / d i m i n u i o t p / s l
|
|||
|
|
{
|
|||
|
|
d o u b l e f a d e f a c t o r = ( 1 . 5 - ( T i m e L o c a l ( ) - P o s i t i o n G e t I n t e g e r ( P O S I T I O N _ T I M E ) ) / ( P o s E x p T i m e * 3 6 0 0 . 0 ) ) ;
|
|||
|
|
i f ( ( F a d e T P ) & & ( ! T p P e n d i n g ) ) n t p = N o r m a l i z e P r i c e ( p s y m b o l , a p r i c e + f a d e f a c t o r * ( n t p - a p r i c e ) , t r u e ) ;
|
|||
|
|
i f ( ( F a d e S L ) & & ( ! S l P e n d i n g ) ) n s l = N o r m a l i z e P r i c e ( p s y m b o l , a p r i c e - f a d e f a c t o r * ( a p r i c e - n s l ) , t r u e ) ;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
d o u b l e t i c k s i z e = S y m b o l I n f o D o u b l e ( p s y m b o l , S Y M B O L _ T R A D E _ T I C K _ S I Z E ) ;
|
|||
|
|
i f ( ( ( ( i n t ) M a t h R o u n d ( n s l / t i c k s i z e ) ! = ( i n t ) M a t h R o u n d ( a s l / t i c k s i z e ) ) | | ( ( i n t ) M a t h R o u n d ( n t p / t i c k s i z e ) ! = ( i n t ) M a t h R o u n d ( a t p / t i c k s i z e ) ) )
|
|||
|
|
& & ( ( n s l > = 0 ) & & ( n t p > = 0 ) ) )
|
|||
|
|
{
|
|||
|
|
i f ( ( n s l ! = 0 ) & & ( n t p ! = 0 ) )
|
|||
|
|
{
|
|||
|
|
i f ( T r a d e . P o s i t i o n M o d i f y ( 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 I C K E T ) , n s l , n t p ) )
|
|||
|
|
l o c k . S e t M L o c k ( M O D I F Y _ L O C K , T i m e L o c a l ( ) , a s l , a t p ) ;
|
|||
|
|
e l s e M y P r i n t ( " E r r o m o d i f i c a n d o s l / t p " , I n t e g e r T o S t r i n g ( T r a d e . R e s u l t R e t c o d e ( ) ) ) ;
|
|||
|
|
}
|
|||
|
|
e l s e i f ( ( n s l = = 0 ) & & ( n t p ! = 0 ) )
|
|||
|
|
{
|
|||
|
|
i f ( T r a d e . P o s i t i o n M o d i f y ( 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 I C K E T ) , 0 , n t p ) )
|
|||
|
|
l o c k . S e t M L o c k ( M O D I F Y _ L O C K , T i m e L o c a l ( ) , 0 , a t p ) ;
|
|||
|
|
e l s e M y P r i n t ( " E r r o m o d i f i c a n d o s l / t p " , I n t e g e r T o S t r i n g ( T r a d e . R e s u l t R e t c o d e ( ) ) ) ;
|
|||
|
|
}
|
|||
|
|
e l s e i f ( ( n s l ! = 0 ) & & ( n t p = = 0 ) )
|
|||
|
|
{
|
|||
|
|
i f ( T r a d e . P o s i t i o n M o d i f y ( 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 I C K E T ) , n s l , 0 ) )
|
|||
|
|
l o c k . S e t M L o c k ( M O D I F Y _ L O C K , T i m e L o c a l ( ) , a s l , 0 ) ;
|
|||
|
|
e l s e M y P r i n t ( " E r r o m o d i f i c a n d o s l / t p " , I n t e g e r T o S t r i n g ( T r a d e . R e s u l t R e t c o d e ( ) ) ) ;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|