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