12
Views
1
Downloads
0
Favorites
cm_EA Trailing v20 mql
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | T r a i l i n g S t o p . m q 4 |
/ / | C o p y r i g h t © 2 0 1 4 , K h l y s t o v V l a d i m i r |
/ / | h t t p : / / c m i l l i o n . r u |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# 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 4 - 2 0 2 0 , c m i l l i o n @ n a r o d . r u "
# p r o p e r t y l i n k " h t t p : / / c m i l l i o n . r u "
# p r o p e r t y s t r i c t
# p r o p e r t y d e s c r i p t i o n " "
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
e n u m _ t r a l _
{
t 0 = 0 , / / B u y
t 1 = 1 , / / S e l l
t 2 = 2 , / / B u y + S e l l
} ;
i n p u t _ t r a l _ t r a l = 2 ; / / @07@5H8BL B@0;8BL
e n u m t r a l _
{
l 0 = 0 , / / o f f
l 1 = 1 , / / C a n d l e
l 2 = 2 , / / F r a c t a l s
l 3 = 3 , / / A T R
l 4 = 4 , / / P a r a b o l i c
l 5 = 5 , / / p i p s
} ;
e x t e r n s t r i n g _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ L o s s _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = " " ;
i n p u t t r a l _ T r a l l L o s s = 0 ; / / B@0; C1KB>G=KE A45;>: ( T r a l P o r t f e l 83=>@8@C5BAO)
e x t e r n i n t d e l t a _ L o s s = 5 ; / / >BABC? >B C@>2=O D@0:B0;0 8;8 A25G8 . . . .
i n p u t E N U M _ T I M E F R A M E S T F L o s s = 0 ; / / B09<D@59< A25G59, S A R 8;8 D@0:B0;>2 4;O B@0;0 C1KB>G=KE A45;>:
e x t e r n i n t l e v e l _ L o s s = 1 0 0 ; / / G8A;> ?8?A ?@8 T r a l l L o s s = p i p s
e x t e r n s t r i n g _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ P r o f i t _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = " " ;
i n p u t t r a l _ T r a l P r o f i t = 2 ; / / B@0; ?@>D8B=KE A45;>: ( B@0;_ >B_ ?>@BD5;L=>3>_ ?@>D8B0 = t r u e ,
e x t e r n i n t d e l t a _ p r o f i t = 1 0 ; / / >BABC?. >B. A25G8. D@0:B0;0 87<5@O5BAO 2 ?C=:B0E
i n p u t E N U M _ T I M E F R A M E S T F P r o f i t = 0 ; / / B09<D@59< A25G59, S A R 8;8 D@0:B0;>2 4;O B@0;0 ?@81K;L=KE A45;>:
e x t e r n i n t S t a r t _ T r a l l = 1 ; / / ?@>D8B ( 2 ?C=:B0E) ?@8 :>B>@>< @07@5H05< @01>BC B@0;0
e x t e r n i n t l e v e l _ P r o f i t = 1 0 0 ; / / G8A;> ?8?A ?@8 T r a l P r o f i t = p i p s
e x t e r n s t r i n g _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ B r e a k _ e v e n _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = " " ;
i n p u t t r a l _ N o L o s s = 5 ; / / ?5@52>4 2 157C1KB>:
e x t e r n i n t M i n _ P r o f i t = 1 0 ; / / <8=8<0;L=K9 ?@>D8B ( 2 ?C=:B0E) ?@8 ?5@52>45 2 157C1KB>:
e x t e r n i n t l e v e l _ N o L o s s = 1 0 0 ; / / G8A;> ?8?A ?@8 N o L o s s = p i p s
e x t e r n s t r i n g _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ T a k e p r o f i t _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = " " ;
e x t e r n i n t L e v e l _ T P = 0 ; / / B@0; T a k e p r o f i t 2 ?C=:B0E, 0 - >B:;
e x t e r n s t r i n g _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = " " ;
e x t e r n i n t S t e p _ T r a l l = 1 ; / / H03 B@0;0
e n u m _ P o r t f e l _
{
p 0 = 0 , / / 4;O :064>3> >@45@0 8=48284C0;L=> ( f o r e a c h o r d e r i n d i v i d u a l l y )
p 1 = 1 , / / >B AC<<0@=>3> 157C1KB:0 =0?@02;5=8O ( f r o m t h e t o t a l b r e a k e v e n )
} ;
i n p u t _ P o r t f e l _ T r a l P o r t f e l = 0 ; / / B>G:0 >BAG5B0 157C1KB:0
e x t e r n s t r i n g _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = " " ;
e x t e r n s t r i n g i n d i c a t o r s = " " ;
s t r i n g p a r a m e t e r s _ P a r a b o l i c = " " ; / / 8A?>;L7C5BAO B>;L:> 5A;8 B@0; C1KB>G=KE A45;>:, B@0; ?@81K;L=KE A45;>: 8;8 157C1KB>: = 4
e x t e r n d o u b l e S t e p = 0 . 0 2 ;
e x t e r n d o u b l e M a x i m u m = 0 . 2 ;
s t r i n g p a r a m e t e r s _ A T R = " " ; / / 8A?>;L7C5BAO B>;L:> 5A;8 B@0; C1KB>G=KE A45;>:, B@0; ?@81K;L=KE A45;>: 8;8 157C1KB>: = 3
e x t e r n i n t p e r i o d _ A T R = 1 4 ; / / ?5@8>4 A T R 4;O B@59;8=30
e x t e r n s t r i n g _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = " " ;
e x t e r n i n t M a g i c = - 1 ; / / M a g i c ( A l l - 1 )
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i n t S T O P L E V E L , n ;
d a t e t i m e T i m e B a r ;
b o o l v i s u a l , L A N G U A G E = f a l s e ;
l o n g X = 5 ;
l o n g Y = 2 5 ;
s t r i n g t x t , F o n t = " A r i a l " ; / / " T i m e s N e w R o m a n " ;
i n t W i d t h = 1 0 ;
c o l o r c o l o r W i n = c l r D a r k B l u e ; / / F25B >:=0
c o l o r c o l o r W i n R = c l r Y e l l o w ; / / @0<:0 >:=0
c o l o r c o l o r W i n W = c l r M i d n i g h t B l u e ; / / F25B 2=CB@5==53> >:=0
c o l o r c o l o r W i n T = c l r W h i t e ; / / F25B B5:AB0
c o l o r c o l o r _ b u y = c l r B l u e ;
c o l o r c o l o r _ s e l l = c l r R e d ;
d a t e t i m e t ;
s t r i n g A C ;
b o o l r e d r a w = f a l s e ;
d o u b l e M I N L O T ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
v o i d O n I n i t ( )
{
M I N L O T = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M I N L O T ) ;
v i s u a l = ( I s V i s u a l M o d e ( ) | | ! I s T e s t i n g ( ) ) ;
i f ( v i s u a l )
{
C o m m e n t ( " S t a r t E A T r a i l i n g S t o p " , T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ S E C O N D S ) ) ;
L A N G U A G E = T e r m i n a l I n f o S t r i n g ( T E R M I N A L _ L A N G U A G E ) = = " R u s s i a n " ;
L a b e l C r e a t e ( 0 , " t s 1 " , 0 , 5 , 1 0 , C O R N E R _ L E F T _ L O W E R , " © 2 0 1 4 - 2 0 2 0 , h t t p s : / / c m i l l i o n . r u / " , F o n t , W i d t h , c l r G r a y , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
}
A C = " " + A c c o u n t C u r r e n c y ( ) ;
r e d r a w = t r u e ;
O n T i c k ( ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
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 )
{
i f ( ! I s T e s t i n g ( ) ) O b j e c t s D e l e t e A l l ( 0 , " t s " ) ;
C o m m e n t ( " C l o s i n g E A T r a i l i n g S t o p " , T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ S E C O N D S ) ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
v o i d O n T i c k ( )
{
d o u b l e A B = A c c o u n t B a l a n c e ( ) ;
d o u b l e A E = A c c o u n t E q u i t y ( ) ;
d o u b l e F M = A c c o u n t F r e e M a r g i n ( ) ;
i f ( v i s u a l )
{
i f ( O b j e c t F i n d ( " c m _ W I N " ) = = 0 )
{
i f ( X ! = O b j e c t G e t I n t e g e r ( 0 , " c m _ W I N " , O B J P R O P _ X D I S T A N C E , 0 ) | |
Y ! = O b j e c t G e t I n t e g e r ( 0 , " c m _ W I N " , O B J P R O P _ Y D I S T A N C E , 0 ) )
{
X = O b j e c t G e t I n t e g e r ( 0 , " c m _ W I N " , O B J P R O P _ X D I S T A N C E , 0 ) ;
Y = O b j e c t G e t I n t e g e r ( 0 , " c m _ W I N " , O B J P R O P _ Y D I S T A N C E , 0 ) ;
r e d r a w = t r u e ;
}
}
e l s e
{
R e c t L a b e l C r e a t e ( 0 , " c m _ W I N " , 0 , X , Y , 3 0 0 , 2 9 5 , c o l o r W i n , c o l o r W i n R , S T Y L E _ S O L I D , 1 , f a l s e , t r u e , t r u e , 0 ) ; r e d r a w = t r u e ;
}
i f ( r e d r a w )
{
r e d r a w = f a l s e ;
l o n g y = Y + 1 0 ;
R e c t L a b e l C r e a t e ( 0 , " t s 0 _ " , 0 , X + 1 , Y + 1 , 2 9 8 , 2 0 , c o l o r W i n W , c o l o r W i n R , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , t r u e , 0 ) ;
L a b e l C r e a t e ( 0 , " t s v e r " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , " T S v 2 0 " , " A R I A L B L A C K " , W i d t h , c o l o r W i n T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
L a b e l C r e a t e ( 0 , " t s D a t a " , 0 , X + 2 9 0 , y , C O R N E R _ L E F T _ U P P E R , " " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 ) ; y - = 5 ;
b o o l T r a d e A l l o w e d = I s T r a d e A l l o w e d ( ) ;
y + = 3 0 ;
L a b e l C r e a t e ( 0 , " t s B a l a n c e " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , L A N G U A G E ? " 0;0=A" : " B a l a n c e " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
L a b e l C r e a t e ( 0 , " t s B a l a n c e P " , 0 , X + 2 9 0 , y , C O R N E R _ L E F T _ U P P E R , " 0 . 0 0 $ " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 ) ;
y + = 1 5 ;
L a b e l C r e a t e ( 0 , " t s E q u i t y " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , L A N G U A G E ? " !@54AB20" : " E q u i t y " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
L a b e l C r e a t e ( 0 , " t s E q u i t y P % " , 0 , X + 1 8 0 , y , C O R N E R _ L E F T _ U P P E R , " 0 . 0 0 % " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 ) ;
L a b e l C r e a t e ( 0 , " t s E q u i t y P " , 0 , X + 2 9 0 , y , C O R N E R _ L E F T _ U P P E R , " 0 . 0 0 $ " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 ) ;
y + = 1 5 ;
L a b e l C r e a t e ( 0 , " t s F r e e M a r g i n " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , L A N G U A G E ? " !0>1>4=>" : " F r e e M a r g i n " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
L a b e l C r e a t e ( 0 , " t s F r e e M a r g i n P " , 0 , X + 2 9 0 , y , C O R N E R _ L E F T _ U P P E R , " 0 . 0 0 $ " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 ) ;
y + = 2 5 ;
R e c t L a b e l C r e a t e ( 0 , " t s f o n 2 " , 0 , X + 5 , y , 2 9 0 , 5 0 , c o l o r W i n W , c o l o r W i n R , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , t r u e , 0 ) ; y - = 1 0 ;
E d i t C r e a t e ( 0 , " t s P o s i t i o n s " , 0 , X + 1 0 , y , 1 5 0 , 2 0 , L A N G U A G E ? " B:@KBK5 ?>78F88" : " P o s i t i o n s " , F o n t , W i d t h , A L I G N _ C E N T E R , t r u e , C O R N E R _ L E F T _ U P P E R , c o l o r W i n R , c o l o r W i n W , c o l o r W i n T ) ;
y + = 3 0 ;
L a b e l C r e a t e ( 0 , " t s B u y " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , " " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
/ / L a b e l C r e a t e ( 0 , " t s B u y 1 " , 0 , X + 2 9 0 , y , C O R N E R _ L E F T _ U P P E R , " " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 ) ;
y + = 2 0 ;
L a b e l C r e a t e ( 0 , " t s S e l l " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , " " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
/ / L a b e l C r e a t e ( 0 , " t s S e l l 1 " , 0 , X + 2 9 0 , y , C O R N E R _ L E F T _ U P P E R , " " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 ) ;
y + = 2 5 ;
R e c t L a b e l C r e a t e ( 0 , " t s f o n 3 " , 0 , X + 5 , y , 2 9 0 , 1 3 5 , c o l o r W i n W , c o l o r W i n R , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , t r u e , 0 ) ; y - = 1 0 ;
E d i t C r e a t e ( 0 , " t s t r a l p r o f i t " , 0 , X + 1 0 , y , 1 5 0 , 2 0 , L A N G U A G E ? " 0@0<5B@K" : " P a r a m e t e r s " , F o n t , W i d t h , A L I G N _ C E N T E R , t r u e , C O R N E R _ L E F T _ U P P E R , c o l o r W i n R , c o l o r W i n W , c o l o r W i n T ) ;
y + = 3 0 ;
c o l o r c o l t x t = c l r G r a y ;
t x t = L A N G U A G E ? " "@0; ?@81K;L=KE" : " t r a l p r o f i t " ;
i f ( T r a l P r o f i t = = 0 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " >B:;NG5=" : " o f f " ) ;
e l s e
{
c o l t x t = c o l o r W i n T ;
i f ( T r a l P r o f i t = = 1 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " ?> A25G0< " : " b y c a n d l e " , S t r P e r ( T F P r o f i t ) , " + - " , d e l t a _ p r o f i t ) ;
i f ( T r a l P r o f i t = = 2 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " ?> D@0:B0;0< " : " b y f r a c t a l s " , S t r P e r ( T F P r o f i t ) , " + - " , d e l t a _ p r o f i t ) ;
i f ( T r a l P r o f i t = = 3 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " ?> A T R ( " : " b y A T R ( " , p e r i o d _ A T R , " ) " , S t r P e r ( T F P r o f i t ) , " + - " , d e l t a _ p r o f i t ) ;
i f ( T r a l P r o f i t = = 4 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " ?> ?0@01>;8:C ( " : " o n t h e p a r a b o l i c ( " , S t e p , " , " , M a x i m u m , " ) " , S t r P e r ( T F P r o f i t ) , " + - " , d e l t a _ p r o f i t ) ;
i f ( T r a l P r o f i t = = 5 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , " " , l e v e l _ P r o f i t , " p i p s . " ) ;
i f ( S t a r t _ T r a l l ! = 0 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , " S t a r t " , S t a r t _ T r a l l , " p " ) ;
}
L a b e l C r e a t e ( 0 , " t s P r o f i t " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , t x t , F o n t , W i d t h , c o l t x t , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
y + = 2 0 ;
t x t = L A N G U A G E ? " "@0; C1KB>G=KE" : " t r a l l o s s " ;
c o l t x t = c l r G r a y ;
i f ( T r a l l L o s s = = 0 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " >B:;NG5=" : " o f f " ) ;
e l s e
{
c o l t x t = c o l o r W i n T ;
i f ( T r a l l L o s s = = 1 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " ?> A25G0< " : " b y c a n d l e " , S t r P e r ( T F L o s s ) , " + - " , d e l t a _ L o s s ) ;
i f ( T r a l l L o s s = = 2 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " ?> D@0:B0;0< " : " b y f r a c t a l s " , S t r P e r ( T F L o s s ) , " + - " , d e l t a _ L o s s ) ;
i f ( T r a l l L o s s = = 3 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " ?> A T R ( " : " b y A T R ( " , p e r i o d _ A T R , " ) " , S t r P e r ( T F L o s s ) , " + - " , d e l t a _ L o s s ) ;
i f ( T r a l l L o s s = = 4 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " ?> ?0@01>;8:C ( " : " o n t h e p a r a b o l i c ( " , S t e p , " , " , M a x i m u m , " ) " , S t r P e r ( T F L o s s ) , " + - " , d e l t a _ L o s s ) ;
i f ( T r a l l L o s s = = 5 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , " " , l e v e l _ L o s s , " p i p s . " ) ;
}
L a b e l C r e a t e ( 0 , " t s t l " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , t x t , F o n t , W i d t h , c o l t x t , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
y + = 2 0 ;
t x t = L A N G U A G E ? " 5@52>4 2 157C1KB>:" : " B r e a k - e v e n " ;
c o l t x t = c l r G r a y ;
i f ( N o L o s s = = 0 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " >B:;NG5=" : " o f f " ) ;
e l s e
{
c o l t x t = c o l o r W i n T ;
i f ( N o L o s s = = 1 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " ?> A25G0< " : " b y c a n d l e " , S t r P e r ( T F P r o f i t ) , " + - " , d e l t a _ p r o f i t ) ;
i f ( N o L o s s = = 2 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " ?> D@0:B0;0< " : " b y f r a c t a l s " , S t r P e r ( T F P r o f i t ) , " + - " , d e l t a _ p r o f i t ) ;
i f ( N o L o s s = = 3 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " ?> A T R ( " : " b y A T R ( " , p e r i o d _ A T R , " ) " , S t r P e r ( T F P r o f i t ) , " + - " , d e l t a _ p r o f i t ) ;
i f ( N o L o s s = = 4 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , L A N G U A G E ? " ?> ?0@01>;8:C ( " : " o n t h e p a r a b o l i c ( " , S t e p , " , " , M a x i m u m , " ) " , S t r P e r ( T F P r o f i t ) , " + - " , d e l t a _ p r o f i t ) ;
i f ( N o L o s s = = 5 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , " " , l e v e l _ L o s s , " p i p s . " ) ;
i f ( M i n _ P r o f i t ! = 0 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , " M i n _ P r o f i t = " , M i n _ P r o f i t , " p i p s . " ) ;
}
L a b e l C r e a t e ( 0 , " t s n l " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , t x t , F o n t , W i d t h , c o l t x t , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
y + = 2 0 ;
t x t = L A N G U A G E ? " "@59;8=3 T P " : " T r a i l i n g T P " ;
c o l t x t = c l r G r a y ;
i f ( L e v e l _ T P = = 0 ) t x t = S t r i n g C o n c a t e n a t e ( t x t , " >B:;NG5=" ) ;
e l s e
{
c o l t x t = c o l o r W i n T ;
t x t = S t r i n g C o n c a t e n a t e ( t x t , " " , L e v e l _ T P , L A N G U A G E ? " ?C=:B" : " p i p s " ) ;
}
L a b e l C r e a t e ( 0 , " t s t p " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , t x t , F o n t , W i d t h , c o l t x t , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
y + = 2 0 ;
i f ( L A N G U A G E )
{
L a b e l C r e a t e ( 0 , " t s M a g i c " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , M a g i c = = - 1 ? " 01>B0 ?> 2A5< M a g i c " : S t r i n g C o n c a t e n a t e ( " 01>B0 ?> M a g i c = " , M a g i c ) , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
y + = 2 0 ;
L a b e l C r e a t e ( 0 , " t s P o r t f e l " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , T r a l P o r t f e l = = 1 ? " 01>B0 >B >1I53> 157C1KB:0" : " "@0; :064>9 ?>78F88 >B45;L=>" , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
}
e l s e
{
L a b e l C r e a t e ( 0 , " t s M a g i c " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , M a g i c = = - 1 ? " M a g i c a l l " : S t r i n g C o n c a t e n a t e ( " M a g i c = " , M a g i c ) , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
y + = 2 0 ;
L a b e l C r e a t e ( 0 , " t s P o r t f e l " , 0 , X + 1 0 , y , C O R N E R _ L E F T _ U P P E R , T r a l P o r t f e l = = 1 ? " W o r k f r o m t h e t o t a l b r e a k e v e n " : " T r a w l e a c h p o s i t i o n s e p a r a t e l y " , F o n t , W i d t h , c o l o r W i n T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 ) ;
}
}
O b j e c t S e t S t r i n g ( 0 , " t s B a l a n c e P " , O B J P R O P _ T E X T , S t r i n g C o n c a t e n a t e ( D o u b l e T o S t r i n g ( A B , 2 ) , A C ) ) ;
O b j e c t S e t S t r i n g ( 0 , " t s E q u i t y P % " , O B J P R O P _ T E X T , S t r i n g C o n c a t e n a t e ( D o u b l e T o S t r i n g ( ( A E - A B ) * 1 0 0 / A B , 2 ) , " % " ) ) ;
O b j e c t S e t S t r i n g ( 0 , " t s E q u i t y P " , O B J P R O P _ T E X T , S t r i n g C o n c a t e n a t e ( D o u b l e T o S t r i n g ( A E , 2 ) , A C ) ) ;
O b j e c t S e t S t r i n g ( 0 , " t s F r e e M a r g i n P " , O B J P R O P _ T E X T , S t r i n g C o n c a t e n a t e ( D o u b l e T o S t r i n g ( F M , 2 ) , A C ) ) ;
O b j e c t S e t S t r i n g ( 0 , " t s D a t a " , O B J P R O P _ T E X T , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E | T I M E _ S E C O N D S ) ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - / /
/ / / /
/ / ?>4AG5B ?>78F89 / /
/ / / /
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - / /
i f ( ! I s T r a d e A l l o w e d ( ) )
{
i f ( v i s u a l ) O b j e c t S e t S t r i n g ( 0 , " t s B a l a n c e P " , O B J P R O P _ T E X T , L A N G U A G E ? " ">@3>2;O 70?@5I5=0" : " T r a d i n g i s p r o h i b i t e d " ) ;
r e t u r n ;
}
/ / - - -
i n t O T , b = 0 , s = 0 ;
d o u b l e P r o f i t , O O P = 0 , p r i c e _ b = 0 , p r i c e _ s = 0 , l o t = 0 , N L b = 0 , N L s = 0 , l o t _ s = 0 , l o t _ b = 0 ;
f o r ( i n t j = 0 ; j < O r d e r s T o t a l ( ) ; j + + )
{
i f ( O r d e r S e l e c t ( j , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) = = t r u e )
{
i f ( ( M a g i c = = O r d e r M a g i c N u m b e r ( ) | | M a g i c = = - 1 ) & & O r d e r S y m b o l ( ) = = S y m b o l ( ) )
{
O T = O r d e r T y p e ( ) ;
i f ( O T > 1 ) c o n t i n u e ;
O O P = O r d e r O p e n P r i c e ( ) ;
l o t = O r d e r L o t s ( ) ;
P r o f i t = O r d e r P r o f i t ( ) + O r d e r S w a p ( ) + O r d e r C o m m i s s i o n ( ) ;
i f ( O T = = O P _ B U Y )
{
p r i c e _ b + = O O P * l o t ;
l o t _ b + = l o t ;
b + + ;
}
i f ( O T = = O P _ S E L L )
{
p r i c e _ s + = O O P * l o t ;
l o t _ s + = l o t ;
s + + ;
}
t x t = S t r i n g C o n c a t e n a t e ( " t s " , I n t e g e r T o S t r i n g ( O r d e r T i c k e t ( ) ) , " " , S y m b o l ( ) , " " , D o u b l e T o S t r i n g ( O r d e r L o t s ( ) , 2 ) ) ;
T r e n d C r e a t e ( 0 , t x t , 0 , O r d e r O p e n T i m e ( ) , O O P , i T i m e ( N U L L , 0 , 0 ) , O T = = O P _ B U Y ? B i d : A s k , O T = = O P _ S E L L ? c o l o r _ s e l l : c o l o r _ b u y , S T Y L E _ S O L I D , 1 , t r u e , f a l s e , f a l s e , t r u e , 0 ) ;
}
}
}
i f ( I s T e s t i n g ( ) & & T i m e B a r ! = T i m e [ 0 ] )
{
d o u b l e L o t ;
i f ( C l o s e [ 1 ] > C l o s e [ 2 ] & & b = = 0 & & ( t r a l = = 2 | | t r a l = = 0 ) )
{
i f ( l o t _ b = = 0 )
{
i f ( l o t _ s = = 0 )
L o t = 0 . 1 ;
e l s e L o t = l o t _ s ;
}
e l s e L o t = l o t _ b ;
i f ( O r d e r S e n d ( S y m b o l ( ) , O P _ B U Y , M I N L O T , N o r m a l i z e D o u b l e ( A s k , D i g i t s ) , 3 , 0 , 0 , " B5AB" , M a g i c , 0 , G r e e n ) ! = - 1 ) { T i m e B a r = T i m e [ 0 ] ; r e t u r n ; }
}
i f ( C l o s e [ 1 ] < C l o s e [ 2 ] & & s = = 0 & & t r a l > 0 )
{
i f ( l o t _ s = = 0 )
{
i f ( l o t _ b = = 0 )
L o t = 0 . 1 ;
e l s e L o t = l o t _ b ;
}
e l s e L o t = l o t _ s ;
i f ( O r d e r S e n d ( S y m b o l ( ) , O P _ S E L L , M I N L O T , N o r m a l i z e D o u b l e ( B i d , D i g i t s ) , 3 , 0 , 0 , " B5AB" , M a g i c , 0 , G r e e n ) ! = - 1 ) { T i m e B a r = T i m e [ 0 ] ; r e t u r n ; }
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e S L b = 0 , S L s = 0 ;
t = T i m e [ 0 ] + P e r i o d ( ) * 3 0 0 ;
i f ( b ! = 0 )
{
N L b = p r i c e _ b / l o t _ b ;
i f ( v i s u a l ) D r a w A r r o w ( 0 , " t s N o L o s s B u y " , t , N L b , c o l o r _ b u y , 6 ) ;
}
i f ( s ! = 0 )
{
N L s = p r i c e _ s / l o t _ s ;
i f ( v i s u a l ) D r a w A r r o w ( 0 , " t s N o L o s s S e l l " , t , N L s , c o l o r _ s e l l , 6 ) ;
}
/ / - - -
S T O P L E V E L = ( i n t ) M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S T O P L E V E L ) ;
i n t S P R E A D = ( i n t ) M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S P R E A D ) ;
i f ( S T O P L E V E L < S P R E A D * 2 ) S T O P L E V E L = S P R E A D * 2 ; / / 4;O ;L?0@8
/ * i f ( S T O P L E V E L > 0 & & v i s u a l )
{
D r a w A r r o w ( 0 , " S T O P L E V E L - " , T i m e [ 0 ] , B i d - S T O P L E V E L * P o i n t , c o l o r _ b u y , 4 , 1 , 3 ) ;
D r a w A r r o w ( 0 , " S T O P L E V E L + " , T i m e [ 0 ] , A s k + S T O P L E V E L * P o i n t , c o l o r _ s e l l , 4 , 1 , 3 ) ;
}
/ / - - -
i f ( l e v e l _ L o s s < S T O P L E V E L & & T r a l l L o s s = = 5 )
{
l e v e l _ L o s s = S T O P L E V E L ; A l e r t ( S y m b o l ( ) , " 0@0<5B@ B@0; C1KB>G=KE A45;>: 87<5=5= 4> <8=8<0;L=> 2>7<>6=>3> C@>2=O " , S T O P L E V E L ) ;
}
i f ( l e v e l _ P r o f i t < S T O P L E V E L & & T r a l P r o f i t = = 5 )
{
l e v e l _ P r o f i t = S T O P L E V E L ; A l e r t ( S y m b o l ( ) , " 0@0<5B@ B@0; ?@81K;L=KE A45;>: 87<5=5= 4> <8=8<0;L=> 2>7<>6=>3> C@>2=O " , S T O P L E V E L ) ;
}
i f ( l e v e l _ N o L o s s < S T O P L E V E L & & N o L o s s = = 5 )
{
l e v e l _ N o L o s s = S T O P L E V E L ; A l e r t ( S y m b o l ( ) , " 0@0<5B@ 157C1KB>: 87<5=5= 4> <8=8<0;L=> 2>7<>6=>3> C@>2=O " , S T O P L E V E L ) ;
} * /
/ / - - -
i n t t i p , T i c k e t , i ;
b o o l e r r o r ;
d o u b l e O S L ;
i f ( N o L o s s > 0 & & b + s > 0 )
{
i f ( b ! = 0 ) S L b = S l L a s t B a r ( 1 , B i d , N o L o s s , T F P r o f i t , M i n _ P r o f i t , l e v e l _ N o L o s s , " N o L o s s B u y " ) ;
i f ( s ! = 0 ) S L s = S l L a s t B a r ( - 1 , A s k , N o L o s s , T F P r o f i t , M i n _ P r o f i t , l e v e l _ N o L o s s , " N o L o s s S e l l " ) ;
i f ( T r a l P o r t f e l = = 1 )
{
R e f r e s h R a t e s ( ) ;
f o r ( i = O r d e r s T o t a l ( ) ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S ) )
{
t i p = O r d e r T y p e ( ) ;
i f ( t i p < 2 & & ( O r d e r S y m b o l ( ) = = S y m b o l ( ) ) & & ( O r d e r M a g i c N u m b e r ( ) = = M a g i c | | M a g i c = = - 1 ) )
{
O S L = N o r m a l i z e D o u b l e ( O r d e r S t o p L o s s ( ) , D i g i t s ) ;
O O P = N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ;
T i c k e t = O r d e r T i c k e t ( ) ;
i f ( t i p = = O P _ B U Y & & ( t r a l = = 2 | | t r a l = = 0 ) )
{
i f ( O S L > = O O P + M i n _ P r o f i t * P o i n t ) c o n t i n u e ;
i f ( S L b = = 0 ) c o n t i n u e ;
i f ( S L b < N L b + M i n _ P r o f i t * P o i n t ) c o n t i n u e ;
i f ( S L b > O S L + S t e p _ T r a l l * P o i n t )
{
e r r o r = O r d e r M o d i f y ( T i c k e t , O O P , S L b , O r d e r T a k e P r o f i t ( ) , 0 , W h i t e ) ;
i f ( ! e r r o r ) C o m m e n t ( " 157C1KB>: E r r o r " , G e t L a s t E r r o r ( ) , " o r d e r " , T i c k e t , " S L " , S L b ) ;
e l s e C o m m e n t ( " 157C1KB>: " , I n t e g e r T o S t r i n g ( T i c k e t ) , " " , T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S ) ) ;
}
}
i f ( t i p = = O P _ S E L L & & t r a l > 0 )
{
i f ( O S L < = O O P - M i n _ P r o f i t * P o i n t & & O S L ! = 0 ) c o n t i n u e ;
i f ( S L s = = 0 ) c o n t i n u e ;
i f ( S L s > N L s - M i n _ P r o f i t * P o i n t ) c o n t i n u e ;
i f ( S L s < O S L - S t e p _ T r a l l * P o i n t | | O S L = = 0 )
{
e r r o r = O r d e r M o d i f y ( T i c k e t , O O P , S L s , O r d e r T a k e P r o f i t ( ) , 0 , W h i t e ) ;
i f ( ! e r r o r ) C o m m e n t ( " 157C1KB>: E r r o r " , G e t L a s t E r r o r ( ) , " o r d e r " , T i c k e t , " S L " , S L s ) ;
e l s e C o m m e n t ( " 157C1KB>: " , I n t e g e r T o S t r i n g ( T i c k e t ) , " " , T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S ) ) ;
}
}
}
}
}
}
e l s e
{
R e f r e s h R a t e s ( ) ;
f o r ( i = O r d e r s T o t a l ( ) ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S ) )
{
t i p = O r d e r T y p e ( ) ;
i f ( t i p < 2 & & ( O r d e r S y m b o l ( ) = = S y m b o l ( ) ) & & ( O r d e r M a g i c N u m b e r ( ) = = M a g i c | | M a g i c = = - 1 ) )
{
O S L = N o r m a l i z e D o u b l e ( O r d e r S t o p L o s s ( ) , D i g i t s ) ;
O O P = N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ;
T i c k e t = O r d e r T i c k e t ( ) ;
i f ( t i p = = O P _ B U Y & & ( t r a l = = 2 | | t r a l = = 0 ) )
{
i f ( O S L > = O O P + M i n _ P r o f i t * P o i n t ) c o n t i n u e ;
i f ( S L b > O S L & & S L b > = O O P + M i n _ P r o f i t * P o i n t )
{
e r r o r = O r d e r M o d i f y ( T i c k e t , O O P , S L b , O r d e r T a k e P r o f i t ( ) , 0 , W h i t e ) ;
i f ( ! e r r o r ) C o m m e n t ( " 157C1KB>: E r r o r " , G e t L a s t E r r o r ( ) , " o r d e r " , T i c k e t , " S L " , S L b ) ;
e l s e C o m m e n t ( " 157C1KB>: " , I n t e g e r T o S t r i n g ( T i c k e t ) , " " , T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S ) ) ;
}
}
i f ( t i p = = O P _ S E L L & & t r a l > 0 )
{
i f ( O S L < = O O P + M i n _ P r o f i t * P o i n t & & O S L ! = 0 ) c o n t i n u e ;
i f ( ( S L s < O S L | | O S L = = 0 ) & & S L s < = O O P - M i n _ P r o f i t * P o i n t )
{
e r r o r = O r d e r M o d i f y ( T i c k e t , O O P , S L s , O r d e r T a k e P r o f i t ( ) , 0 , W h i t e ) ;
i f ( ! e r r o r ) C o m m e n t ( " 157C1KB>: E r r o r " , G e t L a s t E r r o r ( ) , " o r d e r " , T i c k e t , " S L " , S L s ) ;
e l s e C o m m e n t ( " 157C1KB>: " , I n t e g e r T o S t r i n g ( T i c k e t ) , " " , T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S ) ) ;
}
}
}
}
}
}
}
e l s e
{
O b j e c t s D e l e t e A l l ( 0 , " N o L o s s B u y " ) ;
O b j e c t s D e l e t e A l l ( 0 , " N o L o s s S e l l " ) ;
}
/ / - - -
i f ( T r a l P r o f i t > 0 & & b + s > 0 )
{
R e f r e s h R a t e s ( ) ;
i f ( b ! = 0 ) S L b = S l L a s t B a r ( 1 , B i d , T r a l P r o f i t , T F P r o f i t , d e l t a _ p r o f i t , l e v e l _ P r o f i t , " T r a l l P r o f i t B u y " ) ;
i f ( s ! = 0 ) S L s = S l L a s t B a r ( - 1 , A s k , T r a l P r o f i t , T F P r o f i t , d e l t a _ p r o f i t , l e v e l _ P r o f i t , " T r a l l P r o f i t S e l l " ) ;
f o r ( i = O r d e r s T o t a l ( ) ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S ) )
{
t i p = O r d e r T y p e ( ) ;
i f ( t i p < 2 & & ( O r d e r S y m b o l ( ) = = S y m b o l ( ) ) & & ( O r d e r M a g i c N u m b e r ( ) = = M a g i c | | M a g i c = = - 1 ) )
{
O S L = N o r m a l i z e D o u b l e ( O r d e r S t o p L o s s ( ) , D i g i t s ) ;
O O P = N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ;
T i c k e t = O r d e r T i c k e t ( ) ;
i f ( t i p = = O P _ B U Y & & ( t r a l = = 2 | | t r a l = = 0 ) )
{
i f ( S L b = = 0 ) c o n t i n u e ;
i f ( ( N o r m a l i z e D o u b l e ( S L b - S t a r t _ T r a l l * P o i n t , D i g i t s ) < N L b & & T r a l P o r t f e l = = 1 ) | |
( N o r m a l i z e D o u b l e ( S L b - S t a r t _ T r a l l * P o i n t , D i g i t s ) < O O P & & T r a l P o r t f e l = = 0 ) ) c o n t i n u e ;
i f ( S L b > O S L + S t e p _ T r a l l * P o i n t )
{
e r r o r = O r d e r M o d i f y ( T i c k e t , O O P , S L b , O r d e r T a k e P r o f i t ( ) , 0 , W h i t e ) ;
i f ( ! e r r o r ) C o m m e n t ( " B@0; ?@81K;L=KE A45;>: E r r o r " , G e t L a s t E r r o r ( ) , " o r d e r " , T i c k e t , " S L " , S L b ) ;
e l s e C o m m e n t ( " B@0; ?@81K;L=KE A45;>: " , T i c k e t , " " , T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S ) , " " , N L b ) ;
}
}
i f ( t i p = = O P _ S E L L & & t r a l > 0 )
{
i f ( S L s = = 0 ) c o n t i n u e ;
i f ( ( N o r m a l i z e D o u b l e ( S L s + S t a r t _ T r a l l * P o i n t , D i g i t s ) > N L s & & T r a l P o r t f e l = = 1 ) | |
( N o r m a l i z e D o u b l e ( S L s + S t a r t _ T r a l l * P o i n t , D i g i t s ) > O O P & & T r a l P o r t f e l = = 0 ) ) c o n t i n u e ;
i f ( S L s < O S L - S t e p _ T r a l l * P o i n t | | O S L = = 0 )
{
e r r o r = O r d e r M o d i f y ( T i c k e t , O O P , S L s , O r d e r T a k e P r o f i t ( ) , 0 , W h i t e ) ;
i f ( ! e r r o r ) C o m m e n t ( " B@0; ?@81K;L=KE A45;>: E r r o r " , G e t L a s t E r r o r ( ) , " o r d e r " , T i c k e t , " S L " , S L s ) ;
e l s e C o m m e n t ( " B@0; ?@81K;L=KE A45;>: " , I n t e g e r T o S t r i n g ( T i c k e t ) , " " , T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S ) ) ;
}
}
}
}
}
}
e l s e
{
O b j e c t s D e l e t e A l l ( 0 , " T r a l l P r o f i t B u y " ) ;
O b j e c t s D e l e t e A l l ( 0 , " T r a l l P r o f i t S e l l " ) ;
}
/ / - - -
i f ( T r a l l L o s s > 0 & & b + s > 0 )
{
R e f r e s h R a t e s ( ) ;
i f ( b ! = 0 ) S L b = S l L a s t B a r ( 1 , B i d , T r a l l L o s s , T F L o s s , d e l t a _ L o s s , l e v e l _ L o s s , " T r a l l L o s s B u y " ) ;
i f ( s ! = 0 ) S L s = S l L a s t B a r ( - 1 , A s k , T r a l l L o s s , T F L o s s , d e l t a _ L o s s , l e v e l _ L o s s , " T r a l l L o s s S e l l " ) ;
f o r ( i = O r d e r s T o t a l ( ) ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S ) )
{
t i p = O r d e r T y p e ( ) ;
i f ( t i p < 2 & & ( O r d e r S y m b o l ( ) = = S y m b o l ( ) ) & & ( O r d e r M a g i c N u m b e r ( ) = = M a g i c | | M a g i c = = - 1 ) )
{
O S L = N o r m a l i z e D o u b l e ( O r d e r S t o p L o s s ( ) , D i g i t s ) ;
O O P = N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ;
T i c k e t = O r d e r T i c k e t ( ) ;
i f ( t i p = = O P _ B U Y & & ( t r a l = = 2 | | t r a l = = 0 ) )
{
i f ( S L b = = 0 ) c o n t i n u e ;
i f ( S L b < O S L ) c o n t i n u e ;
i f ( S L b > O S L + S t e p _ T r a l l * P o i n t )
{
e r r o r = O r d e r M o d i f y ( T i c k e t , O O P , S L b , O r d e r T a k e P r o f i t ( ) , 0 , W h i t e ) ;
i f ( ! e r r o r ) C o m m e n t ( " B@0; C1KB>G=KE A45;>: E r r o r " , G e t L a s t E r r o r ( ) , " o r d e r " , T i c k e t , " S L " , S L b ) ;
e l s e C o m m e n t ( " B@0; C1KB>G=KE A45;>: " , T i c k e t , " " , T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S ) ) ;
}
}
i f ( t i p = = O P _ S E L L & & t r a l > 0 )
{
i f ( S L s = = 0 ) c o n t i n u e ;
i f ( S L s > O S L & & O S L ! = 0 ) c o n t i n u e ;
i f ( S L s < O S L - S t e p _ T r a l l * P o i n t | | O S L = = 0 )
{
e r r o r = O r d e r M o d i f y ( T i c k e t , O O P , S L s , O r d e r T a k e P r o f i t ( ) , 0 , W h i t e ) ;
i f ( ! e r r o r ) C o m m e n t ( " B@0; C1KB>G=KE A45;>: E r r o r " , G e t L a s t E r r o r ( ) , " o r d e r " , T i c k e t , " S L " , S L s ) ;
e l s e C o m m e n t ( " B@0; C1KB>G=KE A45;>: " , I n t e g e r T o S t r i n g ( T i c k e t ) , " " , T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S ) ) ;
}
}
}
}
}
}
e l s e
{
O b j e c t s D e l e t e A l l ( 0 , " T r a l l L o s s B u y " ) ;
O b j e c t s D e l e t e A l l ( 0 , " T r a l l L o s s S e l l " ) ;
}
/ / - - -
i f ( b = = 0 )
{
O b j e c t s D e l e t e A l l ( 0 , " N o L o s s B u y " ) ;
O b j e c t s D e l e t e A l l ( 0 , " T r a l l P r o f i t B u y " ) ;
O b j e c t s D e l e t e A l l ( 0 , " T r a l l L o s s B u y " ) ;
}
i f ( s = = 0 )
{
O b j e c t s D e l e t e A l l ( 0 , " N o L o s s S e l l " ) ;
O b j e c t s D e l e t e A l l ( 0 , " T r a l l P r o f i t S e l l " ) ;
O b j e c t s D e l e t e A l l ( 0 , " T r a l l L o s s S e l l " ) ;
}
/ / - - -
i f ( L e v e l _ T P > S T O P L E V E L )
{
R e f r e s h R a t e s ( ) ;
f o r ( i = O r d e r s T o t a l ( ) ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S ) )
{
t i p = O r d e r T y p e ( ) ;
i f ( t i p < 2 & & ( O r d e r S y m b o l ( ) = = S y m b o l ( ) ) & & ( O r d e r M a g i c N u m b e r ( ) = = M a g i c | | M a g i c = = - 1 ) )
{
O S L = N o r m a l i z e D o u b l e ( O r d e r S t o p L o s s ( ) , D i g i t s ) ;
O O P = N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ;
d o u b l e O T P = N o r m a l i z e D o u b l e ( O r d e r T a k e P r o f i t ( ) , D i g i t s ) ;
d o u b l e T P ;
T i c k e t = O r d e r T i c k e t ( ) ;
i f ( t i p = = O P _ B U Y & & ( t r a l = = 2 | | t r a l = = 0 ) )
{
T P = N o r m a l i z e D o u b l e ( N L b + L e v e l _ T P * P o i n t , D i g i t s ) ;
i f ( M a t h A b s ( T P - O T P ) / P o i n t > S t e p _ T r a l l )
{
e r r o r = O r d e r M o d i f y ( T i c k e t , O O P , O S L , T P , 0 , W h i t e ) ;
i f ( ! e r r o r ) C o m m e n t ( " B@0; C1KB>G=KE A45;>: E r r o r " , G e t L a s t E r r o r ( ) , " o r d e r " , T i c k e t , " T P " , T P ) ;
e l s e C o m m e n t ( " B@0; C1KB>G=KE A45;>: " , T i c k e t , " " , T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S ) ) ;
}
}
i f ( t i p = = O P _ S E L L & & t r a l > 0 )
{
T P = N o r m a l i z e D o u b l e ( N L s - L e v e l _ T P * P o i n t , D i g i t s ) ;
i f ( M a t h A b s ( T P - O T P ) / P o i n t > S t e p _ T r a l l )
{
e r r o r = O r d e r M o d i f y ( T i c k e t , O O P , O S L , T P , 0 , W h i t e ) ;
i f ( ! e r r o r ) C o m m e n t ( " B@0; C1KB>G=KE A45;>: E r r o r " , G e t L a s t E r r o r ( ) , " o r d e r " , T i c k e t , " T P " , T P ) ;
e l s e C o m m e n t ( " B@0; C1KB>G=KE A45;>: " , I n t e g e r T o S t r i n g ( T i c k e t ) , " " , T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ M I N U T E S ) ) ;
}
}
}
}
}
}
/ / - - -
i f ( v i s u a l )
{
O b j e c t S e t S t r i n g ( 0 , " t s B u y " , O B J P R O P _ T E X T , b = = 0 ? ( L A N G U A G E ? " 5B >@45@>2" : " n o o r d e r s " ) : S t r i n g C o n c a t e n a t e ( " A53> " , b , " b u y " ) ) ;
/ / O b j e c t S e t I n t e g e r ( 0 , " t s B u y " , O B J P R O P _ C O L O R , b = = 0 ? c l r G r a y : c l r G r e e n ) ;
O b j e c t S e t S t r i n g ( 0 , " t s S e l l " , O B J P R O P _ T E X T , s = = 0 ? ( L A N G U A G E ? " 5B >@45@>2" : " n o o r d e r s " ) : S t r i n g C o n c a t e n a t e ( " A53> " , s , " s e l l " ) ) ;
/ / O b j e c t S e t I n t e g e r ( 0 , " t s S e l l " , O B J P R O P _ C O L O R , s = = 0 ? c l r G r a y : c l r G r e e n ) ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e S l L a s t B a r ( i n t t i p , d o u b l e p r i c e , d o u b l e T r a i l i n g , i n t T F _ T r a l l i n g , i n t d e l t a , i n t l e v e l , s t r i n g c o m m e n t )
{
d a t e t i m e t 1 ;
d o u b l e f r = 0 ;
i n t i ;
i f ( T r a i l i n g = = 5 )
{
i f ( t i p = = 1 )
{
f r = N o r m a l i z e D o u b l e ( p r i c e - l e v e l * P o i n t , D i g i t s ) ;
i f ( v i s u a l )
{
t 1 = i T i m e ( S y m b o l ( ) , 0 , 0 ) ;
T r e n d C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( c o m m e n t , " L e v e l F R B u y " ) , 0 , t 1 , f r , t , f r , c o l o r _ b u y ) ;
T e x t C r e a t e ( 0 , c o m m e n t , 0 , t , f r , c o m m e n t , " A r i a l " , 8 , c l r G r a y , 0 , A N C H O R _ R I G H T _ L O W E R ) ;
}
}
e l s e
{
f r = N o r m a l i z e D o u b l e ( p r i c e + l e v e l * P o i n t , D i g i t s ) ;
i f ( v i s u a l )
{
t 1 = i T i m e ( S y m b o l ( ) , 0 , 0 ) ;
T r e n d C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( c o m m e n t , " L e v e l F R S e l l " ) , 0 , t 1 , f r , t , f r , c o l o r _ s e l l ) ;
T e x t C r e a t e ( 0 , c o m m e n t , 0 , t , f r , c o m m e n t , " A r i a l " , 8 , c l r G r a y , 0 , A N C H O R _ R I G H T _ L O W E R ) ;
}
}
}
e l s e
{
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - b y F r a c t a l s
i f ( T r a i l i n g = = 2 )
{
i f ( t i p = = 1 )
{
f o r ( i = 1 ; i < 5 0 0 ; i + + )
{
f r = i F r a c t a l s ( S y m b o l ( ) , T F _ T r a l l i n g , M O D E _ L O W E R , i ) ;
i f ( f r ! = 0 ) { f r = N o r m a l i z e D o u b l e ( f r - d e l t a * P o i n t , D i g i t s ) ; i f ( p r i c e - S T O P L E V E L * P o i n t > f r ) b r e a k ; }
e l s e f r = 0 ;
}
i f ( v i s u a l )
{
t 1 = i T i m e ( S y m b o l ( ) , T F _ T r a l l i n g , i ) ;
D r a w A r r o w ( 0 , 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 R B u y " ) , t 1 , f r , c o l o r _ b u y , 2 1 8 , A N C H O R _ T O P ) ;
T r e n d C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( c o m m e n t , " L e v e l F R B u y " ) , 0 , t 1 , f r , t , f r , c o l o r _ b u y ) ;
T e x t C r e a t e ( 0 , c o m m e n t , 0 , t , f r , c o m m e n t , " A r i a l " , 8 , c l r G r a y , 0 , A N C H O R _ R I G H T _ L O W E R ) ;
}
}
i f ( t i p = = - 1 )
{
f o r ( i = 2 ; i < 5 0 0 ; i + + )
{
f r = i F r a c t a l s ( S y m b o l ( ) , T F _ T r a l l i n g , M O D E _ U P P E R , i ) ;
i f ( f r ! = 0 ) { f r = N o r m a l i z e D o u b l e ( f r + d e l t a * P o i n t , D i g i t s ) ; i f ( p r i c e + S T O P L E V E L * P o i n t < f r ) b r e a k ; }
e l s e f r = 0 ;
}
i f ( v i s u a l )
{
t 1 = i T i m e ( S y m b o l ( ) , T F _ T r a l l i n g , i ) ;
D r a w A r r o w ( 0 , 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 R S e l l " ) , t 1 , f r , c o l o r _ s e l l , 2 1 7 ) ;
T r e n d C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( c o m m e n t , " L e v e l F R S e l l " ) , 0 , t 1 , f r , t , f r , c o l o r _ s e l l ) ;
T e x t C r e a t e ( 0 , c o m m e n t , 0 , t , f r , c o m m e n t , " A r i a l " , 8 , c l r G r a y , 0 , A N C H O R _ R I G H T _ L O W E R ) ;
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - b y c a n d l e s
i f ( T r a i l i n g = = 1 )
{
i f ( t i p = = 1 )
{
f o r ( i = 1 ; i < 5 0 0 ; i + + )
{
f r = N o r m a l i z e D o u b l e ( i L o w ( S y m b o l ( ) , T F _ T r a l l i n g , i ) - d e l t a * P o i n t , D i g i t s ) ;
i f ( f r ! = 0 ) i f ( p r i c e - S T O P L E V E L * P o i n t > f r ) b r e a k ;
e l s e f r = 0 ;
}
i f ( v i s u a l )
{
t 1 = i T i m e ( S y m b o l ( ) , T F _ T r a l l i n g , i ) ;
D r a w A r r o w ( 0 , 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 R B u y " ) , t 1 , f r , c o l o r _ b u y , 1 5 9 , A N C H O R _ T O P , 3 ) ;
T r e n d C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( c o m m e n t , " L e v e l F R B u y " ) , 0 , t 1 , f r , t , f r , c o l o r _ b u y ) ;
T e x t C r e a t e ( 0 , c o m m e n t , 0 , t , f r , c o m m e n t , " A r i a l " , 8 , c l r G r a y , 0 , A N C H O R _ R I G H T _ L O W E R ) ;
}
}
i f ( t i p = = - 1 )
{
f o r ( i = 1 ; i < 5 0 0 ; i + + )
{
f r = N o r m a l i z e D o u b l e ( i H i g h ( S y m b o l ( ) , T F _ T r a l l i n g , i ) + d e l t a * P o i n t , D i g i t s ) ;
i f ( f r ! = 0 ) i f ( p r i c e + S T O P L E V E L * P o i n t < f r ) b r e a k ;
e l s e f r = 0 ;
}
i f ( v i s u a l )
{
t 1 = i T i m e ( S y m b o l ( ) , T F _ T r a l l i n g , i ) ;
D r a w A r r o w ( 0 , 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 R S e l l " ) , t 1 , f r , c o l o r _ s e l l , 1 5 9 , A N C H O R _ B O T T O M , 3 ) ;
T r e n d C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( c o m m e n t , " L e v e l F R S e l l " ) , 0 , t 1 , f r , t , f r , c o l o r _ s e l l ) ;
T e x t C r e a t e ( 0 , c o m m e n t , 0 , t , f r , c o m m e n t , " A r i a l " , 8 , c l r G r a y , 0 , A N C H O R _ R I G H T _ L O W E R ) ;
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - b y A T R
i f ( T r a i l i n g = = 3 )
{
i f ( t i p = = 1 )
{
f r = N o r m a l i z e D o u b l e ( B i d - i A T R ( S y m b o l ( ) , T F _ T r a l l i n g , p e r i o d _ A T R , 0 ) - d e l t a * P o i n t , D i g i t s ) ;
}
i f ( t i p = = - 1 )
{
f r = N o r m a l i z e D o u b l e ( A s k + i A T R ( S y m b o l ( ) , T F _ T r a l l i n g , p e r i o d _ A T R , 0 ) + d e l t a * P o i n t , D i g i t s ) ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - b y P S A R
i f ( T r a i l i n g = = 4 )
{
d o u b l e P S A R = i S A R ( S y m b o l ( ) , T F _ T r a l l i n g , S t e p , M a x i m u m , 0 ) ;
i f ( t i p = = 1 )
{
i f ( p r i c e - S T O P L E V E L * P o i n t > P S A R ) f r = N o r m a l i z e D o u b l e ( P S A R - d e l t a * P o i n t , D i g i t s ) ;
e l s e f r = 0 ;
}
i f ( t i p = = - 1 )
{
i f ( p r i c e + S T O P L E V E L * P o i n t < P S A R ) f r = N o r m a l i z e D o u b l e ( P S A R + d e l t a * P o i n t , D i g i t s ) ;
e l s e f r = 0 ;
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ * i f ( v i s u a l )
{
i f ( t i p = = 1 )
{
/ / i f ( f r ! = 0 ) D r a w A r r o w ( 0 , " S L B u y " , t , f r , c o l o r _ b u y , 6 ) ;
i f ( S T O P L E V E L > 0 ) D r a w A r r o w ( 0 , " S T O P L E V E L - " , t , p r i c e - S T O P L E V E L * P o i n t , c o l o r _ b u y , 4 , 1 , 3 ) ;
}
i f ( t i p = = - 1 )
{
/ / i f ( f r ! = 0 ) D r a w A r r o w ( 0 , " S L S e l l " , t , f r , c o l o r _ s e l l , 6 ) ;
i f ( S T O P L E V E L > 0 ) D r a w A r r o w ( 0 , " S T O P L E V E L + " , t , p r i c e + S T O P L E V E L * P o i n t , c o l o r _ s e l l , 4 , 1 , 3 ) ;
}
} * /
r e t u r n ( f r ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
s t r i n g S t r P e r ( i n t p e r )
{
i f ( p e r = = 0 ) p e r = P e r i o d ( ) ;
i f ( p e r = = 1 ) r e t u r n ( " M 1 " ) ;
i f ( p e r = = 5 ) r e t u r n ( " M 5 " ) ;
i f ( p e r = = 1 5 ) r e t u r n ( " M 1 5 " ) ;
i f ( p e r = = 3 0 ) r e t u r n ( " M 3 0 " ) ;
i f ( p e r = = 6 0 ) r e t u r n ( " H 1 " ) ;
i f ( p e r = = 2 4 0 ) r e t u r n ( " H 4 " ) ;
i f ( p e r = = 1 4 4 0 ) r e t u r n ( " D 1 " ) ;
i f ( p e r = = 1 0 0 8 0 ) r e t u r n ( " W 1 " ) ;
i f ( p e r = = 4 3 2 0 0 ) r e t u r n ( " M N 1 " ) ;
r e t u r n ( " >H81:0 ?5@8>40" ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l B u t t o n C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / I D 3@0D8:0
c o n s t s t r i n g n a m e = " B u t t o n " , / / 8<O :=>?:8
c o n s t i n t s u b _ w i n d o w = 0 , / / =><5@ ?>4>:=0
c o n s t l o n g x = 0 , / / :>>@48=0B0 ?> >A8 X
c o n s t l o n g y = 0 , / / :>>@48=0B0 ?> >A8 y
c o n s t i n t w i d t h = 5 0 , / / H8@8=0 :=>?:8
c o n s t i n t h e i g h t = 1 8 , / / 2KA>B0 :=>?:8
c o n s t s t r i n g t e x t = " B u t t o n " , / / B5:AB
c o n s t s t r i n g f o n t = " A r i a l " , / / H@8DB
c o n s t i n t f o n t _ s i z e = 1 0 , / / @07<5@ H@8DB0
c o n s t c o l o r c l r = c l r N O N E ,
c o n s t c o l o r b a c k _ c l r = c l r N O N E ,
c o n s t b o o l s t a t e = f a l s e ) / / =060B0/ >B60B0
{
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) = = - 1 )
{
O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ B U T T O N , s u b _ w i n d o w , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X S I Z E , w i d t h ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y S I Z E , h e i g h t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ U P P E R ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T , f o n t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , 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 ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , 0 ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , 0 ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , 0 ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , 1 ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , 0 ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S T A T E , s t a t e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B O R D E R _ C O L O R , c l r N O N E ) ;
}
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B G C O L O R , b a c k _ c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T E X T , t e x t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
r e t u r n ( t r u e ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b o o l R e c t L a b e l C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / I D 3@0D8:0
c o n s t s t r i n g n a m e = " R e c t L a b e l " , / / 8<O <5B:8
c o n s t i n t s u b _ w i n d o w = 0 , / / =><5@ ?>4>:=0
c o n s t l o n g x = 0 , / / :>>@48=0B0 ?> >A8 X
c o n s t l o n g y = 0 , / / :>>@48=0B0 ?> >A8 y
c o n s t i n t w i d t h = 5 0 , / / H8@8=0
c o n s t i n t h e i g h t = 1 8 , / / 2KA>B0
c o n s t c o l o r b a c k _ c l r = c l r N O N E , / / F25B D>=0
c o n s t c o l o r c l r = c l r N O N E , / / F25B ?;>A:>9 3@0=8FK ( F l a t )
c o n s t E N U M _ L I N E _ S T Y L E s t y l e = S T Y L E _ S O L I D , / / AB8;L ?;>A:>9 3@0=8FK
c o n s t i n t l i n e _ w i d t h = 1 , / / B>;I8=0 ?;>A:>9 3@0=8FK
c o n s t b o o l b a c k = f a l s e , / / =0 704=5< ?;0=5
c o n s t b o o l s e l e c t i o n = f a l s e , / / 2K45;8BL 4;O ?5@5<5I5=89
c o n s t b o o l h i d d e n = t r u e , / / A:@KB 2 A?8A:5 >1J5:B>2
c o n s t l o n g z _ o r d e r = 0 ) / / ?@8>@8B5B =0 =060B85 <KHLN
{
R e s e t L a s t E r r o r ( ) ;
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) = = - 1 )
{
O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ R E C T A N G L E _ L A B E L , s u b _ w i n d o w , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B O R D E R _ T Y P E , B O R D E R _ F L A T ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ U P P E R ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S T Y L E , s t y l e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ W I D T H , l i n e _ w i d t h ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
}
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B G C O L O R , b a c k _ c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X S I Z E , w i d t h ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y S I Z E , h e i g h t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
r e t u r n ( t r u e ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b o o l L a b e l C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / I D 3@0D8:0
c o n s t s t r i n g n a m e = " L a b e l " , / / 8<O <5B:8
c o n s t i n t s u b _ w i n d o w = 0 , / / =><5@ ?>4>:=0
c o n s t l o n g x = 0 , / / :>>@48=0B0 ?> >A8 X
c o n s t l o n g y = 0 , / / :>>@48=0B0 ?> >A8 y
c o n s t E N U M _ B A S E _ C O R N E R c o r n e r = C O R N E R _ L E F T _ U P P E R , / / C3>; 3@0D8:0 4;O ?@82O7:8
c o n s t s t r i n g t e x t = " L a b e l " , / / B5:AB
c o n s t s t r i n g f o n t = " A r i a l " , / / H@8DB
c o n s t i n t f o n t _ s i z e = 1 0 , / / @07<5@ H@8DB0
c o n s t c o l o r c l r = c l r N O N E ,
c o n s t d o u b l e a n g l e = 0 . 0 , / / =0:;>= B5:AB0
c o n s t E N U M _ A N C H O R _ P O I N T a n c h o r = A N C H O R _ L E F T _ U P P E R , / / A?>A>1 ?@82O7:8
c o n s t b o o l b a c k = f a l s e , / / =0 704=5< ?;0=5
c o n s t b o o l s e l e c t i o n = f a l s e , / / 2K45;8BL 4;O ?5@5<5I5=89
c o n s t b o o l h i d d e n = t r u e , / / A:@KB 2 A?8A:5 >1J5:B>2
c o n s t l o n g z _ o r d e r = 0 ) / / ?@8>@8B5B =0 =060B85 <KHLN
{
R e s e t L a s t E r r o r ( ) ;
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) = = - 1 )
{
i f ( ! O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ L A B E L , s u b _ w i n d o w , 0 , 0 ) )
{
P r i n t ( _ _ F U N C T I O N _ _ , " : =5 C40;>AL A>740BL B5:AB>2CN <5B:C! >4 >H81:8 = " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( f a l s e ) ;
}
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O R N E R , c o r n e r ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T , f o n t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , 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 D o u b l e ( c h a r t _ I D , n a m e , O B J P R O P _ A N G L E , a n g l e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ A N C H O R , a n c h o r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
}
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T E X T , t e x t ) ;
r e t u r n ( t r u e ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b o o l E d i t C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / I D 3@0D8:0
c o n s t s t r i n g n a m e = " E d i t " , / / 8<O >1J5:B0
c o n s t i n t s u b _ w i n d o w = 0 , / / =><5@ ?>4>:=0
c o n s t l o n g x = 0 , / / :>>@48=0B0 ?> >A8 X
c o n s t l o n g y = 0 , / / :>>@48=0B0 ?> >A8 Y
c o n s t i n t w i d t h = 5 0 , / / H8@8=0
c o n s t i n t h e i g h t = 1 8 , / / 2KA>B0
c o n s t s t r i n g t e x t = " T e x t " , / / B5:AB
c o n s t s t r i n g f o n t = " A r i a l " , / / H@8DB
c o n s t i n t f o n t _ s i z e = 8 , / / @07<5@ H@8DB0
c o n s t E N U M _ A L I G N _ M O D E a l i g n = A L I G N _ C E N T E R , / / A?>A>1 2K@02=820=8O
c o n s t b o o l r e a d _ o n l y = t r u e , / / 2>7<>6=>ABL @540:B8@>20BL
c o n s t E N U M _ B A S E _ C O R N E R c o r n e r = C O R N E R _ L E F T _ U P P E R , / / C3>; 3@0D8:0 4;O ?@82O7:8
c o n s t c o l o r c l r = c l r B l a c k , / / F25B B5:AB0
c o n s t c o l o r b a c k _ c l r = c l r W h i t e , / / F25B D>=0
c o n s t c o l o r b o r d e r _ c l r = c l r N O N E , / / F25B 3@0=8FK
c o n s t b o o l b a c k = f a l s e , / / =0 704=5< ?;0=5
c o n s t b o o l s e l e c t i o n = f a l s e , / / 2K45;8BL 4;O ?5@5<5I5=89
c o n s t b o o l h i d d e n = t r u e , / / A:@KB 2 A?8A:5 >1J5:B>2
c o n s t l o n g z _ o r d e r = 0 ) / / ?@8>@8B5B =0 =060B85 <KHLN
{
R e s e t L a s t E r r o r ( ) ;
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) ! = - 1 ) O b j e c t D e l e t e ( c h a r t _ I D , n a m e ) ;
/ / {
i f ( ! O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ E D I T , s u b _ w i n d o w , 0 , 0 ) )
{
r e t u r n ( f a l s e ) ;
}
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X S I Z E , w i d t h ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y S I Z E , h e i g h t ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T E X T , t e x t ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T , f o n t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , 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 ( c h a r t _ I D , n a m e , O B J P R O P _ A L I G N , a l i g n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ R E A D O N L Y , r e a d _ o n l y ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O R N E R , c o r n e r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B G C O L O R , b a c k _ c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B O R D E R _ C O L O R , b o r d e r _ c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
/ / }
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d D r a w A r r o w ( i n t w i n , s t r i n g n a m e , d a t e t i m e t i m e , d o u b l e p r i c e , c o l o r c o l r , i n t c o d , i n t a n c h o r = A N C H O R _ B O T T O M , i n t w = 1 )
{
O b j e c t D e l e t e ( n a m e ) ;
O b j e c t C r e a t e ( n a m e , O B J _ A R R O W , w i n , t i m e , p r i c e , 0 , 0 , 0 , 0 ) ;
O b j e c t S e t ( n a m e , O B J P R O P _ C O L O R , c o l r ) ;
O b j e c t S e t ( n a m e , O B J P R O P _ A R R O W C O D E , c o d ) ;
O b j e c t S e t ( n a m e , O B J P R O P _ W I D T H , w ) ;
O b j e c t S e t I n t e g e r ( w i n , n a m e , O B J P R O P _ A N C H O R , a n c h o r ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n C h a r t E v e n t ( c o n s t i n t i d ,
c o n s t l o n g & l p a r a m ,
c o n s t d o u b l e & d p a r a m ,
c o n s t s t r i n g & s p a r a m )
{
i n t r e t = I D Y E S ;
i f ( i d = = C H A R T E V E N T _ O B J E C T _ C L I C K )
{
i f ( s p a r a m = = " c m _ W I N " )
{
O n T i c k ( ) ;
}
i f ( s p a r a m = = " t s 1 " )
{
r e t = M e s s a g e B o x ( S t r i n g C o n c a t e n a t e ( L A N G U A G E ? " ;O 4>102;5=8O DC=:F89, >1@0B8B5AL : @07@01>BG8:C: " :
" !o n t a c t t h e d e v e l o p e r : " , " \ n c m i l l i o n @ n a r o d . r u \ n S k y p e : m q l c m i l l i o n \ n T e l e g r a m : @ m q l c m i l l i o n " ) ,
S t r i n g C o n c a t e n a t e ( L A N G U A G E ? " 5<> 25@A8O" : " D e m o v e r s i o n " ) , M B _ Y E S N O | M B _ T O P M O S T ) ;
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - / /
b o o l T r e n d C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / I D 3@0D8:0
c o n s t s t r i n g n a m e = " T r e n d L i n e " , / / 8<O ;8=88
c o n s t i n t s u b _ w i n d o w = 0 , / / =><5@ ?>4>:=0
d a t e t i m e t i m e 1 = 0 , / / 2@5<O ?5@2>9 B>G:8
d o u b l e p r i c e 1 = 0 , / / F5=0 ?5@2>9 B>G:8
d a t e t i m e t i m e 2 = 0 , / / 2@5<O 2B>@>9 B>G:8
d o u b l e p r i c e 2 = 0 , / / F5=0 2B>@>9 B>G:8
c o n s t c o l o r c l r = c l r R e d , / / F25B ;8=88
c o n s t E N U M _ L I N E _ S T Y L E s t y l e = S T Y L E _ S O L I D , / / AB8;L ;8=88
c o n s t i n t w i d t h = 1 , / / B>;I8=0 ;8=88
c o n s t b o o l b a c k = f a l s e , / / =0 704=5< ?;0=5
c o n s t b o o l s e l e c t i o n = f a l s e , / / 2K45;8BL 4;O ?5@5<5I5=89
c o n s t b o o l r a y _ r i g h t = f a l s e , / / ?@>4>;65=85 ;8=88 2?@02>
c o n s t b o o l h i d d e n = t r u e , / / A:@KB 2 A?8A:5 >1J5:B>2
c o n s t l o n g z _ o r d e r = 0 ) / / ?@8>@8B5B =0 =060B85 <KHLN
{
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) ! = - 1 )
O b j e c t D e l e t e ( n a m e ) ;
i f ( ! O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ T R E N D , s u b _ w i n d o w , t i m e 1 , p r i c e 1 , t i m e 2 , p r i c e 2 ) )
{
r e t u r n ( f a l s e ) ;
}
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S T Y L E , s t y l e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ W I D T H , w i d t h ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ R A Y _ R I G H T , r a y _ r i g h t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l T e x t C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / I D 3@0D8:0
c o n s t s t r i n g n a m e = " T e x t " , / / 8<O >1J5:B0
c o n s t i n t s u b _ w i n d o w = 0 , / / =><5@ ?>4>:=0
d a t e t i m e t i m e = 0 , / / 2@5<O B>G:8 ?@82O7:8
d o u b l e p r i c e = 0 , / / F5=0 B>G:8 ?@82O7:8
c o n s t s t r i n g t e x t = " T e x t " , / / A0< B5:AB
c o n s t s t r i n g f o n t = " A r i a l " , / / H@8DB
c o n s t i n t f o n t _ s i z e = 1 0 , / / @07<5@ H@8DB0
c o n s t c o l o r c l r = c l r G r a y , / / F25B
c o n s t d o u b l e a n g l e = 0 . 0 , / / =0:;>= B5:AB0
c o n s t E N U M _ A N C H O R _ P O I N T a n c h o r = A N C H O R _ L O W E R , / / A?>A>1 ?@82O7:8
c o n s t b o o l b a c k = f a l s e , / / =0 704=5< ?;0=5
c o n s t b o o l s e l e c t i o n = f a l s e , / / 2K45;8BL 4;O ?5@5<5I5=89
c o n s t b o o l h i d d e n = t r u e , / / A:@KB 2 A?8A:5 >1J5:B>2
c o n s t l o n g z _ o r d e r = 0 ) / / ?@8>@8B5B =0 =060B85 <KHLN
{
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) ! = - 1 ) O b j e c t D e l e t e ( c h a r t _ I D , n a m e ) ;
i f ( ! O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ T E X T , s u b _ w i n d o w , t i m e , p r i c e ) )
{
r e t u r n ( f a l s e ) ;
}
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T , f o n t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , 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 D o u b l e ( c h a r t _ I D , n a m e , O B J P R O P _ A N G L E , a n g l e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ A N C H O R , a n c h o r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T E X T , t e x t ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
Comments