Price Data Components
0
Views
0
Downloads
0
Favorites
JMA Keltner channel
ÿþ/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# 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 " J M A K e l t n e r c h a n n e l "
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# 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 _ l a b e l 1 " u p p e r f i l l i n g "
# 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 _ F I L L I N G
# p r o p e r t y i n d i c a t o r _ c o l o r 1 C ' 2 0 7 , 2 4 3 , 2 0 7 '
# p r o p e r t y i n d i c a t o r _ l a b e l 2 " l o w e r f i l l i n g "
# 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 _ F I L L I N G
# p r o p e r t y i n d i c a t o r _ c o l o r 2 C ' 2 5 2 , 2 2 5 , 2 0 5 '
# p r o p e r t y i n d i c a t o r _ l a b e l 3 " U p p e r b a n d "
# 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 _ C O L O R _ 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 L i m e G r e e n , 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 _ l a b e l 4 " L o w e r b a n d "
# 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 _ C O L O R _ 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 L i m e G r e e n , 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 _ l a b e l 5 " M i d d l e v a l u e "
# 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 _ 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 5 c l r D a r k G r a y
/ /
/ / - - -
/ /
i n p u t i n t i n p P e r i o d = 1 4 ; / / P e r i o d
i n p u t E N U M _ A P P L I E D _ P R I C E i n p P r i c e = P R I C E _ T Y P I C A L ; / / P r i c e
i n p u t i n t i n p A t r P e r i o d = 1 4 ; / / A T R p e r i o d
i n p u t d o u b l e i n p A t r M u l t i p l i e r = 1 . 5 ; / / C h a n n e l m u l t i p l i e r
d o u b l e b u f f e r U p [ ] , b u f f e r U p c [ ] , b u f f e r D n [ ] , b u f f e r D n c [ ] , b u f f e r M e [ ] , f u p u [ ] , f u p d [ ] , f d n d [ ] , f d n u [ ] ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ /
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i n t O n I n i t ( )
{
S e t I n d e x B u f f e r ( 0 , f u p 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 ( 1 , f u p 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 ( 2 , f d n 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 , f d n 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 u f f e r U p , 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 ( 5 , b u f f e r U p 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 , b u f f e r D 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 ( 7 , b u f f e r D n 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 ( 8 , b u f f e r M e , I N D I C A T O R _ D A T A ) ;
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
v o i d O n D e i n i t ( c o n s t i n t r e a s o n ) { r e t u r 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 ( p r e v _ c a l c u l a t e d ) ;
/ /
/ / - - -
/ /
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 _ a t r = 0 ;
f o r ( i n t k = 0 ; k < i n p A t r P e r i o d & & ( i - k - 1 ) > = 0 ; k + + ) _ a t r + = M a t h M a x ( h i g h [ i - k ] , c l o s e [ i - k - 1 ] ) - M a t h M i n ( l o w [ i - k ] , c l o s e [ i - k - 1 ] ) ; _ a t r / = i n p A t r P e r i o d ;
b u f f e r M e [ i ] = i S m o o t h ( g e t P r i c e ( i n p 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 ) , i n p P e r i o d , 0 , i , r a t e s _ t o t a l ) ;
b u f f e r U p [ i ] = b u f f e r M e [ i ] + _ a t r * i n p A t r M u l t i p l i e r ;
b u f f e r D n [ i ] = b u f f e r M e [ i ] - _ a t r * i n p A t r M u l t i p l i e r ;
f u p d [ i ] = b u f f e r M e [ i ] ; f u p u [ i ] = b u f f e r U p [ i ] ;
f d n u [ i ] = b u f f e r M e [ i ] ; f d n d [ i ] = b u f f e r D n [ i ] ;
i f ( i > 0 )
{
b u f f e r U p c [ i ] = b u f f e r U p c [ i - 1 ] ;
b u f f e r D n c [ i ] = b u f f e r D n c [ i - 1 ] ;
/ /
/ /
/ /
/ /
/ /
i f ( b u f f e r U p [ i ] > b u f f e r U p [ i - 1 ] ) b u f f e r U p c [ i ] = 0 ;
i f ( b u f f e r U p [ i ] < b u f f e r U p [ i - 1 ] ) b u f f e r U p c [ i ] = 1 ;
i f ( b u f f e r D n [ i ] > b u f f e r D n [ i - 1 ] ) b u f f e r D n c [ i ] = 0 ;
i f ( b u f f e r D n [ i ] < b u f f e r D n [ i - 1 ] ) b u f f e r D n c [ i ] = 1 ;
}
}
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 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 - 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 - 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 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
---