Price Data Components
Orders Execution
Indicators Used
Miscellaneous
0
Views
0
Downloads
0
Favorites
TradeInfoPanel
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | T r a d e I n f o P a n e l . m q 4 |
/ / | !>25B=8: A>1@0= 87 :CA>G:>2 GC68E <0;5=L:8E :>4>2, |
/ / | 2K;>65==KE 2 >B:@KB>< 4>ABC?5. |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# p r o p e r t y c o p y r i g h t " !"
# p r o p e r t y l i n k " "
# d e f i n e V E R S I O N " 1 . 0 1 "
# p r o p e r t y v e r s i o n V E R S I O N
# p r o p e r t y s t r i c t
e x t e r n s t r i n g P o l o s a 0 = " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g 07@5H5=85_ 0_ ">@3>2;N = " = = = 07@5H5=85 0 ">@3>2;N: t r u e - ">@3>20BL, f a l s e - 5 B>@3>20BL = = = " ; / / 07@5H5=85 =0 ">@3>2;N
e x t e r n b o o l S t a r t _ B u t t o n = t r u e ; / / ">@3>2;O =>?:0<8: t r u e - 07@5H8BL, f a l s e - 0?@5B8BL
e x t e r n b o o l S i g n a l = t r u e ; / / >:07K20BL #254><;5=8O > !83=0;0E 0 @0D8:5
e x t e r n c o l o r &25B_ A83=0;0_ B u y = D a r k G r e e n ; / / &25B !83=0;0 2 B U Y
e x t e r n c o l o r &25B_ A83=0;0_ S e l l = C r i m s o n ; / / &25B !83=0;0 2 S E L L
e x t e r n s t r i n g P o l o s a 1 = " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g 0AB@>9:8_ ;5@B0 = " = = = ;5@B: t r u e - 0, f a l s e - 5B = = = " ; / / 0AB@>9:8 ;5@B0
e x t e r n b o o l ;5@B_ &5;K9_ A D R = f a l s e ; / / :;/ K:; ;5@B >;>28=K A D R
e x t e r n b o o l ;5@B_ >;>28=0_ A D R = f a l s e ; / / :;/ K:; ;5@B &5;>3> A D R
e x t e r n s t r i n g P o l o s a 2 = " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g A=>2=K5_ 0AB@>9:8 = " = = = A=>2=K5 0AB@>9:8 = = = " ; / / A=>2=K5 0AB@>9:8
e x t e r n d o u b l e L o t s = 0 . 0 1 ; / / !B0@B>2K9 >B
e x t e r n d o u b l e M u l t i p l i e r = 1 . 5 ; / / >MDD8F85=B #A@54=5=8O
e x t e r n i n t T a k e P r o f i t = 9 0 ; / / "59: @>D8B 5@2>3> @45@0
e x t e r n i n t T a k e P r o f i t S e t k i = 5 0 ; / / "59: @>D8B !5B:8
e x t e r n i n t S t o p L o s s = 3 0 ; / / !B>?>AA ;O CG=>9 ">@3>2;8( A;8 > 0 , B> A5B:0 =5 AB@>8BAO)
e x t e r n i n t S t e p = 2 0 ; / / (03 !5B:8 ;O #A@54=5=8O
e x t e r n b o o l T r a l l = t r u e ; / / "@0;;: t r u e - 0, f a l s e - 5B
e x t e r n i n t T r a l l i n g S t o p = 3 0 ; / / "@59;8=3!B>? ;O 064>3> @45@0
e x t e r n i n t T r a l l i n g S t e p = 1 ; / / (03 "@59;8=3!B>?0
e x t e r n i n t B e z u b i t o k = 1 0 ; / / #@>25=L 57C1KB:0
e x t e r n i n t D i s t S t o p L i m i t = 2 0 ; / / 8AB0=F8O ;O B;>65:
e x t e r n i n t S l i p p a g e = 3 ; / / @>A:0;L7K20=85
e x t e r n i n t M a g i c = 2 5 0 ; / / 038G5A:89 =><5@
e x t e r n s t r i n g (@8DB_ "5:AB0 = " A r i a l B o l d " ; / / (@8DB "5:AB0
e x t e r n s t r i n g P o l o s a 3 = " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g 0AB@>9:8_ !83=0;L=>3>_ ;>:0 = " = = = 0AB@>9:8 ;O !83=0;L=>3> 1;>:0 = = = " ; / / 0AB@>9:8 !83=0;L=>3> ;>:0
e x t e r n c o l o r 03>;>2>:_ F25B = D a r k O r a n g e ; / / &25B 03>;>2:0
e x t e r n c o l o r >4GQ@:820=85_ F25B = D a r k O r a n g e ; / / &25B >4GQ@:820=8O
e x t e r n c o l o r 80?07>=_ F25B = D o d g e r B l u e ; / / &25B 80?07>=>2 A D R
e x t e r n c o l o r A D R _ 25@E=89_ F25B = G r e e n ; / / &25B 5@E=53> A D R
e x t e r n c o l o r A D R _ =86=89_ F25B = R e d ; / / &25B 86=53> A D R
e x t e r n i n t K o l D a y = 3 0 ; / / >;8G5AB2> =59 ;O A D R
e x t e r n i n t 03>;>2>:_ @07<5@ = 1 2 ; / / 07<5@ "5:AB0 03>;>2:0
e x t e r n i n t >4GQ@:820=85_ @07<5@ = 1 2 ; / / 07<5@ "5:AB0 >4GQ@:820=8O
e x t e r n i n t 80?07>=_ @07<5@ = 1 0 ; / / 07<5@ "5:AB0 80?07>=>2 A D R
e x t e r n i n t #@>2=8_ A D R 5 _ 5@E=89 = 1 0 ; / / 07<5@ "5:AB0 5@E=53> A D R
e x t e r n i n t #@>2=8_ A D R 5 _ 86=89 = 1 0 ; / / 07<5@ "5:AB0 86=53> A D R
e x t e r n i n t #3>;_ ?@82O7:8 = 1 ; / / #3>; @82O7:8 ;>:0
e x t e r n s t r i n g P o l o s a 4 = " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g =D>_ ;>:8 = " = = = 0AB@>9:8 ;O =D>@<0F8>==KE ;>:>2 = = = " ; / / =D> ;>:8
e x t e r n s t r i n g P o l o s a 5 = " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g 0_ ?5@8>4 = " = = = 0AB@>9:8 0@01>B:0 0 5@8>4K = = = " ; / / ;>: 0 5@8>4
e x t e r n c o l o r 5@8>4_ F25B = G r e e n ; / / &25B A53> ;>:0
e x t e r n i n t 5@8>4_ @07<5@ = 1 0 ; / / 07<5@ "5:AB0 A53> ;>:0
e x t e r n i n t 5@8>4_ 703>;>2>: = 1 0 ; / / 07<5@ "5:AB0 03>;>2:0
e x t e r n i n t #3>;_ ?@82O7:8_ ?5@8>4 = 1 ; / / #3>; @82O7:8 ;>:0
e x t e r n s t r i n g P o l o s a 6 = " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g "5:CI55_ !>AB>O=85 = " = = = 0AB@>9:8 "5:CI53> !>AB>O=8O = = = " ; / / ;>: "5:CI55 !>AB>O=85
e x t e r n c o l o r "5:_ A>AB_ F25B = N a v y ; / / &25B A53> ;>:0
e x t e r n i n t "5:_ A>AB_ @07<5@ = 1 0 ; / / 07<5@ "5:AB0 A53> ;>:0
e x t e r n i n t "5:_ A>AB_ 703>;>2>: = 1 0 ; / / 07<5@ "5:AB0 03>;>2:0
e x t e r n i n t #3>;_ ?@82O7:8_ B5:_ A>AB = 1 ; / / #3>; @82O7:8 ;>:0
e x t e r n s t r i n g P o l o s a 7 = " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g >?>;=8B5;L=0O_ 8=D>@<0F8O = " = = = 0AB@>9:8 >?>;=8B5;L=>9 =D>@<0F88 = = = " ; / / ;>: >?>;=8B5;L=0O =D>@<0F8O
e x t e r n c o l o r >?_ 8=D>_ F25B = P u r p l e ; / / &25B A53> ;>:0
e x t e r n i n t >?_ 8=D>_ @07<5@ = 1 0 ; / / 07<5@ "5:AB0 A53> ;>:0
e x t e r n i n t >?_ 8=D>_ 703>;>2>: = 1 0 ; / / 07<5@ "5:AB0 03>;>2:0
e x t e r n i n t #3>;_ ?@82O7:8_ 4>?_ 8=D> = 1 ; / / #3>; @82O7:8 ;>:0
e x t e r n s t r i n g P o l o s a 8 = " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g S e t i n g s B u t t o n = " = = = 0AB@>9:8 ;O =>?>: = = = " ; / / 0AB@>9:8 ;O =>?>:
e x t e r n c o l o r B u t t o n B u y = L i g h t G r e e n ; / / &25B =>?:8 B U Y
e x t e r n c o l o r B u t t o n S e l l = L i g h t C o r a l ; / / &25B =>?:8 S E L L
e x t e r n s t r i n g F o n t _ B u t t o n = " A r i a l B l a c k " ; / / (@8DB "5:AB0 2 =>?:0E
e x t e r n i n t F o n t _ S i z e = 1 2 ; / / 07<5@ (@8DB0
e x t e r n s t r i n g P o l o s a 9 = " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g ;>:_ =D>_ @45@>2 = " = = = 0AB@>9:8 !B@>:8 > @81K;8 > @45@0< = = = " ; / / @81K;L ?> @45@0<
e x t e r n c o l o r C o l P r o f i t = G r e e n ; / / &25B @81K;8 > @45@C
e x t e r n c o l o r C o l L o s s = O r a n g e R e d ; / / &25B #1KB:0 > @45@C
e x t e r n i n t F o n t _ s i z e = 1 2 ; / / 07<5@ (@8DB0
e x t e r n b o o l M a g i c O r d e r = f a l s e ; / / >:07K20BL M a g i c ?
e x t e r n b o o l T i c k e t O r d e r = f a l s e ; / / >:07K20BL "8:5B?
e x t e r n b o o l L o t O r d e r = t r u e ; / / >:07K20BL 1JQ<?
e x t e r n b o o l P r o f i t L o s s O r d e r = t r u e ; / / >:07K20BL @81K;L/ #1KB>:?
e x t e r n s t r i n g P o l o s a 1 0 = " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g >:07K20BL_ @0D8:C = " = = = @0D8:0 = = = " ; / / >:07K20BL 3@0D8G5A:85 >1J5:BK? / / >:07K20BL @0D8:C
e x t e r n b o o l !83=0;L=K9_ 1;>: = t r u e ; / / !83=0;L=K9 1;>:
e x t e r n b o o l @81K;L_ #1KB>: = t r u e ; / / ;>: @81K;L/ #1KB>:
e x t e r n b o o l "5:CI55!>AB>O=85 = t r u e ; / / ;>: "5:CI53> !>AB>O=8O
e x t e r n b o o l >?_ =D> = t r u e ; / / ;>: >?>;=8B5;L=>9 =D>@<0F88
e x t e r n b o o l !B@>:8_ >_ @81K;8 = t r u e ; / / !B@>:8 =D>@<0F88 064>< @45@5
e x t e r n b o o l C o m m e n t a r i y = f a l s e ; / / ><<5=B0@89 A 0AB@>9:0<8 !>25B=8:0
e x t e r n s t r i n g &5=>2K5_ 5B:8 = " = = = >:07K20BL C@>2=8 A D R ? = = = " ;
e x t e r n b o o l L e v e l _ H A L F _ A D R 5 = t r u e ; / / >:07K20BL #@>2=8 >;>28=K A D R
e x t e r n b o o l L e v e l _ F U L L _ A D R 5 = t r u e ; / / >:07K20BL #@>2=8 &5;>3> A D R
e x t e r n c o l o r &25B_ 25@E=59_ <5B:8 = G r e e n ; / / &25B 5@E=53> A D R
e x t e r n c o l o r &25B_ =86=59_ <5B:8 = R e d ; / / &25B 86=53> A D R
e x t e r n s t r i n g 8=8O_ 57C1KB:0 = " = = = 0AB@>9:8 8=88 157C1KB:0 = = = " ;
e x t e r n b o o l >:07K20BL_ 8=8N_ 57C1KB:0 = t r u e ; / / >:07K20BL 8=8N 57C1KB:0?
e x t e r n c o l o r &25B_ 8=88_ 57C1KB:0 = M a g e n t a ; / / &25B 8=88 57C1KB:0
e x t e r n s t r i n g P o l o s a 1 1 = " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g 0AB@>9:8_ !@54=59 = " = = = 0AB@>9:8 !@54=59 !:>;L7OI59 = = = " ;
e x t e r n i n t G r a n d M A P e r i o d = 2 0 0 ; / / 5@8>4 1>;LH>9 A@54=59
e x t e r n i n t E a s y M A P e r i o d = 5 0 ; / / 5@8>4 <0;>9 A@54=59
e x t e r n i n t M A S h i f t = 0 ; / / !4283 A@54=59
e x t e r n i n t M A M e t h o d = M O D E _ E M A ; / / 5B>4 CA@54=5=8O
e x t e r n i n t M A P r i c e = P R I C E _ C L O S E ; / / "8? F5=K
e x t e r n i n t R a z r y v M A = 5 0 ; / / 07@K2 <564C A:>;L7OI8<8
/ / - - - - - - - - - - - 1JO2;O5< 4>?>;=8B5;L=K5 ?5@5<5==K5- - - - - - - - - - - -
d o u b l e S C , S C _ 5 _ D A Y , H A L F _ A D R _ D A Y _ H I G H , H A L F _ A D R _ D A Y _ L O W , F U L L _ A D R _ D A Y _ H I G H , F U L L _ A D R _ D A Y _ L O W , G r a n d M A , E a s y M A , 07=8F0M A , D i s t B , D i s t S ;
d o u b l e A v e r a g e R a n g e T o d a y , A v e r a g e R a n g e , P r o s a d k a 1 , P r o s a d k a 2 , t p , s l , P r i c e , l a s t l o t , B u y P r o f i t B u y , S e l l P r o f i t S e l l , p o i n t ;
c o l o r B u t t o n C l o s e , B u t t o n P r o f i t ;
i n t W i d t h _ B _ S = 9 0 , H e i g h t _ B _ S = 2 5 , b a r = 0 , t i c k e t , n , n n ;
d a t e t i m e t ;
s t r i n g I D , W i n d o w ;
d o u b l e 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 ) ;
b o o l W 1 = t r u e , c o n f i r m a t i o n = t r u e ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | $C=:F8O 8=8F80;870F88 A>25B=8:0 |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O n I n i t ( )
{
p o i n t = P o i n t ;
i f ( D i g i t s = = 3 | | D i g i t s = = 5 ) / / @82>48< : 5 - 7=0G=><C AGQBC
{
T a k e P r o f i t * = 1 0 ;
T a k e P r o f i t S e t k i * = 1 0 ;
S t e p * = 1 0 ;
S l i p p a g e * = 1 0 ;
T r a l l i n g S t o p * = 1 0 ;
T r a l l i n g S t e p * = 1 0 ;
B e z u b i t o k * = 1 0 ;
S t o p L o s s * = 1 0 ;
D i s t S t o p L i m i t * = 1 0 ;
07=8F0M A * = 1 0 ;
R a z r y v M A * = 1 0 ;
/ / o r d e r _ d a t a . p i p s * = 1 0 ;
p o i n t * = 1 0 ;
}
R e c t L a b e l C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " ;>I04:0" , I D ) , 0 , 1 0 , 5 , 2 3 7 , 2 7 5 , c l r I n d i g o ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " 0@60" , I D ) , 0 , 5 , 5 3 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S - 1 0 , " 0@60" , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " 0@601 " , I D ) , 0 , 5 , 3 7 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S - 1 0 , D o u b l e T o S t r ( M a r k e t I n f o ( S y m b o l ( ) ,
M O D E _ M A R G I N R E Q U I R E D ) * 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 ) , 2 ) , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " 8=. AB>?K" , I D ) , 0 , 8 1 , 5 3 , W i d t h _ B _ S - 1 1 , H e i g h t _ B _ S - 1 0 , " 8=. S L / T P " , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " 8=. AB>?K1 " , I D ) , 0 , 8 1 , 3 7 , W i d t h _ B _ S - 1 1 , H e i g h t _ B _ S - 1 0 , D o u b l e T o S t r ( 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 ) , 0 ) , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " >B06" , I D ) , 0 , 1 6 1 , 5 3 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S - 1 0 , " >B06" , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " >B061 " , I D ) , 0 , 1 6 1 , 3 7 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S - 1 0 , D o u b l e T o S t r ( 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 ) , 2 ) + " / " + D o u b l e T o S t r ( M a r k e t I n f o ( S y m b o l ( ) ,
M O D E _ M A X L O T ) , 0 ) , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " 0@B8=" , I D ) , 0 , 5 , 8 5 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S - 1 0 , " 0@B8=" , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " 0@B8=1 " , I D ) , 0 , 5 , 6 9 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S - 1 0 , " * " + D o u b l e T o S t r ( M u l t i p l i e r , 2 ) , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " M a g i k " , I D ) , 0 , 8 1 , 8 5 , W i d t h _ B _ S - 1 1 , H e i g h t _ B _ S - 1 0 , " M a g i k " , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " M a g i k 1 " , I D ) , 0 , 8 1 , 6 9 , W i d t h _ B _ S - 1 1 , H e i g h t _ B _ S - 1 0 , D o u b l e T o S t r ( M a g i c , 0 ) , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " (03 "@0;;" , I D ) , 0 , 1 6 1 , 8 5 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S - 1 0 , " (03 "@0;;" , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " (03 "@0;;1 " , I D ) , 0 , 1 6 1 , 6 9 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S - 1 0 , D o u b l e T o S t r ( T r a l l i n g S t e p , 0 ) , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " (03 #A@" , I D ) , 0 , 5 , 1 1 7 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S - 1 0 , " (03 #A@" , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " (03 #A@1 " , I D ) , 0 , 5 , 1 0 1 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S - 1 0 , D o u b l e T o S t r ( S t e p , 0 ) , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " / #" , I D ) , 0 , 8 1 , 1 1 7 , W i d t h _ B _ S - 1 1 , H e i g h t _ B _ S - 1 0 , " / #" , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " / #1 " , I D ) , 0 , 8 1 , 1 0 1 , W i d t h _ B _ S - 1 1 , H e i g h t _ B _ S - 1 0 , D o u b l e T o S t r ( B e z u b i t o k , 0 ) , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " "@0;;" , I D ) , 0 , 1 6 1 , 1 1 7 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S - 1 0 , " "@0;;" , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " "@0;;1 " , I D ) , 0 , 1 6 1 , 1 0 1 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S - 1 0 , D o u b l e T o S t r ( T r a l l i n g S t o p , 0 ) , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " !B>?" , I D ) , 0 , 5 , 1 6 9 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S , D o u b l e T o S t r ( S t o p L o s s , 0 ) , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r S i l v e r , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " S L / T P " , I D ) , 0 , 8 1 , 1 6 9 , W i d t h _ B _ S - 1 1 , H e i g h t _ B _ S , " < < S L / T P > > " , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r D a r k G r a y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " "59:" , I D ) , 0 , 1 6 1 , 1 6 9 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S , D o u b l e T o S t r ( T a k e P r o f i t , 0 ) , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r S i l v e r , f a l s e ) ;
B u t t o n 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 l o s e " , I D ) , 0 , 8 1 , 1 4 3 , W i d t h _ B _ S - 1 1 , H e i g h t _ B _ S , " < C L O S E > " , F o n t _ B u t t o n , F o n t _ S i z e - 2 , c l r B l a c k , c l r S k y B l u e , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " BABC?" , I D ) , 0 , 5 , 2 7 4 , W i d t h _ B _ S - 9 , H e i g h t _ B _ S , " BABC?" , F o n t _ B u t t o n , F o n t _ S i z e , c l r B l a c k , c l r S i l v e r , f a l s e ) ;
E d i t C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " >B ?> @K=:C" , I D ) , 0 , 8 7 , 1 9 5 , W i d t h _ B _ S - 2 4 , H e i g h t _ B _ S , D o u b l e T o S t r ( L o t s , 2 ) , F o n t _ B u t t o n , F o n t _ S i z e , A L I G N _ C E N T E R , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " b u y " , I D ) , 0 , 5 , 1 9 5 , W i d t h _ B _ S - 9 , H e i g h t _ B _ S , " B U Y > > " , F o n t _ B u t t o n , F o n t _ S i z e , c l r B l a c k , B u t t o n B u y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " s e l l " , I D ) , 0 , 1 5 5 , 1 9 5 , W i d t h _ B _ S - 9 , H e i g h t _ B _ S , " < < S E L L " , F o n t _ B u t t o n , F o n t _ S i z e , c l r B l a c k , B u t t o n S e l l , f a l s e ) ;
E d i t C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " >B B u y S e l l S t o p " , I D ) , 0 , 8 7 , 2 2 1 , W i d t h _ B _ S - 2 4 , H e i g h t _ B _ S , D o u b l e T o S t r ( L o t s , 2 ) , F o n t _ B u t t o n , F o n t _ S i z e , A L I G N _ C E N T E R , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " B u y S t o p " , I D ) , 0 , 5 , 2 2 1 , W i d t h _ B _ S - 9 , H e i g h t _ B _ S , " B u y S t o p " , F o n t _ B u t t o n , F o n t _ S i z e , c l r B l a c k , B u t t o n B u y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " S e l l S t o p " , I D ) , 0 , 1 5 5 , 2 2 1 , W i d t h _ B _ S - 9 , H e i g h t _ B _ S , " S e l l S t o p " , F o n t _ B u t t o n , F o n t _ S i z e , c l r B l a c k , B u t t o n S e l l , f a l s e ) ;
E d i t C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " >B B u y S e l l L i m i t " , I D ) , 0 , 8 7 , 2 4 7 , W i d t h _ B _ S - 2 4 , H e i g h t _ B _ S , D o u b l e T o S t r ( L o t s , 2 ) , F o n t _ B u t t o n , F o n t _ S i z e , A L I G N _ C E N T E R , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " B u y L i m i t " , I D ) , 0 , 5 , 2 4 7 , W i d t h _ B _ S - 9 , H e i g h t _ B _ S , " B u y L i m i t " , F o n t _ B u t t o n , F o n t _ S i z e , c l r B l a c k , B u t t o n B u y , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " S e l l L i m i t " , I D ) , 0 , 1 5 5 , 2 4 7 , W i d t h _ B _ S - 9 , H e i g h t _ B _ S , " S e l l L i m i t " , F o n t _ B u t t o n , F o n t _ S i z e , c l r B l a c k , B u t t o n S e l l , f a l s e ) ;
E d i t C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " BABC? 4;O >B;>65:" , I D ) , 0 , 8 7 , 2 7 4 , W i d t h _ B _ S - 2 4 , H e i g h t _ B _ S , D o u b l e T o S t r ( D i s t S t o p L i m i t , 0 ) , F o n t _ B u t t o n , F o n t _ S i z e , A L I G N _ C E N T E R , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " '8AB:0" , I D ) , 0 , 1 5 5 , 2 7 4 , W i d t h _ B _ S - 9 , H e i g h t _ B _ S , " '8AB:0" , F o n t _ B u t t o n , F o n t _ S i z e , c l r B l a c k , c l r S i l v e r , f a l s e ) ;
B u t t o n C r e a t e ( 0 , S t r i n g C o n c a t e n a t e ( " ">@3 :=>?:0<8" , I D ) , 0 , 5 , 2 0 , W i d t h _ B _ S + 1 4 1 , H e i g h t _ B _ S - 1 0 , " < < ">@3>2;O :=>?:0<8 = " + S t a r t _ B u t t o n + " > > " , F o n t _ B u t t o n , F o n t _ S i z e - 3 , c l r B l a c k , c l r A q u a , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ E V E N T _ M O U S E _ M O V E , t r u e ) ;
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | $C=:F8O 458=8F80;870F88 A>25B=8: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 )
{
D e l e t e L a b e l s ( ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | $C=:F8O 459AB28O M:A?5@B0 |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i c k ( )
{
/ / - - - - - - - - - - - - - - - - - @>872>48< @0AGQBK F5= 4;O A D R - - - - - - - - - - - - - - - - -
A v e r a g e R a n g e T o d a y = N o r m a l i z e D o u b l e ( ( i H i g h ( N U L L , 1 4 4 0 , 0 ) - i L o w ( N U L L , 1 4 4 0 , 0 ) ) / P o i n t , D i g i t s ) ; / / 0E>48< A53>4=OH89 480?07>=
i n t f i n i s h ; / / 0E>48<
d o u b l e s u m m = 0 ; / / A@54=89
i f ( W 1 ) f i n i s h = i B a r S h i f t ( N U L L , 1 4 4 0 , i T i m e ( N U L L , 1 0 0 8 0 , 0 ) , f a l s e ) + 1 ; / / 480?07>=
e l s e f i n i s h = 1 ; / / F5=
f o r ( i n t i = K o l D a y - 1 + f i n i s h ; i > = f i n i s h ; i - - ) / / A D R
{ / / 70
s u m m + = N o r m a l i z e D o u b l e ( ( i H i g h ( N U L L , 1 4 4 0 , i ) - i L o w ( N U L L , 1 4 4 0 , i ) ) / P o i n t , D i g i t s ) ; / / >?@545;Q==>5
} / / :>;8G5AB2>
A v e r a g e R a n g e = N o r m a l i z e D o u b l e ( s u m m / K o l D a y , D i g i t s ) ; / / 4=59
H A L F _ A D R _ D A Y _ H I G H = N o r m a l i z e D o u b l e ( i O p e n ( N U L L , 1 4 4 0 , 0 ) + A v e r a g e R a n g e / 2 * P o i n t , D i g i t s ) ; / / 0E>48< 25@E=89 C@>25=L A D R 4;O ?>;>28=K 70 N 4=59
H A L F _ A D R _ D A Y _ L O W = N o r m a l i z e D o u b l e ( i O p e n ( N U L L , 1 4 4 0 , 0 ) - A v e r a g e R a n g e / 2 * P o i n t , D i g i t s ) ; / / 0E>48< =86=89 C@>25=L A D R 4;O ?>;>28=K 70 N 4=59
F U L L _ A D R _ D A Y _ H I G H = N o r m a l i z e D o u b l e ( i O p e n ( N U L L , 1 4 4 0 , 0 ) + A v e r a g e R a n g e * P o i n t , D i g i t s ) ; / / 0E>48< 25@E=89 C@>25=L A D R F5;K9 70 N 4=59
F U L L _ A D R _ D A Y _ L O W = N o r m a l i z e D o u b l e ( i O p e n ( N U L L , 1 4 4 0 , 0 ) - A v e r a g e R a n g e * P o i n t , D i g i t s ) ; / / 0E>48< =86=89 C@>25=L A D R F5;K9 70 N 4=59
G r a n d M A = N o r m a l i z e D o u b l e ( i M A ( N U L L , 0 , G r a n d M A P e r i o d , M A S h i f t , M O D E _ E M A , P R I C E _ C L O S E , 0 ) , D i g i t s ) ; / / ?@545;O5< 1>;LHCN A@54=NN A:>;L7OINN
E a s y M A = N o r m a l i z e D o u b l e ( i M A ( N U L L , 0 , E a s y M A P e r i o d , M A S h i f t , M O D E _ E M A , P R I C E _ C L O S E , 0 ) , D i g i t s ) ; / / ?@545;O5< <0;CN A@54=NN A:>;L7OINN
07=8F0M A = N o r m a l i z e D o u b l e ( ( G r a n d M A - E a s y M A ) / P o i n t , D i g i t s ) ;
D i s t B = G r a n d M A - R a z r y v M A * P o i n t ;
D i s t S = G r a n d M A + R a z r y v M A * P o i n t ;
s t r i n g D e p o s i t C u r r e n c y = A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) ;
d o u b l e P i p V a l u e 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 _ T I C K V A L U E ) * M i n L o t ) ; / / ;O @0AGQB0 AB>8<>AB8 ?C=:B0 ?@8 <8=8<0;L=>< ;>B5
i f ( C o m m e n t a r i y = = t r u e )
{
C o m m e n t ( " \ n " , " " / = " , S t a r t _ B u t t o n ,
" \ n " , " !" ". " = " , L o t s ,
" \ n " , " !" = " , S t o p L o s s ,
" \ n " , " " = " , T a k e P r o f i t ,
" \ n " , " "59: !5B:8 = " , T a k e P r o f i t S e t k i ,
" \ n " , " 0@B8= = " , " * " + D o u b l e T o S t r ( M u l t i p l i e r , 2 ) ,
" \ n " , " (03 = " , S t e p ,
" \ n " , " " = " , T r a l l i n g S t o p ,
" \ n " , " (03 "@0;;0 = " , T r a l l i n g S t e p ,
" \ n " , " / # = " , B e z u b i t o k ,
" \ n " , " M468: = " , M a g i c ,
" \ n " , " 07<5@ ?? = " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ P O I N T ) ,
" \ n " , " 8=. AB>?/ B59: = " , 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 ) ,
" \ n " , " 07<5@ :>=B@0:B0 = " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ L O T S I Z E ) ,
/ / " \ n " , " -:A?8@0F8O( DLNG5@AK) = " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ E X P I R A T I O N ) ,
" \ n " , " 8=. ;>B = " , 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 ) ,
" \ n " , " 0:A. ;>B = " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M A X L O T ) ,
" \ n " , " (03 ;>B0 = " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ L O T S T E P ) ,
" \ n " , " 0G. 70;>3. 1 ;>B0 = " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M A R G I N I N I T ) ,
" \ n " , " 0;>3 4;O >B:@. >@4. 1 ;>B0 = " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M A R G I N M A I N T E N A N C E ) ,
" \ n " , " 0@60 A ?5@5:@. >@4. 1 ;>B0 = " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M A R G I N H E D G E D ) ,
" \ n " , " !@54AB20 4;O >B:@. . " = " , D o u b l e T o S t r ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M A R G I N R E Q U I R E D ) * 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 ) , 2 ) + " " + A c c o u n t C u r r e n c y ( ) ) ;
}
/ / - - - - - - - - - - - - - - - - - !>740Q< >1J5:B 8 2K2>48< =0 3@0D8: - - - - - - - - - - - - - - - - -
s t r i n g N u l l O b j = " C;52>9_ >1J5:B" ; / / 040Q< 8<O >1J5:B0
s t r i n g N a m e O b j = N u l l O b j + " 1 " ; / / 040;8 B>G:C >BAGQB0 >1J5:B0
/ / = = = = !=0G0;0 >1J5:BK 4;O ! , = = = =
i f ( !83=0;L=K9_ 1;>:= = t r u e )
{
N a m e O b j = N u l l O b j + " 1 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 3 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " 80?07>=" , 03>;>2>:_ @07<5@, " (@8DB_ "5:AB0" , 03>;>2>:_ F25B) ; / / "5:AB @8AC5< A0<8
N a m e O b j = N u l l O b j + " 2 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 3 7 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " - - - - - - - - - - - - - - - - " , >4GQ@:820=85_ @07<5@, " (@8DB_ "5:AB0" , >4GQ@:820=85_ F25B) ; / / "5:AB @8AC5< A0<8
N a m e O b j = N u l l O b j + " 3 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 4 9 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " !53>4=O = " + D o u b l e T o S t r ( A v e r a g e R a n g e T o d a y , 0 ) , 80?07>=_ @07<5@, " (@8DB_ "5:AB0" , 80?07>=_ F25B) ; / / "5:AB 15@5< 87 1;>:0 A @0AGQB>< A@54=8E F5= A D R
N a m e O b j = N u l l O b j + " 4 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 6 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , D o u b l e T o S t r ( K o l D a y , 0 ) + " =59 = " + D o u b l e T o S t r ( A v e r a g e R a n g e , 0 ) , 80?07>=_ @07<5@, " (@8DB_ "5:AB0" , 80?07>=_ F25B) ; / / "5:AB 15@5< 87 1;>:0 A @0AGQB>< A@54=8E F5= A D R
N a m e O b j = N u l l O b j + " 5 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 8 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " #@>2=8 A D R " + D o u b l e T o S t r ( K o l D a y , 0 ) , 03>;>2>:_ @07<5@, " (@8DB_ "5:AB0" , 03>;>2>:_ F25B) ; / / "5:AB @8AC5< A0<8
N a m e O b j = N u l l O b j + " 6 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 8 7 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " - - - - - - - - - - - - - - - - - - - - - - - - - - - " , >4GQ@:820=85_ @07<5@, " (@8DB_ "5:AB0" , >4GQ@:820=85_ F25B) ; / / "5:AB @8AC5< A0<8
N a m e O b j = N u l l O b j + " 7 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 1 0 2 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " 1 / 2 A D R " + D o u b l e T o S t r ( K o l D a y , 0 ) + " = " + D o u b l e T o S t r ( H A L F _ A D R _ D A Y _ H I G H , D i g i t s ) , #@>2=8_ A D R 5 _ 5@E=89, " (@8DB_ "5:AB0" , A D R _ 25@E=89_ F25B) ; / / "5:AB 15@5< 87 1;>:0 A @0AGQB>< A@54=8E F5= A D R
N a m e O b j = N u l l O b j + " 8 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 1 1 7 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " 1 / 2 A D R " + D o u b l e T o S t r ( K o l D a y , 0 ) + " = " + D o u b l e T o S t r ( H A L F _ A D R _ D A Y _ L O W , D i g i t s ) , #@>2=8_ A D R 5 _ 5@E=89, " (@8DB_ "5:AB0" , A D R _ =86=89_ F25B) ; / / "5:AB 15@5< 87 1;>:0 A @0AGQB>< A@54=8E F5= A D R
N a m e O b j = N u l l O b j + " 9 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 1 3 2 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " & A D R " + D o u b l e T o S t r ( K o l D a y , 0 ) + " = " + D o u b l e T o S t r ( F U L L _ A D R _ D A Y _ H I G H , D i g i t s ) , #@>2=8_ A D R 5 _ 86=89, " (@8DB_ "5:AB0" , A D R _ 25@E=89_ F25B) ; / / "5:AB 15@5< 87 1;>:0 A @0AGQB>< A@54=8E F5= A D R
N a m e O b j = N u l l O b j + " 1 0 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 1 4 7 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " & A D R " + D o u b l e T o S t r ( K o l D a y , 0 ) + " = " + D o u b l e T o S t r ( F U L L _ A D R _ D A Y _ L O W , D i g i t s ) , #@>2=8_ A D R 5 _ 86=89, " (@8DB_ "5:AB0" , A D R _ =86=89_ F25B) ; / / "5:AB 15@5< 87 1;>:0 A @0AGQB>< A@54=8E F5= A D R
N a m e O b j = N u l l O b j + " 1 1 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 1 5 4 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " - - - - - - - - - - - - - - - - - - - - - - - - - - - " , >4GQ@:820=85_ @07<5@, " (@8DB_ "5:AB0" , >4GQ@:820=85_ F25B) ; / / "5:AB @8AC5< A0<8
/ / = = = = = = = = = = = = = = = = = = 0:>=G5= ! , K9 = = = = = = = = = = = = = = = = = = = = = =
}
/ / = = = = = = = = = = = "5?5@L >1J5:BK 4;O $ & +% = = = = = = = = = = = = =
/ / = = = = = = = +,/ #+" + = = = = = = = = =
i f ( @81K;L_ #1KB>:= = t r u e )
{
N a m e O b j = N u l l O b j + " 1 2 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ ?5@8>4) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 1 6 7 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " " " , 5@8>4_ @07<5@, " (@8DB_ "5:AB0" , 5@8>4_ F25B) ; / / "5:AB @8AC5< A0<8
N a m e O b j = N u l l O b j + " 1 3 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ ?5@8>4) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 1 7 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " - - - - - - - - - - - - - - - - - - - - " , 5@8>4_ @07<5@, " (@8DB_ "5:AB0" , 5@8>4_ F25B) ; / / "5:AB @8AC5< A0<8
d o u b l e p f d _ 0 = F i n d P r o f i t F o r D a y ( 0 ) ; / / 040Q< 8AB>G=8: 40==KE - DC=:F8O F i n d P r o f i t F o r D a y
N a m e O b j = N u l l O b j + " 1 4 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ ?5@8>4) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 1 8 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " !53>4=O = " + D o u b l e T o S t r ( p f d _ 0 , 2 ) , 5@8>4_ @07<5@, " (@8DB_ B5:AB0" , 5@8>4_ F25B) ; / / 0==K5 15@CBAO 87 DC=:F88 F i n d P r o f i t F o r D a y
p f d _ 0 = F i n d P r o f i t F o r D a y ( 1 ) ;
N a m e O b j = N u l l O b j + " 1 5 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ ?5@8>4) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 2 0 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " G5@0 = " + D o u b l e T o S t r ( p f d _ 0 , 2 ) , 5@8>4_ @07<5@, " (@8DB_ B5:AB0" , 5@8>4_ F25B) ; / / 0==K5 15@CBAO 87 DC=:F88 F i n d P r o f i t F o r D a y
p f d _ 0 = F i n d P r o f i t F o r D a y ( 2 ) ;
N a m e O b j = N u l l O b j + " 1 6 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ ?5@8>4) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 2 1 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " >702G5@0 = " + D o u b l e T o S t r ( p f d _ 0 , 2 ) , 5@8>4_ @07<5@, " (@8DB_ B5:AB0" , 5@8>4_ F25B) ; / / 0==K5 15@CBAO 87 DC=:F88 F i n d P r o f i t F o r D a y
p f d _ 0 = 0 ;
f o r ( i n t i d _ d a y = 0 ; i d _ d a y < D a y O f W e e k ( ) ; i d _ d a y + + )
p f d _ 0 = p f d _ 0 + F i n d P r o f i t F o r D a y ( i d _ d a y ) ;
N a m e O b j = N u l l O b j + " 1 7 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ ?5@8>4) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 2 3 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " 545;O = " + D o u b l e T o S t r ( p f d _ 0 , 2 ) , 5@8>4_ @07<5@, " (@8DB_ B5:AB0" , 5@8>4_ F25B) ; / / 0==K5 15@CBAO 87 DC=:F88 F i n d P r o f i t F o r D a y
p f d _ 0 = 0 ;
f o r ( i n t i d _ d a y = 0 ; i d _ d a y < D a y ( ) ; i d _ d a y + + )
p f d _ 0 = p f d _ 0 + F i n d P r o f i t F o r D a y ( i d _ d a y ) ;
N a m e O b j = N u l l O b j + " 1 8 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ ?5@8>4) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 2 4 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " 5AOF = " + D o u b l e T o S t r ( p f d _ 0 , 2 ) , 5@8>4_ @07<5@, " (@8DB_ B5:AB0" , 5@8>4_ F25B) ; / / 0==K5 15@CBAO 87 DC=:F88 F i n d P r o f i t F o r D a y
N a m e O b j = N u l l O b j + " 1 9 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ ?5@8>4) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 2 5 2 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " - - - - - - - - - - - - - - - - - - - - - - - - - - - - " , 5@8>4_ @07<5@, " (@8DB_ "5:AB0" , 5@8>4_ F25B) ; / / "5:AB @8AC5< A0<8
}
/ / = = = = = = = "#) ! !" / = = = = = = = = =
i f ( "5:CI55!>AB>O=85= = t r u e )
{
N a m e O b j = N u l l O b j + " 2 0 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ B5:_ A>AB) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 2 6 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " ". ! !" / " , "5:_ A>AB_ @07<5@, " (@8DB_ "5:AB0" , "5:_ A>AB_ F25B) ; / / "5:AB @8AC5< A0<8
N a m e O b j = N u l l O b j + " 2 1 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ B5:_ A>AB) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 2 7 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " - - - - - - - - - - - - - - - - - - - - - - - - - - - - " , "5:_ A>AB_ @07<5@, " (@8DB_ "5:AB0" , "5:_ A>AB_ F25B) ; / / "5:AB @8AC5< A0<8
N a m e O b j = N u l l O b j + " 2 2 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ B5:_ A>AB) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 2 8 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " 0;0=A = " + D o u b l e T o S t r ( A c c o u n t B a l a n c e ( ) , 2 ) , "5:_ A>AB_ @07<5@, " (@8DB_ "5:AB0" , "5:_ A>AB_ F25B) ; / / 0==K5 15@CBAO 87 AB0=40@B=>9 DC=:F88 A c c o u n t B a l a n c e
N a m e O b j = N u l l O b j + " 2 3 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ B5:_ A>AB) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 3 0 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " !@54AB20 = " + 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 ) , "5:_ A>AB_ @07<5@, " (@8DB_ "5:AB0" , "5:_ A>AB_ F25B) ; / / 0==K5 15@CBAO 87 AB0=40@B=>9 DC=:F88 A c c o u n t E q u i t y
N a m e O b j = N u l l O b j + " 2 4 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ B5:_ A>AB) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 3 1 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " !2>1>4=> = " + 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 ) , "5:_ A>AB_ @07<5@, " (@8DB_ "5:AB0" , "5:_ A>AB_ F25B) ; / / 0==K5 15@CBAO 87 AB0=40@B=>9 DC=:F88 A c c o u n t F r e e M a r g i n
N a m e O b j = N u l l O b j + " 2 5 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ B5:_ A>AB) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 3 3 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " @81K;L = " + D o u b l e T o S t r ( A c c o u n t P r o f i t ( ) , 2 ) , "5:_ A>AB_ @07<5@, " (@8DB_ "5:AB0" , "5:_ A>AB_ F25B) ; / / 0==K5 15@CBAO 87 AB0=40@B=>9 DC=:F88 A c c o u n t P r o f i t
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - 0AG8BK205< B5:CICN ?@>A04:C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( A c c o u n t P r o f i t ( ) < 0 )
{
P r o s a d k a 1 = ( A c c o u n t P r o f i t ( ) * ( - 1 ) * 1 0 0 ) / A c c o u n t B a l a n c e ( ) ;
}
e l s e P r o s a d k a 1 = 0 ;
N a m e O b j = N u l l O b j + " 2 6 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ B5:_ A>AB) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 3 4 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " @>A. "5:. = - " + D o u b l e T o S t r ( P r o s a d k a 1 , 2 ) + " % " , "5:_ A>AB_ @07<5@, " (@8DB_ B5:AB0" , "5:_ A>AB_ F25B) ; / / 0==K5 15@CBAO 87 @0AGQB0 B5:CI59 ?@>A04:8
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - 0AG8BK205< <0:A8<0;L=CN ?@>A04:C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i f ( P r o s a d k a 1 > P r o s a d k a 2 )
P r o s a d k a 2 = P r o s a d k a 1 ;
N a m e O b j = N u l l O b j + " 2 7 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ B5:_ A>AB) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 3 6 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " @>A. 0:A. = - " + D o u b l e T o S t r ( P r o s a d k a 2 , 2 ) + " % " , "5:_ A>AB_ @07<5@, " (@8DB_ B5:AB0" , "5:_ A>AB_ F25B) ; / / 0==K5 15@CBAO 87 @0AGQB0 <0:A8<0;L=>9 ?@>A04:8
N a m e O b j = N u l l O b j + " 2 8 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ B5:_ A>AB) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 3 6 7 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - " , "5:_ A>AB_ @07<5@, " (@8DB_ "5:AB0" , "5:_ A>AB_ F25B) ; / / "5:AB @8AC5< A0<8
}
/ / = = = = = = = ", / $ &/ = = = = = = = = =
i f ( >?_ =D>= = t r u e )
{
N a m e O b j = N u l l O b j + " 2 9 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ 4>?_ 8=D>) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 3 8 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " . $ &/" , >?_ 8=D>_ @07<5@, " (@8DB_ "5:AB0" , >?_ 8=D>_ F25B) ; / / "5:AB @8AC5< A0<8
N a m e O b j = N u l l O b j + " 3 0 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ 4>?_ 8=D>) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 3 9 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - " , >?_ 8=D>_ @07<5@, " (@8DB_ "5:AB0" , >?_ 8=D>_ F25B) ; / / "5:AB @8AC5< A0<8
d o u b l e S p r e a d = N o r m a l i z e D o u b l e ( ( A s k - B i d ) / P o i n t , 0 ) ; / / 0AG8BK205< A?@54
N a m e O b j = N u l l O b j + " 3 1 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ 4>?_ 8=D>) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 4 0 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " !?@M4 = " + D o u b l e T o S t r ( S p r e a d , 0 ) , >?_ 8=D>_ @07<5@+ 8 , " (@8DB_ B5:AB0" , >?_ 8=D>_ F25B) ; / / 0==K5 15@CBAO 87 @0AGQB0 A?@540
N a m e O b j = N u l l O b j + " 3 2 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ 4>?_ 8=D>) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 4 2 3 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " !2>? >=3 = " + D o u b l e T o S t r ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S W A P L O N G ) , 2 ) , >?_ 8=D>_ @07<5@, " T a h o m a " , >?_ 8=D>_ F25B) ; / / 0==K5 15@CBAO 87 AB0=40@B=>9 DC=:F88 M a r k e t I n f o
N a m e O b j = N u l l O b j + " 3 3 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ 4>?_ 8=D>) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 4 3 8 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " !2>? (>@B = " + D o u b l e T o S t r ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S W A P S H O R T ) , 2 ) , >?_ 8=D>_ @07<5@, " (@8DB_ B5:AB0" , >?_ 8=D>_ F25B) ; / / 0==K5 15@CBAO 87 AB0=40@B=>9 DC=:F88 M a r k e t I n f o
N a m e O b j = N u l l O b j + " 3 4 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ 4>?_ 8=D>) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 4 5 3 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " ;5G> = 1 : " + D o u b l e T o S t r ( A c c o u n t L e v e r a g e ( ) , 0 ) , >?_ 8=D>_ @07<5@, " (@8DB_ B5:AB0" , >?_ 8=D>_ F25B) ; / / 0==K5 15@CBAO 87 AB0=40@B=>9 DC=:F88 A c c o u n t L e v e r a g e
N a m e O b j = N u l l O b j + " 3 5 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ 4>?_ 8=D>) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 4 6 8 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " 50;. ;5G> = 1 : " + D o u b l e T o S t r ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * B i d / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M A R G I N R E Q U I R E D ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ P O I N T ) , 0 ) , >?_ 8=D>_ @07<5@, " (@8DB_ B5:AB0" , >?_ 8=D>_ F25B) ;
N a m e O b j = N u l l O b j + " 3 6 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ 4>?_ 8=D>) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 4 8 3 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " 0;NB0 = " + A c c o u n t C u r r e n c y ( ) , >?_ 8=D>_ @07<5@, " (@8DB_ B5:AB0" , >?_ 8=D>_ F25B) ; / / 0==K5 15@CBAO 87 AB0=40@B=>9 DC=:F88 A c c o u n t C u r r e n c y
N a m e O b j = N u l l O b j + " 3 7 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ 4>?_ 8=D>) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 4 9 8 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " " + A c c o u n t S e r v e r ( ) , >?_ 8=D>_ @07<5@, " (@8DB_ B5:AB0" , >?_ 8=D>_ F25B) ; / / 0==K5 15@CBAO 87 AB0=40@B=>9 DC=:F88 A c c o u n t S e r v e r
N a m e O b j = N u l l O b j + " 3 8 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ 4>?_ 8=D>) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 5 1 3 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " " + T i m e T o S t r ( 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 ) , >?_ 8=D>_ @07<5@, " (@8DB_ B5:AB0" , >?_ 8=D>_ F25B) ; / / 0==K5 15@CBAO 87 AB0=40@B=>9 DC=:F88 T i m e C u r r e n t
N a m e O b j = N u l l O b j + " 3 9 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ 4>?_ 8=D>) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 5 2 8 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " !B. ?? ?@8 " + D o u b l e T o S t r ( M i n L o t , 2 ) + " = " + D o u b l e T o S t r ( P i p V a l u e M i n L o t , 4 ) , >?_ 8=D>_ @07<5@, " (@8DB_ B5:AB0" , >?_ 8=D>_ F25B) ;
N a m e O b j = N u l l O b j + " 4 0 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , O B J P R O P _ C O R N E R , #3>;_ ?@82O7:8_ 4>?_ 8=D>) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 5 3 6 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - " , >?_ 8=D>_ @07<5@, " (@8DB_ "5:AB0" , >?_ 8=D>_ F25B) ; / / "5:AB @8AC5< A0<8
}
/ / - - - !>740Q< 8 2K2>48< =0 3@0D8: >1J5:B B8?0 &25B>20O <5B:0 4;O ?>;>28=K A D R 5
i f ( L e v e l _ H A L F _ A D R 5 )
{
O b j e c t C r e a t e ( " H A L F _ A D R _ 5 _ D A Y _ H I G H " , O B J _ A R R O W , 0 , T i m e [ 0 ] , 0 ) ;
O b j e c t S e t ( " H A L F _ A D R _ 5 _ D A Y _ H I G H " , O B J P R O P _ A R R O W C O D E , S Y M B O L _ R I G H T P R I C E ) ;
O b j e c t S e t ( " H A L F _ A D R _ 5 _ D A Y _ H I G H " , O B J P R O P _ C O L O R , &25B_ 25@E=59_ <5B:8) ;
O b j e c t S e t ( " H A L F _ A D R _ 5 _ D A Y _ H I G H " , O B J P R O P _ W I D T H , 1 ) ;
O b j e c t S e t ( " H A L F _ A D R _ 5 _ D A Y _ H I G H " , O B J P R O P _ T I M E 1 , T i m e [ 0 ] ) ;
O b j e c t S e t ( " H A L F _ A D R _ 5 _ D A Y _ H I G H " , O B J P R O P _ P R I C E 1 , H A L F _ A D R _ D A Y _ H I G H ) ;
O b j e c t S e t T e x t ( " H A L F _ A D R _ 5 _ D A Y _ H I G H " , D o u b l e T o S t r ( H A L F _ A D R _ D A Y _ H I G H , 5 ) , 6 , " A r i a l B o l d " , &25B_ 25@E=59_ <5B:8) ;
O b j e c t C r e a t e ( " H A L F _ A D R _ 5 _ D A Y _ L O W " , O B J _ A R R O W , 0 , T i m e [ 0 ] , 0 ) ;
O b j e c t S e t ( " H A L F _ A D R _ 5 _ D A Y _ L O W " , O B J P R O P _ A R R O W C O D E , S Y M B O L _ R I G H T P R I C E ) ;
O b j e c t S e t ( " H A L F _ A D R _ 5 _ D A Y _ L O W " , O B J P R O P _ C O L O R , &25B_ =86=59_ <5B:8) ;
O b j e c t S e t ( " H A L F _ A D R _ 5 _ D A Y _ L O W " , O B J P R O P _ W I D T H , 1 ) ;
O b j e c t S e t ( " H A L F _ A D R _ 5 _ D A Y _ L O W " , O B J P R O P _ T I M E 1 , T i m e [ 0 ] ) ;
O b j e c t S e t ( " H A L F _ A D R _ 5 _ D A Y _ L O W " , O B J P R O P _ P R I C E 1 , H A L F _ A D R _ D A Y _ L O W ) ;
O b j e c t S e t T e x t ( " H A L F _ A D R _ 5 _ D A Y _ L O W " , D o u b l e T o S t r ( H A L F _ A D R _ D A Y _ L O W , 5 ) , 6 , " A r i a l B o l d " , &25B_ =86=59_ <5B:8) ;
}
/ / - - - !>740Q< 8 2K2>48< =0 3@0D8: >1J5:B B8?0 &25B>20O <5B:0 4;O F5;>3> A D R 5
i f ( L e v e l _ F U L L _ A D R 5 )
{
O b j e c t C r e a t e ( " F U L L _ A D R _ 5 _ D A Y _ H I G H " , O B J _ A R R O W , 0 , T i m e [ 0 ] , 0 ) ;
O b j e c t S e t ( " F U L L _ A D R _ 5 _ D A Y _ H I G H " , O B J P R O P _ A R R O W C O D E , S Y M B O L _ R I G H T P R I C E ) ;
O b j e c t S e t ( " F U L L _ A D R _ 5 _ D A Y _ H I G H " , O B J P R O P _ C O L O R , &25B_ 25@E=59_ <5B:8) ;
O b j e c t S e t ( " F U L L _ A D R _ 5 _ D A Y _ H I G H " , O B J P R O P _ W I D T H , 1 ) ;
O b j e c t S e t ( " F U L L _ A D R _ 5 _ D A Y _ H I G H " , O B J P R O P _ T I M E 1 , T i m e [ 0 ] ) ;
O b j e c t S e t ( " F U L L _ A D R _ 5 _ D A Y _ H I G H " , O B J P R O P _ P R I C E 1 , F U L L _ A D R _ D A Y _ H I G H ) ;
O b j e c t S e t T e x t ( " F U L L _ A D R _ 5 _ D A Y _ H I G H " , D o u b l e T o S t r ( F U L L _ A D R _ D A Y _ H I G H , 5 ) , 6 , " A r i a l B o l d " , &25B_ 25@E=59_ <5B:8) ;
O b j e c t C r e a t e ( " F U L L _ A D R _ 5 _ D A Y _ L O W " , O B J _ A R R O W , 0 , T i m e [ 0 ] , 0 ) ;
O b j e c t S e t ( " F U L L _ A D R _ 5 _ D A Y _ L O W " , O B J P R O P _ A R R O W C O D E , S Y M B O L _ R I G H T P R I C E ) ;
O b j e c t S e t ( " F U L L _ A D R _ 5 _ D A Y _ L O W " , O B J P R O P _ C O L O R , &25B_ =86=59_ <5B:8) ;
O b j e c t S e t ( " F U L L _ A D R _ 5 _ D A Y _ L O W " , O B J P R O P _ W I D T H , 1 ) ;
O b j e c t S e t ( " F U L L _ A D R _ 5 _ D A Y _ L O W " , O B J P R O P _ T I M E 1 , T i m e [ 0 ] ) ;
O b j e c t S e t ( " F U L L _ A D R _ 5 _ D A Y _ L O W " , O B J P R O P _ P R I C E 1 , F U L L _ A D R _ D A Y _ L O W ) ;
O b j e c t S e t T e x t ( " F U L L _ A D R _ 5 _ D A Y _ L O W " , D o u b l e T o S t r ( F U L L _ A D R _ D A Y _ L O W , 5 ) , 6 , " A r i a l B o l d " , &25B_ =86=59_ <5B:8) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;>: =D>@<0F88 > !B@>:0< > @81K;8 B:@KBKE @45@>2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
O b j e c t s D e l e t e A l l ( 0 , O B J _ T E X T ) ;
i f ( !B@>:8_ >_ @81K;8= = t r u e )
{
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 ) )
{
i f ( S y m b o l ( ) = = O r d e r S y m b o l ( ) )
{
s t r i n g O r d e r I n f o = 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 ( ) ) ; / / 040Q< 8<O 8 ?@82O7K25< : B8:5BC >@45@0
s t r i n g T y p e O r d e r ; / / 040Q< 8<O 4;O >?>7=020=8O ?> B8?C >@45@0
d o u b l e S t r o k O r d e r 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 r d e r T y p e ( ) = = 0 ) T y p e O r d e r = " B u y " ; / / 5@52>48< 0 2 B5:AB
i f ( O r d e r T y p e ( ) = = 1 ) T y p e O r d e r = " S e l l " ; / / 5@52>48< 1 2 B5:AB
/ / - - - !>740Q< 8 2K2>48< =0 3@0D8: B5:AB>2K5 AB@>:8 ?> >@45@0< - - -
i f ( M a g i c O r d e r = = t r u e & & T i c k e t O r d e r = = t r u e & & L o t O r d e r = = t r u e & & P r o f i t L o s s O r d e r = = t r u e ) / / A;8 =C6=K <M468:, B8:5B, ;>B 8 ?@81K;L/ C1KB>:
T e x t C r e a t e ( 0 , O r d e r I n f o , 0 , T i m e [ 4 0 ] , O r d e r O p e n P r i c e ( ) , S t r i n g C o n c a t e n a t e ( " M = " , O r d e r M a g i c N u m b e r ( ) ,
" T = " + D o u b l e T o S t r ( O r d e r T i c k e t ( ) , 0 ) ,
" L = " + D o u b l e T o S t r ( O r d e r L o t s ( ) , 2 ) ,
" " + T y p e O r d e r + " P r = " , D o u b l e T o S t r ( S t r o k O r d e r P r o f i t , 2 ) ) ,
(@8DB_ "5:AB0, F o n t _ s i z e , C o l o r ( S t r o k O r d e r P r o f i t < 0 , C o l L o s s , C o l P r o f i t ) ) ;
i f ( T i c k e t O r d e r = = t r u e & & L o t O r d e r = = t r u e & & P r o f i t L o s s O r d e r = = t r u e ) / / A;8 =C6=K B8:5B, ;>B 8 ?@81K;L/ C1KB>:
T e x t C r e a t e ( 0 , O r d e r I n f o , 0 , T i m e [ 4 0 ] , O r d e r O p e n P r i c e ( ) , S t r i n g C o n c a t e n a t e ( " T = " + D o u b l e T o S t r ( O r d e r T i c k e t ( ) , 0 ) ,
" L = " + D o u b l e T o S t r ( O r d e r L o t s ( ) , 2 ) ,
" " + T y p e O r d e r + " P r = " , D o u b l e T o S t r ( S t r o k O r d e r P r o f i t , 2 ) ) ,
(@8DB_ "5:AB0, F o n t _ s i z e , C o l o r ( S t r o k O r d e r P r o f i t < 0 , C o l L o s s , C o l P r o f i t ) ) ;
i f ( L o t O r d e r = = t r u e & & P r o f i t L o s s O r d e r = = t r u e ) / / A;8 =C6=K ;>B 8 ?@81K;L/ C1KB>:
T e x t C r e a t e ( 0 , O r d e r I n f o , 0 , T i m e [ 4 0 ] , O r d e r O p e n P r i c e ( ) , S t r i n g C o n c a t e n a t e ( " L = " + D o u b l e T o S t r ( O r d e r L o t s ( ) , 2 ) ,
" " + T y p e O r d e r + " P r = " , D o u b l e T o S t r ( S t r o k O r d e r P r o f i t , 2 ) ) ,
(@8DB_ "5:AB0, F o n t _ s i z e , C o l o r ( S t r o k O r d e r P r o f i t < 0 , C o l L o s s , C o l P r o f i t ) ) ;
i f ( P r o f i t L o s s O r d e r = = t r u e ) / / A;8 =C6=K B>;L:> ?@81K;L/ C1KB>:
T e x t C r e a t e ( 0 , O r d e r I n f o , 0 , T i m e [ 4 0 ] , O r d e r O p e n P r i c e ( ) , S t r i n g C o n c a t e n a t e ( T y p e O r d e r + " P r = " , D o u b l e T o S t r ( S t r o k O r d e r P r o f i t , 2 ) ) ,
(@8DB_ "5:AB0, F o n t _ s i z e , C o l o r ( S t r o k O r d e r P r o f i t < 0 , C o l L o s s , C o l P r o f i t ) ) ;
}
}
}
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 0:>=G5=K A5 $ & + = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
/ / = = = = = = = = = = = = = = = = = = = = = / #! ! ( .+% !" = = = = = = = = = = = = = = = = = = = = = = = = = = = =
/ / - - - =>?:8 0:@KB8O 8 @81K;8 > "8?C @45@>2- - -
d o u b l e B u y L o t s = 0 ;
d o u b l e S e l l L o t s = 0 ;
d o u b l e B u y P r o f i t = 0 ;
d o u b l e S e l l P r o f i t = 0 ;
i n t T o t a l = O r d e r s T o t a l ( ) ;
f o r ( i n t i = T o t a l - 1 ; 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 ) )
{
i f ( O r d e r S y m b o l ( ) ! = S y m b o l ( ) ) c o n t i n u e ;
i f ( O r d e r T y p e ( ) = = O P _ B U Y )
{
B u y L o t s = B u y L o t s + O r d e r L o t s ( ) ;
B u y P r o f i t = B u y P r o f i t + O r d e r P r o f i t ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) ;
}
i f ( O r d e r T y p e ( ) = = O P _ S E L L )
{
S e l l L o t s = S e l l L o t s + O r d e r L o t s ( ) ;
S e l l P r o f i t = S e l l P r o f i t + O r d e r P r o f i t ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) ;
}
}
}
/ / - - - &25B>20O AE5<0 :=>?>: ?@81K;8/ C1KB:0
i f ( B u y P r o f i t = = 0 ) B u t t o n C l o s e = c l r S k y B l u e ;
i f ( B u y P r o f i t > 0 ) B u t t o n C l o s e = c l r M e d i u m S e a G r e e n ;
i f ( B u y P r o f i t < 0 ) B u t t o n C l o s e = c l r L i g h t C o r a l ;
B u t t o n 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 l o s e _ b u y " , I D ) , 0 , 5 , 1 4 3 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S , D o u b l e T o S t r ( B u y P r o f i t , 2 ) , F o n t _ B u t t o n , F o n t _ S i z e - 2 , c l r B l a c k , B u t t o n C l o s e , f a l s e ) ;
i f ( S e l l P r o f i t = = 0 ) B u t t o n C l o s e = c l r S k y B l u e ;
i f ( S e l l P r o f i t > 0 ) B u t t o n C l o s e = c l r M e d i u m S e a G r e e n ;
i f ( S e l l P r o f i t < 0 ) B u t t o n C l o s e = c l r L i g h t C o r a l ;
B u t t o n 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 l o s e _ s e l l " , I D ) , 0 , 1 6 1 , 1 4 3 , W i d t h _ B _ S - 1 5 , H e i g h t _ B _ S , D o u b l e T o S t r ( S e l l P r o f i t , 2 ) , F o n t _ B u t t o n , F o n t _ S i z e - 2 , c l r B l a c k , B u t t o n C l o s e , f a l s e ) ;
/ / - - - 0?CA:05< 8=8N 157C1KB:0
i n t c o u n t e d _ b a r s = I n d i c a t o r C o u n t e d ( ) ;
S e t H L i n e ( &25B_ 8=88_ 57C1KB:0, " L i n e o f Z E R O " , s t a r t Z E R O ( ) ) ;
s t a r t Z E R O ( ) ;
/ / - - - :;NG5=85/ K:;NG5=85 ;5@B0 ;O >;>28=K #@>2=O A D R
i f ( ;5@B_ >;>28=0_ A D R )
A l e r t H a l f A D R ( ) ;
e l s e
{
N o T r a d e ( ) ;
}
/ / - - - :;NG5=85/ K:;NG5=85 ;5@B0 ;O &5;>3> #@>2=O A D R
i f ( ;5@B_ &5;K9_ A D R )
A l e r t F u l l A D R ( ) ;
e l s e
{
N o T r a d e ( ) ;
}
/ / - - - :;NG5=85/ K:;NG5=85 !83=0;>2
i f ( S i g n a l = = t r u e )
{
i f ( E a s y M A < G r a n d M A & & O p e n [ 1 ] < E a s y M A & & C l o s e [ 1 ] < E a s y M A & & A s k < = E a s y M A & & E a s y M A < = D i s t B ) / / !83=0; 4;O B U Y =0 0H:0E
{
N a m e O b j = N u l l O b j + " 4 1 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , 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 ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 2 5 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " ABL A83=0; 4;O B U Y =0 07@K25 0H5:: " + D o u b l e T o S t r ( 07=8F0M A , 0 ) + " ?8?A" , "5:_ A>AB_ @07<5@+ 1 0 , " (@8DB_ "5:AB0" , &25B_ A83=0;0_ B u y ) ;
}
e l s e
{
D e l e t e S i g n a l B u y M A ( ) ;
}
}
i f ( S i g n a l = = t r u e )
{
i f ( E a s y M A > G r a n d M A & & O p e n [ 1 ] > E a s y M A & & C l o s e [ 1 ] > E a s y M A & & B i d > = E a s y M A & & E a s y M A > = D i s t S ) / / !83=0; 4;O S E L L =0 0H:0E
{
N a m e O b j = N u l l O b j + " 4 2 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , 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 ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 2 5 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 4 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " ABL A83=0; 4;O S E L L =0 07@K25 0H5:: " + D o u b l e T o S t r ( 07=8F0M A , 0 ) + " ?8?A" , "5:_ A>AB_ @07<5@+ 1 0 , " (@8DB_ "5:AB0" , &25B_ A83=0;0_ S e l l ) ;
}
e l s e
{
D e l e t e S i g n a l S e l l M A ( ) ;
}
}
i f ( S i g n a l = = t r u e )
{
i f ( A s k < F U L L _ A D R _ D A Y _ L O W & & O p e n [ 1 ] < F U L L _ A D R _ D A Y _ L O W & & C l o s e [ 1 ] < F U L L _ A D R _ D A Y _ L O W ) / / !83=0; 4;O B U Y =0 F5;>< A D R
{
N a m e O b j = N u l l O b j + " 4 3 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , 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 ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 2 5 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 7 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " ABL A83=0; 4;O B U Y =0 &5;>< A D R " + D o u b l e T o S t r ( K o l D a y , 0 ) , "5:_ A>AB_ @07<5@+ 1 0 , " (@8DB_ "5:AB0" , &25B_ A83=0;0_ B u y ) ;
}
e l s e
{
D e l e t e S i g n a l B u y F u l l A D R ( ) ;
}
}
i f ( S i g n a l = = t r u e )
{
i f ( B i d > F U L L _ A D R _ D A Y _ H I G H & & O p e n [ 1 ] > F U L L _ A D R _ D A Y _ H I G H & & C l o s e [ 1 ] > F U L L _ A D R _ D A Y _ H I G H ) / / !83=0; 4;O S E L L =0 F5;>< A D R
{
N a m e O b j = N u l l O b j + " 4 4 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , 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 ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 2 5 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 1 1 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " ABL A83=0; 4;O S E L L =0 &5;>< A D R " + D o u b l e T o S t r ( K o l D a y , 0 ) , "5:_ A>AB_ @07<5@+ 1 0 , " (@8DB_ "5:AB0" , &25B_ A83=0;0_ S e l l ) ;
}
e l s e
{
D e l e t e S i g n a l S e l l F u l l A D R ( ) ;
}
}
i f ( S i g n a l = = t r u e )
{
i f ( A s k < H A L F _ A D R _ D A Y _ L O W & & O p e n [ 1 ] < H A L F _ A D R _ D A Y _ L O W & & C l o s e [ 1 ] < H A L F _ A D R _ D A Y _ L O W ) / / !83=0; 4;O B U Y =0 1 / 2 A D R
{
N a m e O b j = N u l l O b j + " 4 5 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , 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 ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 2 5 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 1 4 5 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " ABL A83=0; 4;O B U Y =0 1 / 2 A D R " + D o u b l e T o S t r ( K o l D a y , 0 ) , "5:_ A>AB_ @07<5@+ 1 0 , " (@8DB_ "5:AB0" , &25B_ A83=0;0_ B u y ) ;
}
e l s e
{
D e l e t e S i g n a l B u y H a l f A D R ( ) ;
}
}
i f ( S i g n a l = = t r u e )
{
i f ( B i d > H A L F _ A D R _ D A Y _ H I G H & & O p e n [ 1 ] > H A L F _ A D R _ D A Y _ H I G H & & C l o s e [ 1 ] > H A L F _ A D R _ D A Y _ H I G H ) / / !83=0; 4;O S E L L =0 1 / 2 A D R
{
N a m e O b j = N u l l O b j + " 4 6 " ;
i f ( O b j e c t F i n d ( N a m e O b j ) = = - 1 )
{
O b j e c t C r e a t e ( N a m e O b j , 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 , 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 ( N a m e O b j , O B J P R O P _ X D I S T A N C E , 2 5 0 ) ;
O b j e c t S e t ( N a m e O b j , O B J P R O P _ Y D I S T A N C E , 1 8 0 ) ;
}
O b j e c t S e t T e x t ( N a m e O b j , " ABL A83=0; 4;O S E L L =0 1 / 2 A D R " + D o u b l e T o S t r ( K o l D a y , 0 ) , "5:_ A>AB_ @07<5@+ 1 0 , " (@8DB_ "5:AB0" , &25B_ A83=0;0_ S e l l ) ;
}
e l s e
{
D e l e t e S i g n a l S e l l H a l f A D R ( ) ;
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h a r t E v e n t f u n c t i o n ( $C=:F8O !81KB89 803@0<<K) |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 f ( T r a l l = = t r u e )
T r a l l i n g ( ) ; / / !@07C 4>102;O5< B@59;8=3- AB>?. $C=:F8O =0?8A0=0 40;LH5.
e l s e
{
N o T r a d e ( ) ;
}
/ / - - - #40;O5< 2A5 3@0D8G5A:85 >1J5:BK A 3@0D8:0
i f ( ( i d = = C H A R T E V E N T _ C L I C K | | i d = = C H A R T E V E N T _ M O U S E _ M O V E ) )
{
i f ( O b j e c t G e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " '8AB:0" , I D ) , O B J P R O P _ S T A T E ) )
{
C h i s t k a ( ) ;
}
}
/ / - - - KAB02;5=85 B U Y L I M I T 8 S E L L L I M I T >@45@>2 8<5==> =060B85< :=>?>: 8 40;LH5 @01>B05B A>25B=8: ( >;C2B><0B8G5A:89 @568<)
d o u b l e U r o v e n P r i c e B u y L i m i t = A s k - D i s t S t o p L i m i t * P o i n t ; / / 0E>48< F5=C A CGQB>< >BABC?0 4;O ?>:C?>:.
d o u b l e U r o v e n P r i c e S e l l L i m i t = B i d + D i s t S t o p L i m i t * P o i n t ; / / 0E>48< F5=C A CGQB>< >BABC?0 4;O ?@>406.
i f ( ( i d = = C H A R T E V E N T _ C L I C K | | i d = = C H A R T E V E N T _ M O U S E _ M O V E ) & & S t a r t _ B u t t o n = = t r u e )
{
s t r i n g S t r o k a L o t a = O b j e c t G e t S t r i n g ( 0 , I D + " >B B u y S e l l L i m i t " , O B J P R O P _ T E X T ) ;
S t r i n g R e p l a c e ( S t r o k a L o t a , " , " , " . " ) ;
i f ( L o t s ! = S t r i n g T o D o u b l e ( S t r o k a L o t a ) )
{
L o t s = S t r i n g T o D o u b l e ( S t r o k a L o t a ) ;
O b j e c t S e t S t r i n g ( 0 , I D + " >B B u y S e l l L i m i t " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( L o t s , 2 ) ) ;
}
i f ( O b j e c t G e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " B u y L i m i t " , I D ) , O B J P R O P _ S T A T E ) = = t r u e )
{
i f ( S t o p L o s s = = 0 ) s l = 0 ;
e l s e
s l = N o r m a l i z e D o u b l e ( U r o v e n P r i c e B u y L i m i t - S t o p L o s s * P o i n t , D i g i t s ) ;
t p = N o r m a l i z e D o u b l e ( U r o v e n P r i c e B u y L i m i t + T a k e P r o f i t * P o i n t , D i g i t s ) ;
i f ( S e n d O r d e r ( O P _ B U Y L I M I T , L o t s , N o r m a l i z e D o u b l e ( U r o v e n P r i c e B u y L i m i t , D i g i t s ) , s l , t p ) )
O b j e c t S e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " B u y L i m i t " , I D ) , O B J P R O P _ S T A T E , f a l s e ) ;
}
i f ( O b j e c t G e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " S e l l L i m i t " , I D ) , O B J P R O P _ S T A T E ) = = t r u e )
{
i f ( S t o p L o s s = = 0 ) s l = 0 ;
e l s e
s l = N o r m a l i z e D o u b l e ( U r o v e n P r i c e S e l l L i m i t + S t o p L o s s * P o i n t , D i g i t s ) ;
t p = N o r m a l i z e D o u b l e ( U r o v e n P r i c e S e l l L i m i t - T a k e P r o f i t * P o i n t , D i g i t s ) ;
i f ( S e n d O r d e r ( O P _ S E L L L I M I T , L o t s , N o r m a l i z e D o u b l e ( U r o v e n P r i c e S e l l L i m i t , D i g i t s ) , s l , t p ) )
O b j e c t S e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " S e l l L i m i t " , I D ) , O B J P R O P _ S T A T E , f a l s e ) ;
}
}
/ / - - - KAB02;5=85 B U Y S T O P 8 S E L L S T O P >@45@>2 8<5==> =060B85< :=>?>: 8 40;LH5 @01>B05B A>25B=8: ( >;C2B><0B8G5A:89 @568<)
d o u b l e U r o v e n P r i c e B u y S t o p = A s k + D i s t S t o p L i m i t * P o i n t ; / / 0E>48< F5=C A CGQB>< >BABC?0 4;O ?>:C?>:.
d o u b l e U r o v e n P r i c e S e l l S t o p = B i d - D i s t S t o p L i m i t * P o i n t ; / / 0E>48< F5=C A CGQB>< >BABC?0 4;O ?@>406.
i f ( ( i d = = C H A R T E V E N T _ C L I C K | | i d = = C H A R T E V E N T _ M O U S E _ M O V E ) & & S t a r t _ B u t t o n = = t r u e )
{
s t r i n g S t r o k a L o t a = O b j e c t G e t S t r i n g ( 0 , I D + " >B B u y S e l l S t o p " , O B J P R O P _ T E X T ) ;
S t r i n g R e p l a c e ( S t r o k a L o t a , " , " , " . " ) ;
i f ( L o t s ! = S t r i n g T o D o u b l e ( S t r o k a L o t a ) )
{
L o t s = S t r i n g T o D o u b l e ( S t r o k a L o t a ) ;
O b j e c t S e t S t r i n g ( 0 , I D + " >B B u y S e l l S t o p " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( L o t s , 2 ) ) ;
}
i f ( O b j e c t G e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " B u y S t o p " , I D ) , O B J P R O P _ S T A T E ) = = t r u e )
{
i f ( S t o p L o s s = = 0 ) s l = 0 ;
e l s e
s l = N o r m a l i z e D o u b l e ( U r o v e n P r i c e B u y S t o p - S t o p L o s s * P o i n t , D i g i t s ) ;
t p = N o r m a l i z e D o u b l e ( U r o v e n P r i c e B u y S t 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 e n d O r d e r ( O P _ B U Y S T O P , L o t s , N o r m a l i z e D o u b l e ( U r o v e n P r i c e B u y S t o p , D i g i t s ) , s l , t p ) )
O b j e c t S e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " B u y S t o p " , I D ) , O B J P R O P _ S T A T E , f a l s e ) ;
}
i f ( O b j e c t G e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " S e l l S t o p " , I D ) , O B J P R O P _ S T A T E ) = = t r u e )
{
i f ( S t o p L o s s = = 0 ) s l = 0 ;
e l s e
s l = N o r m a l i z e D o u b l e ( U r o v e n P r i c e S e l l S t o p + S t o p L o s s * P o i n t , D i g i t s ) ;
t p = N o r m a l i z e D o u b l e ( U r o v e n P r i c e S e l l S t 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 e n d O r d e r ( O P _ S E L L S T O P , L o t s , N o r m a l i z e D o u b l e ( U r o v e n P r i c e S e l l S t o p , D i g i t s ) , s l , t p ) )
O b j e c t S e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " S e l l S t o p " , I D ) , O B J P R O P _ S T A T E , f a l s e ) ;
}
}
/ / - - - CG=>9 2E>4 B U Y S E L L >@45@0<8 8<5==> =060B85< :=>?>: 8 40;LH5 @01>B05B A>25B=8: ( >;C2B><0B8G5A:89 @568<)
i f ( ( i d = = C H A R T E V E N T _ C L I C K | | i d = = C H A R T E V E N T _ M O U S E _ M O V E ) & & S t a r t _ B u t t o n = = t r u e )
{
s t r i n g S t r o k a L o t a = O b j e c t G e t S t r i n g ( 0 , I D + " >B ?> @K=:C" , O B J P R O P _ T E X T ) ;
S t r i n g R e p l a c e ( S t r o k a L o t a , " , " , " . " ) ;
i f ( L o t s ! = S t r i n g T o D o u b l e ( S t r o k a L o t a ) )
{
L o t s = S t r i n g T o D o u b l e ( S t r o k a L o t a ) ;
O b j e c t S e t S t r i n g ( 0 , I D + " >B ?> @K=:C" , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( L o t s , 2 ) ) ;
}
i f ( O b j e c t G e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " b u y " , I D ) , O B J P R O P _ S T A T E ) = = t r u e )
{
i f ( S t o p L o s s = = 0 ) s l = 0 ;
e l s e
s l = N o r m a l i z e D o u b l e ( B i d - S t o p L o s s * P o i n t , D i g i t s ) ;
t p = N o r m a l i z e D o u b l e ( A s k + T a k e P r o f i t * P o i n t , D i g i t s ) ;
i f ( S e n d O r d e r ( O P _ B U Y , 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 , t p ) )
O b j e c t S e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " b u y " , I D ) , O B J P R O P _ S T A T E , f a l s e ) ;
}
i f ( O b j e c t G e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " s e l l " , I D ) , O B J P R O P _ S T A T E ) = = t r u e )
{
i f ( S t o p L o s s = = 0 ) s l = 0 ;
e l s e
s l = N o r m a l i z e D o u b l e ( A s k + S t o p L o s s * P o i n t , D i g i t s ) ;
t p = N o r m a l i z e D o u b l e ( B i d - T a k e P r o f i t * P o i n t , D i g i t s ) ;
i f ( S e n d O r d e r ( O P _ S E L L , 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 , t p ) )
O b j e c t S e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " s e l l " , I D ) , O B J P R O P _ S T A T E , f a l s e ) ;
}
i f ( O b j e c t G e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " c l o s e _ b u y " , I D ) , O B J P R O P _ S T A T E ) = = t r u e )
{
C o m m e n 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 _ S E C O N D S ) , " C l o s e B u y " ) ;
c l o s e ( O P _ B U Y ) ;
O b j e c t S e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " c l o s e _ b u y " , I D ) , O B J P R O P _ S T A T E , f a l s e ) ;
}
i f ( O b j e c t G e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " c l o s e _ s e l l " , I D ) , O B J P R O P _ S T A T E ) = = t r u e )
{
C o m m e n 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 _ S E C O N D S ) , " C l o s e S e l l " ) ;
c l o s e ( O P _ S E L L ) ;
O b j e c t S e t I n t e g e r ( 0 , S t r i n g C o n c a t e n a t e ( " c l o s e _ s e l l " , I D ) , O B J P R O P _ S T A T E , f a l s e ) ;
}
}
e l s e
{
i n t o r d e r _ t y p e = F i n d L a s t O r d e r T y p e ( ) ;
i f ( o r d e r _ t y p e = = O P _ B U Y & & S t o p L o s s = = 0 )
{
P r i c e = F i n d L a s t O r d e r P r i c e ( O P _ B U Y ) ;
i f ( A s k < = P r i c e - S t e p * P o i n t & & O p e n [ 0 ] < = P r i c e - S t e p * P o i n t )
{
l a s t l o t = F i n d L a s t L o t s ( O P _ B U Y ) ;
l a s t l o t = N o r m a l i z e D o u b l e ( l a s t l o t * M u l t i p l i e r , 2 ) ;
t i c k e t = O r d e r S e n d ( S y m b o l ( ) , O P _ B U Y , l a s t l o t , A s k , S l i p p a g e , 0 , 0 , " >;82:0 B u t t o n B U Y " + D o u b l e T o S t r ( l a s t l o t , 2 ) , M a g i c , 0 , B l u e ) ;
i f ( t i c k e t < 1 )
P r i n t ( " H81:0 >B:@KB8O >@45@0 =0 ?>:C?:C " , G e t L a s t E r r o r ( ) ) ;
M o d i f y O r d e r s ( O P _ B U Y ) ;
}
}
i f ( o r d e r _ t y p e = = O P _ S E L L & & S t o p L o s s = = 0 )
{
P r i c e = F i n d L a s t O r d e r P r i c e ( O P _ S E L L ) ;
i f ( B i d > = P r i c e + S t e p * P o i n t & & O p e n [ 0 ] > = P r i c e + S t e p * P o i n t )
{
l a s t l o t = F i n d L a s t L o t s ( O P _ S E L L ) ;
l a s t l o t = N o r m a l i z e D o u b l e ( l a s t l o t * M u l t i p l i e r , 2 ) ;
t i c k e t = O r d e r S e n d ( S y m b o l ( ) , O P _ S E L L , l a s t l o t , B i d , S l i p p a g e , 0 , 0 , " >;82:0 B u t t o n S E L L " + D o u b l e T o S t r ( l a s t l o t , 2 ) , M a g i c , 0 , R e d ) ;
i f ( t i c k e t < 1 )
P r i n t ( " H81:0 >B:@KB8O >@45@0 =0 ?@>406C " , G e t L a s t E r r o r ( ) ) ;
M o d i f y O r d e r s ( O P _ S E L L ) ;
}
}
}
}
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
/ / ", +% $# & | |
/ / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
/ / - - - - - - - - - - - - - - - - - - 2>48< ?CABCN DC=:F8N - - - - - - - - - - - - - -
b o o l N o T r a d e ( )
{
r e t u r n t r u e ;
}
/ / - - - - - - - - - - - - - ?@545;O5< DC=:F8N >B:@KB8O G5@57 >:=> A>>1I5=89 - - - - - - - - - - - - - - - +
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 , d o u b l e p , d o u b l e l o s s , d o u b l e t a k e )
{
i f ( c o n f i r m a t i o n )
{
s t r i n g t x t ;
i f ( t i p = = O P _ B U Y ) t x t = S t r i n g C o n c a t e n a t e ( " B:@KBL B U Y " , D o u b l e T o S t r ( l o t , 2 ) , " ;>B0 ?> F5=5 = " , D o u b l e T o S t r ( p , D i g i t s ) ,
" A> AB>?>< = " , D o u b l e T o S t r ( l o s s , D i g i t s ) , " 8 B59:>< = " , D o u b l e T o S t r ( t a k e , D i g i t s ) , " ? " ) ;
i f ( t i p = = O P _ S E L L ) t x t = S t r i n g C o n c a t e n a t e ( " B:@KBL S E L L " , D o u b l e T o S t r ( l o t , 2 ) , " ;>B0 ?> F5=5 " , D o u b l e T o S t r ( p , D i g i t s ) ,
" A> AB>?>< = " , D o u b l e T o S t r ( l o s s , D i g i t s ) , " 8 B59:>< = " , D o u b l e T o S t r ( t a k e , D i g i t s ) , " ? " ) ;
i f ( t i p = = O P _ B U Y ) W i n d o w = " B u t t o n B U Y " ;
i f ( t i p = = O P _ S E L L ) W i n d o w = " B u t t o n S E L L " ;
i f ( t i p = = O P _ B U Y S T O P ) t x t = S t r i n g C o n c a t e n a t e ( " #AB0=>28BL B U Y S T O P ( @45@ =0 ?@>1>9) " , D o u b l e T o S t r ( l o t , 2 ) , " ;>B0 ?> F5=5 " , D o u b l e T o S t r ( p , D i g i t s ) ,
" A> AB>?>< = " , D o u b l e T o S t r ( l o s s , D i g i t s ) , " 8 B59:>< = " , D o u b l e T o S t r ( t a k e , D i g i t s ) , " ? " ) ;
i f ( t i p = = O P _ S E L L S T O P ) t x t = S t r i n g C o n c a t e n a t e ( " #AB0=>28BL S E L L S T O P ( @45@ =0 ?@>1>9) " , D o u b l e T o S t r ( l o t , 2 ) , " ;>B0 ?> F5=5 " , D o u b l e T o S t r ( p , D i g i t s ) ,
" A> AB>?>< = " , D o u b l e T o S t r ( l o s s , D i g i t s ) , " 8 B59:>< = " , D o u b l e T o S t r ( t a k e , D i g i t s ) , " ? " ) ;
i f ( t i p = = O P _ B U Y S T O P ) W i n d o w = " B u t t o n B U Y S T O P " ;
i f ( t i p = = O P _ S E L L S T O P ) W i n d o w = " B u t t o n S E L L S T O P " ;
i f ( t i p = = O P _ B U Y L I M I T ) t x t = S t r i n g C o n c a t e n a t e ( " #AB0=>28BL B U Y L I M I T ( @45@ =0 @072>@>B) " , D o u b l e T o S t r ( l o t , 2 ) , " ;>B0 ?> F5=5 " , D o u b l e T o S t r ( p , D i g i t s ) ,
" A> AB>?>< = " , D o u b l e T o S t r ( l o s s , D i g i t s ) , " 8 B59:>< = " , D o u b l e T o S t r ( t a k e , D i g i t s ) , " ? " ) ;
i f ( t i p = = O P _ S E L L L I M I T ) t x t = S t r i n g C o n c a t e n a t e ( " #AB0=>28BL S E L L L I M I T ( @45@ =0 @072>@>B) " , D o u b l e T o S t r ( l o t , 2 ) , " ;>B0 ?> F5=5 " , D o u b l e T o S t r ( p , D i g i t s ) ,
" A> AB>?>< = " , D o u b l e T o S t r ( l o s s , D i g i t s ) , " 8 B59:>< = " , D o u b l e T o S t r ( t a k e , D i g i t s ) , " ? " ) ;
i f ( t i p = = O P _ B U Y L I M I T ) W i n d o w = " B u t t o n B U Y L I M I T " ;
i f ( t i p = = O P _ S E L L L I M I T ) W i n d o w = " B u t t o n S E L L L I M I T " ;
i n t r e t = M e s s a g e B o x ( t x t , " " , M B _ Y E S N O ) ;
i f ( r e t = = I D N O ) r e t u r n t r u e ;
}
w h i l e ( t r u e )
{
R e f r e s h R a t e s ( ) ;
i f ( O r d e r S e n d ( S y m b o l ( ) , t i p , l o t , p , S l i p p a g e , s l , t p , W i n d o w + D o u b l e T o S t r ( L o t s , 2 ) , M a g i c , 0 , c l r N O N E ) = = - 1 )
{
P r i n t ( " H81:0 >B:@KB8O >@45@0 " , G e t L a s t E r r o r ( ) , " L o t " , l o t ) ;
S l e e p ( 1 0 0 0 ) ;
}
e l s e r e t u r n t r u e ;
n n + + ;
i f ( n n > 1 0 ) r e t u r n t r u e ;
}
r e t u r n t r u e ;
}
/ / + - - - - - - - - - - - - - - - - - - ?@545;O5< DC=:F8N 70:@KB8O - - - - - - - - - - - - - - - - - - - - - - +
b o o l c l o s e ( i n t t i p )
{
i f ( c o n f i r m a t i o n )
{
s t r i n g t x t = " 0:@KBL A5 " ;
i f ( t i p = = O P _ B U Y ) t x t = S t r i n g C o n c a t e n a t e ( t x t , " B U Y ? " ) ;
i f ( t i p = = O P _ S E L L ) t x t = S t r i n g C o n c a t e n a t e ( t x t , " S E L L ? " ) ;
i n t r e t = M e s s a g e B o x ( t x t , " " , M B _ Y E S N O ) ;
i f ( r e t = = I D N O ) r e t u r n t r u e ;
}
b o o l e r r o r = t r u e ;
i n t j , e r r , o r d e r _ t y p e ;
w h i l e ( ! I s S t o p p e d ( ) )
{
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 ) )
{
i f ( 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 )
{
o r d e r _ t y p e = O r d e r T y p e ( ) ;
i f ( t i p ! = o r d e r _ t y p e ) c o n t i n u e ;
i f ( o r d e r _ t y p e = = 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 , c l r L i m e ) ;
}
i f ( o r d e r _ t y p e = = 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 , c l r 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 ;
}
P r i n t ( " E r r o r " , e r r , " c l o s e o r d e r N " , O r d e r 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 _ S E C O N D S ) ) ;
}
}
}
}
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 ) )
{
i f ( 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 )
{
o r d e r _ t y p e = O r d e r T y p e ( ) ;
i f ( t i p ! = o r d e r _ t y p e ) c o n t i n u e ;
i f ( o r d e r _ t y p e = = O P _ B U Y | | o r d e r _ t y p e = = O P _ S E L L ) n + + ;
}
}
}
i f ( n = = 0 ) b r e a k ;
n + + ;
i f ( n n > 1 0 )
{
r e t u r n t r u 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 ;
}
/ / + - - - - - - - - - - - - - - - - - ?@545;O5< DC=:F8N 157C1KB:0- - - - - - - - - - - - - - - -
d o u b l e s t a r t Z E R O ( )
{
d o u b l e B u y L e v e l ;
d o u b l e S e l l L e v e l ;
d o u b l e B u y L o t s = 0 ;
d o u b l e S e l l L o t s = 0 ;
d o u b l e B u y P r o f i t = 0 ;
d o u b l e S e l l P r o f i t = 0 ;
i n t T o t a l = O r d e r s T o t a l ( ) ;
f o r ( i n t i = T o t a l - 1 ; 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 ) )
{
i f ( O r d e r S y m b o l ( ) ! = S y m b o l ( ) ) c o n t i n u e ;
i f ( O r d e r T y p e ( ) = = O P _ B U Y )
{
B u y L o t s = B u y L o t s + O r d e r L o t s ( ) ;
B u y P r o f i t = B u y P r o f i t + O r d e r P r o f i t ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) ;
}
i f ( O r d e r T y p e ( ) = = O P _ S E L L )
{
S e l l L o t s = S e l l L o t s + O r d e r L o t s ( ) ;
S e l l P r o f i t = S e l l P r o f i t + O r d e r P r o f i t ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) ;
}
}
}
d o u b l e P r i c e 2 = 0 ;
d o u b l e T i c k V a l u e = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) ;
i f ( B u y L o t s > 0 )
B u y L e v e l = N o r m a l i z e D o u b l e ( B i d - ( B u y P r o f i t / ( T i c k V a l u e * B u y L o t s ) * P o i n t ) , D i g i t s ) ; e l s e B u y L e v e l = 0 ;
i f ( S e l l L o t s > 0 )
S e l l L e v e l = N o r m a l i z e D o u b l e ( A s k + ( S e l l P r o f i t / ( T i c k V a l u e * S e l l L o t s ) * P o i n t ) , D i g i t s ) ; e l s e S e l l L e v e l = 0 ;
i f ( ( B u y L o t s - S e l l L o t s ) > 0 )
P r i c e 2 = N o r m a l i z e D o u b l e ( B i d - ( ( B u y P r o f i t + S e l l P r o f i t ) / ( T i c k V a l u e * ( B u y L o t s - S e l l L o t s ) ) * P o i n t ) , D i g i t s ) ;
i f ( ( S e l l L o t s - B u y L o t s ) > 0 )
P r i c e 2 = N o r m a l i z e D o u b l e ( A s k + ( ( B u y P r o f i t + S e l l P r o f i t ) / ( T i c k V a l u e * ( S e l l L o t s - B u y L o t s ) ) * P o i n t ) , D i g i t s ) ;
s t r i n g T i t l e = " #@>25=L 157 C1KB:0 4;O " + S y m b o l ( ) ;
s t r i n g Z e r o L e v e l = " =5 ACI5AB2C5B" ;
i f ( P r i c e > 0 )
Z e r o L e v e l = " = " + D o u b l e T o S t r ( P r i c e 2 , D i g i t s ) ;
s t r i n g B u y = " =5 ACI5AB2C5B" ;
i f ( B u y L e v e l > 0 )
B u y = " = " + D o u b l e T o S t r ( B u y L e v e l , D i g i t s ) ;
s t r i n g S e l l = " =5 ACI5AB2C5B" ;
i f ( S e l l L e v e l > 0 )
S e l l = " = " + D o u b l e T o S t r ( S e l l L e v e l , D i g i t s ) ;
s t r i n g M e s s a g e = " #@>25=L 157 C1KB:0" + Z e r o L e v e l + " \ t \ n #@>25=L =0 ?>:C?:C" + B u y + " \ t \ n #@>25=L =0 ?@>406C" + S e l l ;
i f ( P r i c e 2 = = 0 )
P r i c e 2 = A s k ;
i f ( O P _ B U Y ) r e t u r n ( B u y L e v e l ) ;
r e t u r n ( P r i c e 2 ) ;
i f ( O P _ S E L L ) r e t u r n ( S e l l L e v e l ) ;
r e t u r n ( P r i c e 2 ) ;
r e t u r n ( 0 ) ;
}
/ / - - - - - - - - - - - - $C=:F8O 4;O ;5@B0 ;O &5;>3> #@>2=O A D R - - - - - - - - - - - - -
b o o l A l e r t F u l l A D R ( )
{
i f ( B a r s ! = b a r )
{
i f ( O p e n [ 1 ] > F U L L _ A D R _ D A Y _ L O W & & C l o s e [ 1 ] < F U L L _ A D R _ D A Y _ L O W )
{
A l e r t ( S y m b o l ( ) + " B U Y - & # A D R 5 " + T i m e T o S t r i n g ( T i m e [ 0 ] ) ) ;
b a r = B a r s ;
}
i f ( O p e n [ 1 ] < F U L L _ A D R _ D A Y _ H I G H & & C l o s e [ 1 ] > F U L L _ A D R _ D A Y _ H I G H )
{
A l e r t ( S y m b o l ( ) + " S E L L - & + ! +( A D R 5 " + T i m e T o S t r i n g ( T i m e [ 0 ] ) ) ;
b a r = B a r s ;
}
}
r e t u r n t r u e ;
}
/ / - - - - - - - - - - - - $C=:F8O ;O ;5@B0 ;O >;>28=K #@>2=O A D R - - - - - - - - - - - - -
b o o l A l e r t H a l f A D R ( )
{
i f ( B a r s ! = b a r )
{
i f ( O p e n [ 1 ] > H A L F _ A D R _ D A Y _ L O W & & C l o s e [ 1 ] < H A L F _ A D R _ D A Y _ L O W )
{
A l e r t ( S y m b o l ( ) + " B U Y - & # 1 / 2 A D R 5 " + T i m e T o S t r i n g ( T i m e [ 0 ] ) ) ;
b a r = B a r s ;
}
i f ( O p e n [ 1 ] < H A L F _ A D R _ D A Y _ H I G H & & C l o s e [ 1 ] > H A L F _ A D R _ D A Y _ H I G H )
{
A l e r t ( S y m b o l ( ) + " S E L L - & + ! +( 1 / 2 A D R 5 " + T i m e T o S t r i n g ( T i m e [ 0 ] ) ) ;
b a r = B a r s ;
}
}
r e t u r n t r u e ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - ?@545;5=85 4=52=>9 ?@81K;8- - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e F i n d P r o f i t F o r D a y ( i n t a i _ 0 )
{
d o u b l e l d _ r e t _ 4 = 0 ;
f o r ( i n t p o s _ 1 2 = 0 ; p o s _ 1 2 < O r d e r s H i s t o r y T o t a l ( ) ; p o s _ 1 2 + + )
{
i f ( ! ( O r d e r S e l e c t ( p o s _ 1 2 , S E L E C T _ B Y _ P O S , M O D E _ H I S T O R Y ) ) ) b r e a k ;
i f ( O r d e r S y m b o l ( ) ! = " " )
i f ( O r d e r C l o s e T i m e ( ) > = i T i m e ( S y m b o l ( ) , P E R I O D _ D 1 , a i _ 0 ) & & O r d e r C l o s e T i m e ( ) < i T i m e ( S y m b o l ( ) , P E R I O D _ D 1 , a i _ 0 ) + 8 6 4 0 0 )
{
l d _ r e t _ 4 + = 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 ( ) ;
}
}
r e t u r n ( l d _ r e t _ 4 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - @>?8AK205< DC=:F8N B@59;8=3- AB>?0 - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d T r a l l i n g ( )
{
d o u b l e S L b u y = N o r m a l i z e D o u b l e ( B i d + B e z u b i t o k * P o i n t - T r a l l i n g S t o p * P o i n t , D i g i t s ) ;
d o u b l e S L s e l l = N o r m a l i z e D o u b l e ( A s k - B e z u b i t o k * P o i n t + T r a l l i n g S t o p * P o i n t , D i g i t s ) ;
d o u b l e T P b u y = 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 ( ) + T a k e P r o f i t * P o i n t , D i g i t s ) ;
d o u b l e T P s e l l = 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 ( ) - T a k e P r o f i t * P o i n t , D i g i t s ) ;
f o r ( i n t 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 ( ) & & O r d e r M a g i c N u m b e r ( ) = = M a g i c )
{
i f ( O r d e r T y p e ( ) = = O P _ B U Y )
{
i f ( B i d - O r d e r O p e n P r i c e ( ) > T r a l l i n g S t o p * P o i n t )
{
i f ( O r d e r S t o p L o s s ( ) < B i d - ( T r a l l i n g S t o p + T r a l l i n g S t e p ) * P o i n t | | O r d e r S t o p L o s s ( ) = = 0 )
{
i f ( T P b u y < F U L L _ A D R _ D A Y _ H I G H ) T P b u y = F U L L _ A D R _ D A Y _ H I G H ;
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 r d e r O p e n P r i c e ( ) , S L b u y , T P b u y , 0 , B l u e ) )
P r i n t ( " H81:0 <>48D8:0F88 >@45@0 =0 ?>:C?:C " , G e t L a s t E r r o r ( ) ) ;
}
}
}
i f ( O r d e r T y p e ( ) = = O P _ S E L L )
{
i f ( O r d e r O p e n P r i c e ( ) - A s k > T r a l l i n g S t o p * P o i n t )
{
i f ( O r d e r S t o p L o s s ( ) > A s k + ( T r a l l i n g S t o p + T r a l l i n g S t e p ) * P o i n t | | O r d e r S t o p L o s s ( ) = = 0 )
{
i f ( T P s e l l > F U L L _ A D R _ D A Y _ L O W ) T P s e l l = F U L L _ A D R _ D A Y _ L O W ;
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 r d e r O p e n P r i c e ( ) , S L s e l l , T P s e l l , 0 , R e d ) )
P r i n t ( " H81:0 <>48D8:0F88 >@45@0 =0 ?@>406C " , G e t L a s t E r r o r ( ) ) ;
}
}
}
}
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - @>?8AK205< DC=:F8N <>48D8:0F88 >@45@>2 - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d M o d i f y O r d e r s ( i n t o t y p e )
{
d o u b l e a v g _ p r i c e , o r d e r _ l o t s = 0 ;
P r i c e = 0 ;
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; 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 , 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 ( ) & & O r d e r M a g i c N u m b e r ( ) = = M a g i c & & O r d e r T y p e ( ) = = o t y p e )
{
P r i c e + = O r d e r O p e n P r i c e ( ) * O r d e r L o t s ( ) ;
o r d e r _ l o t s + = O r d e r L o t s ( ) ;
}
}
}
a v g _ p r i c e = N o r m a l i z e D o u b l e ( P r i c e / o r d e r _ l o t s , D i g i t s ) ;
i f ( o t y p e = = O P _ B U Y ) t p = N o r m a l i z e D o u b l e ( a v g _ p r i c e + T a k e P r o f i t S e t k i * P o i n t , D i g i t s ) ;
i f ( o t y p e = = O P _ S E L L ) t p = N o r m a l i z e D o u b l e ( a v g _ p r i c e - T a k e P r o f i t S e t k i * P o i n t , D i g i t s ) ;
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; 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 , 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 ( ) & & O r d e r M a g i c N u m b e r ( ) = = M a g i c & & O r d e r T y p e ( ) = = o t y p e )
{
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 r d e r O p e n P r i c e ( ) , 0 , t p , 0 ) )
P r i n t ( " @45@0 CA?5H=> <>48D8F8@>20=K" ) ;
e l s e P r i n t ( " H81:0 <>48D8:0F88 >@45@>2 " , G e t L a s t E r r o r ( ) ) ;
}
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - $C=:F8O 0E>48B >A;54=89 >B - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e F i n d L a s t L o t s ( i n t o t y p e )
{
i n t o l d t i c k e t ;
d o u b l e o l d l o t s = 0 ;
t i c k e t = 0 ;
f o r ( i n t c n t = O r d e r s T o t a l ( ) - 1 ; c n t > = 0 ; c n t - - )
{
i f ( O r d e r S e l e c t ( c n t , 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 ( ) & & O r d e r M a g i c N u m b e r ( ) = = M a g i c & & O r d e r T y p e ( ) = = o t y p e )
{
o l d t i c k e t = O r d e r T i c k e t ( ) ;
i f ( o l d t i c k e t > t i c k e t )
{
t i c k e t = o l d t i c k e t ;
o l d l o t s = O r d e r L o t s ( ) ;
}
}
}
}
r e t u r n ( o l d l o t s ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - $C=:F8O 0E>48B &5=C >A;54=53> >B0 - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e F i n d L a s t O r d e r P r i c e ( i n t o t y p e )
{
i n t o l d t i c k e t ;
d o u b l e o l d o p e n p r i c e = 0 ;
t i c k e t = 0 ;
f o r ( i n t c n t = O r d e r s T o t a l ( ) - 1 ; c n t > = 0 ; c n t - - )
{
i f ( O r d e r S e l e c t ( c n t , 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 ( ) & & O r d e r M a g i c N u m b e r ( ) = = M a g i c & & O r d e r T y p e ( ) = = o t y p e )
{
o l d t i c k e t = O r d e r T i c k e t ( ) ;
i f ( o l d t i c k e t > t i c k e t )
{
t i c k e t = o l d t i c k e t ;
o l d o p e n p r i c e = O r d e r O p e n P r i c e ( ) ;
}
}
}
}
r e t u r n ( o l d o p e n p r i c e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - $C=:F8O 0E>48B "8? >A;54=53> @45@0 - - - - - - - - - - - - - - - - - - - - - - - - +
i n t F i n d L a s t O r d e r T y p e ( )
{
i n t o r d e r _ t y p e = - 1 ;
i n t o l d t i c k e t n u m b e r = 0 ;
i n t t i c k e t n u m b e r = 0 ;
f o r ( i n t c n t = O r d e r s T o t a l ( ) - 1 ; c n t > = 0 ; c n t - - )
{
i f ( O r d e r S e l e c t ( c n t , 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 ( ) & & O r d e r M a g i c N u m b e r ( ) = = M a g i c )
{
o l d t i c k e t n u m b e r = O r d e r T i c k e t ( ) ;
i f ( o l d t i c k e t n u m b e r > t i c k e t n u m b e r )
{
o r d e r _ t y p e = O r d e r T y p e ( ) ;
t i c k e t n u m b e r = o l d t i c k e t n u m b e r ;
}
}
}
}
r e t u r n ( o r d e r _ t y p e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - $C=:F8O ">@3>2;8 - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t C o u n t T r a d e s ( )
{
i n t c o u n t = 0 ;
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; 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 , 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 ( ) & & O r d e r M a g i c N u m b e r ( ) = = M a g i c )
i f ( O r d e r T y p e ( ) = = O P _ B U Y S T O P | | O r d e r T y p e ( ) = = O P _ S E L L S T O P )
c o u n t + + ;
}
}
r e t u r n ( c o u n t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - $C=:F8O ;O !>740=8O 8=88 57C1KB:0 - - - - - - - - - - - - - - - - - +
v o i d S e t H L i n e ( c o l o r , s t r i n g n m = " " , d o u b l e p 1 = 0 , i n t s t = 0 , i n t w d = 1 ) / / !>740Q< 8 2K=>A8< =0 3@0D8: 8=8N 57C1KB:0
{
i f ( n m = = " " ) n m = D o u b l e T o S t r ( T i m e [ 0 ] , 0 ) ;
i f ( p 1 < = 0 ) p 1 = B i d ;
i f ( O b j e c t F i n d ( n m ) < 0 ) O b j e c t C r e a t e ( n m , O B J _ H L I N E , 0 , 0 , 0 ) ;
O b j e c t S e t ( n m , O B J P R O P _ P R I C E 1 , p 1 ) ;
O b j e c t S e t ( n m , O B J P R O P _ C O L O R , &25B_ 8=88_ 57C1KB:0) ;
O b j e c t S e t ( n m , O B J P R O P _ S T Y L E , s t ) ;
O b j e c t S e t ( n m , O B J P R O P _ W I D T H , w d ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - $C=:F8O 2>72@0I05B =C6=K9 F25B - - - - - - - - - - - - - - - - - - - - - - - - - +
c o l o r C o l o r ( b o o l P e r e m e n n a j a , c o l o r C w e t 1 , c o l o r C w e t 2 )
{
i f ( P e r e m e n n a j a ) r e t u r n ( C w e t 1 ) ;
e l s e
r e t u r n ( C w e t 2 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - 03>B>2:0 4;O A>740=8O B5:AB>2>3> >1J5:B0 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 O r d e r I n f o = " 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 _ R I G H T _ 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
{
R e s e t L a s t E r r o r ( ) ;
i f ( ! O b j e c t C r e a t e ( c h a r t _ I D , O r d e r I n f o , 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 , O r d e r I n f o , 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 , O r d e r I n f o , 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 , O r d e r I n f o , 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 , O r d e r I n f o , 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 , O r d e r I n f o , 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 , O r d e r I n f o , 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 , O r d e r I n f o , 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 , O r d e r I n f o , 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 , O r d e r I n f o , 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 , O r d e r I n f o , 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 , O r d e r I n f o , 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 ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / !>740Q< :=>?:C |
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 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 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 _ L O W 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 , 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 ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / !>740Q< ?;>I04:C |
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 = 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 _ L O W 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 - 8 ) ;
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 + 2 7 2 ) ;
r e t u r n ( t r u e ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / !>740Q< ?>;5 22>40 |
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 i n t x = 0 , / / :>>@48=0B0 ?> >A8 X
c o n s t i n t 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 _ L O W 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 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 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 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 ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - $C=:F8O 4;O C40;5=8O !% >1J5:B>2 A 3@0D8:0 - - - - - - - - - - - - - - - - - +
v o i d C h i s t k a ( )
{
f o r ( i n t i = 0 ; i < = 2 ; i + + )
{
O b j e c t s D e l e t e A l l ( i , O B J _ V L I N E ) ; / / 5@B8:0;L=0O ;8=8O
O b j e c t s D e l e t e A l l ( i , O B J _ H L I N E ) ; / / >@87>=B0;L=0O ;8=8O
O b j e c t s D e l e t e A l l ( i , O B J _ T R E N D ) ; / / "@5=4>20O ;8=8O
O b j e c t s D e l e t e A l l ( i , O B J _ T R E N D B Y A N G L E ) ; / / "@5=4>20O ;8=8O ?> C3;C
O b j e c t s D e l e t e A l l ( i , O B J _ C Y C L E S ) ; / / &8:;8G5A:85 ;8=88
O b j e c t s D e l e t e A l l ( i , O B J _ C H A N N E L ) ; / / 02=>C40;5==K9 :0=0;
O b j e c t s D e l e t e A l l ( i , O B J _ S T D D E V C H A N N E L ) ; / / 0=0; AB0=40@B=>3> >B:;>=5=8O
O b j e c t s D e l e t e A l l ( i , O B J _ R E G R E S S I O N ) ; / / 0=0; =0 ;8=59=>9 @53@5AA88
O b j e c t s D e l e t e A l l ( i , O B J _ P I T C H F O R K ) ; / / 8;K -=4@NA0
O b j e c t s D e l e t e A l l ( i , O B J _ G A N N L I N E ) ; / / 8=8O 0==0
O b j e c t s D e l e t e A l l ( i , O B J _ G A N N F A N ) ; / / 55@ 0==0
O b j e c t s D e l e t e A l l ( i , O B J _ G A N N G R I D ) ; / / !5B:0 0==0
O b j e c t s D e l e t e A l l ( i , O B J _ F I B O ) ; / / #@>2=8 $81>=0GG8
O b j e c t s D e l e t e A l l ( i , O B J _ F I B O T I M E S ) ; / / @5<5==K5 7>=K $81>=0GG8
O b j e c t s D e l e t e A l l ( i , O B J _ F I B O F A N ) ; / / 55@ $81>=0GG8
O b j e c t s D e l e t e A l l ( i , O B J _ F I B O A R C ) ; / / C38 $81>=0GG8
O b j e c t s D e l e t e A l l ( i , O B J _ F I B O C H A N N E L ) ; / / 0=0; $81>=0GG8
O b j e c t s D e l e t e A l l ( i , O B J _ E X P A N S I O N ) ; / / 0AH8@5=85 $81>=0GG8
O b j e c t s D e l e t e A l l ( i , O B J _ R E C T A N G L E ) ; / / @O<>C3>;L=8:
O b j e c t s D e l e t e A l l ( i , O B J _ T R I A N G L E ) ; / / "@5C3>;L=8:
O b j e c t s D e l e t e A l l ( i , O B J _ E L L I P S E ) ; / / -;;8?A
O b j e c t s D e l e t e A l l ( i , O B J _ A R R O W _ T H U M B _ D O W N ) ; / / =0: " ;>E>" ( 1>;LH>9 ?0;5F 2=87)
O b j e c t s D e l e t e A l l ( i , O B J _ A R R O W _ T H U M B _ U P ) ; / / =0: " %>@>H>" ( 1>;LH>9 ?0;5F 225@E)
O b j e c t s D e l e t e A l l ( i , O B J _ A R R O W _ U P ) ; / / =0: " !B@5;:0 225@E"
O b j e c t s D e l e t e A l l ( i , O B J _ A R R O W _ D O W N ) ; / / =0: " !B@5;:0 2=87"
O b j e c t s D e l e t e A l l ( i , O B J _ A R R O W _ S T O P ) ; / / =0: " !B>?"
O b j e c t s D e l e t e A l l ( i , O B J _ A R R O W _ C H E C K ) ; / / =0: " B8G:0" ( 30;:0)
O b j e c t s D e l e t e A l l ( i , O B J _ A R R O W _ L E F T _ P R I C E ) ; / / 520O F5=>20O <5B:0
O b j e c t s D e l e t e A l l ( i , O B J _ A R R O W _ R I G H T _ P R I C E ) ; / / @020O F5=>20O <5B:0
O b j e c t s D e l e t e A l l ( i , O B J _ A R R O W _ B U Y ) ; / / =0: " B u y "
O b j e c t s D e l e t e A l l ( i , O B J _ A R R O W _ S E L L ) ; / / =0: " S e l l "
O b j e c t s D e l e t e A l l ( i , O B J _ A R R O W ) ; / / 1J5:B " !B@5;:0"
O b j e c t s D e l e t e A l l ( i , O B J _ T E X T ) ; / / 1J5:B " "5:AB"
O b j e c t s D e l e t e A l l ( i , O B J _ L A B E L ) ; / / 1J5:B " "5:AB>20O <5B:0"
/ / O b j e c t s D e l e t e A l l ( i , O B J _ B U T T O N ) ; / / 1J5:B " =>?:0"
O b j e c t s D e l e t e A l l ( i , O B J _ B I T M A P ) ; / / 1J5:B " 8AC=>:"
O b j e c t s D e l e t e A l l ( i , O B J _ B I T M A P _ L A B E L ) ; / / 1J5:B " @0D8G5A:0O <5B:0"
/ / O b j e c t s D e l e t e A l l ( i , O B J _ E D I T ) ; / / 1J5:B " >;5 22>40"
O b j e c t s D e l e t e A l l ( i , O B J _ E V E N T ) ; / / 1J5:B " !>1KB85" , A>>B25BAB2CNI89 A>1KB8N 2 M:>=><8G5A:>< :0;5=40@5
/ / O b j e c t s D e l e t e A l l ( i , O B J _ R E C T A N G L E _ L A B E L ) ; / / 1J5:B " @O<>C3>;L=0O <5B:0" 4;O A>740=8O 8 >D>@<;5=8O ?>;L7>20B5;LA:>3> 3@0D8G5A:>3> 8=B5@D59A0.
}
P r i n t ( " #40;ON 2A5 3@0D8G5A:85 >1J5:BK A 3@0D8:0" ) ;
}
/ / + - - - - - - - - - - - - - - - - - - $C=:F8O 4;O C40;5=8O >1J5:B>2 A 3@0D8:0 - - - - - - - - - - - - - - - - - +
v o i d D e l e t e L a b e l s ( )
/ / - - - - - @>?8AK205< 2A5 >1J5:BK 4;O C40;5=8O A 3@0D8:0 - - - - -
{
O b j e c t D e l e t e ( " C;52>9_ >1J5:B1 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B2 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B3 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B5 " ) ;
O b j e c t D e l e t e ( " C;52>9_ >1J5:B6 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B7 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B8 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B9 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B1 0 " ) ;
O b j e c t D e l e t e ( " C;52>9_ >1J5:B1 1 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B1 2 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B1 3 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B1 4 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B1 5 " ) ;
O b j e c t D e l e t e ( " C;52>9_ >1J5:B1 6 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B1 7 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B1 8 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B1 9 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B2 0 " ) ;
O b j e c t D e l e t e ( " C;52>9_ >1J5:B2 1 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B2 2 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B2 3 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B2 4 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B2 5 " ) ;
O b j e c t D e l e t e ( " C;52>9_ >1J5:B2 6 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B2 7 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B2 8 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B2 9 " ) ; ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B3 0 " ) ;
O b j e c t D e l e t e ( " C;52>9_ >1J5:B3 1 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B3 2 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B3 3 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B3 4 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B3 5 " ) ;
O b j e c t D e l e t e ( " C;52>9_ >1J5:B3 6 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B3 7 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B3 8 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B3 9 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 0 " ) ;
O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 1 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 2 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 3 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 4 " ) ; O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 5 " ) ;
O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 6 " ) ;
O b j e c t D e l e t e ( " H A L F _ A D R _ 5 _ D A Y _ H I G H " ) ; O b j e c t D e l e t e ( " H A L F _ A D R _ 5 _ D A Y _ L O W " ) ; O b j e c t D e l e t e ( " F U L L _ A D R _ 5 _ D A Y _ H I G H " ) ; O b j e c t D e l e t e ( " F U L L _ A D R _ 5 _ D A Y _ L O W " ) ; O b j e c t D e l e t e ( " " ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " b u y " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " s e l l " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " c l o s e _ b u y " , I D ) ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " c l o s e _ s e l l " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " ;>I04:0" , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " ">@3 :=>?:0<8" , I D ) ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " 0@60" , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " 8=. AB>?K" , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " >B06" , I D ) ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " 0@601 " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " 8=. AB>?K1 " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " >B061 " , I D ) ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " 0@B8=" , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " 0@B8=1 " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " M a g i k " , I D ) ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " M a g i k 1 " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " (03 "@0;;" , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " (03 "@0;;1 " , I D ) ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " (03 #A@" , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " (03 #A@1 " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " / #" , I D ) ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " / #1 " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " "@0;;" , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " "@0;;1 " , I D ) ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " !B>?" , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " S L / T P " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " "59:" , I D ) ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " C l o s e " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " >B ?> @K=:C" , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " >B B u y S e l l S t o p " , I D ) ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " >B B u y S e l l L i m i t " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " B u y S t o p " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " S e l l S t o p " , I D ) ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " B u y L i m i t " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " S e l l L i m i t " , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " BABC?" , I D ) ) ;
O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " BABC? 4;O >B;>65:" , I D ) ) ; O b j e c t D e l e t e ( 0 , S t r i n g C o n c a t e n a t e ( " '8AB:0" , I D ) ) ; O b j e c t D e l e t e ( " O r d e r I n f o " ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - $C=:F88 C40;5=8O A830;>2 A 3@0D8:0 - - - - - - - - - - - - - - - - - - - - - - +
v o i d D e l e t e S i g n a l B u y M A ( )
{
O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 1 " ) ;
}
v o i d D e l e t e S i g n a l S e l l M A ( )
{
O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 2 " ) ;
}
v o i d D e l e t e S i g n a l B u y F u l l A D R ( )
{
O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 3 " ) ;
}
v o i d D e l e t e S i g n a l S e l l F u l l A D R ( )
{
O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 4 " ) ;
}
v o i d D e l e t e S i g n a l B u y H a l f A D R ( )
{
O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 5 " ) ;
}
v o i d D e l e t e S i g n a l S e l l H a l f A D R ( )
{
O b j e c t D e l e t e ( " C;52>9_ >1J5:B4 6 " ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - $ ( - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - / /
Comments
Markdown Formatting Guide
# H1## H2
### H3
**bold text***italicized text*[title](https://www.example.com)`code````code block
```
> blockquote- Item 1- Item 2
1. First item2. Second item
---