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