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