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