3
Views
0
Downloads
0
Favorites
YJ64GUA
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | Y J 6 4 G U A . m q 4 |
/ / | C o p y r i g h t 2 0 1 3 , M e t a Q u o t e s S o f t w a r e C o r p . |
/ / | h t t p : / / w w w . m q l 5 . c o m |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# p r o p e r t y c o p y r i g h t " C o p y r i g h t 2 0 1 3 , 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 " h t t p : / / w w w . m q l 5 . 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 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 1
# p r o p e r t y i n d i c a t o r _ c o l o r 1 W h i t e
# i n c l u d e < M o v i n g A v e r a g e s . m q h >
i n t f o n t s i z e = 1 2 ;
i n t d n C o u n t = 0 ;
i n t s h u = 0 ;
i n t a t r P e r i o d = 6 0 ;
c o l o r g u a C o l o r [ 5 ] ;
d o u b l e b u f 1 [ ] ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C u s t o m i n d i c a t o r i n i t i a l i z a t i o n f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O n I n i t ( )
{
S e t I n d e x S t y l e ( 0 , D R A W _ L I N E ) ;
S e t I n d e x B u f f e r ( 0 , b u f 1 ) ;
S e t I n d e x E m p t y V a l u e ( 0 , 0 . 0 ) ;
O b j e c t s D e l e t e A l l ( ) ;
g u a C o l o r [ 0 ] = D o d g e r B l u e ; ;
g u a C o l o r [ 1 ] = D e e p P i n k ;
g u a C o l o r [ 2 ] = A q u a ;
g u a C o l o r [ 3 ] = C o r a l ;
g u a C o l o r [ 4 ] = M e d i u m P u r p l e ;
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C u s t o m i n d i c a t o r d e 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 d e i n i t ( )
{
O b j e c t s D e l e t e A l l ( ) ;
r e t u r n ( 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | D r a w a r e c t a n g l e m a p i m a g e s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d D r a w R e c t ( )
{
i n t y a o 1 , y a o 2 , y a o 3 , y a o 4 , y a o 5 , y a o 6 ;
d o u b l e x , y ;
d o u b l e x i , y i ;
c o l o r c l r ;
x = 2 5 0 ;
y = 9 ;
x i = 2 5 ;
y i = 3 ;
c l r = c l r B l u e ;
f o r ( i n t j = 0 ; j < = 6 3 ; j + + )
{
y a o 6 = ( i n t ) M a t h F l o o r ( j / 3 2 ) ;
y a o 5 = ( i n t ) M a t h F l o o r ( M a t h M o d ( j , 3 2 ) / 1 6 ) ;
y a o 4 = ( i n t ) M a t h F l o o r ( M a t h M o d ( j , 1 6 ) / 8 ) ;
y a o 3 = ( i n t ) M a t h F l o o r ( M a t h M o d ( j , 8 ) / 4 ) ;
y a o 2 = ( i n t ) M a t h F l o o r ( M a t h M o d ( j , 4 ) / 2 ) ;
y a o 1 = ( i n t ) M a t h M o d ( j , 2 ) ;
i f ( j = = 3 2 ) { x = 2 5 0 ; y = 6 8 0 ; c l r = c l r B l u e ; }
i f ( y a o 6 = = 1 ) P o s i t i v e D r a w R e c t ( " y a o 6 - " + I n t e g e r T o S t r i n g ( j ) , x , y + 1 5 , c l r ) ;
e l s e N e g a t i v e D r a w R e c t ( " y a o 6 - " + I n t e g e r T o S t r i n g ( j ) , x , y + 1 5 , c l r ) ;
i f ( y a o 5 = = 1 ) P o s i t i v e D r a w R e c t ( " y a o 5 - " + I n t e g e r T o S t r i n g ( j ) , x , y + 1 2 , c l r ) ;
e l s e N e g a t i v e D r a w R e c t ( " y a o 5 - " + I n t e g e r T o S t r i n g ( j ) , x , y + 1 2 , c l r ) ;
i f ( y a o 4 = = 1 ) P o s i t i v e D r a w R e c t ( " y a o 4 - " + I n t e g e r T o S t r i n g ( j ) , x , y + 9 , c l r ) ;
e l s e N e g a t i v e D r a w R e c t ( " y a o 4 - " + I n t e g e r T o S t r i n g ( j ) , x , y + 9 , c l r ) ;
i f ( y a o 3 = = 1 ) P o s i t i v e D r a w R e c t ( " y a o 3 - " + I n t e g e r T o S t r i n g ( j ) , x , y + 6 , c l r ) ;
e l s e N e g a t i v e D r a w R e c t ( " y a o 3 - " + I n t e g e r T o S t r i n g ( j ) , x , y + 6 , c l r ) ;
i f ( y a o 2 = = 1 ) P o s i t i v e D r a w R e c t ( " y a o 2 - " + I n t e g e r T o S t r i n g ( j ) , x , y + 3 , c l r ) ;
e l s e N e g a t i v e D r a w R e c t ( " y a o 2 - " + I n t e g e r T o S t r i n g ( j ) , x , y + 3 , c l r ) ;
i f ( y a o 1 = = 1 ) P o s i t i v e D r a w R e c t ( " y a o 1 - " + I n t e g e r T o S t r i n g ( j ) , x , y , c l r ) ;
e l s e N e g a t i v e D r a w R e c t ( " y a o 1 - " + I n t e g e r T o S t r i n g ( j ) , x , y , c l r ) ;
x = x + x i ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | D r a w p o s i t i v e r e c t a n g l e m a p i m a g e s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d P o s i t i v e D r a w R e c t ( s t r i n g n a m e , d o u b l e x , d o u b l e y , c o l o r c l r )
{
O b j e c t C r e a t e ( n a m e + " - 1 " , O B J _ L A B E L , 0 , T i m e C u r r e n t ( ) , 0 , 0 ) ;
O b j e c t S e t ( n a m e + " - 1 " , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t ( n a m e + " - 1 " , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t T e x t ( n a m e + " - 1 " , " - " , 1 2 , " A r i a l N a r r o w " , c l r ) ;
O b j e c t C r e a t e ( n a m e + " - 2 " , O B J _ L A B E L , 0 , T i m e C u r r e n t ( ) , 0 , 0 ) ;
O b j e c t S e t ( n a m e + " - 2 " , O B J P R O P _ X D I S T A N C E , x + 5 ) ;
O b j e c t S e t ( n a m e + " - 2 " , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t T e x t ( n a m e + " - 2 " , " - " , 1 2 , " A r i a l N a r r o w " , c l r ) ;
O b j e c t C r e a t e ( n a m e + " - 3 " , O B J _ L A B E L , 0 , T i m e C u r r e n t ( ) , 0 , 0 ) ;
O b j e c t S e t ( n a m e + " - 3 " , O B J P R O P _ X D I S T A N C E , x + 1 0 ) ;
O b j e c t S e t ( n a m e + " - 3 " , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t T e x t ( n a m e + " - 3 " , " - " , 1 2 , " A r i a l N a r r o w " , c l r ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | D r a w n e g a t i v e r e c t a n g l e m a p i m a g e s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d N e g a t i v e D r a w R e c t ( s t r i n g n a m e , d o u b l e x , d o u b l e y , c o l o r c l r )
{
O b j e c t C r e a t e ( n a m e + " - 1 " , O B J _ L A B E L , 0 , T i m e C u r r e n t ( ) , 0 , 0 ) ;
O b j e c t S e t ( n a m e + " - 1 " , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t ( n a m e + " - 1 " , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t T e x t ( n a m e + " - 1 " , " - " , 1 2 , " A r i a l N a r r o w " , c l r ) ;
O b j e c t C r e a t e ( n a m e + " - 2 " , O B J _ L A B E L , 0 , T i m e C u r r e n t ( ) , 0 , 0 ) ;
O b j e c t S e t ( n a m e + " - 2 " , O B J P R O P _ X D I S T A N C E , x + 5 ) ;
O b j e c t S e t ( n a m e + " - 2 " , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t T e x t ( n a m e + " - 2 " , " " , 1 2 , " A r i a l N a r r o w " , c l r ) ;
O b j e c t C r e a t e ( n a m e + " - 3 " , O B J _ L A B E L , 0 , T i m e C u r r e n t ( ) , 0 , 0 ) ;
O b j e c t S e t ( n a m e + " - 3 " , O B J P R O P _ X D I S T A N C E , x + 1 0 ) ;
O b j e c t S e t ( n a m e + " - 3 " , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t T e x t ( n a m e + " - 3 " , " - " , 1 2 , " A r i a l N a r r o w " , c l r ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | M a r k c a n d l e n a m e o f g u a |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t G u a ( i n t s h i f t )
{
i n t y a o 1 , y a o 2 , y a o 3 , y a o 4 , y a o 5 , y a o 6 ;
i n t g u a s h u ;
i n t c o l o r i ;
s t r i n g t x t 1 , t x t 2 , t x t 3 ;
s t r i n g l a b e l , l a b e l 1 , l a b e l 2 ;
d o u b l e y 1 , y 2 ;
d o u b l e A T R ;
s t r i n g y a o 1 N a m e , y a o 2 N a m e , y a o 3 N a m e , y a o 4 N a m e , y a o 5 N a m e , y a o 6 N a m e ;
d a t e t i m e t i m e = i T i m e ( S y m b o l ( ) , 0 , s h i f t ) ;
i n t s h i f t 0 = i B a r S h i f t ( S y m b o l ( ) , 5 , t i m e , t r u e ) ;
i n t s h i f t 1 = i B a r S h i f t ( S y m b o l ( ) , 1 5 , t i m e , t r u e ) ;
i n t s h i f t 2 = i B a r S h i f t ( S y m b o l ( ) , 6 0 , t i m e , t r u e ) ;
i n t s h i f t 3 = i B a r S h i f t ( S y m b o l ( ) , 2 4 0 , t i m e , t r u e ) ;
i n t s h i f t 4 = i B a r S h i f t ( S y m b o l ( ) , 1 4 4 0 , t i m e , t r u e ) ;
i n t s h i f t 5 = i B a r S h i f t ( S y m b o l ( ) , 7 2 0 0 , t i m e , t r u e ) ;
i f ( s h i f t 5 < 0 | | s h i f t 4 < 0 | | s h i f t 3 < 0 | | s h i f t 2 < 0 | | s h i f t 1 < 0 | | s h i f t 0 < 0 ) r e t u r n ( - 1 ) ;
i f ( i C l o s e ( N U L L , P E R I O D _ M 5 , ( i n t ) M a t h F l o o r ( s h i f t 0 ) ) > i O p e n ( N U L L , P E R I O D _ M 5 , ( i n t ) M a t h F l o o r ( s h i f t 0 ) ) ) y a o 1 = 1 ; e l s e y a o 1 = 0 ;
i f ( i C l o s e ( N U L L , P E R I O D _ M 1 5 , ( i n t ) M a t h F l o o r ( s h i f t 1 ) ) > i O p e n ( N U L L , P E R I O D _ M 1 5 , ( i n t ) M a t h F l o o r ( s h i f t 1 ) ) ) y a o 2 = 1 ; e l s e y a o 2 = 0 ;
i f ( i C l o s e ( N U L L , P E R I O D _ H 1 , ( i n t ) M a t h F l o o r ( s h i f t 2 ) ) > i O p e n ( N U L L , P E R I O D _ H 1 , ( i n t ) M a t h F l o o r ( s h i f t 2 ) ) ) y a o 3 = 1 ; e l s e y a o 3 = 0 ;
i f ( i C l o s e ( N U L L , P E R I O D _ H 4 , ( i n t ) M a t h F l o o r ( s h i f t 3 ) ) > i O p e n ( N U L L , P E R I O D _ H 4 , ( i n t ) M a t h F l o o r ( s h i f t 3 ) ) ) y a o 4 = 1 ; e l s e y a o 4 = 0 ;
i f ( i C l o s e ( N U L L , P E R I O D _ D 1 , ( i n t ) M a t h F l o o r ( s h i f t 4 ) ) > i O p e n ( N U L L , P E R I O D _ D 1 , ( i n t ) M a t h F l o o r ( s h i f t 4 ) ) ) y a o 5 = 1 ; e l s e y a o 5 = 0 ;
i f ( i C l o s e ( N U L L , P E R I O D _ W 1 , ( i n t ) M a t h F l o o r ( s h i f t 5 ) ) > i O p e n ( N U L L , P E R I O D _ W 1 , ( i n t ) M a t h F l o o r ( s h i f t 5 ) ) ) y a o 6 = 1 ; e l s e y a o 6 = 0 ;
g u a s h u = y a o 6 * 3 2 + y a o 5 * 1 6 + y a o 4 * 8 + y a o 3 * 4 + y a o 2 * 2 + y a o 1 * 1 ;
i f ( g u a s h u ! = s h u )
{
s w i t c h ( g u a s h u )
{
c a s e 0 : t x t 1 = " dW" ; t x t 2 = " " ; b r e a k ;
c a s e 1 : t x t 1 = " eR" ; t x t 2 = " " ; b r e a k ;
c a s e 2 : t x t 1 = " Ôk" ; t x t 2 = " " ; b r e a k ;
c a s e 3 : t x t 1 = " Â" ; t x t 2 = " " ; b r e a k ;
c a s e 4 : t x t 1 = " k" ; t x t 2 = " " ; b r e a k ;
c a s e 5 : t x t 1 = " Kf" ; t x t 2 = " " ; b r e a k ;
c a s e 6 : t x t 1 = " " ; t x t 2 = " " ; b r e a k ;
c a s e 7 : t x t 1 = " &T" ; t x t 2 = " " ; b r e a k ;
c a s e 8 : t x t 1 = " &" ; t x t 2 = " " ; b r e a k ;
c a s e 9 : t x t 1 = " n" ; t x t 2 = " " ; b r e a k ;
c a s e 1 0 : t x t 1 = " G" ; t x t 2 = " " ; b r e a k ;
c a s e 1 1 : t x t 1 = " n" ; t x t 2 = " " ; b r e a k ;
c a s e 1 2 : t x t 1 = " \" ; t x t 2 = " Ç" ; b r e a k ;
c a s e 1 3 : t x t 1 = " Åe" ; t x t 2 = " " ; b r e a k ;
c a s e 1 4 : t x t 1 = " ¸T" ; t x t 2 = " " ; b r e a k ;
c a s e 1 5 : t x t 1 = " A" ; t x t 2 = " " ; b r e a k ;
c a s e 1 6 : t x t 1 = " ^" ; t x t 2 = " " ; b r e a k ;
c a s e 1 7 : t x t 1 = " " ; t x t 2 = " " ; b r e a k ;
c a s e 1 8 : t x t 1 = " NW" ; t x t 2 = " " ; b r e a k ;
c a s e 1 9 : t x t 1 = " £m" ; t x t 2 = " " ; b r e a k ;
c a s e 2 0 : t x t 1 = " ã" ; t x t 2 = " " ; b r e a k ;
c a s e 2 1 : t x t 1 = " *g" ; t x t 2 = " Nm" ; b r e a k ;
c a s e 2 2 : t x t 1 = " ðV" ; t x t 2 = " " ; b r e a k ;
c a s e 2 3 : t x t 1 = " ¼" ; t x t 2 = " " ; b r e a k ;
c a s e 2 4 : t x t 1 = " GS" ; t x t 2 = " " ; b r e a k ;
c a s e 2 5 : t x t 1 = " Ê" ; t x t 2 = " " ; b r e a k ;
c a s e 2 6 : t x t 1 = " N" ; t x t 2 = " " ; b r e a k ;
c a s e 2 7 : t x t 1 = " ý]" ; t x t 2 = " " ; b r e a k ;
c a s e 2 8 : t x t 1 = " R`" ; t x t 2 = " " ; b r e a k ;
c a s e 2 9 : t x t 1 = " " ; t x t 2 = " " ; b r e a k ;
c a s e 3 0 : t x t 1 = " 'Y" ; t x t 2 = " Ç" ; b r e a k ;
c a s e 3 1 : t x t 1 = " äY" ; t x t 2 = " " ; b r e a k ;
c a s e 3 2 : t x t 1 = "
Y" ; t x t 2 = " " ; b r e a k ;
c a s e 3 3 : t x t 1 = " " ; t x t 2 = " " ; b r e a k ;
c a s e 3 4 : t x t 1 = " o\" ; t x t 2 = " " ; b r e a k ;
c a s e 3 5 : t x t 1 = " Êv" ; t x t 2 = " " ; b r e a k ;
c a s e 3 6 : t x t 1 = " " ; t x t 2 = " " ; b r e a k ;
c a s e 3 7 : t x t 1 = " lV" ; t x t 2 = " ÑU" ; b r e a k ;
c a s e 3 8 : t x t 1 = " " ; t x t 2 = " " ; b r e a k ;
c a s e 3 9 : t x t 1 = " àe" ; t x t 2 = " Y" ; b r e a k ;
c a s e 4 0 : t x t 1 = " f" ; t x t 2 = " 7Y" ; b r e a k ;
c a s e 4 1 : t x t 1 = " 2" ; t x t 2 = " " ; b r e a k ;
c a s e 4 2 : t x t 1 = " âe" ; t x t 2 = " Nm" ; b r e a k ;
c a s e 4 3 : t x t 1 = " ¶[" ; t x t 2 = " ºN" ; b r e a k ;
c a s e 4 4 : t x t 1 = " 0N" ; t x t 2 = " " ; b r e a k ;
c a s e 4 5 : t x t 1 = " »y" ; t x t 2 = " " ; b r e a k ;
c a s e 4 6 : t x t 1 = " i" ; t x t 2 = " " ; b r e a k ;
c a s e 4 7 : t x t 1 = " T" ; t x t 2 = " ºN" ; b r e a k ;
c a s e 4 8 : t x t 1 = " 4N" ; t x t 2 = " " ; b r e a k ;
c a s e 4 9 : t x t 1 = " _c" ; t x t 2 = " " ; b r e a k ;
c a s e 5 0 : t x t 1 = " " ; t x t 2 = " " ; b r e a k ;
c a s e 5 1 : t x t 1 = " -N" ; t x t 2 = " Z[" ; b r e a k ;
c a s e 5 2 : t x t 1 = " R_" ; t x t 2 = " ¹Y" ; b r e a k ;
c a s e 5 3 : t x t 1 = " }w" ; t x t 2 = " " ; b r e a k ;
c a s e 5 4 : t x t 1 = " QQ" ; t x t 2 = " " ; b r e a k ;
c a s e 5 5 : t x t 1 = " e\" ; t x t 2 = " " ; b r e a k ;
c a s e 5 6 : t x t 1 = " ðl" ; t x t 2 = " " ; b r e a k ;
c a s e 5 7 : t x t 1 = " 'Y" ; t x t 2 = " \u" ; b r e a k ;
c a s e 5 8 : t x t 1 = " " ; t x t 2 = " " ; b r e a k ;
c a s e 5 9 : t x t 1 = " \" ; t x t 2 = " \u" ; b r e a k ;
c a s e 6 0 : t x t 1 = " 'Y" ; t x t 2 = " îX" ; b r e a k ;
c a s e 6 1 : t x t 1 = " 'Y" ; t x t 2 = " g" ; b r e a k ;
c a s e 6 2 : t x t 1 = " ,Y" ; t x t 2 = " " ; b r e a k ;
c a s e 6 3 : t x t 1 = " ~N" ; t x t 2 = " " ; b r e a k ;
d e f a u l t : t x t 1 = " " ; t x t 2 = " " ; b r e a k ;
}
l a b e l 1 = " g u a 1 " + T i m e T o S t r ( T i m e [ s h i f t 0 ] , T I M E _ D A T E | T I M E _ M I N U T E S ) ;
l a b e l 2 = " g u a 2 " + T i m e T o S t r ( T i m e [ s h i f t 0 ] , T I M E _ D A T E | T I M E _ M I N U T E S ) ;
i f ( O b j e c t F i n d ( l a b e l 1 ) > = 0 )
{
O b j e c t S e t T e x t ( l a b e l 1 , t x t 1 , f o n t s i z e , " A r i a l " , g u a C o l o r [ c o l o r i ] ) ;
O b j e c t S e t T e x t ( l a b e l 2 , t x t 2 , f o n t s i z e , " A r i a l " , g u a C o l o r [ c o l o r i ] ) ;
}
e l s e
{
d n C o u n t + + ;
c o l o r i = ( i n t ) M a t h M o d ( d n C o u n t , 5 ) ;
A T R = i A T R ( S y m b o l ( ) , 0 , a t r P e r i o d , s h i f t ) ;
y 1 = b u f 1 [ s h i f t ] ;
y 2 = b u f 1 [ s h i f t ] ;
i f ( C l o s e [ s h i f t + 1 ] > b u f 1 [ s h i f t ] )
{
y 2 = L o w [ s h i f t + 1 ] - A T R / 5 ;
y 1 = L o w [ s h i f t + 1 ] ;
}
e l s e
{
y 1 = H i g h [ s h i f t + 1 ] + A T R / 5 ;
y 2 = H i g h [ s h i f t + 1 ] ;
}
O b j e c t C r e a t e ( l a b e l 1 , O B J _ T E X T , 0 , T i m e [ s h i f t ] , y 1 ) ;
O b j e c t S e t T e x t ( l a b e l 1 , t x t 1 , f o n t s i z e , " A r i a l " , g u a C o l o r [ c o l o r i ] ) ;
O b j e c t C r e a t e ( l a b e l 2 , O B J _ T E X T , 0 , T i m e [ s h i f t ] , y 2 ) ;
O b j e c t S e t T e x t ( l a b e l 2 , t x t 2 , f o n t s i z e , " A r i a l " , g u a C o l o r [ c o l o r i ] ) ;
}
}
s h u = g u a s h u ;
r e t u r n ( 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | D i s p l a y a n d d e s c r i p t i o n o f t h e c u r r e n t c a n d l e G u a |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t C u r r e n t G u a ( i n t s h i f t )
{
i n t y a o 1 , y a o 2 , y a o 3 , y a o 4 , y a o 5 , y a o 6 ;
i n t g u a N o ;
s t r i n g t x t 1 , t x t 2 , t x t 3 , t x t 4 ;
c o l o r c l r ;
s t r i n g y a o 1 N a m e , y a o 2 N a m e , y a o 3 N a m e , y a o 4 N a m e , y a o 5 N a m e , y a o 6 N a m e ;
d a t e t i m e t i m e = i T i m e ( S y m b o l ( ) , 0 , s h i f t ) ;
i n t s h i f t 0 = i B a r S h i f t ( S y m b o l ( ) , 5 , t i m e , t r u e ) ;
i n t s h i f t 1 = i B a r S h i f t ( S y m b o l ( ) , 1 5 , t i m e , t r u e ) ;
i n t s h i f t 2 = i B a r S h i f t ( S y m b o l ( ) , 6 0 , t i m e , t r u e ) ;
i n t s h i f t 3 = i B a r S h i f t ( S y m b o l ( ) , 2 4 0 , t i m e , t r u e ) ;
i n t s h i f t 4 = i B a r S h i f t ( S y m b o l ( ) , 1 4 4 0 , t i m e , t r u e ) ;
i n t s h i f t 5 = i B a r S h i f t ( S y m b o l ( ) , 7 2 0 0 , t i m e , t r u e ) ;
i f ( s h i f t 5 < 0 | | s h i f t 4 < 0 | | s h i f t 3 < 0 | | s h i f t 2 < 0 | | s h i f t 1 < 0 | | s h i f t 0 < 0 ) r e t u r n ( - 1 ) ;
i f ( i C l o s e ( N U L L , P E R I O D _ M 5 , s h i f t 0 ) > i O p e n ( N U L L , P E R I O D _ M 5 , s h i f t 0 ) ) y a o 1 = 1 ; e l s e y a o 1 = 0 ;
i f ( i C l o s e ( N U L L , P E R I O D _ M 1 5 , s h i f t 1 ) > i O p e n ( N U L L , P E R I O D _ M 1 5 , s h i f t 1 ) ) y a o 2 = 1 ; e l s e y a o 2 = 0 ;
i f ( i C l o s e ( N U L L , P E R I O D _ H 1 , s h i f t 2 ) > i O p e n ( N U L L , P E R I O D _ H 1 , s h i f t 2 ) ) y a o 3 = 1 ; e l s e y a o 3 = 0 ;
i f ( i C l o s e ( N U L L , P E R I O D _ H 4 , s h i f t 3 ) > i O p e n ( N U L L , P E R I O D _ H 4 , s h i f t 3 ) ) y a o 4 = 1 ; e l s e y a o 4 = 0 ;
i f ( i C l o s e ( N U L L , P E R I O D _ D 1 , s h i f t 4 ) > i O p e n ( N U L L , P E R I O D _ D 1 , s h i f t 4 ) ) y a o 5 = 1 ; e l s e y a o 5 = 0 ;
i f ( i C l o s e ( N U L L , P E R I O D _ W 1 , s h i f t 5 ) > i O p e n ( N U L L , P E R I O D _ W 1 , s h i f t 5 ) ) y a o 6 = 1 ; e l s e y a o 6 = 0 ;
g u a N o = y a o 6 * 3 2 + y a o 5 * 1 6 + y a o 4 * 8 + y a o 3 * 4 + y a o 2 * 2 + y a o 1 * 1 ;
s w i t c h ( g u a N o )
{
c a s e 0 : t x t 1 = " dW" ; t x t 2 = " " ;
t x t 3 = " CQ¨N0)R]rlKN 0TP[ g8e_ ÿHQ÷ ÿT_;N ÿ)R0WS_ g ÿ NS'N g0[ T0" ;
t x t 4 = " N_ßUl"k ÿBl
T^N;NØÁ0úQè T)RLºN0R ÿ/f^ãS
Nøvr^0" ;
b r e a k ;
c a s e 1 : t x t 1 = " eR" ; t x t 2 = " " ;
t x t 3 = "
N)R g8e_0" ;
t x t 4 = " ±Gu2ñe"³l ÿ uapNVS)Ro`Y0ZZûYê gºNeg©R ÿúQè8l
N×Sbèx0" ;
b r e a k ;
c a s e 2 : t x t 1 = " Ôk" ; t x t 2 = " " ;
t x t 3 = " T0Sn{ ÿCQ ÿ8l ÿàeT0
N[¹eeg ÿT+YöQ0" ;
t x t 4 = " zÎL9dwÚh ÿ
N)YÈS©R N÷{Î0
N(u9R
e»S ÿûNa L'Y¨N0" ;
b r e a k ;
c a s e 3 : t x t 1 = " Â" ; t x t 2 = " " ;
t x t 3 = " åv
NP0 gZ[Rå0" ;
t x t 4 = " JG)YZf¿[g-N ÿ
Nåwg
QHQ gs0}6q TYÃ_ uv` ÿfSY"KNN^{0" ;
b r e a k ;
c a s e 4 : t x t 1 = " k" ; t x t 2 = " " ;
t x t 3 = " )Rú^¯OL^0" ;
t x t 4 = " R_aUl u ÿ gBl"N gb0ZZûYúQLàe; ÿ/f^ãS v[[0" ;
b r e a k ;
c a s e 5 : t x t 1 = " Kf" ; t x t 2 = " " ;
t x t 3 = " ·^¯O(u!lC
¶^ ÿ<fåe N¥c0" ;
t x t 4 = " 0W»S×ÌI ÿó`"^\ºN~b ÿ gBl"vYa ÿÙ*NÐl_N{}Y0" ;
b r e a k ;
c a s e 6 : t x t 1 = " " ; t x t 2 = " " ;
t x t 3 = " ¨N ÿsGP g^0)RÁ'YºN0¨N ÿ)R ÿ(u'Yrr T0)R g8e_0" ;
t x t 4 = " ¤|SUleg ÿãS ¾uÅu8làe~p0auÎNdkýmce ÿxyèíegyè _0" ;
b r e a k ;
c a s e 7 : t x t 1 = " &T" ; t x t 2 = " " ;
t x t 3 = " &TKN*SºN ÿ
N)RTP[ ÿ'Y_\eg0" ;
t x t 4 = " N=wQW
N*X ÿMRÛ¹[f T¾0 g
NBêñ]¿O ÿ¾uÅuãS gurÞ0" ;
b r e a k ;
c a s e 8 : t x t 1 = " &" ; t x t 2 = " " ;
t x t 3 = " ¨N0TP[ gÈ~0" ;
t x t 4 = " )YP+ºN N\Ñ ÿ
N(uNegNºNR0|_dkR_Ñ0RKb ÿ NR gvBÃ_0" ;
b r e a k ;
c a s e 9 : t x t 1 = " n" ; t x t 2 = " " ;
t x t 3 = " nvQÌ ÿ
N·vQ« ÿLvQ^ ÿ
NÁvQºN ÿàeT0" ;
t x t 4 = " "^8^SbÃ_-Np ÿïSÜ`<wMR¾0RKb0
NY NöeNÍ_ ÿG@wòNO _ãS0" ;
b r e a k ;
c a s e 1 0 : t x t 1 = " G" ; t x t 2 = " " ;
t x t 3 = " )RWS ÿ
N)R NS0)RÁ'YºN0 T0" ;
t x t 4 = " 'Yè>P0Wêán)Y ÿï
NLºNæÈS¾ ÿÖbål&^4l9=\R ÿN
NBÃ_Næp0" ;
b r e a k ;
c a s e 1 1 : t x t 1 = " n" ; t x t 2 = " " ;
t x t 3 = " sYR_ T ÿ)R 0" ;
t x t 4 = " äQðQ=(W\q\ ÿ#àQðXúQ#W$0)YMes _úWN ÿÌ[5cNSkQ~vt^0" ;
b r e a k ;
c a s e 1 2 : t x t 1 = " \" ; t x t 2 = " Ç" ;
t x t 3 = " ¨N0)R 0ïS\N ÿ
NïS'YN0Þ WKNó ÿ
N[
N ÿ[ N ÿ'Y T0" ;
t x t 4 = " LºNïÇìr(geh ÿÃ_
Qö`P`<wÌó0=r)RÝOÝOÇ_»S ÿbaL Nek
N[br0" ;
b r e a k ;
c a s e 1 3 : t x t 1 = " Åe" ; t x t 2 = " " ;
t x t 3 = " \¨N0Åe T0" ;
t x t 4 = " Þ h
NQ{Øâ] ÿ\ºNO¡(ukpçp0Y`SdkfS'Y
N)R ÿ NR gg_³R0" ;
b r e a k ;
c a s e 1 4 : t x t 1 = " ¸T" ; t x t 2 = " " ;
t x t 3 = " ¨N0)R 0ÖSsY T0" ;
t x t 4 = " ÒhÌil ` ` ÿöeÐ
Neg«:_Bl0x^UÊNåeöeÐl ÿê g}YN(WT4Y0" ;
b r e a k ;
c a s e 1 5 : t x t 1 = " A" ; t x t 2 = " " ;
t x t 3 = " ¨N0\)R 0" ;
t x t 4 = " SmNnåe
NIQf ÿRTR«ÜúQL0ZZûYBl"v
N T ÿ{2ãS 0Rè^0" ;
b r e a k ;
c a s e 1 6 : t x t 1 = " ^" ; t x t 2 = " " ;
t x t 3 = " NºN T ÿàeT0" ;
t x t 4 = " \^èe»SúQ_ ÿ@wÈplÉblx_0~vekzhg»SvÆQ ÿ{\ѱUl u0" ;
b r e a k ;
c a s e 1 7 : t x t 1 = " " ; t x t 2 = " " ;
t x t 3 = " ¨N0*SbBlåz ÿåzBlb0 Rn{JT ÿQ Nn ÿnR
NJT0)R 0" ;
t x t 4 = " fS-Nla¯r\ ÿ gBl"g_³R0ZZûYTO gºN4x ÿ¤NfúQL¯r UèS0" ;
b r e a k ;
c a s e 1 8 : t x t 1 = " NW" ; t x t 2 = " " ;
t x t 3 = " gZ[ô~Ã_ ÿ¨N0L g\0" ;
t x t 4 = " Nïfggq4l-N ÿêSÁq_?Q
NÁ*0aºNS_" N»SÖS ÿxdegxd»S N:Wzz0" ;
b r e a k ;
c a s e 1 9 : t x t 1 = " £m" ; t x t 2 = " " ;
t x t 3 = " ¨N0sGP g^0)Rm'YÝ] ÿ)R 0" ;
t x t 4 = " ³lgÁ N-Ñ ÿ2kÖS³l½[4lÈSñm0cg±"¾0RKb ÿåe Y `ó`Y9Ã_0" ;
b r e a k ;
c a s e 2 0 : t x t 1 = " ã" ; t x t 2 = " " ;
t x t 3 = " )RWS0àe@b_ ÿvQeg
Y T0 g8e_ ÿY T0" ;
t x t 4 = " NsQ1¾Ð¬b4Y ÿRT{S_b"Bl0¤NfúQL gºN©R ÿ¾uÅuãS
N(ua0" ;
b r e a k ;
c a s e 2 1 : t x t 1 = " *g" ; t x t 2 = " Nm" ;
t x t 3 = " ¨N0\ÐrTlNm ÿáovQ>\ ÿàe8e)R0" ;
t x t 4 = " *Y\eQÐNYa ÿZZûY"^«:_Bl0¤NfúQèpÁ T ÿp1YLºN
N24Y0" ;
b r e a k ;
c a s e 2 2 : t x t 1 = " ðV" ; t x t 2 = " " ;
t x t 3 = " ¨N0 'YºN T ÿàeT0 g
NáO0" ;
t x t 4 = " öeÐ
Neg gºN:k ÿCS¹e~v¡9FU®0ffN`Oô}YÝ ÿ®d
NFg»S½bN¯h0" ;
b r e a k ;
c a s e 2 3 : t x t 1 = " ¼" ; t x t 2 = " " ;
t x t 3 = " gZ[zÕ` ÿ-N T ÿÈ~öQ0)RÁ'YºN0
N)Rm'YÝ]0" ;
t x t 4 = " NºNNï*g¯M ÿ`S@wdkfS9;N _0¤NfúQL g; ÿ uaTO gs^8^0" ;
b r e a k ;
c a s e 2 4 : t x t 1 = " GS" ; t x t 2 = " " ;
t x t 3 = " CQ¨N0(uÁ'YºN ÿÿRd`0WS_ T0" ;
t x t 4 = " cåe»yGSla°e ÿp1YLºN góáO0R
TúQLBÃ_}Y ÿ¾uÅuãS vd9h0" ;
b r e a k ;
c a s e 2 5 : t x t 1 = " Ê" ; t x t 2 = " " ;
t x t 3 = " CQ¨N0)Rm'YÝ] ÿHQ2u Nåe ÿT2u Nåe0" ;
t x t 4 = " fS-NaY¨cèx ÿzS_:NyÍS:Nxy0Ã_-N gpeN9eØS ÿáQN=\ÎNÙ_Ì0" ;
b r e a k ;
c a s e 2 6 : t x t 1 = " N" ; t x t 2 = " " ;
t x t 3 = " 9e
N9eN ÿàe'Nàe_0_egNN0Tló ÿ¦N*gX~N ÿ¸vQöt ÿöQ0" ;
t x t 4 = " ¯gN4xNò]Yt^ ÿ N gmÉlúQ4l°e0D uNm4nºNðy¡ ÿöeegÐlPNê6q0" ;
b r e a k ;
c a s e 2 7 : t x t 1 = " ý]" ; t x t 2 = " " ;
t x t 3 = " \¨N0)R g8e_0)RÁ'YºN0" ;
t x t 4 = " Ûl _4l»ylén ÿúQYLºNéeÞV¶[0/f^ãS vàex ÿZZûYTOôf
Nî]0" ;
b r e a k ;
c a s e 2 8 : t x t 1 = " R`" ; t x t 2 = " " ;
t x t 3 = " ¨N0àeT0)R 0)R g8e_0" ;
t x t 4 = " |egdQPNê6q ÿfS`SLºN
NENØ0¤NfZZûY$Nb1\ ÿ gBl"
N9¾0" ;
b r e a k ;
c a s e 2 9 : t x t 1 = " " ; t x t 2 = " " ;
t x t 3 = " CQ T ÿ¨N0" ;
t x t 4 = " å`SdkfSUê6q ÿBl
TBl)R$NhThQ0ZZûYTOvYa ÿ uatQPNê6q0" ;
b r e a k ;
c a s e 3 0 : t x t 1 = " 'Y" ; t x t 2 = " Ç" ;
t x t 3 = " h c ÿ)R g8e_ ÿ¨N0" ;
t x t 4 = " Y¦hÑöegzz ÿBl
TBl)R'Y
N0ZZûY¾b¤Nfce ÿp1YLºN
NÁ*0" ;
b r e a k ;
c a s e 3 1 : t x t 1 = " äY" ; t x t 2 = " " ;
t x t 3 = " sYîX ÿÿR(uÖSsY0" ;
t x t 4 = " ÖNaNGËSUl"k ÿ{åwÐlyÍûm0êÊN¤NNzS_Ð ÿTTÝO¡{
Nøvr^0" ;
b r e a k ;
c a s e 3 2 : t x t 1 = "
Y" ; t x t 2 = " " ;
t x t 3 = " ¨N0úQeQàe¾u0 gegàeT0ÍSvQS ÿNåeeg
Y ÿ)R g8e_0" ;
t x t 4 = " å`SdkfS
NøvT ÿç_uaòàe[:Y0i`ºNàeINÍSb(` ÿ/f^s^0WwÎâl0" ;
b r e a k ;
c a s e 3 3 : t x t 1 = " " ; t x t 2 = " " ;
t x t 3 = " T0Â ÿêBlãS[0" ;
t x t 4 = " es¿$(W-nèn ÿ gBl"NBÃ_0¤NfúQL¹eYa ÿ¾uÅuãS ïS»y«0" ;
b r e a k ;
c a s e 3 4 : t x t 1 = " o\" ; t x t 2 = " " ;
t x t 3 = " CQ¨N ÿ)R 0ÿR(u g8e_0)Rú^¯O0" ;
t x t 4 = " Î.RqN N
NÁ4Y ÿ NPÛV¯rç_a0baLeg4Y gê~ ÿ%`ÃOÍSù`
Nê1u0" ;
b r e a k ;
c a s e 3 5 : t x t 1 = " Êv" ; t x t 2 = " " ;
t x t 3 = " )R g8e_0)Rm'YÝ]0" ;
t x t 4 = " öeegÐlUlÑS ÿYt^¯g(gÈS _±0göSÍ uYÛv ÿàQºNÁNàQºN8Y0" ;
b r e a k ;
c a s e 3 6 : t x t 1 = " " ; t x t 2 = " " ;
t x t 3 = " ¨N0egii ÿ{ ÑTÑT ÿÊ`~vÌ ÿ
N'NS/0" ;
t x t 4 = " `S"KNdÑ ÿöeegÐlÍT NðX0 NBl"
N9R ÿ¤NfTO'Y¨N0" ;
b r e a k ;
c a s e 3 7 : t x t 1 = " lV" ; t x t 2 = " ÑU" ;
t x t 3 = " ¨N0)R(uñr0" ;
t x t 4 = " ÐÙbY T«×Se ÿx^_mÈSGß0ãSEQ Ã_"kU ÿç_aÎNdknmûy0" ;
b r e a k ;
c a s e 3 8 : t x t 1 = " " ; t x t 2 = " " ;
t x t 3 = " CQ¨N ÿ)R ÿàeT0" ;
t x t 4 = " ¨cf`0XSïr^ ÿ gBl"
N9¾0ZZûYúQLàe; ÿ¾uÅuãS ÝOs^[0" ;
b r e a k ;
c a s e 3 9 : t x t 1 = " àe" ; t x t 2 = " Y" ;
t x t 3 = " CQ¨N ÿ)R 0vQ*Sck gw ÿ
N)R g8e_0" ;
t x t 4 = " Y<{-N¾úQ4Y ÿ`S@wdkfS
Nê1u0 gBl"
N[ÆQ ÿ¾uÅuç_¯rãS a0" ;
b r e a k ;
c a s e 4 0 : t x t 1 = " f" ; t x t 2 = " 7Y" ;
t x t 3 = " )Rp 0" ;
t x t 4 = " öeVNÐÙbp
N@w ÿ%`Ù_dzlÆbNeh0i`ºNàeINÍS:N(` ÿáQNàeRg×S³R0" ;
b r e a k ;
c a s e 4 1 : t x t 1 = " 2" ; t x t 2 = " " ;
t x t 3 = " ¨N0\)R g8e_0" ;
t x t 4 = " öeegÐllhT ÿzzÑmsYTP[Bl0äSPNKN'Y T^ ÿ`S@wdkfSU4N4Y0" ;
b r e a k ;
c a s e 4 2 : t x t 1 = " âe" ; t x t 2 = " Nm" ;
t x t 3 = " ¨N\ ÿ)R 0 R TÈ~qN0" ;
t x t 4 = " ÑiKN
NÐcÓY
T ÿ
N S_t^æ(uR0ºN"dkfSY T^ ÿ NR g'Y¨N0" ;
b r e a k ;
c a s e 4 3 : t x t 1 = " ¶[" ; t x t 2 = " ºN" ;
t x t 3 = " )RsY 0" ;
t x t 4 = " \̱O¤ w ÿ gBl"
NBÃ_0¤NfbabZZûYce ÿp1YLºNàeóáO0" ;
b r e a k ;
c a s e 4 4 : t x t 1 = " 0N" ; t x t 2 = " " ;
t x t 3 = " ¨N ÿsGPKN0ÿRç_ ÿ[åe-N0" ;
t x t 4 = " äS\ff}YàQt^ ÿ N gèxf<OgW0TP[ N`SdkfS ÿöeegÐlPNê6q0" ;
b r e a k ;
c a s e 4 5 : t x t 1 = " »y" ; t x t 2 = " " ;
t x t 3 = " )R 0¨N0\u]r[r T0" ;
t x t 4 = " `SdkfSG)Y«[ ÿÌ[yÅ_6qMºNô0 NR gv T^ ÿaòmce;Ns^[0" ;
b r e a k ;
c a s e 4 6 : t x t 1 = " i" ; t x t 2 = " " ;
t x t 3 = " ò]åeCNZ[0CQ¨N0)R ÿ`¡N0" ;
t x t 4 = " ×"ñe)Ynnp ÿx^_)Yi`Mèeg0ç_»SUegýØSS ÿBl øNBÃ_ `0" ;
b r e a k ;
c a s e 4 7 : t x t 1 = " T" ; t x t 2 = " ºN" ;
t x t 3 = " TºNNÎ ÿ¨N0)Rm'YÝ]0)RTP[ 0" ;
t x t 4 = " ÙNºNcïÇï ÿRTûNap N0¤NfBl"
N9R ÿ uaTO_Nøv0" ;
b r e a k ;
c a s e 4 8 : t x t 1 = " 4N" ; t x t 2 = " " ;
t x t 3 = " CQ¨N ÿ)R 0óNkQg göQ0" ;
t x t 4 = " ÑS?e½eÁN×_ÏØ ÿúQYBl"ûN
e0¤NfZZûY'Y ga ÿp1YLºN gáO0" ;
b r e a k ;
c a s e 4 9 : t x t 1 = " _c" ; t x t 2 = " " ;
t x t 3 = " gZ[ ÿCQ T ÿàeT0ïS ÿ)R g8e_0÷fKN(u ÿN |ïS(u«N0" ;
t x t 4 = " öeÐ
Nó9Ã_Y ÿÔk\O¨cf×Sbèx0q\ï]\cN3 ÿæ]ÒcóS[[
N@w0" ;
b r e a k ;
c a s e 5 0 : t x t 1 = " " ; t x t 2 = " " ;
t x t 3 = " ¨N0æ ÿ
NïS 0" ;
t x t 4 = " öeegÐlUl u ÿ{vðS\^yÜY*YlQ00Rdkø^yv MO ÿµ~6q gxy
NböQ0" ;
b r e a k ;
c a s e 5 1 : t x t 1 = " -N" ; t x t 2 = " Z[" ;
t x t 3 = " Z| ÿ T0)Rm'YÝ] ÿ)R 0" ;
t x t 4 = " dkfS`SKNÐlyk ÿY T*YlQZPpNVS0)*së_)[rß ÿ*sP)eN°[0" ;
b r e a k ;
c a s e 5 2 : t x t 1 = " R_" ; t x t 2 = " ¹Y" ;
t x t 3 = " _öQ ÿàe8e)R0" ;
t x t 4 = " Bl|{S_T4l-N ÿh
NBlKN
NzÅ`0×S=\,ríc¾Ba ÿ³R àeRN
Nb0" ;
b r e a k ;
c a s e 5 3 : t x t 1 = " }w" ; t x t 2 = " " ;
t x t 3 = " \N T0" ;
t x t 4 = " ï
NLºNrSS ÿdzlàeehG
°Q0\Ã_(NaÇ_»S ÿ NekN=4l-N0" ;
b r e a k ;
c a s e 5 4 : t x t 1 = " QQ" ; t x t 2 = " " ;
t x t 3 = " ¨N0)R 0" ;
t x t 4 = " Ù*NfSa w g£ ÿÉ@wZPN
N9R0OÇÙ:gO ÿNN1\ÉBÃ_a0" ;
b r e a k ;
c a s e 5 5 : t x t 1 = " e\" ; t x t 2 = " " ;
t x t 3 = " e\N>\ ÿ
N¥TºN0¨N0" ;
t x t 4 = " ÊO x^_úQ<{-N ÿ1»y~p¾>fZÎ0 N g_×_ÌQN»S ÿ NWSSûNaL0" ;
b r e a k ;
c a s e 5 6 : t x t 1 = " ðl" ; t x t 2 = " " ;
t x t 3 = " \_'Yeg ÿ T ÿ¨N0" ;
t x t 4 = " U¥b NCQÐl:_ ÿ gBl"'Y Tey0¤NfúQLY_a ÿ/f^ãS ;`àe¨Y0" ;
b r e a k ;
c a s e 5 7 : t x t 1 = " 'Y" ; t x t 2 = " \u" ;
t x t 3 = " )R 0
N¶[ß T0)Rm'YÝ]0" ;
t x t 4 = " ç_a8^$N wô ÿCS4YNê~cÃ_ô0ÎNÊNåNTSb _5 ÿûNa L
Nøvr^0" ;
b r e a k ;
c a s e 5 8 : t x t 1 = " " ; t x t 2 = " " ;
t x t 3 = " gZ[ ÿIQ¨N0 T ÿ)Rm'YÝ]0" ;
t x t 4 = " fàs WËWåeENñm ÿàeIQàeëk0RYÊN0ý_6q'YÎ9T»S W ÿê6q>f2ÈSÍ°e0" ;
b r e a k ;
c a s e 5 9 : t x t 1 = " \" ; t x t 2 = " \u" ;
t x t 3 = " ¨N0Æ[N
Nè0êbÊ0" ;
t x t 4 = " SmNÆ[c Nè¾ ÿüvgLºN
NÁØ0¤NfúQLzz9R ÿZZûYBl /fg6q0" ;
b r e a k ;
c a s e 6 0 : t x t 1 = " 'Y" ; t x t 2 = " îX" ;
t x t 3 = " )R 0" ;
t x t 4 = " fS`Så]^_'Y(g ÿ<wMRå@wp
Nï0öeegÐlYzS_ ÿ gNê¡{>eÃ_ZP0" ;
b r e a k ;
c a s e 6 1 : t x t 1 = " 'Y" ; t x t 2 = " g" ;
t x t 3 = " CQ¨N0" ;
t x t 4 = "
xhxdÀZPNbr ÿ/f^ãS ê6qm0ZZûYTO
N9R ÿåîp1Y*g10" ;
b r e a k ;
c a s e 6 2 : t x t 1 = " ,Y" ; t x t 2 = " " ;
t x t 3 = " lbNs^ ÿZ[÷S0 gS ÿJTê0
N)RsSb ÿ)R g8e_0" ;
t x t 4 = " 8n1QUàe¹ ÿûm"ÛãSyyÞ0YR¾
QRz ÿÌ[5cNSÜåNMR0" ;
b r e a k ;
c a s e 6 3 : t x t 1 = " ~N" ; t x t 2 = " " ;
t x t 3 = " CQ¨N ÿ)R 0" ;
t x t 4 = " ðV_4l}YФN ÿ
N1uUl
N w¢h0 NR gvYa ÿTTöeÐnnØ0" ;
b r e a k ;
d e f a u l t : t x t 1 = " " ; t x t 2 = " " ;
t x t 3 = " " ;
b r e a k ;
}
c l r = c l r D a r k G r a y ;
O b j e c t C r e a t e ( " g N " , O B J _ L A B E L , 0 , T i m e C u r r e n t ( ) , 0 , 0 ) ;
O b j e c t S e t ( " g N " , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( " g N " , O B J P R O P _ Y D I S T A N C E , 5 0 ) ;
O b j e c t S e t T e x t ( " g N " , t x t 1 + t x t 2 , 6 0 , " A r i a l N a r r o w " , c l r ) ;
O b j e c t C r e a t e ( " g c 1 " , O B J _ L A B E L , 0 , T i m e C u r r e n t ( ) , 0 , 0 ) ;
O b j e c t S e t ( " g c 1 " , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( " g c 1 " , O B J P R O P _ Y D I S T A N C E , 1 4 0 ) ;
O b j e c t S e t T e x t ( " g c 1 " , t x t 3 , 1 2 , " A r i a l N a r r o w " , c l r ) ;
O b j e c t C r e a t e ( " g c 2 " , O B J _ L A B E L , 0 , T i m e C u r r e n t ( ) , 0 , 0 ) ;
O b j e c t S e t ( " g c 2 " , O B J P R O P _ X D I S T A N C E , 1 0 ) ;
O b j e c t S e t ( " g c 2 " , O B J P R O P _ Y D I S T A N C E , 1 6 0 ) ;
O b j e c t S e t T e x t ( " g c 2 " , t x t 4 , 1 2 , " A r i a l N a r r o w " , c l r ) ;
c l r = R e d ;
y a o 1 N a m e = " y a o 1 - " + I n t e g e r T o S t r i n g ( g u a N o ) ;
y a o 2 N a m e = " y a o 2 - " + I n t e g e r T o S t r i n g ( g u a N o ) ;
y a o 3 N a m e = " y a o 3 - " + I n t e g e r T o S t r i n g ( g u a N o ) ;
y a o 4 N a m e = " y a o 4 - " + I n t e g e r T o S t r i n g ( g u a N o ) ;
y a o 5 N a m e = " y a o 5 - " + I n t e g e r T o S t r i n g ( g u a N o ) ;
y a o 6 N a m e = " y a o 6 - " + I n t e g e r T o S t r i n g ( g u a N o ) ;
i f ( O b j e c t F i n d ( y a o 1 N a m e + " - 1 " ) > = 0 )
{
O b j e c t S e t ( y a o 1 N a m e + " - 1 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 1 N a m e + " - 2 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 1 N a m e + " - 3 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 2 N a m e + " - 1 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 2 N a m e + " - 2 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 2 N a m e + " - 3 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 3 N a m e + " - 1 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 3 N a m e + " - 2 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 3 N a m e + " - 3 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 4 N a m e + " - 1 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 4 N a m e + " - 2 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 4 N a m e + " - 3 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 5 N a m e + " - 1 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 5 N a m e + " - 2 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 5 N a m e + " - 3 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 6 N a m e + " - 1 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 6 N a m e + " - 2 " , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t ( y a o 6 N a m e + " - 3 " , O B J P R O P _ C O L O R , c l r ) ;
}
r e t u r n ( 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | 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 |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 ( r a t e s _ t o t a l < = a t r P e r i o d | | a t r P e r i o d < = 0 )
r e t u r n ( 0 ) ;
i f ( C h a r t P e r i o d ( 0 ) ! = P E R I O D _ M 5 )
{
i f ( O b j e c t F i n d ( 0 , " r u n n i n g " ) < 0 )
{
O b j e c t C r e a t e ( " r u n n i n g " , O B J _ L A B E L , 0 , T i m e C u r r e n t ( ) , 0 , 0 ) ;
O b j e c t S e t ( " r u n n i n g " , O B J P R O P _ X D I S T A N C E , 3 6 0 ) ;
O b j e c t S e t ( " r u n n i n g " , O B J P R O P _ Y D I S T A N C E , 3 6 0 ) ;
O b j e c t S e t T e x t ( " r u n n i n g " , " êSýÐL(WöeôFh¶g: M 5 ! " , 2 0 , " A r i a l N a r r o w " , c l r R e d ) ;
}
r e t u r n ( 0 ) ;
}
i n t l i m i t = r a t e s _ t o t a l - p r e v _ c a l c u l a t e d ;
i f ( p r e v _ c a l c u l a t e d > 0 )
l i m i t + + ;
f o r ( i n t i = 0 ; i < l i m i t ; i + + )
{
b u f 1 [ i ] = i M A ( N U L L , 0 , a t r P e r i o d , 0 , M O D E _ L W M A , P R I C E _ M E D I A N , i ) ;
G u a ( i ) ;
i f ( i = = 0 )
{
D r a w R e c t ( ) ;
C u r r e n t G u a ( i ) ;
}
}
r e t u r n ( r a t e s _ t o t a l ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
Comments