0
Views
0
Downloads
0
Favorites
NoNonsenseTester
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | P r o j e c t N a m e |
/ / | C o p y r i g h t 2 0 1 8 , C o m p a n y N a m e |
/ / | h t t p : / / w w w . c o m p a n y n a m e . n e t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# p r o p e r t y s h o w _ i n p u t s
# p r o p e r t y c o p y r i g h t " K a r e l N a g e l "
# p r o p e r t y v e r s i o n " 3 . 0 "
# p r o p e r t y d e s c r i p t i o n " E A , t h a t m a k e s t e s t i n g y o u r N N F X a l g o s o m u c h f a s t e r ! "
# p r o p e r t y s t r i c t
e n u m i n d i c a t o r
{
o f f , m o s t 0 L i n e s , m o s t 2 L i n e s , m o s t 2 L i n e s O p p o s i t e , m o s t B a s e l i n e s , A r o o n , A S H , F S S , S S L , K u s k u s , S R C , C H V , W A E , W A E V o l u m e , K i j u n , M A , T 3 , T S I , S c h a f f , R V I , M A C D , M A C D 0 , D P O , C C I , A w e s o m e , D I D I , I c h i m o k u , R S X , Q Q E , a , b , c , d , e , f , g , C u s t o m 1 , C u s t o m 2
} ;
s t r i n g i n d i c a t o r N a m e [ ] = { " " , " " , " " , " " , " " , " A r o o n " , " A S H " , " F S S " , " S S L " , " K u s k u s " , " S R C " , " C H V " , " W A E " , " W A E " , " K i j u n " , " M A " , " T 3 " , " T S I " , " S c h a f f " , " R V I " , " M A C D " , " M A C D " , " D P O " , " C C I " , " A w e s o m e " , " D I D I " , " I c h i m o k u " , " R S X " , " Q Q E " , " " , " " , " " , " " , " " , " " , " " , " " , " " } ;
i n t b u f f e r 1 [ ] = { 0 , 0 , 0 , 1 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 2 , 3 , 2 , 3 , 1 , 2 , N U L L , N U L L } ;
i n t b u f f e r 2 [ ] = { 0 , 1 , 1 , 0 , 1 , 0 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 0 , 1 , 1 , 1 , 1 , 1 , 2 , 1 , 1 , 1 , 0 , 0 , 0 , 3 , 2 , 2 , 1 , N U L L , N U L L } ;
d o u b l e b u f f e r 3 [ ] = { 0 , 0 , 2 , 2 , 2 , 2 , 2 , 0 , 2 , 0 , 0 , 0 , 2 , 2 , 2 , 2 , 2 , 0 , 2 , 2 , 2 , 0 , 0 , 0 , 2 , 1 , 2 , 2 , 5 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , N U L L , N U L L } ;
i n t t y p e [ ] = { 0 , 0 , 1 , 1 , 4 , 1 , 2 , 0 , 1 , 0 , 0 , 0 , 6 , 7 , 4 , 4 , 1 , 0 , 3 , 1 , 1 , 0 , 0 , 0 , 3 , 1 , 1 , 8 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 1 , N U L L , N U L L } ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t s i g n a l ( b o o l s e t t i n g s , s t r i n g n a m e , i n t t y p e 2 , i n t f i r s t , i n t s e c o n d , d o u b l e t h i r d , i n t c a n d l e )
{
i f ( f i r s t > = 0 ) o n e = i n d i c a t o r V a l u e ( s e t t i n g s , n a m e , f i r s t , c a n d l e ) ;
i f ( s e c o n d > = 0 ) t w o = i n d i c a t o r V a l u e ( s e t t i n g s , n a m e , s e c o n d , c a n d l e ) ;
i f ( t h i r d > = 0 ) t h r e e = i n d i c a t o r V a l u e ( s e t t i n g s , n a m e , t h i r d , c a n d l e ) ;
i f ( f i r s t > = 0 ) l a s t O n e = i n d i c a t o r V a l u e ( s e t t i n g s , n a m e , f i r s t , c a n d l e + 1 ) ;
s w i t c h ( t y p e 2 )
{
c a s e 0 : / / Z e r o c r o s s
i f ( o n e < t h i r d )
{
r e t u r n ( - 1 ) ;
}
e l s e i f ( o n e > t h i r d )
{
r e t u r n ( 1 ) ;
}
e l s e
{
r e t u r n ( 0 ) ;
}
b r e a k ;
c a s e 1 : / / M o s t t w o l i n e c r o s s
i f ( o n e < t w o )
{
r e t u r n ( 1 ) ;
}
e l s e i f ( o n e > t w o )
{
r e t u r n ( - 1 ) ;
}
e l s e
{
r e t u r n ( 0 ) ;
}
b r e a k ;
c a s e 2 : / / A S H
i f ( o n e > 0 )
{
r e t u r n ( 1 ) ;
}
e l s e i f ( t w o > 0 )
{
r e t u r n ( - 1 ) ;
}
e l s e
{
r e t u r n ( 0 ) ;
}
b r e a k ;
c a s e 3 : / / A O
i f ( o n e < l a s t O n e )
{
r e t u r n ( - 1 ) ;
}
e l s e i f ( o n e > l a s t O n e )
{
r e t u r n ( 1 ) ;
}
e l s e
{
r e t u r n ( 0 ) ;
}
b r e a k ;
c a s e 4 : / / M o v i n g a v e r a g e s
i f ( o n e < i C l o s e ( s y m b o l , p e r i o d , c a n d l e ) )
{
r e t u r n ( 1 ) ;
}
e l s e i f ( o n e > i C l o s e ( s y m b o l , p e r i o d , c a n d l e ) )
{
r e t u r n ( - 1 ) ;
}
e l s e
{
r e t u r n ( 0 ) ;
}
b r e a k ;
c a s e 5 : / / L i n e s
i f ( o n e = = 1 )
{
r e t u r n ( 1 ) ;
}
e l s e i f ( t w o = = 1 )
{
r e t u r n ( - 1 ) ;
}
e l s e
{
r e t u r n ( 0 ) ;
}
b r e a k ;
c a s e 6 : / / W A E
i f ( o n e > t h r e e )
{
r e t u r n ( 1 ) ;
}
e l s e i f ( t w o > t h r e e )
{
r e t u r n ( - 1 ) ;
}
e l s e
{
r e t u r n ( 0 ) ;
}
b r e a k ;
c a s e 7 : / / W A E v o l u m e
i f ( o n e > t h r e e | | t w o > t h r e e )
{
r e t u r n ( 1 ) ;
}
e l s e
{
r e t u r n ( - 1 ) ;
}
b r e a k ;
c a s e 8 : / / R S X
i f ( o n e ! = 0 )
{
r e t u r n ( 1 ) ;
}
e l s e i f ( t w o ! = 0 )
{
r e t u r n ( - 1 ) ;
}
e l s e
{
r e t u r n ( 0 ) ;
}
b r e a k ;
c a s e 9 : / / L e v e l c r o s s
i f ( o n e < - t h i r d )
{
r e t u r n ( - 1 ) ;
}
e l s e i f ( o n e > t h i r d )
{
r e t u r n ( 1 ) ;
}
e l s e
{
r e t u r n ( 0 ) ;
}
b r e a k ;
c a s e 1 0 : / / N U L L
i f ( o n e ! = E M P T Y _ V A L U E )
{
r e t u r n ( - 1 ) ;
}
e l s e i f ( t w o ! = E M P T Y _ V A L U E )
{
r e t u r n ( 1 ) ;
}
e l s e
{
r e t u r n ( 0 ) ;
}
b r e a k ;
c a s e 1 1 :
i f ( o n e > s e c o n d ) r e t u r n ( 1 ) ;
e l s e i f ( o n e < t h i r d ) r e t u r n ( - 1 ) ;
e l s e r e t u r n ( 0 ) ;
b r e a k ;
d e f a u l t :
r e t u r n ( 0 ) ;
b r e a k ;
}
}
e n u m B T t y p e s
{
c u r r e n t S y m b o l T F = 1 , / / C u r r e n t s y m b o l
a l l S y m b o l s = 2 8 , / / A l l 2 8 s y m b o l s
a l l S y m b o l s 2 = 2 9 , / / A l l s y m b o l s t h a t a r e s e l e c t e d i n m a r k e t w a t c h
c S y m b o l s = 1 0 0 , / / C u s t o m s y m b o l s
/ / E U R U S D / A U D U S D / U S D J P Y / U S D C H F / G B P U S D / U S D C A D / N Z D U S D / E U R C H F / E U R G B P / E U R J P Y / E U R C A D / E U R A U D / G B P C H F / G B P J P Y / C H F J P Y / A U D C A D / G B P A U D / E U R N Z D / A U D N Z D / C A D J P Y / N Z D C H F / A U D J P Y / N Z D C A D / G B P C A D / G B P N Z D / N Z D J P Y / C A D C H F / A U D C H F
} ;
e n u m e x t r a E
{
e x t r a B a s e l i n e = 0 , / / B a s e l i n e
e x t r a C o n f i r m a t i o n = 1 , / / C o n f i r m a t i o n
e x t r a V o l u m e = 2 , / / V o l u m e
e x t r a V o l u m e D i r e c t i o n = 3 , / / V o l u m e w i t h d i r e c t i o n
} ;
e n u m o n o f f
{
O f f 2 = 0 , / / O f f
O n = 1 ,
} ;
e n u m y e a r l y
{
B a l a n c e = 0 ,
D D B a l a n c e = 1 , / / D r a w d o w n b a l a n c e
} ;
e n u m d S
{
D e f a u l t ,
i n p u t s , / / U s e r i n p u t s
} ;
e n u m b a s e d O n
{
a l l , / / S h o w s a l l , b u t a p p l i e s h i g h e s t b a l a n c e
b a l a n c e 2 , / / H i g h e s t b a l a n c e
d r a w d o w n , / / L o w e s t d r a w d o w n
p r o f i t T r a d e s , / / P r o f i t t r a d e s
T P T r a d e s , / / T P t r a d e s
f e w e s t T r a d e s , / / F e w e s t t r a d e s
m o s t T r a d e s , / / M o s t t r a d e s
o f f 2 / / O f f
} ;
b o o l c l o s e d , t s M o d i f i e d , b u y C o n t i n u a t i o n [ 1 0 0 ] , s e l l C o n t i n u a t i o n [ 1 0 0 ] , s e e k , o r d e r C l o s e d [ 1 0 0 0 0 0 ] , n e w s , a l r e a d y H a s O r d e r , e n d ;
d o u b l e t i m e I n Y e a r s , r e s u l t , p i p s , r e s u l t D r a w d o w n , f a c t o r P r o f i t , f a c t o r L o s s , p r o f i t F a c t o r [ 1 0 0 0 0 0 ] , A T R , L o t , o n e , t w o , t h r e e , l a s t O n e , b a s e l i n e V a l u e , a c c o u n t B a l a n c e , p r i c e , p r i c e 2 , o S t a r t [ 7 ] , t p 2 = N U L L , e x t r a V a l u e , k , o S t e p [ 7 ] , o S t o p [ 7 ] , o B e s t [ 7 ] , o r d e r L o t s [ 1 0 0 0 0 0 ] , o r d e r T a k e P r o f i t [ 1 0 0 0 0 0 ] , o r d e r S t o p L o s s [ 1 0 0 0 0 0 ] , o r d e r O p e n P r i c e [ 1 0 0 0 0 0 ] , o r d e r C l o s e P r i c e [ 1 0 0 0 0 0 ] , o r d e r C o m m e n t [ 1 0 0 0 0 0 ] , o r d e r B a l a n c e [ 1 0 0 0 0 0 ] , o r d e r P r o f i t [ 1 0 0 0 0 0 ] , h i g h e s t B a l a n c e , l o w e s t B a l a n c e , n e w D D , D D m a x , D D m i n , E T A , s t a r t B a l a n c e , h i g h , l o w , e v z = 1 , g o o d E n o u g h [ 1 0 0 0 0 0 ] , b a l a n c e B e s t [ 1 0 0 0 0 0 ] , d r a w d o w n B e s t [ 1 0 0 0 0 0 ] , r p 2 [ 1 0 0 0 0 0 ] , d d B a l a n c e B e s t [ 1 0 0 0 0 0 ] , p r o f i t B e s t [ 1 0 0 0 0 0 ] , T P B e s t [ 1 0 0 0 0 0 ] , t o t a l B e s t [ 1 0 0 0 0 0 ] , y e a r l y P e r c e n t [ 1 0 0 0 0 0 ] ;
i n t f i l e R e s u l t s , f i l e R e p o r t , r e s u l t T P , r e s u l t P r o f i t , b a s e l i n e , c o n f i r m a t i o n 1 , c o n f i r m a t i o n 2 , s y m b o l O r d e r s , B T , m ,
e x i t , v o l u m e , l a s t B a s e l i n e , l a s t C o n f i r m a t i o n 1 , l a s t C o n f i r m a t i o n 2 , l a s t E x i t , l a s t V o l u m e , t i c k e t 1 , t i c k e t 2 , i , b a r , p e r i o d = P e r i o d ( ) , p r o g r e s s , a l l P r o g r e s s , o r d e r s T o t a l = 0 , o C y c l e s [ 7 ] , o r d e r T y p e [ 1 0 0 0 0 0 ] , o r d e r P e r i o d [ 1 0 0 0 0 0 ] , b e s t , l ;
i n t s t a r t B a r s [ 2 8 ] , t e s t = 1 , s y m b o l s C o u n t , e x t r a , l a s t E x t r a ;
s t r i n g s y m b o l = S y m b o l ( ) , c u s t o m S y m b o l s A r r a y [ 1 0 0 ] , l i n e N a m e , s e t t i n g s B e s t [ 1 0 0 0 0 0 ] , o S e t t i n g s [ 7 ] , o r d e r S y m b o l [ 1 0 0 0 0 0 ] , o r d e r C l o s e R e a s o n [ 1 0 0 0 0 0 ] , p r o g r e s s B a r , f i r s t H a l f = S t r i n g S u b s t r ( S y m b o l ( ) , 0 , 3 ) , s e c o n d H a l f = S t r i n g S u b s t r ( S y m b o l ( ) , 3 , 3 ) ;
d a t e t i m e t i m e , o r d e r O p e n T i m e [ 1 0 0 0 0 0 ] , o r d e r C l o s e T i m e [ 1 0 0 0 0 0 ] , c u r r e n t T i m e ;
s t r i n g s y m b o l s [ ] = { " A U D C A D " , " A U D C H F " , " A U D J P Y " , " A U D N Z D " , " A U D U S D " , " C A D C H F " , " C A D J P Y " , " C H F J P Y " , " E U R A U D " , " E U R C A D " , " E U R C H F " , " E U R G B P " , " E U R J P Y " , " E U R N Z D " , " E U R U S D " , " G B P A U D " , " G B P C A D " , " G B P C H F " , " G B P J P Y " , " G B P N Z D " , " G B P U S D " , " N Z D C A D " , " N Z D C H F " , " N Z D J P Y " , " N Z D U S D " , " U S D C A D " , " U S D C H F " , " U S D J P Y " } ;
s t r i n g p a i r s [ 1 0 0 ] ;
u s h o r t d i v i d e = S t r i n g G e t C h a r a c t e r ( " / " , 0 ) ;
b o o l m o n e y B a c k M e s s a g e s = t r u e ;
i n p u t s t r i n g a 1 = " - - - - - - - - - - - - - - - E A S e t t i n g s - - - - - - - - - - - - - - - " ; / / .
i n t m a g i c N u m b e r = 6 9 ; / / M a g i c n u m b e r
b o o l c h e c k F o r S a m e C u r r e n c y O r d e r s = t r u e ; / / C h e c k i f a l r e a d y h a s o r d e r s w i t h s a m e c u r r e n c y
e x t e r n b o o l s c a l e O u t = t r u e ; / / S c a l i n g o u t [ S O ]
e x t e r n b o o l c o n t i n u a t i o n T r a d e s = t r u e ; / / C o n t i n u a t i o n t r a d e s [ C T ]
e x t e r n b o o l c o n t i n u a t i o n W O P r e v i o u s T r a d e = f a l s e ; / / C o n t i n u a t i o n t r a d e s w i t h o u t p r e v i o u s t r a d e [ C T 2 ]
e x t e r n d o u b l e d i s t a n c e F r o m B L = 1 ; / / D i s t a n c e f r o m b a s e l i n e [ D B ]
e x t e r n d o u b l e r i s k P e r c e n t = 2 ; / / R i s k p e r c e n t [ R P ]
e x t e r n d o u b l e t r a i l i n g S t o p = 1 . 5 ; / / T r a i l i n g s t o p [ T S ]
e x t e r n d o u b l e t r a i l i n g S t a r t = 2 ; / / T r a i l i n g s t o p s t a r t [ T S S ]
e x t e r n d o u b l e s t o p L o s s = 1 . 5 ; / / S t o p l o s s [ S L ]
e x t e r n d o u b l e t a k e P r o f i t = 1 ; / / T a k e p r o f i t [ T P ]
e x t e r n d o u b l e t a k e P r o f i t 2 = 0 ; / / T a k e p r o f i t f o r 2 n d t r a d e [ T P 2 ]
e x t e r n i n t a t r P e r i o d = 1 4 ; / / A T R p e r i o d [ A T R ]
e x t e r n s t r i n g f o l d e r = " n n f x e a " ; / / F o l d e r
i n p u t s t r i n g a 2 = " - - - - - - - - - - - - - - - B T s e t t i n g s - - - - - - - - - - - - - - - " ; / / .
b o o l b a c k t e s t i n g = t r u e ; / / B a c k t e s t i n g
e x t e r n d o u b l e b a l a n c e = 1 0 0 0 0 ; / / B a l a n c e
e x t e r n d o u b l e d d P e r c e n t = 1 0 ; / / D r a w d o w n p e r c e n t
e x t e r n y e a r l y y e a r l y P e r c e n t B a s e d O n = 1 ; / / Y e a r l y % b a s e d o n
e x t e r n i n t s p r e a d = 1 0 ; / / S p r e a d
e x t e r n d o u b l e c o m m i s s i o n = 1 2 3 4 ; / / C o m m i s s i o n
e x t e r n b o o l c s v = t r u e ; / / C S V f i l e
i n p u t B T t y p e s B T T y p e = 1 ; / / B a c k t e s t i n g t y p e
e x t e r n d a t e t i m e B T S t a r t = D ' 0 1 . 0 1 . 2 0 1 0 ' ; / / B a c k t e s t i n g s t a r t t i m e
e x t e r n d a t e t i m e B T S t o p = D ' 0 1 . 0 1 . 2 0 2 1 ' ; / / B a c k t e s t i n g s t o p t i m e
i n p u t s t r i n g a 3 = " - - - - - - - - - - - - - - - O p t i m i z a t i o n s e t t i n g s - - - - - - - - - - - - - - - " ; / / .
i n p u t b o o l o p t i m i z a t i o n = f a l s e ; / / O p t i m i z a t i o n
b a s e d O n b e s t S e t t i n g s B a s e d O n = 0 ; / / B e s t s e t t i n g s b a s e d o n
b o o l a p p l y B e s t S e t t i n g s = t r u e ; / / A f t e r b a c k t e s t i n g a p p l i e s b e s t s e t t i n g s
i n p u t s t r i n g o p t i m i z a t i o n S e t t i n g s = " 0 / 0 / 0 / 0 / 0 / 0 / 0 " ; / / S e t t i n g s t o o p i m i z e
i n p u t s t r i n g o p t i m i z a t i o n S t a r t = " 1 / 1 / 1 / 1 / 1 / 1 / 1 " ; / / S t a r t
i n p u t s t r i n g o p t i m i z a t i o n S t e p = " 1 / 1 / 1 / 1 / 1 / 1 / 1 " ; / / S t e p
i n p u t s t r i n g o p t i m i z a t i o n S t o p = " 1 / 1 / 1 / 1 / 1 / 1 / 1 " ; / / S t o p
i n p u t s t r i n g a 4 = " - - - - - - - - - - - - - - - B a s e l i n e - - - - - - - - - - - - - - - " ; / / .
e x t e r n i n d i c a t o r c h o o s e I n d i c a t o r ; / / C h o o s e i n d i c a t o r
e x t e r n s t r i n g b a s e l i n e N a m e ; / / N a m e
i n t b a s e l i n e T y p e ; / / T y p e
o n o f f t u r n O f f B a s e l i n e ; / / T u r n o n / o f f [ T 1 ]
i n t f i r s t B u f f e r , s e c o n d B u f f e r ;
d o u b l e t h i r d B u f f e r ; / / 3 . b u f f e r
e x t e r n d S d e f a u l t S e t t i n g s = 0 ; / / D e f a u l t s e t t i n g s
e x t e r n d o u b l e S 1 , S 2 , S 3 , S 4 , S 5 , S 6 , S 7 ;
i n p u t s t r i n g a 5 = " - - - - - - - - - - - - - - - C o n f i r m a t i o n 1 - - - - - - - - - - - - - - - " ; / / .
e x t e r n i n d i c a t o r c h o o s e I n d i c a t o r 1 = 0 ; / / C h o o s e i n d i c a t o r
e x t e r n s t r i n g i n d i c a t o r N a m e 1 ; / / N a m e
i n t i n d i c a t o r T y p e 1 ; / / T y p e
i n t f i r s t B u f f e r 1 , s e c o n d B u f f e r 1 ;
d o u b l e t h i r d B u f f e r 1 ; / / 3 . b u f f e r
e x t e r n d S d e f a u l t S e t t i n g s 1 = 0 ; / / D e f a u l t s e t t i n g s
e x t e r n d o u b l e S 8 , S 9 , S 1 0 , S 1 1 , S 1 2 , S 1 3 , S 1 4 ;
i n p u t s t r i n g a 6 = " - - - - - - - - - - - - - - - C o n f i r m a t i o n 2 - - - - - - - - - - - - - - - " ; / / .
e x t e r n i n d i c a t o r c h o o s e I n d i c a t o r 2 ; / / C h o o s e i n d i c a t o r
e x t e r n s t r i n g i n d i c a t o r N a m e 2 ; / / N a m e
i n t i n d i c a t o r T y p e 2 ; / / T y p e
o n o f f t u r n O f f 2 C o n f i m a t i o n ; / / T u r n o n / o f f [ T 2 ]
i n t f i r s t B u f f e r 2 , s e c o n d B u f f e r 2 ;
d o u b l e t h i r d B u f f e r 2 ; / / 3 . b u f f e r
e x t e r n d S d e f a u l t S e t t i n g s 2 = 0 ; / / D e f a u l t s e t t i n g s
e x t e r n d o u b l e S 1 5 , S 1 6 , S 1 7 , S 1 8 , S 1 9 , S 2 0 , S 2 1 ;
i n p u t s t r i n g a 7 = " - - - - - - - - - - - - - - - V o l u m e - - - - - - - - - - - - - - - " ; / / .
e x t e r n b o o l v o l u m e D i r e c t i o n = f a l s e ; / / V o l u m e i n d i c a t o r h a s d i r e c t i o n
e x t e r n i n d i c a t o r c h o o s e I n d i c a t o r 3 ; / / C h o o s e i n d i c a t o r
e x t e r n s t r i n g i n d i c a t o r N a m e 3 ; / / N a m e
i n t i n d i c a t o r T y p e 3 ; / / T y p e
o n o f f t u r n O f f V o l u m e ; / / T u r n o n / o f f [ T 3 ]
i n t f i r s t B u f f e r 3 , s e c o n d B u f f e r 3 ;
d o u b l e t h i r d B u f f e r 3 ; / / 3 . b u f f e r
e x t e r n d S d e f a u l t S e t t i n g s 3 = 0 ; / / D e f a u l t s e t t i n g s
e x t e r n d o u b l e S 2 2 , S 2 3 , S 2 4 , S 2 5 , S 2 6 , S 2 7 , S 2 8 ;
i n p u t s t r i n g a 8 = " - - - - - - - - - - - - - - - E x i t - - - - - - - - - - - - - - - " ; / / .
e x t e r n i n d i c a t o r c h o o s e I n d i c a t o r 4 ; / / C h o o s e i n d i c a t o r
e x t e r n s t r i n g i n d i c a t o r N a m e 4 ; / / N a m e
i n t i n d i c a t o r T y p e 4 ; / / T y p e
o n o f f t u r n O f f E x i t ; / / T u r n o n / o f f [ T 4 ]
i n t f i r s t B u f f e r 4 , s e c o n d B u f f e r 4 ;
d o u b l e t h i r d B u f f e r 4 ; / / 3 . b u f f e r
e x t e r n d S d e f a u l t S e t t i n g s 4 = 0 ; / / D e f a u l t s e t t i n g s
e x t e r n d o u b l e S 2 9 , S 3 0 , S 3 1 , S 3 2 , S 3 3 , S 3 4 , S 3 5 ;
i n p u t s t r i n g a 9 = " - - - - - - - - - - - - - - - E x t r a i n d i c a t o r - - - - - - - - - - - - - - - " ; / / .
i n p u t e x t r a E e x t r a T y p e ; / / E x t r a i n d i c a t o r t y p e
e x t e r n i n d i c a t o r c h o o s e I n d i c a t o r 5 ; / / C h o o s e i n d i c a t o r
e x t e r n s t r i n g i n d i c a t o r N a m e 5 ; / / N a m e
i n t i n d i c a t o r T y p e 5 ; / / T y p e
o n o f f t u r n O f f E x t r a ; / / T u r n o n / o f f [ T 5 ]
i n t f i r s t B u f f e r 5 , s e c o n d B u f f e r 5 ;
d o u b l e t h i r d B u f f e r 5 ; / / 3 . b u f f e r
e x t e r n d S d e f a u l t S e t t i n g s 5 = 0 ; / / D e f a u l t s e t t i n g s
e x t e r n d o u b l e S 3 6 , S 3 7 , S 3 8 , S 3 9 , S 4 0 , S 4 1 , S 4 2 ;
i n p u t s t r i n g a 1 0 = " - - - - - - - - - - - - - - - C u s t o m - - - - - - - - - - - - - - - " ; / / .
i n p u t s t r i n g c u s t o m 1 = " f i r s t B u f f e r / s e c o n d B u f f e r / t h i r d B u f f e r / t y p e " ; / / C u s t o m b u f f e r 1
i n p u t s t r i n g c u s t o m 2 = " f i r s t B u f f e r / s e c o n d B u f f e r / t h i r d B u f f e r / t y p e " ; / / C u s t o m b u f f e r 2
e x t e r n s t r i n g c u s t o m S y m b o l s = " E U R U S D / U S D C A D " ; / / C u s t o m s y m b o l s
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e o p t i m i z i n g ( i n t c y c l e , i n t s t e p , d o u b l e b e s t S e t t i n g = N U L L )
{
i f ( o p t i m i z a t i o n = = t r u e )
{
s t r i n g a s d = o S e t t i n g s [ c y c l e ] ;
d o u b l e v a l u e ;
i f ( b e s t S e t t i n g = = N U L L )
v a l u e = d o u b l e ( o S t a r t [ c y c l e ] + ( s t e p * o S t e p [ c y c l e ] ) ) ;
e l s e
v a l u e = b e s t S e t t i n g ;
i f ( a s d = = " 0 " | | a s d = = " 1 " )
o C y c l e s [ c y c l e ] = 1 ;
e l s e i f ( a s d = = " S 1 " )
S 1 = v a l u e ;
e l s e i f ( a s d = = " S 2 " )
S 2 = v a l u e ;
e l s e i f ( a s d = = " S 3 " )
S 3 = v a l u e ;
e l s e i f ( a s d = = " S 4 " )
S 4 = v a l u e ;
e l s e i f ( a s d = = " S 5 " )
S 5 = v a l u e ;
e l s e i f ( a s d = = " S 6 " )
S 6 = v a l u e ;
e l s e i f ( a s d = = " S 7 " )
S 7 = v a l u e ;
e l s e i f ( a s d = = " S 8 " )
S 8 = v a l u e ;
e l s e i f ( a s d = = " S 9 " )
S 9 = v a l u e ;
e l s e i f ( a s d = = " S 1 0 " )
S 1 0 = v a l u e ;
e l s e i f ( a s d = = " S 1 1 " )
S 1 1 = v a l u e ;
e l s e i f ( a s d = = " S 1 2 " )
S 1 2 = v a l u e ;
e l s e i f ( a s d = = " S 1 3 " )
S 1 3 = v a l u e ;
e l s e i f ( a s d = = " S 1 4 " )
S 1 4 = v a l u e ;
e l s e i f ( a s d = = " S 1 5 " )
S 1 5 = v a l u e ;
e l s e i f ( a s d = = " S 1 6 " )
S 1 6 = v a l u e ;
e l s e i f ( a s d = = " S 1 7 " )
S 1 7 = v a l u e ;
e l s e i f ( a s d = = " S 1 8 " )
S 1 8 = v a l u e ;
e l s e i f ( a s d = = " S 1 9 " )
S 1 9 = v a l u e ;
e l s e i f ( a s d = = " S 2 0 " )
S 2 0 = v a l u e ;
e l s e i f ( a s d = = " S 2 1 " )
S 2 1 = v a l u e ;
e l s e i f ( a s d = = " S 2 2 " )
S 2 2 = v a l u e ;
e l s e i f ( a s d = = " S 2 3 " )
S 2 3 = v a l u e ;
e l s e i f ( a s d = = " S 2 4 " )
S 2 4 = v a l u e ;
e l s e i f ( a s d = = " S 2 5 " )
S 2 5 = v a l u e ;
e l s e i f ( a s d = = " S 2 6 " )
S 2 6 = v a l u e ;
e l s e i f ( a s d = = " S 2 7 " )
S 2 7 = v a l u e ;
e l s e i f ( a s d = = " S 2 8 " )
S 2 8 = v a l u e ;
e l s e i f ( a s d = = " S 2 9 " )
S 2 9 = v a l u e ;
e l s e i f ( a s d = = " S 3 0 " )
S 3 0 = v a l u e ;
e l s e i f ( a s d = = " S 3 1 " )
S 3 1 = v a l u e ;
e l s e i f ( a s d = = " S 3 2 " )
S 3 2 = v a l u e ;
e l s e i f ( a s d = = " S 3 3 " )
S 3 3 = v a l u e ;
e l s e i f ( a s d = = " S 3 4 " )
S 3 4 = v a l u e ;
e l s e i f ( a s d = = " S 3 5 " )
S 3 5 = v a l u e ;
e l s e i f ( a s d = = " S 3 6 " )
S 3 6 = v a l u e ;
e l s e i f ( a s d = = " S 3 7 " )
S 3 7 = v a l u e ;
e l s e i f ( a s d = = " S 3 8 " )
S 3 8 = v a l u e ;
e l s e i f ( a s d = = " S 3 9 " )
S 3 9 = v a l u e ;
e l s e i f ( a s d = = " S 4 0 " )
S 4 0 = v a l u e ;
e l s e i f ( a s d = = " S 4 1 " )
S 4 1 = v a l u e ;
e l s e i f ( a s d = = " S 4 2 " )
S 4 2 = v a l u e ;
e l s e i f ( a s d = = " A T R " )
a t r P e r i o d = i n t ( v a l u e ) ;
e l s e i f ( a s d = = " R P " )
r i s k P e r c e n t = v a l u e ;
e l s e i f ( a s d = = " D B " )
d i s t a n c e F r o m B L = v a l u e ;
e l s e i f ( a s d = = " S L " )
s t o p L o s s = v a l u e ;
e l s e i f ( a s d = = " T P " )
t a k e P r o f i t = v a l u e ;
e l s e i f ( a s d = = " T P 2 " )
t a k e P r o f i t 2 = v a l u e ;
e l s e i f ( a s d = = " T S " )
t r a i l i n g S t o p = v a l u e ;
e l s e i f ( a s d = = " S O " )
s c a l e O u t = v a l u e ;
e l s e i f ( a s d = = " C T " )
c o n t i n u a t i o n T r a d e s = v a l u e ;
e l s e i f ( a s d = = " C T 2 " )
c o n t i n u a t i o n W O P r e v i o u s T r a d e = v a l u e ;
e l s e i f ( a s d = = " T S S " )
t r a i l i n g S t a r t = v a l u e ;
e l s e
P r i n t ( " W r o n g o p t i m i z a t i o n p a r a m e t e r " , a s d ) ;
r e t u r n ( v a l u e ) ;
}
e l s e
r e t u r n ( 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e c a l c P L ( s t r i n g s y m , i n t t y p e 6 , d o u b l e e n t r y , d o u b l e e x i t 6 , d o u b l e l o t s )
{
i f ( t y p e 6 = = 0 )
r e s u l t = ( e x i t 6 - e n t r y ) * l o t s * ( 1 / M a r k e t I n f o ( s y m , M O D E _ P O I N T ) ) * M a r k e t I n f o ( s y m , M O D E _ T I C K V A L U E ) ;
e l s e i f ( t y p e 6 = = 1 )
r e s u l t = ( e n t r y - e x i t 6 ) * l o t s * ( 1 / M a r k e t I n f o ( s y m , M O D E _ P O I N T ) ) * M a r k e t I n f o ( s y m , M O D E _ T I C K V A L U E ) ;
r e t u r n ( r e s u l t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d c u s t o m B u f f e r s ( )
{
s t r i n g b 1 [ 4 ] , b 2 [ 4 ] ;
S t r i n g S p l i t ( c u s t o m 1 , d i v i d e , b 1 ) ;
S t r i n g S p l i t ( c u s t o m 2 , d i v i d e , b 2 ) ;
i = A r r a y S i z e ( b u f f e r 1 ) - 2 ;
b u f f e r 1 [ i ] = i n t ( b 1 [ 0 ] ) ;
b u f f e r 2 [ i ] = i n t ( b 1 [ 1 ] ) ;
b u f f e r 3 [ i ] = d o u b l e ( b 1 [ 2 ] ) ;
t y p e [ i ] = i n t ( b 1 [ 3 ] ) ;
b u f f e r 1 [ i + 1 ] = i n t ( b 2 [ 0 ] ) ;
b u f f e r 2 [ i + 1 ] = i n t ( b 2 [ 1 ] ) ;
b u f f e r 3 [ i + 1 ] = d o u b l e ( b 2 [ 2 ] ) ;
t y p e [ i + 1 ] = i n t ( b 2 [ 3 ] ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d o G e t V a l u e s ( b o o l l a s t = f a l s e )
{
s t r i n g o 1 [ 7 ] , o 2 [ 7 ] , o 3 [ 7 ] , o 4 [ 7 ] , o 5 [ 7 ] ;
i f ( l a s t = = f a l s e )
{
S t r i n g S p l i t ( o p t i m i z a t i o n S e t t i n g s , d i v i d e , o 1 ) ;
S t r i n g S p l i t ( o p t i m i z a t i o n S t a r t , d i v i d e , o 2 ) ;
S t r i n g S p l i t ( o p t i m i z a t i o n S t e p , d i v i d e , o 3 ) ;
S t r i n g S p l i t ( o p t i m i z a t i o n S t o p , d i v i d e , o 4 ) ;
}
e l s e
{
S t r i n g S p l i t ( s e t t i n g s B e s t [ b e s t ] , d i v i d e , o 5 ) ;
}
f o r ( i = 0 ; i < 7 ; i + + )
{
i f ( l a s t = = f a l s e )
{
i f ( A r r a y S i z e ( o 1 ) > i )
{
i f ( ( o 1 [ i ] ! = N U L L & & o 1 [ i ] ! = " " ) )
o S e t t i n g s [ i ] = o 1 [ i ] ;
e l s e
o S e t t i n g s [ i ] = " 0 " ;
}
e l s e
{
o S e t t i n g s [ i ] = " 0 " ;
}
i f ( A r r a y S i z e ( o 2 ) > i )
{
i f ( o 2 [ i ] ! = N U L L & & o 2 [ i ] ! = " " )
{
o S t a r t [ i ] = d o u b l e ( o 2 [ i ] ) ;
}
e l s e
{
o S t a r t [ i ] = 1 ;
}
}
e l s e
{
o S t a r t [ i ] = 1 ;
}
i f ( A r r a y S i z e ( o 3 ) > i )
{
i f ( o 3 [ i ] ! = N U L L & & o 3 [ i ] ! = " " )
{
o S t e p [ i ] = d o u b l e ( o 3 [ i ] ) ;
}
e l s e
{
o S t e p [ i ] = 1 ;
}
}
e l s e
{
o S t e p [ i ] = 1 ;
}
i f ( A r r a y S i z e ( o 4 ) > i )
{
i f ( o 4 [ i ] ! = N U L L & & o 4 [ i ] ! = " " )
{
o S t o p [ i ] = d o u b l e ( o 4 [ i ] ) ;
}
e l s e
{
o S t o p [ i ] = 1 ;
}
}
e l s e
{
o S t o p [ i ] = 1 ;
}
i f ( d o u b l e ( o S t e p [ i ] ) ! = 0 | | d o u b l e ( o S t e p [ i ] ) ! = N U L L )
{
i f ( o p t i m i z a t i o n = = t r u e )
{
o C y c l e s [ i ] = i n t ( ( d o u b l e ( o S t o p [ i ] ) - d o u b l e ( o S t a r t [ i ] ) ) / d o u b l e ( o S t e p [ i ] ) + 1 ) ;
i f ( o C y c l e s [ i ] < = 0 )
{
o C y c l e s [ i ] = 1 ;
}
}
e l s e
{
o C y c l e s [ i ] = 1 ;
}
}
e l s e
{
o C y c l e s [ i ] = 1 ;
}
}
e l s e
{
i f ( A r r a y S i z e ( o 5 ) > i )
{
i f ( o 5 [ i ] ! = N U L L & & o 5 [ i ] ! = " " )
{
o B e s t [ i ] = d o u b l e ( o 5 [ i ] ) ;
}
e l s e
{
o B e s t [ i ] = 1 ;
}
}
e l s e
{
o B e s t [ i ] = 1 ;
}
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d a r r a y I n i t i a l i z e ( d o u b l e & a r r a y [ ] )
{
A r r a y R e s i z e ( a r r a y , 0 , 0 ) ;
A r r a y R e s i z e ( a r r a y , 1 0 0 0 0 0 , 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d a r r a y I n i t i a l i z e 2 ( i n t & a r r a y [ ] )
{
A r r a y R e s i z e ( a r r a y , 0 , 0 ) ;
A r r a y R e s i z e ( a r r a y , 1 0 0 0 0 0 , 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d a r r a y I n i t i a l i z e 3 ( s t r i n g & a r r a y [ ] )
{
A r r a y R e s i z e ( a r r a y , 0 , 0 ) ;
A r r a y R e s i z e ( a r r a y , 1 0 0 0 0 0 , 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d a r r a y I n i t i a l i z e 4 ( d a t e t i m e & a r r a y [ ] )
{
A r r a y R e s i z e ( a r r a y , 0 , 0 ) ;
A r r a y R e s i z e ( a r r a y , 1 0 0 0 0 0 , 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d c l o s e d A t S t o p ( )
{
f o r ( i = 0 ; i < o r d e r s T o t a l ; i + + )
{
i f ( o r d e r C l o s e d [ i ] = = f a l s e )
{
m = 0 ;
w h i l e ( p a i r s [ m ] ! = o r d e r S y m b o l [ i ] )
{
m + + ;
}
p r i c e = i C l o s e ( o r d e r S y m b o l [ i ] , p e r i o d , s t a r t B a r s [ m ] ) ;
o r d e r C l o s e ( i , p r i c e , " c l o s e a t s t o p " ) ;
}
e l s e
{
c o n t i n u e ;
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d o r d e r C l o s e ( i n t t i c k e t , d o u b l e c l o s e P r i c e , s t r i n g r e a s o n )
{
i f ( o r d e r O p e n P r i c e [ t i c k e t ] ! = 0 )
{
o r d e r C l o s e d [ t i c k e t ] = t r u e ;
o r d e r C l o s e T i m e [ t i c k e t ] = i T i m e ( s y m b o l , p e r i o d , b a r ) ;
i f ( r e a s o n = = " c l o s e a t s t o p " )
{
o r d e r C l o s e T i m e [ t i c k e t ] = i T i m e ( s y m b o l , p e r i o d , b a r ) ;
}
o r d e r C l o s e R e a s o n [ t i c k e t ] = r e a s o n ;
i f ( o r d e r T y p e [ t i c k e t ] = = 1 & & o r d e r C l o s e R e a s o n [ t i c k e t ] = = " c l o s e " )
{
o r d e r C l o s e P r i c e [ t i c k e t ] = c l o s e P r i c e + ( s p r e a 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 ) ) ;
}
e l s e
{
o r d e r C l o s e P r i c e [ t i c k e t ] = c l o s e P r i c e ;
}
i f ( o r d e r C o m m e n t [ t i c k e t ] ! = 0 )
{
o r d e r P r o f i t [ t i c k e t ] = c a l c P L ( o r d e r S y m b o l [ t i c k e t ] , o r d e r T y p e [ t i c k e t ] , o r d e r O p e n P r i c e [ t i c k e t ] , o r d e r C l o s e P r i c e [ t i c k e t ] , o r d e r L o t s [ t i c k e t ] ) ;
}
e l s e
{
P r i n t ( " E r r o r 3 " ) ;
}
i f ( o r d e r C l o s e R e a s o n [ t i c k e t ] = = " t / p " )
{
r e s u l t T P + + ;
}
i f ( o r d e r P r o f i t [ t i c k e t ] > 0 )
{
r e s u l t P r o f i t + + ;
f a c t o r P r o f i t + = o r d e r P r o f i t [ t i c k e t ] ;
}
e l s e
{
f a c t o r L o s s - = o r d e r P r o f i t [ t i c k e t ] ;
}
b a l a n c e + = o r d e r P r o f i t [ t i c k e t ] ;
b a l a n c e - = ( o r d e r L o t s [ t i c k e t ] * c o m m i s s i o n ) ;
o r d e r B a l a n c e [ t i c k e t ] = b a l a n c e ;
l i n e N a m e = " O r d e r " + s t r i n g ( t i c k e t ) ;
i f ( o r d e r S y m b o l [ t i c k e t ] = = S y m b o l ( ) & & p e r i o d = = P e r i o d ( ) & & o p t i m i z a t i o n = = f a l s e )
{
O b j e c t C r e a t e ( 0 , l i n e N a m e , O B J _ T R E N D , 0 , o r d e r O p e n T i m e [ t i c k e t ] , o r d e r O p e n P r i c e [ t i c k e t ] , o r d e r C l o s e T i m e [ t i c k e t ] , o r d e r C l o s e P r i c e [ t i c k e t ] ) ;
O b j e c t S e t ( l i n e N a m e , O B J P R O P _ T I M E 1 , o r d e r O p e n T i m e [ t i c k e t ] ) ;
O b j e c t S e t ( l i n e N a m e , O B J P R O P _ P R I C E 1 , o r d e r O p e n P r i c e [ t i c k e t ] ) ;
O b j e c t S e t ( l i n e N a m e , O B J P R O P _ T I M E 2 , o r d e r C l o s e T i m e [ t i c k e t ] ) ;
O b j e c t S e t ( l i n e N a m e , O B J P R O P _ P R I C E 2 , o r d e r C l o s e P r i c e [ t i c k e t ] ) ;
O b j e c t S e t ( l i n e N a m e , O B J P R O P _ R A Y , f a l s e ) ;
i f ( o r d e r T y p e [ t i c k e t ] = = 0 )
{
O b j e c t S e t I n t e g e r ( 0 , l i n e N a m e , O B J P R O P _ C O L O R , c l r G r e e n ) ;
}
e l s e i f ( o r d e r T y p e [ t i c k e t ] = = 1 )
{
O b j e c t S e t I n t e g e r ( 0 , l i n e N a m e , O B J P R O P _ C O L O R , c l r P i n k ) ;
}
O b j e c t S e t I n t e g e r ( 0 , l i n e N a m e , O B J P R O P _ W I D T H , 2 ) ;
}
}
e l s e
{
P r i n t ( " E r r o r 5 " ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d c h e c k O r d e r s ( b o o l f i r s t C h e c k )
{
f o r ( i = 0 ; i < o r d e r s T o t a l ; i + + )
{
i f ( o r d e r C l o s e d [ i ] = = f a l s e & & o r d e r O p e n T i m e [ i ] < = i T i m e ( s y m b o l , p e r i o d , b a r ) & & o r d e r S y m b o l [ i ] = = s y m b o l )
{
i f ( f i r s t C h e c k = = t r u e )
{
h i g h = i O p e n ( s y m b o l , p e r i o d , b a r ) ;
l o w = i O p e n ( s y m b o l , p e r i o d , b a r ) ;
}
e l s e i f ( f i r s t C h e c k = = f a l s e )
{
h i g h = i H i g h ( s y m b o l , p e r i o d , b a r ) ;
l o w = i L o w ( s y m b o l , p e r i o d , b a r ) ;
}
i f ( o r d e r T y p e [ i ] = = 0 )
{
i f ( o r d e r S t o p L o s s [ i ] > = l o w )
{
o r d e r C l o s e ( i , o r d e r S t o p L o s s [ i ] , " s / l " ) ;
}
e l s e i f ( o r d e r T a k e P r o f i t [ i ] < = h i g h & & o r d e r T a k e P r o f i t [ i ] ! = 0 )
{
o r d e r C l o s e ( i , o r d e r T a k e P r o f i t [ i ] , " t / p " ) ;
}
e l s e
{
c o n t i n u e ;
}
}
e l s e i f ( o r d e r T y p e [ i ] = = 1 )
{
i f ( o r d e r S t o p L o s s [ i ] < = h i g h + ( s p r e a 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 ) ) )
{
o r d e r C l o s e ( i , o r d e r S t o p L o s s [ i ] , " s / l " ) ;
}
e l s e i f ( o r d e r T a k e P r o f i t [ i ] > = l o w + ( s p r e a 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 ) ) )
{
o r d e r C l o s e ( i , o r d e r T a k e P r o f i t [ i ] , " t / p " ) ;
}
e l s e
{
c o n t i n u e ;
}
}
}
e l s e
{
c o n t i n u e ;
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t o r d e r S e n d ( s t r i n g s y m b o l 5 , i n t c m d 5 , d o u b l e v o l u m e 5 , d o u b l e p r i c e 5 , d o u b l e s t o p l o s s 5 , d o u b l e t a k e p r o f i t 5 , d o u b l e c o m m e n t 5 )
{
i f ( A r r a y S i z e ( o r d e r S y m b o l ) > o r d e r s T o t a l )
{
i f ( c m d 5 = = 0 )
{
p r i c e 5 + = ( s p r e a 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 ) ) ;
}
i f ( v o l u m e 5 < 0 . 0 1 )
{
P r i n t ( " U s e b i g g e r s t a r t b a l a n c e o r i n c r e a s e r i s k p e r c e n t , b e c a u s e l o t s i z e = 0 . " ) ;
}
o r d e r S y m b o l [ o r d e r s T o t a l ] = s y m b o l ;
o r d e r T y p e [ o r d e r s T o t a l ] = c m d 5 ;
o r d e r L o t s [ o r d e r s T o t a l ] = v o l u m e 5 ;
o r d e r O p e n P r i c e [ o r d e r s T o t a l ] = p r i c e 5 ;
o r d e r S t o p L o s s [ o r d e r s T o t a l ] = s t o p l o s s 5 ;
o r d e r T a k e P r o f i t [ o r d e r s T o t a l ] = t a k e p r o f i t 5 ;
o r d e r C o m m e n t [ o r d e r s T o t a l ] = c o m m e n t 5 ;
o r d e r P e r i o d [ o r d e r s T o t a l ] = p e r i o d ;
o r d e r O p e n T i m e [ o r d e r s T o t a l ] = i T i m e ( s y m b o l , p e r i o d , b a r ) ;
o r d e r C l o s e d [ o r d e r s T o t a l ] = f a l s e ;
o r d e r s T o t a l + + ;
r e t u r n ( o r d e r s T o t a l ) ;
}
e l s e
{
r e t u r n ( - 1 ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e i n d i c a t o r V a l u e ( b o o l s e t t i n g s , s t r i n g n a m e , d o u b l e b u f f e r , i n t c a n d l e )
{
i f ( s e t t i n g s = = 1 )
{
i f ( n a m e = = b a s e l i n e N a m e )
{
r e t u r n ( i C u s t o m ( s y m b o l , p e r i o d , n a m e , S 1 , S 2 , S 3 , S 4 , S 5 , S 6 , S 7 , b u f f e r , c a n d l e ) ) ;
}
e l s e i f ( n a m e = = i n d i c a t o r N a m e 1 )
{
r e t u r n ( i C u s t o m ( s y m b o l , p e r i o d , n a m e , S 8 , S 9 , S 1 0 , S 1 1 , S 1 2 , S 1 3 , S 1 4 , b u f f e r , c a n d l e ) ) ;
}
e l s e i f ( n a m e = = i n d i c a t o r N a m e 2 )
{
r e t u r n ( i C u s t o m ( s y m b o l , p e r i o d , n a m e , S 1 5 , S 1 6 , S 1 7 , S 1 8 , S 1 9 , S 2 0 , S 2 1 , b u f f e r , c a n d l e ) ) ;
}
e l s e i f ( n a m e = = i n d i c a t o r N a m e 3 )
{
r e t u r n ( i C u s t o m ( s y m b o l , p e r i o d , n a m e , S 2 2 , S 2 3 , S 2 4 , S 2 5 , S 2 6 , S 2 7 , S 2 8 , b u f f e r , c a n d l e ) ) ;
}
e l s e i f ( n a m e = = i n d i c a t o r N a m e 4 )
{
r e t u r n ( i C u s t o m ( s y m b o l , p e r i o d , n a m e , S 2 9 , S 3 0 , S 3 1 , S 3 2 , S 3 3 , S 3 4 , S 3 5 , b u f f e r , c a n d l e ) ) ;
}
e l s e i f ( n a m e = = i n d i c a t o r N a m e 5 )
{
r e t u r n ( i C u s t o m ( s y m b o l , p e r i o d , n a m e , S 3 6 , S 3 7 , S 3 8 , S 3 9 , S 4 0 , S 4 1 , S 4 2 , b u f f e r , c a n d l e ) ) ;
}
e l s e
{
r e t u r n ( 0 ) ;
}
}
e l s e
{
r e t u r n ( i C u s t o m ( s y m b o l , p e r i o d , n a m e , b u f f e r , c a n d l e ) ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O n I n i t ( )
{
c u s t o m B u f f e r s ( ) ;
i f ( f o l d e r ! = " " )
{
f o l d e r = f o l d e r + " / " ;
}
i f ( b a s e l i n e N a m e = = " " & & c h o o s e I n d i c a t o r ! = 0 & & i n d i c a t o r N a m e [ c h o o s e I n d i c a t o r ] ! = " " )
{
b a s e l i n e N a m e = f o l d e r + i n d i c a t o r N a m e [ c h o o s e I n d i c a t o r ] ;
}
i f ( i n d i c a t o r N a m e 1 = = " " & & c h o o s e I n d i c a t o r 1 ! = 0 & & i n d i c a t o r N a m e [ c h o o s e I n d i c a t o r 1 ] ! = " " )
{
i n d i c a t o r N a m e 1 = f o l d e r + i n d i c a t o r N a m e [ c h o o s e I n d i c a t o r 1 ] ;
}
i f ( i n d i c a t o r N a m e 2 = = " " & & c h o o s e I n d i c a t o r 2 ! = 0 & & i n d i c a t o r N a m e [ c h o o s e I n d i c a t o r 2 ] ! = " " )
{
i n d i c a t o r N a m e 2 = f o l d e r + i n d i c a t o r N a m e [ c h o o s e I n d i c a t o r 2 ] ;
}
i f ( i n d i c a t o r N a m e 3 = = " " & & c h o o s e I n d i c a t o r 3 ! = 0 & & i n d i c a t o r N a m e [ c h o o s e I n d i c a t o r 3 ] ! = " " )
{
i n d i c a t o r N a m e 3 = f o l d e r + i n d i c a t o r N a m e [ c h o o s e I n d i c a t o r 3 ] ;
}
i f ( i n d i c a t o r N a m e 4 = = " " & & c h o o s e I n d i c a t o r 4 ! = 0 & & i n d i c a t o r N a m e [ c h o o s e I n d i c a t o r 4 ] ! = " " )
{
i n d i c a t o r N a m e 4 = f o l d e r + i n d i c a t o r N a m e [ c h o o s e I n d i c a t o r 4 ] ;
}
i f ( i n d i c a t o r N a m e 5 = = " " & & c h o o s e I n d i c a t o r 5 ! = 0 & & i n d i c a t o r N a m e [ c h o o s e I n d i c a t o r 5 ] ! = " " )
{
i n d i c a t o r N a m e 5 = f o l d e r + i n d i c a t o r N a m e [ c h o o s e I n d i c a t o r 5 ] ;
}
o G e t V a l u e s ( ) ;
a l l P r o g r e s s = o C y c l e s [ 0 ] * o C y c l e s [ 1 ] * o C y c l e s [ 2 ] * o C y c l e s [ 3 ] * o C y c l e s [ 4 ] * o C y c l e s [ 5 ] * o C y c l e s [ 6 ] ;
i f ( I s T e s t i n g ( ) = = t r u e )
{
A l e r t ( " C a n ' t r u n o n t e s t e r " ) ;
}
e l s e i f ( c h o o s e I n d i c a t o r 1 = = 0 )
{
A l e r t ( " F i r s t c o n f i r m a t i o n i n d i c a t o r c a n ' t b e t u r n e d o f f " ) ;
}
e l s e i f ( i n d i c a t o r N a m e 1 = = " " | | ( i n d i c a t o r N a m e 2 = = " " & & t u r n O f f 2 C o n f i m a t i o n = = t r u e ) | | ( i n d i c a t o r N a m e 3 = = " " & & t u r n O f f V o l u m e = = t r u e ) | | ( i n d i c a t o r N a m e 4 = = " " & & t u r n O f f E x i t = = t r u e ) | | ( b a s e l i n e N a m e = = " " & & t u r n O f f B a s e l i n e = = t r u e ) | | ( i n d i c a t o r N a m e 5 = = " " & & t u r n O f f E x t r a = = t r u e ) )
{
A l e r t ( " Y o u h a v e t o w r i t e t h e i n d i c a t o r n a m e " ) ;
}
e l s e i f ( A r r a y S i z e ( i n d i c a t o r N a m e ) ! = A r r a y S i z e ( b u f f e r 1 ) | | A r r a y S i z e ( i n d i c a t o r N a m e ) ! = A r r a y S i z e ( b u f f e r 2 ) | | A r r a y S i z e ( i n d i c a t o r N a m e ) ! = A r r a y S i z e ( b u f f e r 3 ) | | A r r a y S i z e ( i n d i c a t o r N a m e ) ! = A r r a y S i z e ( t y p e ) )
{
A l e r t ( " S o m e t h i n g w r o n g w i t h b u f f e r s " ) ;
}
e l s e
{
C o m m e n t ( " B a c k t e s t i n g s t a r t e d ! " ) ;
a r r a y I n i t i a l i z e ( o r d e r L o t s ) ;
a r r a y I n i t i a l i z e ( o r d e r T a k e P r o f i t ) ;
a r r a y I n i t i a l i z e ( o r d e r S t o p L o s s ) ;
a r r a y I n i t i a l i z e ( o r d e r O p e n P r i c e ) ;
a r r a y I n i t i a l i z e ( o r d e r C l o s e P r i c e ) ;
a r r a y I n i t i a l i z e ( o r d e r C o m m e n t ) ;
a r r a y I n i t i a l i z e ( o r d e r B a l a n c e ) ;
a r r a y I n i t i a l i z e ( o r d e r P r o f i t ) ;
a r r a y I n i t i a l i z e ( b a l a n c e B e s t ) ;
a r r a y I n i t i a l i z e ( d r a w d o w n B e s t ) ;
a r r a y I n i t i a l i z e ( p r o f i t B e s t ) ;
a r r a y I n i t i a l i z e ( T P B e s t ) ;
a r r a y I n i t i a l i z e ( t o t a l B e s t ) ;
a r r a y I n i t i a l i z e ( y e a r l y P e r c e n t ) ;
a r r a y I n i t i a l i z e ( g o o d E n o u g h ) ;
a r r a y I n i t i a l i z e ( p r o f i t F a c t o r ) ;
a r r a y I n i t i a l i z e 2 ( o r d e r T y p e ) ;
a r r a y I n i t i a l i z e 2 ( o r d e r P e r i o d ) ;
a r r a y I n i t i a l i z e 3 ( s e t t i n g s B e s t ) ;
a r r a y I n i t i a l i z e 3 ( o r d e r S y m b o l ) ;
a r r a y I n i t i a l i z e 3 ( o r d e r C l o s e R e a s o n ) ;
a r r a y I n i t i a l i z e 4 ( o r d e r O p e n T i m e ) ;
a r r a y I n i t i a l i z e 4 ( o r d e r C l o s e T i m e ) ;
s t a r t B a l a n c e = b a l a n c e ;
i f ( B T S t o p > T i m e C u r r e n t ( ) | | B T S t o p < B T S t a r t )
{
B T S t o p = T i m e C u r r e n t ( ) ;
}
i f ( c o m m i s s i o n = = 1 2 3 4 & & b a c k t e s t i n g = = t r u e )
{
i n t c o m m i s s i o n T i c k e t = O r d e r S e n d ( S y m b o l ( ) , 0 , 0 . 0 1 , A s k , N U L L , N U L L , N U L L , " C o m m i s s i o n t e s t " , 0 , 0 , c l r N O N E ) ;
i f ( O r d e r S e l e c t ( c o m m i s s i o n T i c k e t , S E L E C T _ B Y _ T I C K E T ) = = t r u e )
{
c o m m i s s i o n = - 1 * O r d e r C o m m i s s i o n ( ) / O r d e r L o t s ( ) ;
i f ( O r d e r C l o s e ( O r d e r T i c k e t ( ) , 0 . 0 1 , B i d , N U L L , c l r N O N E ) = = t r u e )
{
P r i n t ( " C o m m i s s i o n = " , D o u b l e T o S t r ( c o m m i s s i o n , 2 ) ) ;
}
}
e l s e
{
i f ( G e t L a s t E r r o r ( ) = = 1 3 2 )
{
P r i n t ( " M a r k e t i s c l o s e d , c a n ' t c a l c u l a t e c o m m i s s i o n " ) ;
}
e l s e
{
P r i n t ( " C a n ' t c a l c u l a t e c o m m i s s i o n , e r r o r : " , G e t L a s t E r r o r ( ) ) ;
}
c o m m i s s i o n = 0 ;
}
}
/ / S P R E A D
i f ( s p r e a d = = 0 )
{
i f ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S P R E A D ) ! = 0 )
{
s p r e a d = i n t ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S P R E A D ) ) ;
P r i n t ( " S p r e a d : " , D o u b l e T o S t r ( s p r e a d , 2 ) ) ;
}
e l s e
{
P r i n t ( " C a n ' t t a k e c u r r e n t s p r e a d ! S p r e a d s e t t o 1 0 . " ) ;
s p r e a d = 1 0 ;
}
}
s y m b o l = S y m b o l ( ) ;
p e r i o d = P e r i o d ( ) ;
i n t s t a r t T i m e = i n t ( T i m e L o c a l ( ) ) ;
p r o g r e s s = 0 ;
s t r i n g r e p o r t S e t t i n g s = S t r i n g C o n c a t e n a t e ( " \ n s c a l e O u t = " , s c a l e O u t , " \ n c o n t i n u a t i o n T r a d e s = " , c o n t i n u a t i o n T r a d e s , " \ n c o n t i n u a t i o n W O P r e v i o u s T r a d e = " , c o n t i n u a t i o n W O P r e v i o u s T r a d e , " \ n d i s t a n c e F r o m B L = " , d i s t a n c e F r o m B L , " \ n t r a i l i n g S t o p = " , t r a i l i n g S t o p , " \ n t r a i l i n g S t a r t = " , t r a i l i n g S t a r t , " \ n r i s k P e r c e n t = " , r i s k P e r c e n t ,
" \ n s t o p L o s s = " , s t o p L o s s , " \ n t a k e P r o f i t = " , t a k e P r o f i t , " \ n t a k e P r o f i t 2 = " , t a k e P r o f i t 2 , " \ n a t r P e r i o d = " , a t r P e r i o d , " \ n f o l d e r = " , S t r i n g S u b s t r ( f o l d e r , 0 , S t r i n g L e n ( f o l d e r ) - 1 ) , " \ n b a l a n c e = " , b a l a n c e , " \ n d d P e r c e n t = " , d d P e r c e n t , " \ n y e a r l y P e r c e n t B a s e d O n = " , y e a r l y P e r c e n t B a s e d O n , " \ n s p r e a d = " , s p r e a d , " \ n c o m m i s s i o n = " , c o m m i s s i o n , " \ n c s v = " , c s v , " \ n B T T y p e = " , B T T y p e , " \ n B T S t a r t = " , i n t ( B T S t a r t ) ,
" \ n B T S t o p = " , i n t ( B T S t o p ) , " \ n o p t i m i z a t i o n = " , o p t i m i z a t i o n , " \ n o p t i m i z a t i o n S e t t i n g s = " , o p t i m i z a t i o n S e t t i n g s , " \ n o p t i m i z a t i o n S t a r t = " , o p t i m i z a t i o n S t a r t ,
" \ n o p t i m i z a t i o n S t e p = " , o p t i m i z a t i o n S t e p , " \ n o p t i m i z a t i o n S t o p = " , o p t i m i z a t i o n S t o p , " \ n c h o o s e I n d i c a t o r = " , c h o o s e I n d i c a t o r , " \ n b a s e l i n e N a m e = " , b a s e l i n e N a m e , " \ n d e f a u l t S e t t i n g s = " , d e f a u l t S e t t i n g s ) ;
r e p o r t S e t t i n g s = S t r i n g C o n c a t e n a t e ( r e p o r t S e t t i n g s , " \ n c h o o s e I n d i c a t o r 1 = " , c h o o s e I n d i c a t o r 1 , " \ n i n d i c a t o r N a m e 1 = " , i n d i c a t o r N a m e 1 , " \ n d e f a u l t S e t t i n g s 1 = " , d e f a u l t S e t t i n g s 1 , " \ n c h o o s e I n d i c a t o r 2 = " , c h o o s e I n d i c a t o r 2 , " \ n i n d i c a t o r N a m e 2 = " , i n d i c a t o r N a m e 2 ,
" \ n d e f a u l t S e t t i n g s 2 = " , d e f a u l t S e t t i n g s 2 , " \ n c h o o s e I n d i c a t o r 3 = " , c h o o s e I n d i c a t o r 3 , " \ n i n d i c a t o r N a m e 3 = " , i n d i c a t o r N a m e 3 , " \ n d e f a u l t S e t t i n g s 3 = " , d e f a u l t S e t t i n g s 3 , " \ n c h o o s e I n d i c a t o r 4 = " , c h o o s e I n d i c a t o r 4 ,
" \ n i n d i c a t o r N a m e 4 = " , i n d i c a t o r N a m e 4 , " \ n d e f a u l t S e t t i n g s 4 = " , d e f a u l t S e t t i n g s 4 , " \ n e x t r a T y p e = " , e x t r a T y p e , " \ n c h o o s e I n d i c a t o r 5 = " , c h o o s e I n d i c a t o r 5 , " \ n i n d i c a t o r N a m e 5 = " , i n d i c a t o r N a m e 5 , " \ n d e f a u l t S e t t i n g s 5 = " , d e f a u l t S e t t i n g s 5 , " \ n S 1 = " , S 1 , " \ n S 2 = " , S 2 , " \ n S 3 = " , S 3 , " \ n S 4 = " , S 4 , " \ n S 5 = " , S 5 , " \ n S 6 = " , S 6 , " \ n S 7 = " , S 7 , " \ n S 8 = " , S 8 , " \ n S 9 = " , S 9 , " \ n S 1 0 = " , S 1 0 , " \ n S 1 1 = " , S 1 1 ) ;
r e p o r t S e t t i n g s = S t r i n g C o n c a t e n a t e ( r e p o r t S e t t i n g s , " \ n S 1 2 = " , S 1 2 , " \ n S 1 3 = " , S 1 3 , " \ n S 1 4 = " , S 1 4 , " \ n S 1 5 = " , S 1 5 , " \ n S 1 6 = " , S 1 6 ,
" \ n S 1 7 = " , S 1 7 , " \ n S 1 8 = " , S 1 8 , " \ n S 1 9 = " , S 1 9 , " \ n S 2 0 = " , S 2 0 , " \ n S 2 1 = " , S 2 1 , " \ n S 2 2 = " , S 2 2 , " \ n S 2 3 = " , S 2 3 , " \ n S 2 4 = " , S 2 4 , " \ n S 2 5 = " , S 2 5 , " \ n S 2 6 = " , S 2 6 , " \ n S 2 7 = " , S 2 7 , " \ n S 2 8 = " , S 2 8 , " \ n S 2 9 = " , S 2 9 , " \ n S 3 0 = " , S 3 0 , " \ n S 3 1 = " , S 3 1 ,
" \ n S 3 2 = " , S 3 2 , " \ n S 3 3 = " , S 3 3 , " \ n S 3 4 = " , S 3 4 , " \ n S 3 5 = " , S 3 5 , " \ n S 3 6 = " , S 3 6 , " \ n S 3 7 = " , S 3 7 , " \ n S 3 8 = " , S 3 8 , " \ n S 3 9 = " , S 3 9 , " \ n S 4 0 = " , S 4 0 , " \ n S 4 1 = " , S 4 1 , " \ n S 4 2 = " , S 4 2 ) ;
r e p o r t S e t t i n g s = S t r i n g C o n c a t e n a t e ( r e p o r t S e t t i n g s , " \ n c u s t o m 1 = " , c u s t o m 1 , " \ n c u s t o m 2 = " , c u s t o m 2 , " \ n c u s t o m S y m b o l s = " , c u s t o m S y m b o l s ) ;
b a s e l i n e T y p e = i n t ( t y p e [ c h o o s e I n d i c a t o r ] ) ;
t u r n O f f B a s e l i n e = o n o f f ( c h o o s e I n d i c a t o r ) ;
f i r s t B u f f e r = b u f f e r 1 [ c h o o s e I n d i c a t o r ] ;
s e c o n d B u f f e r = b u f f e r 2 [ c h o o s e I n d i c a t o r ] ;
t h i r d B u f f e r = b u f f e r 3 [ c h o o s e I n d i c a t o r ] ;
i n d i c a t o r T y p e 1 = i n t ( t y p e [ c h o o s e I n d i c a t o r 1 ] ) ;
f i r s t B u f f e r 1 = b u f f e r 1 [ c h o o s e I n d i c a t o r 1 ] ;
s e c o n d B u f f e r 1 = b u f f e r 2 [ c h o o s e I n d i c a t o r 1 ] ;
t h i r d B u f f e r 1 = b u f f e r 3 [ c h o o s e I n d i c a t o r 1 ] ;
i n d i c a t o r T y p e 2 = i n t ( t y p e [ c h o o s e I n d i c a t o r 2 ] ) ;
t u r n O f f 2 C o n f i m a t i o n = o n o f f ( c h o o s e I n d i c a t o r 2 ) ;
f i r s t B u f f e r 2 = b u f f e r 1 [ c h o o s e I n d i c a t o r 2 ] ;
s e c o n d B u f f e r 2 = b u f f e r 2 [ c h o o s e I n d i c a t o r 2 ] ;
t h i r d B u f f e r 2 = b u f f e r 3 [ c h o o s e I n d i c a t o r 2 ] ;
i n d i c a t o r T y p e 3 = i n t ( t y p e [ c h o o s e I n d i c a t o r 3 ] ) ;
t u r n O f f V o l u m e = o n o f f ( c h o o s e I n d i c a t o r 3 ) ;
f i r s t B u f f e r 3 = b u f f e r 1 [ c h o o s e I n d i c a t o r 3 ] ;
s e c o n d B u f f e r 3 = b u f f e r 2 [ c h o o s e I n d i c a t o r 3 ] ;
t h i r d B u f f e r 3 = b u f f e r 3 [ c h o o s e I n d i c a t o r 3 ] ;
i n d i c a t o r T y p e 4 = i n t ( t y p e [ c h o o s e I n d i c a t o r 4 ] ) ;
t u r n O f f E x i t = o n o f f ( c h o o s e I n d i c a t o r 4 ) ;
f i r s t B u f f e r 4 = b u f f e r 1 [ c h o o s e I n d i c a t o r 4 ] ;
s e c o n d B u f f e r 4 = b u f f e r 2 [ c h o o s e I n d i c a t o r 4 ] ;
t h i r d B u f f e r 4 = b u f f e r 3 [ c h o o s e I n d i c a t o r 4 ] ;
i n d i c a t o r T y p e 5 = i n t ( t y p e [ c h o o s e I n d i c a t o r 5 ] ) ;
t u r n O f f E x t r a = o n o f f ( c h o o s e I n d i c a t o r 5 ) ;
f i r s t B u f f e r 5 = b u f f e r 1 [ c h o o s e I n d i c a t o r 5 ] ;
s e c o n d B u f f e r 5 = b u f f e r 2 [ c h o o s e I n d i c a t o r 5 ] ;
t h i r d B u f f e r 5 = b u f f e r 3 [ c h o o s e I n d i c a t o r 5 ] ;
/ / B A C K T E S T I N G
i f ( b a c k t e s t i n g = = t r u e )
{
i f ( B T T y p e = = 2 8 )
{
s y m b o l s C o u n t = 2 8 ;
}
e l s e i f ( B T T y p e = = 2 9 )
{
s y m b o l s C o u n t = S y m b o l s T o t a l ( t r u e ) ;
}
e l s e i f ( B T T y p e = = 1 3 )
{
s y m b o l s C o u n t = 1 3 ;
}
e l s e i f ( B T T y p e = = 1 )
{
s y m b o l s C o u n t = 1 ;
}
e l s e i f ( B T T y p e = = 1 0 0 )
{
S t r i n g T o U p p e r ( c u s t o m S y m b o l s ) ;
s y m b o l s C o u n t = S t r i n g S p l i t ( c u s t o m S y m b o l s , d i v i d e , c u s t o m S y m b o l s A r r a y ) ;
}
A r r a y R e s i z e ( p a i r s , 1 0 0 , 0 ) ;
A r r a y R e s i z e ( s t a r t B a r s , 1 0 0 , 0 ) ;
A r r a y R e s i z e ( b u y C o n t i n u a t i o n , 1 0 0 + 1 , 0 ) ;
A r r a y R e s i z e ( s e l l C o n t i n u a t i o n , 1 0 0 + 1 , 0 ) ;
f o r ( i = 0 ; i < s y m b o l s C o u n t ; i + + )
{
b u y C o n t i n u a t i o n [ i ] = f a l s e ;
s e l l C o n t i n u a t i o n [ i ] = f a l s e ;
i f ( B T T y p e = = 2 8 )
{
s y m b o l = s y m b o l s [ i ] ;
}
i f ( B T T y p e = = 2 9 )
{
s y m b o l = S y m b o l N a m e ( i , t r u e ) ;
}
e l s e i f ( B T T y p e = = 1 )
{
s y m b o l = S y m b o l ( ) ;
}
e l s e i f ( B T T y p e = = 1 0 0 )
{
s y m b o l = c u s t o m S y m b o l s A r r a y [ i ] ;
}
S y m b o l S e l e c t ( s y m b o l , t r u e ) ;
p a i r s [ i ] = s y m b o l ;
i f ( i B a r s ( s y m b o l , p e r i o d ) - ( a t r P e r i o d * 3 ) < i B a r S h i f t ( s y m b o l , p e r i o d , B T S t a r t , f a l s e ) )
{
B T S t a r t = i T i m e ( s y m b o l , p e r i o d , i B a r s ( s y m b o l , p e r i o d ) - ( a t r P e r i o d * 3 ) ) ;
P r i n t ( s y m b o l , " T o o f e w d a t a , b a c k t e s t i n g s t a r t e d f r o m : " , B T S t a r t ) ;
}
}
t i m e I n Y e a r s = d o u b l e ( B T S t o p - B T S t a r t ) / 6 0 / 6 0 / 2 4 / 3 6 5 ;
i f ( c s v = = t r u e )
{
i f ( a l l P r o g r e s s > 1 )
{
f i l e R e p o r t = F i l e O p e n ( s t r i n g ( i n t ( T i m e L o c a l ( ) ) ) + " _ O p t i m i z a t i o n _ " + S y m b o l ( ) + " _ " + s t r i n g ( P e r i o d ( ) ) + " . c s v " , F I L E _ R E A D | F I L E _ W R I T E | F I L E _ C S V ) ;
F i l e W r i t e ( f i l e R e p o r t , o S e t t i n g s [ 0 ] , o S e t t i n g s [ 1 ] , o S e t t i n g s [ 2 ] , o S e t t i n g s [ 3 ] , o S e t t i n g s [ 4 ] , o S e t t i n g s [ 5 ] , o S e t t i n g s [ 6 ] , " B a l a n c e " , " Y e a r l y " , " D D B a l a n c e " , " D D " , " R i s k % " , " P F " , " T P % " , " P r o f i t % " , " T r a d e s " ) ;
}
i f ( a l l P r o g r e s s = = 1 )
{
f i l e R e s u l t s = F i l e O p e n ( s t r i n g ( i n t ( T i m e L o c a l ( ) ) ) + " _ R e s u l t s _ " + S y m b o l ( ) + " _ " + s t r i n g ( P e r i o d ( ) ) + " . c s v " , F I L E _ R E A D | F I L E _ W R I T E | F I L E _ C S V ) ;
F i l e W r i t e ( f i l e R e s u l t s , " T i c k e t " , " S y m b o l " , " T y p e " , " L o t s " , " O p e n t i m e " , " C l o s e t i m e " , " O p e n p r i c e " , " C l o s e p r i c e " , " A T R " , " P i p s " , " B a l a n c e " , " P r o f i t " , " C l o s e r e a s o n " ) ;
}
}
f o r ( i n t O 1 = 0 ; O 1 < o C y c l e s [ 0 ] ; O 1 + + )
{
d o u b l e o O n e = o p t i m i z i n g ( 0 , O 1 ) ;
f o r ( i n t O 2 = 0 ; O 2 < o C y c l e s [ 1 ] ; O 2 + + )
{
d o u b l e o T w o = o p t i m i z i n g ( 1 , O 2 ) ;
f o r ( i n t O 3 = 0 ; O 3 < o C y c l e s [ 2 ] ; O 3 + + )
{
d o u b l e o T h r e e = o p t i m i z i n g ( 2 , O 3 ) ;
f o r ( i n t O 4 = 0 ; O 4 < o C y c l e s [ 3 ] ; O 4 + + )
{
d o u b l e o F o u r = o p t i m i z i n g ( 3 , O 4 ) ;
f o r ( i n t O 5 = 0 ; O 5 < o C y c l e s [ 4 ] ; O 5 + + )
{
d o u b l e o F i v e = o p t i m i z i n g ( 4 , O 5 ) ;
f o r ( i n t O 6 = 0 ; O 6 < o C y c l e s [ 5 ] ; O 6 + + )
{
d o u b l e o S i x = o p t i m i z i n g ( 5 , O 6 ) ;
f o r ( i n t O 7 = 0 ; O 7 < o C y c l e s [ 6 ] ; O 7 + + )
{
d o u b l e o S e v e n = o p t i m i z i n g ( 6 , O 7 ) ;
f o r ( i n t h = 0 ; h < s y m b o l s C o u n t ; h + + )
{
s t a r t B a r s [ h ] = i B a r S h i f t ( p a i r s [ h ] , p e r i o d , B T S t a r t , f a l s e ) - 1 ;
}
e n d = f a l s e ;
w h i l e ( e n d = = f a l s e )
{
c u r r e n t T i m e = T i m e C u r r e n t ( ) ;
f o r ( i n t y = 0 ; y < = s y m b o l s C o u n t ; y + + )
{
i f ( i T i m e ( p a i r s [ y ] , p e r i o d , s t a r t B a r s [ y ] ) < c u r r e n t T i m e )
{
c u r r e n t T i m e = i T i m e ( p a i r s [ y ] , p e r i o d , s t a r t B a r s [ y ] ) ;
}
}
f o r ( B T = 0 ; B T < s y m b o l s C o u n t ; B T + + )
{
s y m b o l = p a i r s [ B T ] ;
i f ( i T i m e ( s y m b o l , p e r i o d , s t a r t B a r s [ B T ] ) = = c u r r e n t T i m e )
{
b a r = s t a r t B a r s [ B T ] ;
c h e c k O r d e r s ( t r u e ) ;
O n T i c k ( ) ;
c h e c k O r d e r s ( f a l s e ) ;
s t a r t B a r s [ B T ] - - ;
}
}
i f ( s t a r t B a r s [ 0 ] = = i B a r S h i f t ( " E U R U S D " , p e r i o d , B T S t o p , f a l s e ) )
{
e n d = t r u e ;
c l o s e d A t S t o p ( ) ;
}
i f ( o r d e r s T o t a l > = 9 9 9 9 5 )
{
P r i n t ( " O r d e r s h a v e r e a c h e d m a x i m u m l i m i t o f 1 0 0 0 0 0 , b a c k t e s t i n g s t o p p e d ! " ) ;
b r e a k ;
}
}
i f ( o r d e r s T o t a l > 0 )
{
b a l a n c e B e s t [ p r o g r e s s ] = b a l a n c e ;
d r a w d o w n B e s t [ p r o g r e s s ] = r e s u l t D r a w d o w n ;
d d B a l a n c e B e s t [ p r o g r e s s ] = M a t h P o w ( b a l a n c e / s t a r t B a l a n c e , ( ( d d P e r c e n t / 1 0 0 * r i s k P e r c e n t ) / r e s u l t D r a w d o w n ) / r i s k P e r c e n t ) * s t a r t B a l a n c e ;
r p 2 [ p r o g r e s s ] = ( d d P e r c e n t / 1 0 0 * r i s k P e r c e n t ) / r e s u l t D r a w d o w n ;
p r o f i t B e s t [ p r o g r e s s ] = d o u b l e ( r e s u l t P r o f i t ) / o r d e r s T o t a l ;
T P B e s t [ p r o g r e s s ] = d o u b l e ( r e s u l t T P ) / o r d e r s T o t a l ;
t o t a l B e s t [ p r o g r e s s ] = o r d e r s T o t a l ;
s e t t i n g s B e s t [ p r o g r e s s ] = s t r i n g ( o O n e ) + " / " + s t r i n g ( o T w o ) + " / " + s t r i n g ( o T h r e e ) + " / " + s t r i n g ( o F o u r ) + " / " + s t r i n g ( o F i v e ) + " / " + s t r i n g ( o S i x ) + " / " + s t r i n g ( o S e v e n ) ;
i f ( y e a r l y P e r c e n t B a s e d O n = = 0 )
{
y e a r l y P e r c e n t [ p r o g r e s s ] = M a t h P o w ( b a l a n c e / s t a r t B a l a n c e , 1 . / t i m e I n Y e a r s ) * 1 0 0 - 1 0 0 ;
}
e l s e i f ( y e a r l y P e r c e n t B a s e d O n = = 1 )
{
y e a r l y P e r c e n t [ p r o g r e s s ] = M a t h P o w ( d d B a l a n c e B e s t [ p r o g r e s s ] / s t a r t B a l a n c e , 1 . / t i m e I n Y e a r s ) * 1 0 0 - 1 0 0 ;
}
g o o d E n o u g h [ p r o g r e s s ] = M a t h P o w ( M a t h P o w ( b a l a n c e / s t a r t B a l a n c e , ( ( 5 . 0 / 1 0 0 * r i s k P e r c e n t ) / r e s u l t D r a w d o w n ) / r i s k P e r c e n t ) * s t a r t B a l a n c e / s t a r t B a l a n c e , 1 . / t i m e I n Y e a r s ) * 1 0 0 - 1 0 0 ;
p r o f i t F a c t o r [ p r o g r e s s ] = f a c t o r P r o f i t / f a c t o r L o s s ;
i f ( c s v = = t r u e & & a l l P r o g r e s s > 1 )
{
F i l e W r i t e ( f i l e R e p o r t , D o u b l e T o S t r ( d o u b l e ( o O n e ) , 3 ) , D o u b l e T o S t r ( d o u b l e ( o T w o ) , 3 ) , D o u b l e T o S t r ( d o u b l e ( o T h r e e ) , 3 ) , D o u b l e T o S t r ( d o u b l e ( o F o u r ) , 3 ) , D o u b l e T o S t r ( d o u b l e ( o F i v e ) , 3 ) , D o u b l e T o S t r ( d o u b l e ( o S i x ) , 3 ) , D o u b l e T o S t r ( d o u b l e ( o S e v e n ) , 3 ) , D o u b l e T o S t r ( b a l a n c e B e s t [ p r o g r e s s ] , 1 ) , D o u b l e T o S t r ( y e a r l y P e r c e n t [ p r o g r e s s ] / 1 0 0 , 4 ) , D o u b l e T o S t r ( d d B a l a n c e B e s t [ p r o g r e s s ] , 1 ) , D o u b l e T o S t r ( d r a w d o w n B e s t [ p r o g r e s s ] , 4 ) , D o u b l e T o S t r ( r p 2 [ p r o g r e s s ] , 4 ) , D o u b l e T o S t r ( p r o f i t F a c t o r [ p r o g r e s s ] , 2 ) , D o u b l e T o S t r ( T P B e s t [ p r o g r e s s ] , 4 ) , D o u b l e T o S t r ( p r o f i t B e s t [ p r o g r e s s ] , 4 ) , D o u b l e T o S t r ( t o t a l B e s t [ p r o g r e s s ] , 1 ) ) ;
}
i f ( c s v = = t r u e & & a l l P r o g r e s s = = 1 )
{
f o r ( i = 0 ; i < o r d e r s T o t a l ; i + + )
{
i f ( o r d e r T y p e [ i ] = = 0 )
{
p i p s = o r d e r C l o s e P r i c e [ i ] - o r d e r O p e n P r i c e [ i ] ;
}
e l s e
{
p i p s = o r d e r O p e n P r i c e [ i ] - o r d e r C l o s e P r i c e [ i ] ;
}
F i l e W r i t e ( f i l e R e s u l t s , i , o r d e r S y m b o l [ i ] , o r d e r T y p e [ i ] , D o u b l e T o S t r ( o r d e r L o t s [ i ] , 2 ) , o r d e r O p e n T i m e [ i ] , o r d e r C l o s e T i m e [ i ] , D o u b l e T o S t r ( o r d e r O p e n P r i c e [ i ] , 5 ) , D o u b l e T o S t r ( o r d e r C l o s e P r i c e [ i ] , 5 ) , D o u b l e T o S t r ( o r d e r C o m m e n t [ i ] , 5 ) , D o u b l e T o S t r ( p i p s / M a r k e t I n f o ( o r d e r S y m b o l [ i ] , M O D E _ P O I N T ) / 1 0 , 0 ) , D o u b l e T o S t r ( o r d e r B a l a n c e [ i ] , 2 ) , D o u b l e T o S t r ( o r d e r P r o f i t [ i ] , 2 ) , o r d e r C l o s e R e a s o n [ i ] ) ;
}
F i l e W r i t e ( f i l e R e s u l t s , " " , " " , " " , " " , " " , " " , " " , " " , " " , " " , " " , D o u b l e T o S t r ( b a l a n c e B e s t [ p r o g r e s s ] , 0 ) , D o u b l e T o S t r ( y e a r l y P e r c e n t [ p r o g r e s s ] , 2 ) , D o u b l e T o S t r ( d d B a l a n c e B e s t [ p r o g r e s s ] , 0 ) , D o u b l e T o S t r ( d r a w d o w n B e s t [ p r o g r e s s ] * 1 0 0 , 2 ) , D o u b l e T o S t r ( r p 2 [ p r o g r e s s ] , 2 ) , D o u b l e T o S t r ( p r o f i t F a c t o r [ p r o g r e s s ] , 2 ) , D o u b l e T o S t r ( T P B e s t [ p r o g r e s s ] * 1 0 0 , 2 ) , D o u b l e T o S t r ( p r o f i t B e s t [ p r o g r e s s ] * 1 0 0 , 2 ) , D o u b l e T o S t r ( t o t a l B e s t [ p r o g r e s s ] , 0 ) ) ;
F i l e W r i t e ( f i l e R e s u l t s , r e p o r t S e t t i n g s ) ;
}
}
i f ( a l l P r o g r e s s = = 1 & & o r d e r s T o t a l ! = 0 )
{
P r i n t ( " B a l a n c e : " , D o u b l e T o S t r ( b a l a n c e B e s t [ p r o g r e s s ] , 0 ) , " $ Y e a r l y : " , D o u b l e T o S t r ( y e a r l y P e r c e n t [ p r o g r e s s ] , 2 ) , " % D D B a l a n c e : " , D o u b l e T o S t r ( d d B a l a n c e B e s t [ p r o g r e s s ] , 0 ) , " $ D D : " , D o u b l e T o S t r ( d r a w d o w n B e s t [ p r o g r e s s ] * 1 0 0 , 2 ) , " % R i s k : " , D o u b l e T o S t r ( r p 2 [ p r o g r e s s ] , 2 ) , " % P F : " , D o u b l e T o S t r ( p r o f i t F a c t o r [ p r o g r e s s ] , 2 ) , " T P : " , D o u b l e T o S t r ( T P B e s t [ p r o g r e s s ] * 1 0 0 , 2 ) , " % P r o f i t : " , D o u b l e T o S t r ( p r o f i t B e s t [ p r o g r e s s ] * 1 0 0 , 2 ) , " % T r a d e s : " , D o u b l e T o S t r ( t o t a l B e s t [ p r o g r e s s ] , 0 ) ) ;
}
h i g h e s t B a l a n c e = 0 ;
l o w e s t B a l a n c e = 0 ;
n e w D D = 0 ;
D D m a x = 0 ;
D D m i n = 0 ;
f a c t o r P r o f i t = 0 ;
f a c t o r L o s s = 0 ;
r e s u l t D r a w d o w n = 0 ;
r e s u l t T P = 0 ;
r e s u l t P r o f i t = 0 ;
o r d e r s T o t a l = 0 ;
p r o g r e s s + + ;
b a l a n c e = s t a r t B a l a n c e ;
d o u b l e p r o g r e s s P e r c e n t = d o u b l e ( p r o g r e s s ) / a l l P r o g r e s s ;
i f ( p r o g r e s s P e r c e n t > 0 )
{
E T A = ( ( ( i n t ( T i m e L o c a l ( ) ) - s t a r t T i m e ) * ( 1 - p r o g r e s s P e r c e n t ) ) / p r o g r e s s P e r c e n t ) ;
i f ( E T A < 6 0 )
{
p r o g r e s s B a r = S t r i n g C o n c a t e n a t e ( " V a r i e t i e s : " , a l l P r o g r e s s , " . \ n P r o g r e s s : " , D o u b l e T o S t r ( p r o g r e s s P e r c e n t * 1 0 0 , 0 ) , " % . \ n T i m e l e f t : " , D o u b l e T o S t r ( i n t ( E T A ) % 6 0 , 0 ) , " s " ) ;
}
e l s e i f ( E T A < 3 6 0 0 )
{
p r o g r e s s B a r = S t r i n g C o n c a t e n a t e ( " V a r i e t i e s : " , a l l P r o g r e s s , " . \ n P r o g r e s s : " , D o u b l e T o S t r ( p r o g r e s s P e r c e n t * 1 0 0 , 0 ) , " % . \ n T i m e l e f t : " , S t r i n g S u b s t r ( D o u b l e T o S t r ( E T A / 6 0 , 2 ) , 0 , S t r i n g F i n d ( D o u b l e T o S t r ( E T A / 6 0 , 2 ) , " . " , 0 ) ) , " m i n " , D o u b l e T o S t r ( i n t ( E T A ) % 6 0 , 0 ) , " s " ) ;
}
e l s e i f ( E T A > = 3 6 0 0 )
{
p r o g r e s s B a r = S t r i n g C o n c a t e n a t e ( " V a r i e t i e s : " , a l l P r o g r e s s , " . \ n P r o g r e s s : " , D o u b l e T o S t r ( p r o g r e s s P e r c e n t * 1 0 0 , 0 ) , " % . \ n T i m e l e f t : " , S t r i n g S u b s t r ( D o u b l e T o S t r ( E T A / 3 6 0 0 , 2 ) , 0 , S t r i n g F i n d ( D o u b l e T o S t r ( E T A / 3 6 0 0 , 2 ) , " . " , 0 ) ) , " h " , D o u b l e T o S t r ( ( i n t ( E T A ) % 3 6 0 0 ) / 6 0 , 0 ) , " m i n " ) ;
}
C o m m e n t ( p r o g r e s s B a r ) ;
}
}
}
}
}
}
}
}
}
i f ( a l l P r o g r e s s > 1 )
{
b e s t = A r r a y M a x i m u m ( t o t a l B e s t ) ;
p r i n t ( " M o s t t r a d e s " ) ;
b e s t = A r r a y M i n i m u m ( t o t a l B e s t , a l l P r o g r e s s ) ;
p r i n t ( " F e w e s t t r a d e s " ) ;
b e s t = A r r a y M a x i m u m ( p r o f i t B e s t ) ;
p r i n t ( " H i g h e s t p r o f i t % " ) ;
b e s t = A r r a y M a x i m u m ( T P B e s t ) ;
p r i n t ( " H i g h e s t T P % " ) ;
b e s t = A r r a y M a x i m u m ( p r o f i t F a c t o r ) ;
p r i n t ( " H i g h e s t P F " ) ;
b e s t = A r r a y M i n i m u m ( d r a w d o w n B e s t , a l l P r o g r e s s ) ;
p r i n t ( " S m a l l e s t d r a w d o w n " ) ;
b e s t = A r r a y M a x i m u m ( d d B a l a n c e B e s t ) ;
p r i n t ( " D D P r o f i t b e s t " ) ;
b e s t = A r r a y M a x i m u m ( b a l a n c e B e s t ) ;
p r i n t ( " H i g h e s t p r o f i t " ) ;
}
i f ( c s v = = t r u e & & a l l P r o g r e s s > 1 )
{
F i l e W r i t e ( f i l e R e p o r t , r e p o r t S e t t i n g s ) ;
}
C o m m e n t ( " B a c k t e s t i n g f i n i s h e d " ) ;
d o u b l e m o n e y B a c k = g o o d E n o u g h [ A r r a y M a x i m u m ( g o o d E n o u g h ) ] ;
s t r i n g s ;
i f ( o p t i m i z a t i o n = = t r u e )
{
s = s e t t i n g s B e s t [ A r r a y M a x i m u m ( g o o d E n o u g h ) ] ;
}
P r i n t ( " A v g y e a r l y p e r c e n t w i t h 5 % m a x d r a w d o w n : " , D o u b l e T o S t r ( m o n e y B a c k , 2 ) , " % " ) ;
F i l e C l o s e ( f i l e R e s u l t s ) ;
F i l e C l o s e ( f i l e R e p o r t ) ;
}
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d p r i n t ( s t r i n g a t r i b u t e )
{
F i l e W r i t e ( f i l e R e p o r t , " " , " " , " " , " " , " " , " " , " " , D o u b l e T o S t r ( b a l a n c e B e s t [ b e s t ] , 1 ) , D o u b l e T o S t r ( y e a r l y P e r c e n t [ b e s t ] / 1 0 0 , 4 ) , D o u b l e T o S t r ( d d B a l a n c e B e s t [ b e s t ] , 1 ) , D o u b l e T o S t r ( d r a w d o w n B e s t [ b e s t ] , 4 ) , D o u b l e T o S t r ( r p 2 [ b e s t ] , 4 ) , D o u b l e T o S t r ( p r o f i t F a c t o r [ b e s t ] , 2 ) , D o u b l e T o S t r ( T P B e s t [ b e s t ] , 4 ) , D o u b l e T o S t r ( p r o f i t B e s t [ b e s t ] , 4 ) , D o u b l e T o S t r ( t o t a l B e s t [ b e s t ] , 1 ) , a t r i b u t e , s e t t i n g s B e s t [ b e s t ] ) ;
P r i n t ( s e t t i n g s B e s t [ b e s t ] , " " , a t r i b u t e , " B a l a n c e : " , D o u b l e T o S t r ( b a l a n c e B e s t [ b e s t ] , 0 ) , " $ Y e a r l y : " , D o u b l e T o S t r ( y e a r l y P e r c e n t [ b e s t ] , 2 ) , " % D D B a l a n c e : " , D o u b l e T o S t r ( d d B a l a n c e B e s t [ b e s t ] , 0 ) , " $ D D : " , D o u b l e T o S t r ( d r a w d o w n B e s t [ b e s t ] * 1 0 0 , 2 ) , " % R i s k : " , D o u b l e T o S t r ( r p 2 [ b e s t ] , 2 ) , " % P F : " , D o u b l e T o S t r ( p r o f i t F a c t o r [ b e s t ] , 2 ) , " T P : " , D o u b l e T o S t r ( T P B e s t [ b e s t ] * 1 0 0 , 2 ) , " % P r o f i t : " , D o u b l e T o S t r ( p r o f i t B e s t [ b e s t ] * 1 0 0 , 2 ) , " % T r a d e s : " , D o u b l e T o S t r ( t o t a l B e s t [ b e s t ] , 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 )
{
O b j e c t s D e l e t e A l l ( ) ;
C o m m e n t ( " " ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i c k ( )
{
n e w s = f a l s e ;
p r i c e = i O p e n ( s y m b o l , p e r i o d , b a r ) ;
p r i c e 2 = i C l o s e ( s y m b o l , p e r i o d , b a r + 1 ) ;
t i m e = i T i m e ( s y m b o l , p e r i o d , b a r + 1 ) ;
a c c o u n t B a l a n c e = b a l a n c e ;
i f ( b a l a n c e > h i g h e s t B a l a n c e )
{
h i g h e s t B a l a n c e = b a l a n c e ;
l o w e s t B a l a n c e = b a l a n c e ;
}
i f ( b a l a n c e < l o w e s t B a l a n c e )
{
l o w e s t B a l a n c e = b a l a n c e ;
n e w D D = ( h i g h e s t B a l a n c e - l o w e s t B a l a n c e ) / h i g h e s t B a l a n c e ;
}
i f ( r e s u l t D r a w d o w n < n e w D D )
{
r e s u l t D r a w d o w n = n e w D D ;
D D m a x = h i g h e s t B a l a n c e ;
D D m i n = l o w e s t B a l a n c e ;
}
A T R = i A T R ( s y m b o l , p e r i o d , a t r P e r i o d , b a r + 1 ) ;
i f ( A T R ! = 0 & & 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 & & 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 ) ! = 0 )
{
L o t = ( a c c o u n t B a l a n c e * ( r i s k P e r c e n t / 1 0 0 ) / ( A T R * s t o p L o s s / 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 ) ) / 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 ) ) ;
}
e l s e
{
i f ( A T R = = 0 )
{
P r i n t ( " C a n ' t c a l c u l a t e A T R o n " , s y m b o l , " ! " ) ;
}
i f ( 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 )
{
P r i n t ( " C a n ' t g e t " , s y m b o l , " p o i n t ! " ) ;
}
i f ( 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 ) = = 0 )
{
P r i n t ( " C a n ' t g e t " , s y m b o l , " t i c k v a l u e ! " ) ;
}
L o t = 0 . 0 1 ;
}
/ / G E T T I N G C O N F I R M A T I O N 1 S I G N A L S
c o n f i r m a t i o n 1 = s i g n a l ( d e f a u l t S e t t i n g s 1 , i n d i c a t o r N a m e 1 , i n d i c a t o r T y p e 1 , f i r s t B u f f e r 1 , s e c o n d B u f f e r 1 , t h i r d B u f f e r 1 , b a r + 1 ) ;
l a s t C o n f i r m a t i o n 1 = s i g n a l ( d e f a u l t S e t t i n g s 1 , i n d i c a t o r N a m e 1 , i n d i c a t o r T y p e 1 , f i r s t B u f f e r 1 , s e c o n d B u f f e r 1 , t h i r d B u f f e r 1 , b a r + 2 ) ;
/ / I F T U R N E D O F F T H E N T H E S E V A L U E S A R E G I V E N
e x t r a = v o l u m e = b a s e l i n e = c o n f i r m a t i o n 2 = e x i t = c o n f i r m a t i o n 1 ;
l a s t E x t r a = l a s t V o l u m e = l a s t B a s e l i n e = l a s t C o n f i r m a t i o n 2 = l a s t E x i t = l a s t C o n f i r m a t i o n 1 ;
e x t r a V a l u e = b a s e l i n e V a l u e = p r i c e ;
i f ( v o l u m e D i r e c t i o n = = f a l s e )
{
l a s t V o l u m e = 1 ;
v o l u m e = 1 ;
}
i f ( e x t r a T y p e = = e x t r a V o l u m e )
{
e x t r a = 1 ;
l a s t E x t r a = 1 ;
}
/ / I F T U R N E D O N T H E N T H E S E V A L U E S A R E G I V E N
i f ( t u r n O f f B a s e l i n e ! = 0 )
{
b a s e l i n e = s i g n a l ( d e f a u l t S e t t i n g s , b a s e l i n e N a m e , b a s e l i n e T y p e , f i r s t B u f f e r , s e c o n d B u f f e r , t h i r d B u f f e r , b a r + 1 ) ;
l a s t B a s e l i n e = s i g n a l ( d e f a u l t S e t t i n g s , b a s e l i n e N a m e , b a s e l i n e T y p e , f i r s t B u f f e r , s e c o n d B u f f e r , t h i r d B u f f e r , b a r + 2 ) ;
b a s e l i n e V a l u e = i n d i c a t o r V a l u e ( d e f a u l t S e t t i n g s , b a s e l i n e N a m e , f i r s t B u f f e r , b a r + 1 ) ;
}
i f ( t u r n O f f 2 C o n f i m a t i o n ! = 0 )
{
c o n f i r m a t i o n 2 = s i g n a l ( d e f a u l t S e t t i n g s 2 , i n d i c a t o r N a m e 2 , i n d i c a t o r T y p e 2 , f i r s t B u f f e r 2 , s e c o n d B u f f e r 2 , t h i r d B u f f e r 2 , b a r + 1 ) ;
l a s t C o n f i r m a t i o n 2 = s i g n a l ( d e f a u l t S e t t i n g s 2 , i n d i c a t o r N a m e 2 , i n d i c a t o r T y p e 2 , f i r s t B u f f e r 2 , s e c o n d B u f f e r 2 , t h i r d B u f f e r 2 , b a r + 2 ) ;
}
i f ( t u r n O f f V o l u m e ! = 0 )
{
v o l u m e = s i g n a l ( d e f a u l t S e t t i n g s 3 , i n d i c a t o r N a m e 3 , i n d i c a t o r T y p e 3 , f i r s t B u f f e r 3 , s e c o n d B u f f e r 3 , t h i r d B u f f e r 3 , b a r + 1 ) ;
l a s t V o l u m e = s i g n a l ( d e f a u l t S e t t i n g s 3 , i n d i c a t o r N a m e 3 , i n d i c a t o r T y p e 3 , f i r s t B u f f e r 3 , s e c o n d B u f f e r 3 , t h i r d B u f f e r 3 , b a r + 2 ) ;
}
i f ( t u r n O f f E x i t ! = 0 )
{
e x i t = s i g n a l ( d e f a u l t S e t t i n g s 4 , i n d i c a t o r N a m e 4 , i n d i c a t o r T y p e 4 , f i r s t B u f f e r 4 , s e c o n d B u f f e r 4 , t h i r d B u f f e r 4 , b a r + 1 ) ;
l a s t E x i t = s i g n a l ( d e f a u l t S e t t i n g s 4 , i n d i c a t o r N a m e 4 , i n d i c a t o r T y p e 4 , f i r s t B u f f e r 4 , s e c o n d B u f f e r 4 , t h i r d B u f f e r 4 , b a r + 2 ) ;
}
i f ( t u r n O f f E x t r a ! = 0 )
{
e x t r a = s i g n a l ( d e f a u l t S e t t i n g s 5 , i n d i c a t o r N a m e 5 , i n d i c a t o r T y p e 5 , f i r s t B u f f e r 5 , s e c o n d B u f f e r 5 , t h i r d B u f f e r 5 , b a r + 1 ) ;
l a s t E x t r a = s i g n a l ( d e f a u l t S e t t i n g s 5 , i n d i c a t o r N a m e 5 , i n d i c a t o r T y p e 5 , f i r s t B u f f e r 5 , s e c o n d B u f f e r 5 , t h i r d B u f f e r 5 , b a r + 2 ) ;
i f ( e x t r a T y p e = = 0 )
{
e x t r a V a l u e = i n d i c a t o r V a l u e ( d e f a u l t S e t t i n g s 5 , i n d i c a t o r N a m e 5 , f i r s t B u f f e r 5 , b a r + 1 ) ;
}
}
i f ( t u r n O f f B a s e l i n e = = 0 & & t u r n O f f E x t r a ! = 0 & & e x t r a T y p e = = 0 )
{
b a s e l i n e = e x t r a ;
}
i f ( t u r n O f f B a s e l i n e ! = 0 & & t u r n O f f E x t r a = = 0 & & e x t r a T y p e = = 0 )
{
e x t r a = b a s e l i n e ;
}
/ / C L O S I N G O R D E R S W H E N B T
f o r ( i = 0 ; i < o r d e r s T o t a l ; i + + )
{
i f ( o r d e r C l o s e d [ i ] = = f a l s e & & o r d e r S y m b o l [ i ] = = s y m b o l )
{
i f ( o r d e r T y p e [ i ] = = 0 )
{
i f ( c o n f i r m a t i o n 1 ! = 1 | | c o n f i r m a t i o n 2 ! = 1 | | e x i t ! = 1 | | b a s e l i n e ! = 1 | | ( ( e x t r a T y p e = = 0 | | e x t r a T y p e = = 1 ) & & e x t r a ! = 1 ) )
{
o r d e r C l o s e ( i , p r i c e , " c l o s e " ) ;
}
}
e l s e i f ( o r d e r T y p e [ i ] = = 1 )
{
i f ( c o n f i r m a t i o n 1 ! = - 1 | | c o n f i r m a t i o n 2 ! = - 1 | | e x i t ! = - 1 | | b a s e l i n e ! = - 1 | | ( ( e x t r a T y p e = = 0 | | e x t r a T y p e = = 1 ) & & e x t r a ! = - 1 ) )
{
o r d e r C l o s e ( i , p r i c e , " c l o s e " ) ;
}
}
i f ( t r a i l i n g S t o p ! = 0 & & s c a l e O u t = = t r u e )
{
i f ( o r d e r T y p e [ i ] = = 0 & & p r i c e 2 - o r d e r O p e n P r i c e [ i ] > = t r a i l i n g S t a r t * o r d e r C o m m e n t [ i ] )
{
i f ( p r i c e 2 - o r d e r S t o p L o s s [ i ] > t r a i l i n g S t o p * o r d e r C o m m e n t [ i ] )
{
o r d e r S t o p L o s s [ i ] = p r i c e 2 - t r a i l i n g S t o p * o r d e r C o m m e n t [ i ] ;
}
}
e l s e i f ( o r d e r T y p e [ i ] = = 1 & & o r d e r O p e n P r i c e [ i ] - p r i c e 2 > = t r a i l i n g S t a r t * o r d e r C o m m e n t [ i ] )
{
i f ( o r d e r S t o p L o s s [ i ] - p r i c e 2 > t r a i l i n g S t o p * o r d e r C o m m e n t [ i ] )
{
o r d e r S t o p L o s s [ i ] = p r i c e 2 + t r a i l i n g S t o p * o r d e r C o m m e n t [ i ] ;
}
}
}
i f ( s c a l e O u t = = t r u e & & o r d e r T a k e P r o f i t [ i ] = = N U L L & & o r d e r C l o s e d [ i - 1 ] = = t r u e )
{
i f ( o r d e r T y p e [ i ] = = 0 & & o r d e r S t o p L o s s [ i ] < o r d e r O p e n P r i c e [ i ] & & p r i c e > o r d e r O p e n P r i c e [ i ] )
{
o r d e r S t o p L o s s [ i ] = o r d e r O p e n P r i c e [ i ] ;
}
e l s e i f ( o r d e r T y p e [ i ] = = 1 & & o r d e r S t o p L o s s [ i ] > o r d e r O p e n P r i c e [ i ] & & p r i c e < o r d e r O p e n P r i c e [ i ] )
{
o r d e r S t o p L o s s [ i ] = o r d e r O p e n P r i c e [ i ] ;
}
}
}
e l s e
{
c o n t i n u e ;
}
}
i f ( c o n t i n u a t i o n T r a d e s = = t r u e )
{
i f ( b u y C o n t i n u a t i o n [ B T ] = = t r u e & & ( b a s e l i n e ! = 1 | | ( e x t r a ! = 1 & & e x t r a T y p e = = 0 ) ) )
{
b u y C o n t i n u a t i o n [ B T ] = f a l s e ;
}
i f ( s e l l C o n t i n u a t i o n [ B T ] = = t r u e & & ( b a s e l i n e ! = - 1 | | ( e x t r a ! = - 1 & & e x t r a T y p e = = 0 ) ) )
{
s e l l C o n t i n u a t i o n [ B T ] = f a l s e ;
}
}
e l s e
{
b u y C o n t i n u a t i o n [ B T ] = f a l s e ;
s e l l C o n t i n u a t i o n [ B T ] = f a l s e ;
}
/ / M A K E S N E W T R A D E S
i f ( c o n f i r m a t i o n 1 = = 1 & & c o n f i r m a t i o n 2 = = 1 & & e x i t = = 1 & & b a s e l i n e = = 1 & & ( e x t r a = = 1 | | e x t r a T y p e = = 2 | | e x t r a T y p e = = 3 ) )
{
i f ( l a s t C o n f i r m a t i o n 1 ! = 1 | | l a s t C o n f i r m a t i o n 2 ! = 1 | | e x i t ! = 1 | | l a s t B a s e l i n e ! = 1 | | ( l a s t E x t r a ! = 1 & & ( e x t r a T y p e = = 0 | | e x t r a T y p e = = 1 ) ) )
{
i f ( ( ( ( b a s e l i n e V a l u e + ( d i s t a n c e F r o m B L * A T R ) > p r i c e 2 & & e x t r a V a l u e + ( d i s t a n c e F r o m B L * A T R ) > p r i c e 2 ) | | d i s t a n c e F r o m B L = = 0 ) & & ( e x t r a = = 1 | | e x t r a T y p e = = 0 | | e x t r a T y p e = = 1 ) & & v o l u m e = = 1 ) | | b u y C o n t i n u a t i o n [ B T ] = = t r u e )
{
i f ( s c a l e O u t = = f a l s e )
{
o r d e r S e n d ( s y m b o l , 0 , L o t , p r i c e , p r i c e - ( A T R * s t o p L o s s ) , p r i c e + ( A T R * t a k e P r o f i t ) , A T R ) ;
}
e l s e
{
i f ( t a k e P r o f i t 2 ! = 0 )
{
t p 2 = p r i c e + ( A T R * t a k e P r o f i t 2 ) ;
}
o r d e r S e n d ( s y m b o l , 0 , L o t / 2 , p r i c e , p r i c e - ( A T R * s t o p L o s s ) , p r i c e + ( A T R * t a k e P r o f i t ) , A T R ) ;
o r d e r S e n d ( s y m b o l , 0 , L o t / 2 , p r i c e , p r i c e - ( A T R * s t o p L o s s ) , t p 2 , A T R ) ;
}
b u y C o n t i n u a t i o n [ B T ] = t r u e ;
}
i f ( c o n t i n u a t i o n W O P r e v i o u s T r a d e = = t r u e )
{
b u y C o n t i n u a t i o n [ B T ] = 1 ;
}
}
}
e l s e i f ( c o n f i r m a t i o n 1 = = - 1 & & c o n f i r m a t i o n 2 = = - 1 & & e x i t = = - 1 & & b a s e l i n e = = - 1 & & ( e x t r a = = - 1 | | e x t r a T y p e = = 2 | | e x t r a T y p e = = 3 ) )
{
i f ( l a s t C o n f i r m a t i o n 1 ! = - 1 | | l a s t C o n f i r m a t i o n 2 ! = - 1 | | e x i t ! = - 1 | | l a s t B a s e l i n e ! = - 1 | | ( l a s t E x t r a ! = - 1 & & ( e x t r a T y p e = = 0 | | e x t r a T y p e = = 1 ) ) )
{
i f ( ( ( ( b a s e l i n e V a l u e - ( d i s t a n c e F r o m B L * A T R ) < p r i c e 2 & & e x t r a V a l u e - ( d i s t a n c e F r o m B L * A T R ) < p r i c e 2 ) | | d i s t a n c e F r o m B L = = 0 ) & & ( e x t r a = = 1 | | e x t r a T y p e ! = 2 ) & & ( e x t r a = = - 1 | | e x t r a T y p e ! = 3 ) & & ( ( v o l u m e D i r e c t i o n = = f a l s e & & v o l u m e = = 1 ) | | ( v o l u m e D i r e c t i o n = = t r u e & & v o l u m e = = - 1 ) ) ) | | s e l l C o n t i n u a t i o n [ B T ] = = t r u e )
{
i f ( s c a l e O u t = = f a l s e )
{
o r d e r S e n d ( s y m b o l , 1 , L o t , p r i c e , p r i c e + ( A T R * s t o p L o s s ) , p r i c e - ( A T R * t a k e P r o f i t ) , A T R ) ;
}
e l s e
{
i f ( t a k e P r o f i t 2 ! = 0 )
{
t p 2 = p r i c e - ( A T R * t a k e P r o f i t 2 ) ;
}
o r d e r S e n d ( s y m b o l , 1 , L o t / 2 , p r i c e , p r i c e + ( A T R * s t o p L o s s ) , p r i c e - ( A T R * t a k e P r o f i t ) , A T R ) ;
o r d e r S e n d ( s y m b o l , 1 , L o t / 2 , p r i c e , p r i c e + ( A T R * s t o p L o s s ) , t p 2 , A T R ) ;
}
s e l l C o n t i n u a t i o n [ B T ] = t r u e ;
}
i f ( c o n t i n u a t i o n W O P r e v i o u s T r a d e = = t r u e )
{
s e l l C o n t i n u a t i o n [ B T ] = 1 ;
}
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
Comments