Price Data Components
Indicators Used
2
Views
0
Downloads
0
Favorites
TREND_alexcud v_2
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | T R E N D _ a l e x c u d v _ 2 ( b a r a b a s h k a k v n ' s e d i t i o n ) . m q 5 |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# p r o p e r t y c o p y r i g h t " C o p y r i g h t © 2 0 0 7 "
# p r o p e r t y l i n k " "
# p r o p e r t y v e r s i o n " 1 . 0 0 1 "
# i n c l u d e < T r a d e \ P o s i t i o n I n f o . m q h >
# i n c l u d e < T r a d e \ T r a d e . m q h >
# i n c l u d e < T r a d e \ S y m b o l I n f o . m q h >
C P o s i t i o n I n f o m _ p o s i t i o n ; / / t r a d e p o s i t i o n o b j e c t
C T r a d e m _ t r a d e ; / / t r a d i n g o b j e c t
C S y m b o l I n f o m _ s y m b o l ; / / s y m b o l i n f o o b j e c t
/ / - - - i n p u t p a r a m e t e r s
i n p u t u s h o r t I n p S t o p L o s s = 2 0 ; / / S t o p L o s s
i n p u t u s h o r t I n p T a k e P r o f i t = 3 0 ; / / T a k e P r o f i t
i n p u t u s h o r t I n p T r a i l i n g S t o p = 0 ; / / T r a i l i n g S t o p
i n p u t d o u b l e L o t s = 0 . 1 ; / / L o t s
i n p u t i n t O p e n L e v e l = 1 ; / / #@>25=L >B:@KB8O 0 8;8 1
i n p u t i n t C l o s e L e v e l = 1 ; / / #@>25=L 70:@KB8O 0 8;8 1
i n p u t E N U M _ T I M E F R A M E S T F 1 = P E R I O D _ M 1 5 ;
i n p u t E N U M _ T I M E F R A M E S T F 2 = P E R I O D _ H 1 ;
i n p u t E N U M _ T I M E F R A M E S T F 3 = P E R I O D _ H 4 ;
i n p u t i n t m a T r e n d P e r i o d v _ 1 = 5 ;
i n p u t i n t m a T r e n d P e r i o d v _ 2 = 8 ;
i n p u t i n t m a T r e n d P e r i o d v _ 3 = 1 3 ;
i n p u t i n t m a T r e n d P e r i o d v _ 4 = 2 1 ;
i n p u t i n t m a T r e n d P e r i o d v _ 5 = 3 4 ;
/ / - - -
i n t S i g n a l ;
d o u b l e S L , T P ;
u l o n g m _ m a g i c = 8 9 6 4 3 9 8 1 ; / / m a g i c n u m b e r
/ / - - -
d o u b l e E x t S t o p L o s s = 0 . 0 ;
d o u b l e E x t T a k e P r o f i t = 0 . 0 ;
d o u b l e E x t T r a i l i n g S t o p = 0 . 0 ;
/ / - - -
i n t h a n d l e _ i M A _ T F 1 _ P e r _ 1 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 1 _ P e r _ 2 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 1 _ P e r _ 3 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 1 _ P e r _ 4 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 1 _ P e r _ 5 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 2 _ P e r _ 1 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 2 _ P e r _ 2 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 2 _ P e r _ 3 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 2 _ P e r _ 4 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 2 _ P e r _ 5 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 3 _ P e r _ 1 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 3 _ P e r _ 2 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 3 _ P e r _ 3 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 3 _ P e r _ 4 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i M A _ T F 3 _ P e r _ 5 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i M A i n d i c a t o r
i n t h a n d l e _ i A C _ T F 1 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i A C i n d i c a t o r
i n t h a n d l e _ i A C _ T F 3 ; / / v a r i a b l e f o r s t o r i n g t h e h a n d l e o f t h e i A C i n d i c a t o r
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t i n i t i a l i z a t i o n f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O n I n i t ( )
{
/ / S e t M a r g i n M o d e ( ) ;
/ / i f ( ! I s H e d g i n g ( ) )
/ / {
/ / P r i n t ( " H e d g i n g o n l y ! " ) ;
/ / r e t u r n ( I N I T _ F A I L E D ) ;
/ / }
/ / - - -
m _ s y m b o l . N a m e ( S y m b o l ( ) ) ; / / s e t s s y m b o l n a m e
i f ( ! R e f r e s h R a t e s ( ) )
{
P r i n t ( " E r r o r R e f r e s h R a t e s . B i d = " , D o u b l e T o S t r i n g ( m _ s y m b o l . B i d ( ) , D i g i t s ( ) ) ,
" , A s k = " , D o u b l e T o S t r i n g ( m _ s y m b o l . A s k ( ) , D i g i t s ( ) ) ) ;
r e t u r n ( I N I T _ F A I L E D ) ;
}
/ / - - -
m _ t r a d e . S e t E x p e r t M a g i c N u m b e r ( m _ m a g i c ) ; / / s e t s m a g i c n u m b e r
/ / - - - t u n i n g f o r 3 o r 5 d i g i t s
i n t d i g i t s _ a d j u s t = 1 ;
i f ( m _ s y m b o l . D i g i t s ( ) = = 3 | | m _ s y m b o l . D i g i t s ( ) = = 5 )
d i g i t s _ a d j u s t = 1 0 ;
E x t S t o p L o s s = I n p S t o p L o s s * d i g i t s _ a d j u s t ;
E x t T a k e P r o f i t = I n p T a k e P r o f i t * d i g i t s _ a d j u s t ;
E x t T r a i l i n g S t o p = I n p T r a i l i n g S t o p * d i g i t s _ a d j u s t ;
i f ( ! C r e a t e i M A ( T F 1 , m a T r e n d P e r i o d v _ 1 , h a n d l e _ i M A _ T F 1 _ P e r _ 1 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 1 , m a T r e n d P e r i o d v _ 2 , h a n d l e _ i M A _ T F 1 _ P e r _ 2 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 1 , m a T r e n d P e r i o d v _ 3 , h a n d l e _ i M A _ T F 1 _ P e r _ 3 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 1 , m a T r e n d P e r i o d v _ 4 , h a n d l e _ i M A _ T F 1 _ P e r _ 4 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 1 , m a T r e n d P e r i o d v _ 5 , h a n d l e _ i M A _ T F 1 _ P e r _ 5 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 2 , m a T r e n d P e r i o d v _ 1 , h a n d l e _ i M A _ T F 2 _ P e r _ 1 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 2 , m a T r e n d P e r i o d v _ 2 , h a n d l e _ i M A _ T F 2 _ P e r _ 2 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 2 , m a T r e n d P e r i o d v _ 3 , h a n d l e _ i M A _ T F 2 _ P e r _ 3 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 2 , m a T r e n d P e r i o d v _ 4 , h a n d l e _ i M A _ T F 2 _ P e r _ 4 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 2 , m a T r e n d P e r i o d v _ 5 , h a n d l e _ i M A _ T F 2 _ P e r _ 5 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 3 , m a T r e n d P e r i o d v _ 1 , h a n d l e _ i M A _ T F 3 _ P e r _ 1 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 3 , m a T r e n d P e r i o d v _ 2 , h a n d l e _ i M A _ T F 3 _ P e r _ 2 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 3 , m a T r e n d P e r i o d v _ 3 , h a n d l e _ i M A _ T F 3 _ P e r _ 3 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 3 , m a T r e n d P e r i o d v _ 4 , h a n d l e _ i M A _ T F 3 _ P e r _ 4 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i M A ( T F 3 , m a T r e n d P e r i o d v _ 5 , h a n d l e _ i M A _ T F 3 _ P e r _ 5 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i A C ( T F 1 , h a n d l e _ i A C _ T F 1 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
i f ( ! C r e a t e i A C ( T F 3 , h a n d l e _ i A C _ T F 3 ) )
r e t u r n ( I N I T _ F A I L E D ) ;
/ / - - -
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t d e i n i t i a l i z a t i o n f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 )
{
/ / - - -
C o m m e n t ( " " ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t t i c k f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i c k ( )
{
s t a t i c d a t e t i m e p r e v _ t i m e = 0 ;
d a t e t i m e t i m e _ 0 = i T i m e ( m _ s y m b o l . N a m e ( ) , P e r i o d ( ) , 0 ) ;
i f ( t i m e _ 0 = = p r e v _ t i m e )
r e t u r n ;
p r e v _ t i m e = t i m e _ 0 ;
T R E N D _ a l e x c u d ( ) ;
i n t t o t a l = 0 ;
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - ) / / r e t u r n s t h e n u m b e r o f o p e n p o s i t i o n s
i f ( m _ p o s i t i o n . S e l e c t B y I n d e x ( i ) )
i f ( m _ p o s i t i o n . S y m b o l ( ) = = m _ s y m b o l . N a m e ( ) & & m _ p o s i t i o n . M a g i c ( ) = = m _ m a g i c )
t o t a l + + ;
i f ( ! R e f r e s h R a t e s ( ) )
r e t u r n ;
i f ( t o t a l = = 0 )
{
i f ( S i g n a l > O p e n L e v e l )
{
S L = 0 ; T P = 0 ;
i f ( E x t S t o p L o s s > 0 ) S L = m _ s y m b o l . A s k ( ) - P o i n t ( ) * E x t S t o p L o s s ;
i f ( E x t T a k e P r o f i t > 0 ) T P = m _ s y m b o l . A s k ( ) + P o i n t ( ) * E x t T a k e P r o f i t ;
m _ t r a d e . B u y ( L o t s , m _ s y m b o l . N a m e ( ) , m _ s y m b o l . A s k ( ) , S L , T P ) ;
r e t u r n ;
}
i f ( S i g n a l < O p e n L e v e l )
{
S L = 0 ; T P = 0 ;
i f ( E x t S t o p L o s s > 0 ) S L = m _ s y m b o l . B i d ( ) + P o i n t ( ) * E x t S t o p L o s s ;
i f ( E x t T a k e P r o f i t > 0 ) T P = m _ s y m b o l . B i d ( ) - P o i n t ( ) * E x t T a k e P r o f i t ;
m _ t r a d e . S e l l ( L o t s , m _ s y m b o l . N a m e ( ) , m _ s y m b o l . B i d ( ) , S L , T P ) ;
r e t u r n ;
}
}
f o r ( i n t i = P o s i t i o n s T o t a l ( ) - 1 ; i > = 0 ; i - - ) / / r e t u r n s t h e n u m b e r o f o p e n p o s i t i o n s
i f ( m _ p o s i t i o n . S e l e c t B y I n d e x ( i ) )
i f ( m _ p o s i t i o n . S y m b o l ( ) = = m _ s y m b o l . N a m e ( ) & & m _ p o s i t i o n . M a g i c ( ) = = m _ m a g i c )
{
i f ( m _ p o s i t i o n . P o s i t i o n T y p e ( ) = = P O S I T I O N _ T Y P E _ B U Y )
{
i f ( S i g n a l < - C l o s e L e v e l )
{
m _ t r a d e . P o s i t i o n C l o s e ( m _ p o s i t i o n . T i c k e t ( ) ) ;
r e t u r n ;
}
i f ( E x t T r a i l i n g S t o p > 0
& & m _ s y m b o l . B i d ( ) - m _ p o s i t i o n . P r i c e O p e n ( ) > P o i n t ( ) * E x t T r a i l i n g S t o p
& & m _ p o s i t i o n . S t o p L o s s ( ) < m _ s y m b o l . B i d ( ) - P o i n t ( ) * E x t T r a i l i n g S t o p )
{
m _ t r a d e . P o s i t i o n M o d i f y ( m _ p o s i t i o n . T i c k e t ( ) , m _ s y m b o l . B i d ( ) - P o i n t ( ) * E x t T r a i l i n g S t o p , m _ p o s i t i o n . T a k e P r o f i t ( ) ) ;
r e t u r n ;
}
}
i f ( m _ p o s i t i o n . P o s i t i o n T y p e ( ) = = P O S I T I O N _ T Y P E _ S E L L )
{
i f ( S i g n a l > C l o s e L e v e l )
{
m _ t r a d e . P o s i t i o n C l o s e ( m _ p o s i t i o n . T i c k e t ( ) ) ;
r e t u r n ;
}
i f ( E x t T r a i l i n g S t o p > 0
& & m _ p o s i t i o n . P r i c e O p e n ( ) - m _ s y m b o l . A s k ( ) > P o i n t ( ) * E x t T r a i l i n g S t o p
& & ( m _ p o s i t i o n . S t o p L o s s ( ) > m _ s y m b o l . A s k ( ) + P o i n t ( ) * E x t T r a i l i n g S t o p | | m _ p o s i t i o n . S t o p L o s s ( ) = = 0 ) )
{
m _ t r a d e . P o s i t i o n M o d i f y ( m _ p o s i t i o n . T i c k e t ( ) , m _ s y m b o l . A s k ( ) + P o i n t ( ) * E x t T r a i l i n g S t o p , m _ p o s i t i o n . T a k e P r o f i t ( ) ) ;
r e t u r n ;
}
}
}
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d T R E N D _ a l e x c u d ( )
{
d o u b l e M a H 1 1 v , M a H 4 1 v , M a D 1 1 v , M a H 1 p r 1 v , M a H 4 p r 1 v , M a D 1 p r 1 v ;
d o u b l e M a H 1 2 v , M a H 4 2 v , M a D 1 2 v , M a H 1 p r 2 v , M a H 4 p r 2 v , M a D 1 p r 2 v ;
d o u b l e M a H 1 3 v , M a H 4 3 v , M a D 1 3 v , M a H 1 p r 3 v , M a H 4 p r 3 v , M a D 1 p r 3 v ;
d o u b l e M a H 1 4 v , M a H 4 4 v , M a D 1 4 v , M a H 1 p r 4 v , M a H 4 p r 4 v , M a D 1 p r 4 v ;
d o u b l e M a H 1 5 v , M a H 4 5 v , M a D 1 5 v , M a H 1 p r 5 v , M a H 4 p r 5 v , M a D 1 p r 5 v ;
d o u b l e u 1 x 5 v = 0 . 0 , u 1 x 8 v = 0 . 0 , u 1 x 1 3 v = 0 . 0 , u 1 x 2 1 v = 0 . 0 , u 1 x 3 4 v = 0 . 0 ;
d o u b l e u 2 x 5 v = 0 . 0 , u 2 x 8 v = 0 . 0 , u 2 x 1 3 v = 0 . 0 , u 2 x 2 1 v = 0 . 0 , u 2 x 3 4 v = 0 . 0 ;
d o u b l e u 3 x 5 v = 0 . 0 , u 3 x 8 v = 0 . 0 , u 3 x 1 3 v = 0 . 0 , u 3 x 2 1 v = 0 . 0 , u 3 x 3 4 v = 0 . 0 ;
d o u b l e u 1 a c v = 0 . 0 , u 2 a c v = 0 . 0 , u 3 a c v = 0 . 0 ;
d o u b l e d 1 x 5 v = 0 . 0 , d 1 x 8 v = 0 . 0 , d 1 x 1 3 v = 0 . 0 , d 1 x 2 1 v = 0 . 0 , d 1 x 3 4 v = 0 . 0 ;
d o u b l e d 2 x 5 v = 0 . 0 , d 2 x 8 v = 0 . 0 , d 2 x 1 3 v = 0 . 0 , d 2 x 2 1 v = 0 . 0 , d 2 x 3 4 v = 0 . 0 ;
d o u b l e d 3 x 5 v = 0 . 0 , d 3 x 8 v = 0 . 0 , d 3 x 1 3 v = 0 . 0 , d 3 x 2 1 v = 0 . 0 , d 3 x 3 4 v = 0 . 0 ;
d o u b l e d 1 a c v = 0 . 0 , d 2 a c v = 0 . 0 , d 3 a c v = 0 . 0 ;
M a H 1 1 v = i M A G e t ( h a n d l e _ i M A _ T F 1 _ P e r _ 1 , 1 ) ; M a H 1 p r 1 v = i M A G e t ( h a n d l e _ i M A _ T F 1 _ P e r _ 1 , 2 ) ;
M a H 1 2 v = i M A G e t ( h a n d l e _ i M A _ T F 1 _ P e r _ 2 , 1 ) ; M a H 1 p r 2 v = i M A G e t ( h a n d l e _ i M A _ T F 1 _ P e r _ 2 , 2 ) ;
M a H 1 3 v = i M A G e t ( h a n d l e _ i M A _ T F 1 _ P e r _ 3 , 1 ) ; M a H 1 p r 3 v = i M A G e t ( h a n d l e _ i M A _ T F 1 _ P e r _ 3 , 2 ) ;
M a H 1 4 v = i M A G e t ( h a n d l e _ i M A _ T F 1 _ P e r _ 4 , 1 ) ; M a H 1 p r 4 v = i M A G e t ( h a n d l e _ i M A _ T F 1 _ P e r _ 4 , 2 ) ;
M a H 1 5 v = i M A G e t ( h a n d l e _ i M A _ T F 1 _ P e r _ 5 , 1 ) ; M a H 1 p r 5 v = i M A G e t ( h a n d l e _ i M A _ T F 1 _ P e r _ 5 , 2 ) ;
M a H 4 1 v = i M A G e t ( h a n d l e _ i M A _ T F 2 _ P e r _ 1 , 1 ) ; M a H 4 p r 1 v = i M A G e t ( h a n d l e _ i M A _ T F 2 _ P e r _ 1 , 2 ) ;
M a H 4 2 v = i M A G e t ( h a n d l e _ i M A _ T F 2 _ P e r _ 2 , 1 ) ; M a H 4 p r 2 v = i M A G e t ( h a n d l e _ i M A _ T F 2 _ P e r _ 2 , 2 ) ;
M a H 4 3 v = i M A G e t ( h a n d l e _ i M A _ T F 2 _ P e r _ 3 , 1 ) ; M a H 4 p r 3 v = i M A G e t ( h a n d l e _ i M A _ T F 2 _ P e r _ 3 , 2 ) ;
M a H 4 4 v = i M A G e t ( h a n d l e _ i M A _ T F 2 _ P e r _ 4 , 1 ) ; M a H 4 p r 4 v = i M A G e t ( h a n d l e _ i M A _ T F 2 _ P e r _ 4 , 2 ) ;
M a H 4 5 v = i M A G e t ( h a n d l e _ i M A _ T F 2 _ P e r _ 5 , 1 ) ; M a H 4 p r 5 v = i M A G e t ( h a n d l e _ i M A _ T F 2 _ P e r _ 5 , 2 ) ;
M a D 1 1 v = i M A G e t ( h a n d l e _ i M A _ T F 3 _ P e r _ 1 , 1 ) ; M a D 1 p r 1 v = i M A G e t ( h a n d l e _ i M A _ T F 3 _ P e r _ 1 , 2 ) ;
M a D 1 2 v = i M A G e t ( h a n d l e _ i M A _ T F 3 _ P e r _ 2 , 1 ) ; M a D 1 p r 2 v = i M A G e t ( h a n d l e _ i M A _ T F 3 _ P e r _ 2 , 2 ) ;
M a D 1 3 v = i M A G e t ( h a n d l e _ i M A _ T F 3 _ P e r _ 3 , 1 ) ; M a D 1 p r 3 v = i M A G e t ( h a n d l e _ i M A _ T F 3 _ P e r _ 3 , 2 ) ;
M a D 1 4 v = i M A G e t ( h a n d l e _ i M A _ T F 3 _ P e r _ 4 , 1 ) ; M a D 1 p r 4 v = i M A G e t ( h a n d l e _ i M A _ T F 3 _ P e r _ 4 , 2 ) ;
M a D 1 5 v = i M A G e t ( h a n d l e _ i M A _ T F 3 _ P e r _ 5 , 1 ) ; M a D 1 p r 5 v = i M A G e t ( h a n d l e _ i M A _ T F 3 _ P e r _ 5 , 2 ) ;
i f ( M a H 1 1 v < M a H 1 p r 1 v ) { u 1 x 5 v = 0 ; d 1 x 5 v = 1 ; }
i f ( M a H 1 1 v > M a H 1 p r 1 v ) { u 1 x 5 v = 1 ; d 1 x 5 v = 0 ; }
i f ( M a H 1 1 v = = M a H 1 p r 1 v ) { u 1 x 5 v = 0 ; d 1 x 5 v = 0 ; }
i f ( M a H 4 1 v < M a H 4 p r 1 v ) { u 2 x 5 v = 0 ; d 2 x 5 v = 1 ; }
i f ( M a H 4 1 v > M a H 4 p r 1 v ) { u 2 x 5 v = 1 ; d 2 x 5 v = 0 ; }
i f ( M a H 4 1 v = = M a H 4 p r 1 v ) { u 2 x 5 v = 0 ; d 2 x 5 v = 0 ; }
i f ( M a D 1 1 v < M a D 1 p r 1 v ) { u 3 x 5 v = 0 ; d 3 x 5 v = 1 ; }
i f ( M a D 1 1 v > M a D 1 p r 1 v ) { u 3 x 5 v = 1 ; d 3 x 5 v = 0 ; }
i f ( M a D 1 1 v = = M a D 1 p r 1 v ) { u 3 x 5 v = 0 ; d 3 x 5 v = 0 ; }
i f ( M a H 1 2 v < M a H 1 p r 2 v ) { u 1 x 8 v = 0 ; d 1 x 8 v = 1 ; }
i f ( M a H 1 2 v > M a H 1 p r 2 v ) { u 1 x 8 v = 1 ; d 1 x 8 v = 0 ; }
i f ( M a H 1 2 v = = M a H 1 p r 2 v ) { u 1 x 8 v = 0 ; d 1 x 8 v = 0 ; }
i f ( M a H 4 2 v < M a H 4 p r 2 v ) { u 2 x 8 v = 0 ; d 2 x 8 v = 1 ; }
i f ( M a H 4 2 v > M a H 4 p r 2 v ) { u 2 x 8 v = 1 ; d 2 x 8 v = 0 ; }
i f ( M a H 4 2 v = = M a H 4 p r 2 v ) { u 2 x 8 v = 0 ; d 2 x 8 v = 0 ; }
i f ( M a D 1 2 v < M a D 1 p r 2 v ) { u 3 x 8 v = 0 ; d 3 x 8 v = 1 ; }
i f ( M a D 1 2 v > M a D 1 p r 2 v ) { u 3 x 8 v = 1 ; d 3 x 8 v = 0 ; }
i f ( M a D 1 2 v = = M a D 1 p r 2 v ) { u 3 x 8 v = 0 ; d 3 x 8 v = 0 ; }
i f ( M a H 1 3 v < M a H 1 p r 3 v ) { u 1 x 1 3 v = 0 ; d 1 x 1 3 v = 1 ; }
i f ( M a H 1 3 v > M a H 1 p r 3 v ) { u 1 x 1 3 v = 1 ; d 1 x 1 3 v = 0 ; }
i f ( M a H 1 3 v = = M a H 1 p r 3 v ) { u 1 x 1 3 v = 0 ; d 1 x 1 3 v = 0 ; }
i f ( M a H 4 3 v < M a H 4 p r 3 v ) { u 2 x 1 3 v = 0 ; d 2 x 1 3 v = 1 ; }
i f ( M a H 4 3 v > M a H 4 p r 3 v ) { u 2 x 1 3 v = 1 ; d 2 x 1 3 v = 0 ; }
i f ( M a H 4 3 v = = M a H 4 p r 3 v ) { u 2 x 1 3 v = 0 ; d 2 x 1 3 v = 0 ; }
i f ( M a D 1 3 v < M a D 1 p r 3 v ) { u 3 x 1 3 v = 0 ; d 3 x 1 3 v = 1 ; }
i f ( M a D 1 3 v > M a D 1 p r 3 v ) { u 3 x 1 3 v = 1 ; d 3 x 1 3 v = 0 ; }
i f ( M a D 1 3 v = = M a D 1 p r 3 v ) { u 3 x 1 3 v = 0 ; d 3 x 1 3 v = 0 ; }
i f ( M a H 1 4 v < M a H 1 p r 4 v ) { u 1 x 2 1 v = 0 ; d 1 x 2 1 v = 1 ; }
i f ( M a H 1 4 v > M a H 1 p r 4 v ) { u 1 x 2 1 v = 1 ; d 1 x 2 1 v = 0 ; }
i f ( M a H 1 4 v = = M a H 1 p r 4 v ) { u 1 x 2 1 v = 0 ; d 1 x 2 1 v = 0 ; }
i f ( M a H 4 4 v < M a H 4 p r 4 v ) { u 2 x 2 1 v = 0 ; d 2 x 2 1 v = 1 ; }
i f ( M a H 4 4 v > M a H 4 p r 4 v ) { u 2 x 2 1 v = 1 ; d 2 x 2 1 v = 0 ; }
i f ( M a H 4 4 v = = M a H 4 p r 4 v ) { u 2 x 2 1 v = 0 ; d 2 x 2 1 v = 0 ; }
i f ( M a D 1 4 v < M a D 1 p r 4 v ) { u 3 x 2 1 v = 0 ; d 3 x 2 1 v = 1 ; }
i f ( M a D 1 4 v > M a D 1 p r 4 v ) { u 3 x 2 1 v = 1 ; d 3 x 2 1 v = 0 ; }
i f ( M a D 1 4 v = = M a D 1 p r 4 v ) { u 3 x 2 1 v = 0 ; d 3 x 2 1 v = 0 ; }
i f ( M a H 1 5 v < M a H 1 p r 5 v ) { u 1 x 3 4 v = 0 ; d 1 x 3 4 v = 1 ; }
i f ( M a H 1 5 v > M a H 1 p r 5 v ) { u 1 x 3 4 v = 1 ; d 1 x 3 4 v = 0 ; }
i f ( M a H 1 5 v = = M a H 1 p r 5 v ) { u 1 x 3 4 v = 0 ; d 1 x 3 4 v = 0 ; }
i f ( M a H 4 5 v < M a H 4 p r 5 v ) { u 2 x 3 4 v = 0 ; d 2 x 3 4 v = 1 ; }
i f ( M a H 4 5 v > M a H 4 p r 5 v ) { u 2 x 3 4 v = 1 ; d 2 x 3 4 v = 0 ; }
i f ( M a H 4 5 v = = M a H 4 p r 5 v ) { u 2 x 3 4 v = 0 ; d 2 x 3 4 v = 0 ; }
i f ( M a D 1 5 v < M a D 1 p r 5 v ) { u 3 x 3 4 v = 0 ; d 3 x 3 4 v = 1 ; }
i f ( M a D 1 5 v > M a D 1 p r 5 v ) { u 3 x 3 4 v = 1 ; d 3 x 3 4 v = 0 ; }
i f ( M a D 1 5 v = = M a D 1 p r 5 v ) { u 3 x 3 4 v = 0 ; d 3 x 3 4 v = 0 ; }
d o u b l e a c v = i A C G e t ( h a n d l e _ i A C _ T F 1 , 1 ) ;
d o u b l e a c 1 v = i A C G e t ( h a n d l e _ i A C _ T F 1 , 2 ) ;
d o u b l e a c 2 v = i A C G e t ( h a n d l e _ i A C _ T F 1 , 3 ) ;
d o u b l e a c 3 v = i A C G e t ( h a n d l e _ i A C _ T F 1 , 4 ) ;
i f ( ( a c 1 v > a c 2 v & & a c 2 v > a c 3 v & & a c v < 0 & & a c v > a c 1 v ) | | ( a c v > a c 1 v & & a c 1 v > a c 2 v & & a c v > 0 ) )
{
u 1 a c v = 3 ; d 1 a c v = 0 ;
}
i f ( ( a c 1 v < a c 2 v & & a c 2 v < a c 3 v & & a c v > 0 & & a c v < a c 1 v ) | | ( a c v < a c 1 v & & a c 1 v < a c 2 v & & a c v < 0 ) )
{
u 1 a c v = 0 ; d 1 a c v = 3 ;
}
i f ( ( ( ( a c 1 v < a c 2 v | | a c 2 v < a c 3 v ) & & a c v < 0 & & a c v > a c 1 v ) | | ( a c v > a c 1 v & & a c 1 v < a c 2 v & & a c v > 0 ) ) | |
( ( ( a c 1 v > a c 2 v | | a c 2 v > a c 3 v ) & & a c v > 0 & & a c v < a c 1 v ) | | ( a c v < a c 1 v & & a c 1 v > a c 2 v & & a c v < 0 ) ) )
{
u 1 a c v = 0 ; d 1 a c v = 0 ;
}
d o u b l e a c 0 3 v = i A C G e t ( h a n d l e _ i A C _ T F 3 , 1 ) ;
d o u b l e a c 1 3 v = i A C G e t ( h a n d l e _ i A C _ T F 3 , 2 ) ;
d o u b l e a c 2 3 v = i A C G e t ( h a n d l e _ i A C _ T F 3 , 3 ) ;
d o u b l e a c 3 3 v = i A C G e t ( h a n d l e _ i A C _ T F 3 , 4 ) ;
i f ( ( a c 1 3 v > a c 2 3 v & & a c 2 3 v > a c 3 3 v & & a c 0 3 v < 0 & & a c 0 3 v > a c 1 3 v ) | | ( a c 0 3 v > a c 1 3 v & & a c 1 3 v > a c 2 3 v & & a c 0 3 v > 0 ) )
{
u 3 a c v = 3 ; d 3 a c v = 0 ;
}
i f ( ( a c 1 3 v < a c 2 3 v & & a c 2 3 v < a c 3 3 v & & a c 0 3 v > 0 & & a c 0 3 v < a c 1 3 v ) | | ( a c 0 3 v < a c 1 3 v & & a c 1 3 v < a c 2 3 v & & a c 0 3 v < 0 ) )
{
u 3 a c v = 0 ; d 3 a c v = 3 ;
}
i f ( ( ( ( a c 1 3 v < a c 2 3 v | | a c 2 3 v < a c 3 3 v ) & & a c 0 3 v < 0 & & a c 0 3 v > a c 1 3 v ) | | ( a c 0 3 v > a c 1 3 v & & a c 1 3 v < a c 2 3 v & & a c 0 3 v > 0 ) ) | |
( ( ( a c 1 3 v > a c 2 3 v | | a c 2 3 v > a c 3 3 v ) & & a c 0 3 v > 0 & & a c 0 3 v < a c 1 3 v ) | | ( a c 0 3 v < a c 1 3 v & & a c 1 3 v > a c 2 3 v & & a c 0 3 v < 0 ) ) )
{
u 3 a c v = 0 ; d 3 a c v = 0 ;
}
d o u b l e u i t o g 1 v = ( u 1 x 5 v + u 1 x 8 v + u 1 x 1 3 v + u 1 x 2 1 v + u 1 x 3 4 v + u 1 a c v ) * 1 2 . 5 ;
d o u b l e u i t o g 2 v = ( u 2 x 5 v + u 2 x 8 v + u 2 x 1 3 v + u 2 x 2 1 v + u 2 x 3 4 v + u 2 a c v ) * 1 2 . 5 ;
d o u b l e u i t o g 3 v = ( u 3 x 5 v + u 3 x 8 v + u 3 x 1 3 v + u 3 x 2 1 v + u 3 x 3 4 v + u 3 a c v ) * 1 2 . 5 ;
d o u b l e d i t o g 1 v = ( d 1 x 5 v + d 1 x 8 v + d 1 x 1 3 v + d 1 x 2 1 v + d 1 x 3 4 v + d 1 a c v ) * 1 2 . 5 ;
d o u b l e d i t o g 2 v = ( d 2 x 5 v + d 2 x 8 v + d 2 x 1 3 v + d 2 x 2 1 v + d 2 x 3 4 v + d 2 a c v ) * 1 2 . 5 ;
d o u b l e d i t o g 3 v = ( d 3 x 5 v + d 3 x 8 v + d 3 x 1 3 v + d 3 x 2 1 v + d 3 x 3 4 v + d 3 a c v ) * 1 2 . 5 ;
S i g n a l = 0 ; C o m m e n t ( " 5 @5:><5=4C5BAO >B:@K20BL ?>78F88. ". " ) ;
i f ( u i t o g 1 v > 5 0 & & u i t o g 2 v > 5 0 & & u i t o g 3 v > 5 0 )
{
S i g n a l = 1 ; C o m m e n t ( " 5?;>E>9 <><5=B 4;O >B:@KB8O ?>78F88 B U Y " ) ;
}
i f ( d i t o g 1 v > 5 0 & & d i t o g 2 v > 5 0 & & d i t o g 3 v > 5 0 )
{
S i g n a l = - 1 ; C o m m e n t ( " 5?;>E>9 <><5=B 4;O >B:@KB8O ?>78F88 S E L L " ) ;
}
i f ( u i t o g 1 v > = 7 5 & & u i t o g 2 v > = 7 5 & & u i t o g 3 v > = 7 5 )
{
S i g n a l = 2 ; C o m m e n t ( " #' + <><5=B 4;O >B:@KB8O ?>78F88 B U Y " ) ;
}
i f ( d i t o g 1 v > = 7 5 & & d i t o g 2 v > = 7 5 & & d i t o g 3 v > = 7 5 )
{
S i g n a l = - 2 ; C o m m e n t ( " #' + <><5=B 4;O >B:@KB8O ?>78F88 S E L L " ) ;
} ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | R e f r e s h e s t h e s y m b o l q u o t e s d a t a |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l R e f r e s h R a t e s ( )
{
/ / - - - r e f r e s h r a t e s
i f ( ! m _ s y m b o l . R e f r e s h R a t e s ( ) )
r e t u r n ( f a l s e ) ;
/ / - - - p r o t e c t i o n a g a i n s t t h e r e t u r n v a l u e o f " z e r o "
i f ( m _ s y m b o l . A s k ( ) = = 0 | | m _ s y m b o l . B i d ( ) = = 0 )
r e t u r n ( f a l s e ) ;
/ / - - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C r e a t e i M A ( c o n s t E N U M _ T I M E F R A M E S t i m e _ f r a m e , c o n s t i n t m a _ p e r i o d , i n t & h a n d l e _ i M A )
{
/ / - - - c r e a t e h a n d l e o f t h e i n d i c a t o r i M A
h a n d l e _ i M A = i M A ( m _ s y m b o l . N a m e ( ) , t i m e _ f r a m e , m a _ p e r i o d , 0 , M O D E _ S M A , P R I C E _ C L O S E ) ;
/ / - - - i f t h e h a n d l e i s n o t c r e a t e d
i f ( h a n d l e _ i M A = = I N V A L I D _ H A N D L E )
{
/ / - - - t e l l a b o u t t h e f a i l u r e a n d o u t p u t t h e e r r o r c o d e
P r i n t F o r m a t ( " F a i l e d t o c r e a t e h a n d l e o f t h e i M A i n d i c a t o r f o r t h e s y m b o l % s / % s , e r r o r c o d e % d " ,
m _ s y m b o l . N a m e ( ) ,
E n u m T o S t r i n g ( t i m e _ f r a m e ) ,
G e t L a s t E r r o r ( ) ) ;
/ / - - - t h e i n d i c a t o r i s s t o p p e d e a r l y
r e t u r n ( f a l s e ) ;
}
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C r e a t e i A C ( c o n s t E N U M _ T I M E F R A M E S t i m e _ f r a m e , i n t & h a n d l e _ i A C )
{
/ / - - - c r e a t e h a n d l e o f t h e i n d i c a t o r i A C
h a n d l e _ i A C = i A C ( m _ s y m b o l . N a m e ( ) , t i m e _ f r a m e ) ;
/ / - - - i f t h e h a n d l e i s n o t c r e a t e d
i f ( h a n d l e _ i A C = = I N V A L I D _ H A N D L E )
{
/ / - - - t e l l a b o u t t h e f a i l u r e a n d o u t p u t t h e e r r o r c o d e
P r i n t F o r m a t ( " F a i l e d t o c r e a t e h a n d l e o f t h e i A C i n d i c a t o r f o r t h e s y m b o l % s / % s , e r r o r c o d e % d " ,
m _ s y m b o l . N a m e ( ) ,
E n u m T o S t r i n g ( t i m e _ f r a m e ) ,
G e t L a s t E r r o r ( ) ) ;
/ / - - - t h e i n d i c a t o r i s s t o p p e d e a r l y
r e t u r n ( I N I T _ F A I L E D ) ;
}
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | G e t v a l u e o f b u f f e r s f o r t h e i M A |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e i M A G e t ( c o n s t i n t h a n d l e , c o n s t i n t i n d e x )
{
d o u b l e M A [ ] ;
A r r a y S e t A s S e r i e s ( M A , t r u e ) ;
/ / - - - r e s e t e r r o r c o d e
R e s e t L a s t E r r o r ( ) ;
/ / - - - f i l l a p a r t o f t h e i M A B u f f e r a r r a y w i t h v a l u e s f r o m t h e i n d i c a t o r b u f f e r t h a t h a s 0 i n d e x
i f ( C o p y B u f f e r ( h a n d l e , 0 , 0 , i n d e x + 1 , M A ) < 0 )
{
/ / - - - i f t h e c o p y i n g f a i l s , t e l l t h e e r r o r c o d e
P r i n t F o r m a t ( " F a i l e d t o c o p y d a t a f r o m t h e i M A i n d i c a t o r , e r r o r c o d e % d " , G e t L a s t E r r o r ( ) ) ;
/ / - - - q u i t w i t h z e r o r e s u l t - i t m e a n s t h a t t h e i n d i c a t o r i s c o n s i d e r e d a s n o t c a l c u l a t e d
r e t u r n ( 0 . 0 ) ;
}
r e t u r n ( M A [ i n d e x ] ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | G e t v a l u e o f b u f f e r s f o r t h e i A C |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e i A C G e t ( c o n s t i n t h a n d l e , c o n s t i n t i n d e x )
{
d o u b l e A C [ ] ;
A r r a y S e t A s S e r i e s ( A C , t r u e ) ;
/ / - - - r e s e t e r r o r c o d e
R e s e t L a s t E r r o r ( ) ;
/ / - - - f i l l a p a r t o f t h e i A C B u f f e r a r r a y w i t h v a l u e s f r o m t h e i n d i c a t o r b u f f e r t h a t h a s 0 i n d e x
i f ( C o p y B u f f e r ( h a n d l e , 0 , 0 , i n d e x + 1 , A C ) < 0 )
{
/ / - - - i f t h e c o p y i n g f a i l s , t e l l t h e e r r o r c o d e
P r i n t F o r m a t ( " F a i l e d t o c o p y d a t a f r o m t h e i A C i n d i c a t o r , e r r o r c o d e % d " , G e t L a s t E r r o r ( ) ) ;
/ / - - - q u i t w i t h z e r o r e s u l t - i t m e a n s t h a t t h e i n d i c a t o r i s c o n s i d e r e d a s n o t c a l c u l a t e d
r e t u r n ( 0 . 0 ) ;
}
r e t u r n ( A C [ i n d e x ] ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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
---