4
Views
0
Downloads
0
Favorites
cm EA MA
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C o p y r i g h t © 2 0 2 2 , %;KAB>2 ;048<8@ |
/ / | c m i l l i o n @ n a r o d . 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 2 2 , h t t p : / / c m i l l i o n . r u "
# p r o p e r t y l i n k " c m i l l i o n @ n a r o d . 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 " !>25B=8: >B:@K205B 8 70:@K205B ?>78F88 =0 ?5@5A5G5=88 42CE 8=48:0B>@>2 M o v i n g A v e r a g e "
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * /
e x t e r n s t r i n g L M A = " " ;
e x t e r n i n t p e r i o d _ 1 = 3 5 , / / 5@8>4 CA@54=5=8O 4;O 2KG8A;5=8O ?5@2>9 M A .
m a _ s h i f t _ 1 = 0 ; / / !4283 8=48:0B>@0 >B=>A8B5;L=> F5=>2>3> 3@0D8:0.
i n p u t E N U M _ M A _ M E T H O D m a _ m e t h o d _ 1 = M O D E _ L W M A ;
i n p u t E N U M _ A P P L I E D _ P R I C E a p p l i e d _ p r i c e _ 1 = P R I C E _ O P E N ; / / A?>;L7C5<0O F5=0.
i n p u t E N U M _ T I M E F R A M E S t i m e f r a m e _ 1 = 0 ; / / 5@8>4.
e x t e r n s t r i n g _ _ _ _ = " - - - - - - - - - - - - - - - - - - - - - - - - - - " ;
e x t e r n s t r i n g E M A = " " ;
e x t e r n i n t p e r i o d _ 2 = 5 0 , / / 5@8>4 CA@54=5=8O 4;O 2KG8A;5=8O 2B>@>9 M A .
m a _ s h i f t _ 2 = 0 ; / / !4283 8=48:0B>@0 >B=>A8B5;L=> F5=>2>3> 3@0D8:0.
i n p u t E N U M _ M A _ M E T H O D m a _ m e t h o d _ 2 = M O D E _ E M A ; / / 5B>4 CA@54=5=8O.
i n p u t E N U M _ A P P L I E D _ P R I C E a p p l i e d _ p r i c e _ 2 = P R I C E _ O P E N ; / / A?>;L7C5<0O F5=0.
i n p u t E N U M _ T I M E F R A M E S t i m e f r a m e _ 2 = 0 ; / / 5@8>4.
e x t e r n i n t b a r O p e n = 1 ; / / 10@ =0 :>B>@>< 645< A83=0; ( 0 - B5:CI89 1 - ?@>H;K9)
e x t e r n s t r i n g _ _ _ _ _ = " - - - - - - - - - - - - - - - - - - - - - - - - - - " ;
e x t e r n d o u b l e L o t = 0 . 0 1 ; / / ;>B
e x t e r n i n t S t o p l o s s = 0 ; / / AB>?;>AA ( 0 - >B:;NG5=)
e x t e r n i n t T a k e p r o f i t = 0 ; / / B59:?@>D8B ( 0 - >B:;NG5=)
e x t e r n i n t s l i p p a g e = 2 0 ; / / ?@>A:0;L7K20=85
e x t e r n i n t M a g i c = 0 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e S T O P L E V E L ;
s t r i n g v a l ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i n t O n I n i t ( )
{
v a l = " " + A c c o u n t C u r r e n c y ( ) ;
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
v o i d O n T i c k ( )
{
i f ( ! I s T r a d e A l l o w e d ( ) )
{
D r a w L A B E L ( " I s T r a d e A l l o w e d " , " ">@3>2;O 70?@5I5=0" , 5 , 1 5 , R e d ) ;
r e t u r n ;
}
e l s e D r a w L A B E L ( " I s T r a d e A l l o w e d " , " ">@3>2;O @07@5H5=0" , 5 , 1 5 , L i m e ) ;
/ / - - -
S T O P L E V E L = 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 ) ;
d o u b l e O S L , O T P , O O P , S t L o = 0 , S L = 0 , T P = 0 , P r o f i t = 0 , P r o f i t B = 0 , P r o f i t S = 0 ;
i n t i , b = 0 , s = 0 , t i p ;
f o r ( i = 0 ; i < O r d e r s T o t a l ( ) ; 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 , M O D E _ T R A D E S ) )
{
i f ( O r d e r S y m b o l ( ) = = S y m b o l ( ) & & M a g i c = = O r d e r M a g i c N u m b e r ( ) )
{
t i p = O r d e r T y p e ( ) ;
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 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 ) ;
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 ) ;
S L = O S L ; T P = O T P ;
i f ( t i p = = O P _ B U Y )
{
P r o f i t B + = 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 ( ) ;
b + + ;
i f ( O S L = = 0 & & S t o p l o s s > = S T O P L E V E L & & S t o p l o s s ! = 0 )
{
S L = N o r m a l i z e D o u b l e ( O O P - S t o p l o s s * P o i n t , D i g i t s ) ;
}
i f ( O T P = = 0 & & T a k e p r o f i t > = S T O P L E V E L & & T a k e p r o f i t ! = 0 )
{
T P = N o r m a l i z e D o u b l e ( O O P + T a k e p r o f i t * P o i n t , D i g i t s ) ;
}
i f ( S L ! = O S L | | T P ! = O T P )
{
i f ( ! O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O O P , S L , T P , 0 , c l r N O N E ) ) P r i n t ( " E r r o r O r d e r M o d i f y < < " , E r r o r ( G e t L a s t E r r o r ( ) ) , " > > " ) ;
}
}
i f ( t i p = = O P _ S E L L )
{
P r o f i t S + = 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 ( ) ;
s + + ;
i f ( O S L = = 0 & & S t o p l o s s > = S T O P L E V E L & & S t o p l o s s ! = 0 )
{
S L = N o r m a l i z e D o u b l e ( O O P + S t o p l o s s * P o i n t , D i g i t s ) ;
}
i f ( O T P = = 0 & & T a k e p r o f i t > = S T O P L E V E L & & T a k e p r o f i t ! = 0 )
{
T P = N o r m a l i z e D o u b l e ( O O P - T a k e p r o f i t * P o i n t , D i g i t s ) ;
}
i f ( S L ! = O S L | | T P ! = O T P )
{
i f ( ! O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O O P , S L , T P , 0 , c l r N O N E ) ) P r i n t ( " E r r o r O r d e r M o d i f y < < " , E r r o r ( G e t L a s t E r r o r ( ) ) , " > > " ) ;
}
}
}
}
}
P r o f i t = P r o f i t B + P r o f i t S ;
D r a w L A B E L ( " B a l a n c e " , S t r i n g C o n c a t e n a t e ( " B a l a n c e " , D o u b l e T o S t r ( A c c o u n t B a l a n c e ( ) , 2 ) , v a l ) , 5 , 3 5 , c l r G r a y ) ;
D r a w L A B E L ( " E q u i t y " , S t r i n g C o n c a t e n a t e ( " E q u i t y " , D o u b l e T o S t r ( A c c o u n t E q u i t y ( ) , 2 ) , v a l ) , 5 , 5 5 , c l r G r a y ) ;
D r a w L A B E L ( " F r e e M a r g i n " , S t r i n g C o n c a t e n a t e ( " F r e e M a r g i n " , D o u b l e T o S t r ( A c c o u n t F r e e M a r g i n ( ) , 2 ) , v a l ) , 5 , 7 5 , c l r G r a y ) ;
D r a w L A B E L ( " P r o f i t " , S t r i n g C o n c a t e n a t e ( " P r o f i t " , D o u b l e T o S t r ( P r o f i t , 2 ) , v a l ) , 5 , 9 5 , C o l o r ( P r o f i t < 0 , R e d , L i m e ) ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e M A 1 0 = i M A ( N U L L , t i m e f r a m e _ 1 , p e r i o d _ 1 , m a _ s h i f t _ 1 , m a _ m e t h o d _ 1 , a p p l i e d _ p r i c e _ 1 , b a r O p e n ) ;
d o u b l e M A 2 0 = i M A ( N U L L , t i m e f r a m e _ 2 , p e r i o d _ 2 , m a _ s h i f t _ 2 , m a _ m e t h o d _ 2 , a p p l i e d _ p r i c e _ 2 , b a r O p e n ) ;
d o u b l e M A 1 1 = i M A ( N U L L , t i m e f r a m e _ 1 , p e r i o d _ 1 , m a _ s h i f t _ 1 , m a _ m e t h o d _ 1 , a p p l i e d _ p r i c e _ 1 , b a r O p e n + 1 ) ;
d o u b l e M A 2 1 = i M A ( N U L L , t i m e f r a m e _ 2 , p e r i o d _ 2 , m a _ s h i f t _ 2 , m a _ m e t h o d _ 2 , a p p l i e d _ p r i c e _ 2 , b a r O p e n + 1 ) ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( M A 1 0 > = M A 2 0 & & M A 1 1 < M A 2 1 )
{
i f ( s > 0 ) C L O S E O R D E R ( O P _ S E L L ) ;
i f ( b = = 0 )
{
S e n d O r d e r ( O P _ B U Y , 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 ) ) ;
}
}
i f ( M A 1 0 < = M A 2 0 & & M A 1 1 > M A 2 1 )
{
i f ( b > 0 ) C L O S E O R D E R ( O P _ B U Y ) ;
i f ( s = = 0 )
{
S e n d O r d e r ( O P _ S E L L , 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 ) ) ;
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b o o l S e n d O r d e r ( i n t t i p , d o u b l e l o t s , d o u b l e p r i c e , d o u b l e s l = 0 , d o u b l e t p = 0 )
{
i f ( ! I s N e w O r d e r A l l o w e d ( ) ) r e t u r n ( f a l s e ) ;
l o t s = C h e c k V o l u m e V a l u e ( l o t s ) ;
i f ( t i p < 2 )
{
i f ( A c c o u n t F r e e M a r g i n C h e c k ( S y m b o l ( ) , t i p , l o t s ) < 0 )
{
r e t u r n ( f a l s e ) ;
}
}
f o r ( i n t i = 0 ; i < 1 0 ; i + + )
{
i f ( O r d e r S e n d ( S y m b o l ( ) , t i p , l o t s , p r i c e , s l i p p a g e , s l , t p , N U L L , M a g i c , 0 , c l r N O N E ) ! = - 1 ) r e t u r n ( t r u e ) ;
S l e e p ( 5 0 0 ) ;
R e f r e s h R a t e s ( ) ;
i f ( I s S t o p p e d ( ) ) r e t u r n ( f a l s e ) ;
}
r e t u r n ( f a l s e ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
s t r i n g S t r t i p ( i n t t i p )
{
s w i t c h ( t i p )
{
c a s e O P _ B U Y : r e t u r n ( " B U Y " ) ;
c a s e O P _ S E L L : r e t u r n ( " S E L L " ) ;
c a s e O P _ B U Y S T O P : r e t u r n ( " B U Y S T O P " ) ;
c a s e O P _ S E L L S T O P : r e t u r n ( " S E L L S T O P " ) ;
c a s e O P _ B U Y L I M I T : r e t u r n ( " B U Y L I M I T " ) ;
c a s e O P _ S E L L L I M I T : r e t u r n ( " S E L L L I M I T " ) ;
}
r e t u r n ( " e r r o r " ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b o o l C L O S E O R D E R ( i n t o r d = - 1 )
{
b o o l e r r o r = t r u e ;
i n t j , e r r , n n = 0 , O T , O M N ;
w h i l e ( t r u e )
{
f o r ( j = O r d e r s T o t a l ( ) - 1 ; j > = 0 ; 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 ) )
{
O M N = O r d e r M a g i c N u m b e r ( ) ;
i f ( O r d e r S y m b o l ( ) = = S y m b o l ( ) & & O M N = = M a g i c )
{
O T = O r d e r T y p e ( ) ;
i f ( o r d ! = O T & & o r d ! = - 1 ) c o n t i n u e ;
i f ( O T = = O P _ B U Y )
{
e r r o r = O r d e r C l o s e ( O r d e r T i c k e t ( ) , O r d e r L o t s ( ) , N o r m a l i z e D o u b l e ( B i d , D i g i t s ) , s l i p p a g e , B l u e ) ;
}
i f ( O T = = O P _ S E L L )
{
e r r o r = O r d e r C l o s e ( O r d e r T i c k e t ( ) , O r d e r L o t s ( ) , N o r m a l i z e D o u b l e ( A s k , D i g i t s ) , s l i p p a g e , R e d ) ;
}
i f ( ! e r r o r )
{
e r r = G e t L a s t E r r o r ( ) ;
i f ( e r r < 2 ) c o n t i n u e ;
i f ( e r r = = 1 2 9 )
{
R e f r e s h R a t e s ( ) ;
c o n t i n u e ;
}
i f ( e r r = = 1 4 6 )
{
i f ( I s T r a d e C o n t e x t B u s y ( ) ) S l e e p ( 2 0 0 0 ) ;
c o n t i n u e ;
}
C o m m e n t ( " E r r o r < < " , E r r o r ( e r r ) , " > > " , 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 ) ) ;
}
}
}
}
i n t n = 0 ;
f o r ( 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 ) )
{
O M N = O r d e r M a g i c N u m b e r ( ) ;
i f ( O r d e r S y m b o l ( ) = = S y m b o l ( ) & & O M N = = M a g i c )
{
O T = O r d e r T y p e ( ) ;
i f ( o r d ! = O T & & o r d ! = - 1 ) c o n t i n u e ;
n + + ;
}
}
}
i f ( n = = 0 ) r e t u r n ( t r u e ) ;
n n + + ;
i f ( n n > 1 0 ) { r e t u r n ( f a l s e ) ; }
S l e e p ( 1 0 0 0 ) ;
R e f r e s h R a t e s ( ) ;
}
r e t u r n ( t r u e ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
c o l o r C o l o r ( b o o l P , c o l o r a , c o l o r b )
{
i f ( P ) r e t u r n ( a ) ;
e l s e r e t u r n ( b ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
v o i d D r a w L A B E L ( s t r i n g n a m e , s t r i n g N a m e , i n t X , i n t Y , c o l o r c l r )
{
i f ( O b j e c t F i n d ( n a m e ) = = - 1 )
{
O b j e c t C r e a t e ( n a m e , O B J _ L A B E L , 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 R N E R , 1 ) ;
O b j e c t S e t ( 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 ( 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 T e x t ( n a m e , N a m e , 1 2 , " A r i a l " , c l r ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
s t r i n g E r r o r ( i n t c o d e )
{
s w i t c h ( c o d e )
{
c a s e 0 : r e t u r n ( " 5B >H81>:" ) ;
c a s e 1 : r e t u r n ( " 5B >H81:8, => @57C;LB0B =58725AB5=" ) ;
c a s e 2 : r e t u r n ( " 1I0O >H81:0" ) ;
c a s e 3 : r e t u r n ( " 5?@028;L=K5 ?0@0<5B@K" ) ;
c a s e 4 : r e t u r n ( " ">@3>2K9 A5@25@ 70=OB" ) ;
c a s e 5 : r e t u r n ( " !B0@0O 25@A8O :;85=BA:>3> B5@<8=0;0" ) ;
c a s e 6 : r e t u r n ( " 5B A2O78 A B>@3>2K< A5@25@><" ) ;
c a s e 7 : r e t u r n ( " 54>AB0B>G=> ?@02" ) ;
c a s e 8 : r e t u r n ( " !;8H:>< G0ABK5 70?@>AK" ) ;
c a s e 9 : r e t u r n ( " 54>?CAB8<0O >?5@0F8O =0@CH0NI0O DC=:F8>=8@>20=85 A5@25@0" ) ;
c a s e 6 4 : r e t u r n ( " !G5B 701;>:8@>20=" ) ;
c a s e 6 5 : r e t u r n ( " 5?@028;L=K9 =><5@ AG5B0" ) ;
c a s e 1 2 8 : r e t u r n ( " AB5: A@>: >6840=8O A>25@H5=8O A45;:8" ) ;
c a s e 1 2 9 : r e t u r n ( " 5?@028;L=0O F5=0" ) ;
c a s e 1 3 0 : r e t u r n ( " 5?@028;L=K5 AB>?K" ) ;
c a s e 1 3 1 : r e t u r n ( " 5?@028;L=K9 >1J5<" ) ;
c a s e 1 3 2 : r e t u r n ( " K=>: 70:@KB" ) ;
c a s e 1 3 3 : r e t u r n ( " ">@3>2;O 70?@5I5=0" ) ;
c a s e 1 3 4 : r e t u r n ( " 54>AB0B>G=> 45=53 4;O A>25@H5=8O >?5@0F88" ) ;
c a s e 1 3 5 : r e t u r n ( " &5=0 87<5=8;0AL" ) ;
c a s e 1 3 6 : r e t u r n ( " 5B F5=" ) ;
c a s e 1 3 7 : r e t u r n ( " @>:5@ 70=OB" ) ;
c a s e 1 3 8 : r e t u r n ( " >2K5 F5=K" ) ;
c a s e 1 3 9 : r e t u r n ( " @45@ 701;>:8@>20= 8 C65 >1@010BK205BAO" ) ;
c a s e 1 4 0 : r e t u r n ( " 07@5H5=0 B>;L:> ?>:C?:0" ) ;
c a s e 1 4 1 : r e t u r n ( " !;8H:>< <=>3> 70?@>A>2" ) ;
c a s e 1 4 5 : r e t u r n ( " >48D8:0F8O 70?@5I5=0, B0: :0: >@45@ A;8H:>< 1;87>: : @K=:C" ) ;
c a s e 1 4 6 : r e t u r n ( " >4A8AB5<0 B>@3>2;8 70=OB0" ) ;
c a s e 1 4 7 : r e t u r n ( " A?>;L7>20=85 40BK 8AB5G5=8O >@45@0 70?@5I5=> 1@>:5@><" ) ;
c a s e 1 4 8 : r e t u r n ( " >;8G5AB2> >B:@KBKE 8 >B;>65==KE >@45@>2 4>AB83;> ?@545;0, CAB0=>2;5==>3> 1@>:5@><. " ) ;
c a s e 4 0 0 0 : r e t u r n ( " 5B >H81:8" ) ;
c a s e 4 0 0 1 : r e t u r n ( " 5?@028;L=K9 C:070B5;L DC=:F88" ) ;
c a s e 4 0 0 2 : r e t u r n ( " =45:A <0AA820 - 2=5 480?07>=0" ) ;
c a s e 4 0 0 3 : r e t u r n ( " 5B ?0<OB8 4;O AB5:0 DC=:F89" ) ;
c a s e 4 0 0 4 : r e t u r n ( " 5@5?>;=5=85 AB5:0 ?>A;5 @5:C@A82=>3> 2K7>20" ) ;
c a s e 4 0 0 5 : r e t u r n ( " 0 AB5:5 =5B ?0<OB8 4;O ?5@540G8 ?0@0<5B@>2" ) ;
c a s e 4 0 0 6 : r e t u r n ( " 5B ?0<OB8 4;O AB@>:>2>3> ?0@0<5B@0" ) ;
c a s e 4 0 0 7 : r e t u r n ( " 5B ?0<OB8 4;O 2@5<5==>9 AB@>:8" ) ;
c a s e 4 0 0 8 : r e t u r n ( " 58=8F80;878@>20==0O AB@>:0" ) ;
c a s e 4 0 0 9 : r e t u r n ( " 58=8F80;878@>20==0O AB@>:0 2 <0AA825" ) ;
c a s e 4 0 1 0 : r e t u r n ( " 5B ?0<OB8 4;O AB@>:>2>3> <0AA820" ) ;
c a s e 4 0 1 1 : r e t u r n ( " !;8H:>< 4;8==0O AB@>:0" ) ;
c a s e 4 0 1 2 : r e t u r n ( " AB0B>: >B 45;5=8O =0 =>;L" ) ;
c a s e 4 0 1 3 : r e t u r n ( " 5;5=85 =0 =>;L" ) ;
c a s e 4 0 1 4 : r e t u r n ( " 58725AB=0O :><0=40" ) ;
c a s e 4 0 1 5 : r e t u r n ( " 5?@028;L=K9 ?5@5E>4" ) ;
c a s e 4 0 1 6 : r e t u r n ( " 58=8F80;878@>20==K9 <0AA82" ) ;
c a s e 4 0 1 7 : r e t u r n ( " K7>2K D L L =5 @07@5H5=K" ) ;
c a s e 4 0 1 8 : r e t u r n ( " 52>7<>6=> 703@C78BL 181;8>B5:C" ) ;
c a s e 4 0 1 9 : r e t u r n ( " 52>7<>6=> 2K720BL DC=:F8N" ) ;
c a s e 4 0 2 0 : r e t u r n ( " K7>2K 2=5H=8E 181;8>B5G=KE DC=:F89 =5 @07@5H5=K" ) ;
c a s e 4 0 2 1 : r e t u r n ( " 54>AB0B>G=> ?0<OB8 4;O AB@>:8, 2>72@0I05<>9 87 DC=:F88" ) ;
c a s e 4 0 2 2 : r e t u r n ( " !8AB5<0 70=OB0" ) ;
c a s e 4 0 5 0 : r e t u r n ( " 5?@028;L=>5 :>;8G5AB2> ?0@0<5B@>2 DC=:F88" ) ;
c a s e 4 0 5 1 : r e t u r n ( " 54>?CAB8<>5 7=0G5=85 ?0@0<5B@0 DC=:F88" ) ;
c a s e 4 0 5 2 : r e t u r n ( " =CB@5==OO >H81:0 AB@>:>2>9 DC=:F88" ) ;
c a s e 4 0 5 3 : r e t u r n ( " H81:0 <0AA820" ) ;
c a s e 4 0 5 4 : r e t u r n ( " 5?@028;L=>5 8A?>;L7>20=85 <0AA820- B09<A5@88" ) ;
c a s e 4 0 5 5 : r e t u r n ( " H81:0 ?>;L7>20B5;LA:>3> 8=48:0B>@0" ) ;
c a s e 4 0 5 6 : r e t u r n ( " 0AA82K =5A>2<5AB8<K" ) ;
c a s e 4 0 5 7 : r e t u r n ( " H81:0 >1@01>B:8 3;>10;L=K5E ?5@5<5==KE" ) ;
c a s e 4 0 5 8 : r e t u r n ( " ;>10;L=0O ?5@5<5==0O =5 >1=0@C65=0" ) ;
c a s e 4 0 5 9 : r e t u r n ( " $C=:F8O =5 @07@5H5=0 2 B5AB>2>< @568<5" ) ;
c a s e 4 0 6 0 : r e t u r n ( " $C=:F8O =5 @07@5H5=0" ) ;
c a s e 4 0 6 1 : r e t u r n ( " H81:0 >B?@02:8 ?>GBK" ) ;
c a s e 4 0 6 2 : r e t u r n ( " 68405BAO ?0@0<5B@ B8?0 s t r i n g " ) ;
c a s e 4 0 6 3 : r e t u r n ( " 68405BAO ?0@0<5B@ B8?0 i n t e g e r " ) ;
c a s e 4 0 6 4 : r e t u r n ( " 68405BAO ?0@0<5B@ B8?0 d o u b l e " ) ;
c a s e 4 0 6 5 : r e t u r n ( " :0G5AB25 ?0@0<5B@0 >68405BAO <0AA82" ) ;
c a s e 4 0 6 6 : r e t u r n ( " 0?@>H5==K5 8AB>@8G5A:85 40==K5 2 A>AB>O=88 >1=>2;5=8O" ) ;
c a s e 4 0 6 7 : r e t u r n ( " H81:0 ?@8 2K?>;=5=88 B>@3>2>9 >?5@0F88" ) ;
c a s e 4 0 9 9 : r e t u r n ( " >=5F D09;0" ) ;
c a s e 4 1 0 0 : r e t u r n ( " H81:0 ?@8 @01>B5 A D09;><" ) ;
c a s e 4 1 0 1 : r e t u r n ( " 5?@028;L=>5 8<O D09;0" ) ;
c a s e 4 1 0 2 : r e t u r n ( " !;8H:>< <=>3> >B:@KBKE D09;>2" ) ;
c a s e 4 1 0 3 : r e t u r n ( " 52>7<>6=> >B:@KBL D09;" ) ;
c a s e 4 1 0 4 : r e t u r n ( " 5A>2<5AB8<K9 @568< 4>ABC?0 : D09;C" ) ;
c a s e 4 1 0 5 : r e t u r n ( " 8 >48= >@45@ =5 2K1@0=" ) ;
c a s e 4 1 0 6 : r e t u r n ( " 58725AB=K9 A8<2>;" ) ;
c a s e 4 1 0 7 : r e t u r n ( " 5?@028;L=K9 ?0@0<5B@ F5=K 4;O B>@3>2>9 DC=:F88" ) ;
c a s e 4 1 0 8 : r e t u r n ( " 525@=K9 =><5@ B8:5B0" ) ;
c a s e 4 1 0 9 : r e t u r n ( " ">@3>2;O =5 @07@5H5=0. 5>1E>48<> 2:;NG8BL >?F8N 07@5H8BL A>25B=8:C B>@3>20BL 2 A2>9AB20E M:A?5@B0. " ) ;
c a s e 4 1 1 0 : r e t u r n ( " ;8==K5 ?>78F88 =5 @07@5H5=K. 5>1E>48<> ?@>25@8BL A2>9AB20 M:A?5@B0. " ) ;
c a s e 4 1 1 1 : r e t u r n ( " >@>B:85 ?>78F88 =5 @07@5H5=K. 5>1E>48<> ?@>25@8BL A2>9AB20 M:A?5@B0. " ) ;
c a s e 4 2 0 0 : r e t u r n ( " 1J5:B C65 ACI5AB2C5B" ) ;
c a s e 4 2 0 1 : r e t u r n ( " 0?@>H5=> =58725AB=>5 A2>9AB2> >1J5:B0" ) ;
c a s e 4 2 0 2 : r e t u r n ( " 1J5:B =5 ACI5AB2C5B" ) ;
c a s e 4 2 0 3 : r e t u r n ( " 58725AB=K9 B8? >1J5:B0" ) ;
c a s e 4 2 0 4 : r e t u r n ( " 5B 8<5=8 >1J5:B0" ) ;
c a s e 4 2 0 5 : r e t u r n ( " H81:0 :>>@48=0B >1J5:B0" ) ;
c a s e 4 2 0 6 : r e t u r n ( " 5 =0945=> C:070==>5 ?>4>:=>" ) ;
d e f a u l t : r e t u r n ( " H81:0 =58725AB=0 " ) ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
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 ( ) ;
C o m m e n t ( " " ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 o u b l e p r i c e , c o l o r c o l r , i n t a r r = 6 )
{
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 [ 0 ] , 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 _ A R R O W C O D E , a r r ) ;
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 ) ;
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / T e x t C r e a t e ( 0 , " T e x t " , 0 , t i m e , p r i c e , " T e x t " ) ;
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 R e d , / / 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 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
{
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 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 _ R I G H T , / / 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 )
{
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 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / B u t t o n C r e a t e ( 0 , " B u t t o n " , 0 , x , y , w i d t h , h e i g h t , t e x t , " A r i a l " , 8 , c l r B l a c k , c l r L i g h t G r a y , c l r N O N E , f a l s e , C O R N E R _ L E F T _ U P P E R ) ;
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 = 8 , / / @07<5@ H@8DB0
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 c l r f o n = c l r L i g h t G r a y , / / 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 s t a t e = f a l s e , / /
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 )
{
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 ) ;
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 , 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 _ 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 , 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 G C O L O R , c l r f 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 _ 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 W h i t e , / / F25B D>=0
c o n s t c o l o r c l r = c l r B l a c k , / / 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 = t r u 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 = 1 ) / / ?@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 _ A L I G N , A L I G N _ 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 _ 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 ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ / T r e n d C r e a t e ( 0 , " T r e n d L i n e " , 0 , t 1 , p 1 , t 2 , p 2 , c l r R e d ) ;
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 = t r u 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 I s N e w O r d e r A l l o w e d ( )
{
i n t m a x _ a l l o w e d _ o r d e r s = ( i n t ) A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L I M I T _ O R D E R S ) ;
i f ( m a x _ a l l o w e d _ o r d e r s = = 0 ) r e t u r n ( t r u e ) ;
i f ( O r d e r s T o t a l ( ) < m a x _ a l l o w e d _ o r d e r s ) r e t u r n ( t r u e ) ;
r e t u r n ( f a l s e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e 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 )
{
d o u b l e m i n _ v o l u m 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 _ V O L U M E _ M I N ) ;
i f ( v o l u m e < m i n _ v o l u m e ) r e t u r n ( m i n _ v o l u m e ) ;
d o u b l e m a x _ v o l u m 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 _ V O L U M E _ M A X ) ;
i f ( v o l u m e > m a x _ v o l u m e ) r e t u r n ( m a x _ v o l u m e ) ;
d o u b l e v o l u m e _ s t e p = S y m b o l I n f o D o u b l e ( S y m b o l ( ) , S Y M B O L _ V O L U M E _ S T E P ) ; / / - - - 3@040F8O >1J5<0
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 ) r e t u r n ( r a t i o * v o l u m e _ s t e p ) ;
r e t u r n ( v o l u m e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / R e c t a n g l e C r e a t e ( 0 , " R e c t a n g l e " , 0 , t i m e 1 , p r i c e 1 , t i m e 2 , p r i c e 2 , c l r R e d ) ;
b o o l R e c t a n g l e 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 a n g l e " , / / 8<O ?@O<>C3>;L=8:0
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 ?@O<>C3>;L=8:0
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=89 ?@O<>C3>;L=8:0
c o n s t i n t w i d t h = 1 , / / B>;I8=0 ;8=89 ?@O<>C3>;L=8:0
c o n s t b o o l f i l l = f a l s e , / / 70;82:0 ?@O<>C3>;L=8:0 F25B><
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 = t r u 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 )
{
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 _ R E C T A N G L E , 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 _ F I L L , f i l l ) ;
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 ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g S t r T F ( i n t t = 0 )
{
i f ( t = = 0 ) t = P e r i o d ( ) ;
s w i t c h ( t )
{
c a s e P E R I O D _ M 1 : r e t u r n ( " M 1 " ) ;
c a s e P E R I O D _ M 2 : r e t u r n ( " M 2 " ) ;
c a s e P E R I O D _ M 3 : r e t u r n ( " M 3 " ) ;
c a s e P E R I O D _ M 4 : r e t u r n ( " M 4 " ) ;
c a s e P E R I O D _ M 5 : r e t u r n ( " M 5 " ) ;
c a s e P E R I O D _ M 6 : r e t u r n ( " M 6 " ) ;
c a s e P E R I O D _ M 1 0 : r e t u r n ( " M 1 0 " ) ;
c a s e P E R I O D _ M 1 5 : r e t u r n ( " M 1 5 " ) ;
c a s e P E R I O D _ M 3 0 : r e t u r n ( " M 3 0 " ) ;
c a s e P E R I O D _ H 1 : r e t u r n ( " H 1 " ) ;
c a s e P E R I O D _ H 4 : r e t u r n ( " H 4 " ) ;
c a s e P E R I O D _ D 1 : r e t u r n ( " D 1 " ) ;
d e f a u l t :
r e t u r n ( I n t e g e r T o S t r i n g ( t ) ) ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Comments