Price Data Components
Miscellaneous
0
Views
0
Downloads
0
Favorites
Corelation_table_base
ÿþ# 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
e x t e r n b o o l M a y S t a r t = t r u e ; / / W i t h o u t t a b l e o f s e t t i n g s ?
b o o l M a r k e t W a t c h = t r u e ; / / O n l y s h o w n i n M a r k e t W a t c h
e x t e r n E N U M _ T I M E F R A M E S T F 1 = P E R I O D _ D 1 ; / / T i m e F r a m e
e x t e r n i n t c P e r i o d 1 = 3 0 0 ; / / P e r i o d
e x t e r n b o o l O n c e = t r u e ; / / A c t o n c e p e r b a r
e x t e r n d o u b l e E n o u g h t = 0 . 8 ; / / S u f f i c e n t c o r r e l a t i o n
e x t e r n d o u b l e N o C o r r = 0 . 1 ; / / N o c o r r e l a t i o n l e v e l
e x t e r n b o o l M A X _ M I N = t r u e ; / / S h o w m i n / m a x g r o u p
e x t e r n c o l o r C L _ S y m b = c l r W h i t e ; / / C a p t i o n ' s c o l o r
e x t e r n c o l o r C L _ P o s = c l r Y e l l o w ; / / S u f f i c e n t p o s i t i v e c o r r e l a t i o n c o l o r
e x t e r n c o l o r C L _ N e g = c l r S k y B l u e ; / / S u f f i c e n t n e g a t i v e c o r r e l a t i o n c o l o r
e x t e r n c o l o r C L _ N o C = c l r R e d ; / / L o w c o r r e l a t i o n c o l o r
e x t e r n c o l o r C L = c l r G r a y ; / / A l l t h e r e s t c o l o r
e x t e r n i n t F S = 8 ; / / F o n t s i z e
e x t e r n d o u b l e V _ S t e p = 1 . 8 ; / / V e r t i c a l s t e p
e x t e r n d o u b l e H _ S t e p = 7 ; / / H o r i s o n t a l s t e p
e x t e r n b o o l C u t S u f f i x = t r u e ; / / C u t S u f f i x
e x t e r n s t r i n g S y m b o l s _ i g n o r e = " " ; / / S y m b o l s t o i g n o r e
e x t e r n s t r i n g c a p 7 4 = " A U D U S D ; C A D ; D A X 3 0 " ; / / ` ` F o r m a t o f S y m b o l s l i s t s
s t r i n g C u r r e n c y P a i r 1 , C u r r e n c y P a i r 2 ;
s t r i n g B u y _ S e l l = " " ;
d o u b l e C o r A r r 1 [ ] [ 1 0 0 0 ] ;
i n t S y m b _ T o t a l = S y m b o l s T o t a l ( M a r k e t W a t c h ) ;
u s h o r t S e p a r a t o r C o d e = S t r i n g G e t C h a r a c t e r ( " ; " , 0 ) ;
s t r i n g S y m b _ i g n o r e _ A R R [ ] ;
i n t S y m b _ i g n o r e _ l i s t ;
s t r i n g S y m b o l N a m e s [ ] ;
d a t e t i m e L a s t T i m e = 0 ;
v o i d O n I n i t ( )
{
L a s t T i m e = 0 ;
S y m b _ i g n o r e _ l i s t = S t r i n g S p l i t ( S y m b o l s _ i g n o r e , S e p a r a t o r C o d e , S y m b _ i g n o r e _ A R R ) ;
A r r a y R e s i z e ( S y m b o l N a m e s , S y m b o l s T o t a l ( M a r k e t W a t c h ) ) ;
S y m b _ T o t a l = 0 ;
f o r ( i n t i = 0 ; i < S y m b o l s T o t a l ( M a r k e t W a t c h ) ; i + + )
{
s t r i n g n a m e = S y m b o l N a m e ( i , M a r k e t W a t c h ) ;
i f ( I g n o r e _ S y m b o l ( n a m e ) ) { P r i n t ( n a m e , " i g n o r e d " ) ; c o n t i n u e ; }
S y m b o l N a m e s [ S y m b _ T o t a l ] = n a m e ;
S y m b _ T o t a l + + ;
}
T F 1 = T F 1 = = 0 ? ( E N U M _ T I M E F R A M E S ) _ P e r i o d : T F 1 ;
A r r a y R e s i z e ( C o r A r r 1 , S y m b _ T o t a l + 2 ) ;
A r r a y S e t A s S e r i e s ( C o r A r r 1 , t r u e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ F O R E G R O U N D , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ M O D E , C H A R T _ L I N E ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ A S K _ L I N E , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ B I D _ L I N E , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ G R I D , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ P E R I O D _ S E P , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ D A T E _ S C A L E , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ O H L C , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ P R I C E _ S C A L E , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ V O L U M E S , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ L I N E , c l r N O N E ) ;
i f ( ! M a y S t a r t )
{
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " B T 2 " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , O B J P R O P _ X D I S T A N C E , 1 0 ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , O B J P R O P _ Y D I S T A N C E , ( F S + 1 0 ) * 8 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , O B J P R O P _ X S I Z E , ( F S + 1 0 ) * 3 0 + 1 0 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , O B J P R O P _ Y S I Z E , ( F S + 1 0 ) * 2 ) ;
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , O B J P R O P _ T E X T , " O p e n C h a r t s ( n e e d t o s y n c h r o n i z e d a t a ) " ) ; / / - - - CAB0=>28< B5:AB
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , O B J P R O P _ F O N T S I Z E , F S + 1 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , O B J P R O P _ 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , O B J P R O P _ B A C K , F a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 1 " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
}
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " B T 2 " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , O B J P R O P _ X D I S T A N C E , 1 0 ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , O B J P R O P _ Y D I S T A N C E , ( F S + 1 0 ) * 1 6 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , O B J P R O P _ X S I Z E , ( F S + 1 0 ) * 3 0 + 1 0 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , O B J P R O P _ Y S I Z E , ( F S + 1 0 ) * 2 ) ;
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , O B J P R O P _ F O N T S I Z E , F S + 1 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , O B J P R O P _ 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , O B J P R O P _ B A C K , F a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , O B J P R O P _ T E X T , " H i d e s y m b o l s t h a t c a n ' t t r a d e " ) ; / / - - - CAB0=>28< B5:AB
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 2 " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
}
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " B T 3 " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , O B J P R O P _ X D I S T A N C E , 1 0 ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , O B J P R O P _ Y D I S T A N C E , ( F S + 1 0 ) * 1 2 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , O B J P R O P _ X S I Z E , ( F S + 1 0 ) * 3 0 + 1 0 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , O B J P R O P _ Y S I Z E , ( F S + 1 0 ) * 2 ) ;
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , O B J P R O P _ F O N T S I Z E , F S + 1 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , O B J P R O P _ 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , O B J P R O P _ B A C K , F a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , O B J P R O P _ T E X T , " H i d e s y m b o l s w i t h a h i g h s p r e a d " ) ; / / - - - CAB0=>28< B5:AB
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 3 " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
}
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J _ E D I T , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ X D I S T A N C E , ( F S + 1 0 ) * 3 1 + 1 0 ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ Y D I S T A N C E , ( F S + 1 0 ) * 1 2 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ X S I Z E , ( F S + 1 0 ) * 1 0 + 1 0 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ Y S I Z E , ( F S + 1 0 ) * 2 ) ;
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ T E X T , " 2 0 " ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ C O L O R , B l a c k ) ;
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ F O N T S I Z E , F S + 1 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ R E A D O N L Y , f a l s e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ A L I G N , A L I G N _ C E N T E R ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ B G C O L O R , C L _ S y m b ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ B O R D E R _ T Y P E , B O R D E R _ S U N K E N ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ S E L E C T E D , f a l s e ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ H I D D E N , t r u e ) ;
i f ( O b j e c t F i n d ( 0 , o b j _ p r e f + " B T 4 " ) = = - 1 )
{
O b j e c t C r e a t e ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ; / / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , O B J P R O P _ X D I S T A N C E , 1 0 ) ; / / - - - CAB0=>28< :>>@48=0BK :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , O B J P R O P _ Y D I S T A N C E , ( F S + 1 0 ) * 2 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , O B J P R O P _ X S I Z E , ( F S + 1 0 ) * 3 0 + 1 0 ) ; / / - - - CAB0=>28< @07<5@ :=>?:8
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , O B J P R O P _ Y S I Z E , ( F S + 1 0 ) * 2 ) ;
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , O B J P R O P _ F O N T S I Z E , F S + 1 0 ) ;
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , O B J P R O P _ 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 ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , O B J P R O P _ B O R D E R _ C O L O R , c l r D a r k G r a y ) ; / / - - - CAB0=>28< F25B 3@0=8FK
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , O B J P R O P _ B A C K , F a l s e ) ; / / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , O B J P R O P _ S T A T E , f a l s e ) ; / / - - - ?5@52545< :=>?:C 2 7040==>5 A>AB>O=85
O b j e c t S e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , O B J P R O P _ T E X T , " I ' m r e a d y ! L e t ' s g o ! " ) ; / / - - - CAB0=>28< B5:AB
O b j e c t S e t I n t e g e r ( C h a r t I D ( ) , o b j _ p r e f + " B T 4 " , O B J P R O P _ B G C O L O R , c l r G r e e 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 , / / 845=B8D8:0B>@ A>1KB8O
c o n s t l o n g & l p a r a m , / / ?0@0<5B@ A>1KB8O B8?0 l o n g
c o n s t d o u b l e & d p a r a m , / / ?0@0<5B@ A>1KB8O B8?0 d o u b l e
c o n s t s t r i n g & s p a r a m ) / / ?0@0<5B@ A>1KB8O B8?0 s t r i n g
{
i f ( M a y S t a r t ) r e t u r n ;
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 T 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 T 1 " , O B J P R O P _ S T A T E , f a l s e ) ;
/ *
i n t r e t = M e s s a g e B o x ( " T h i s w i l l o p e n " + I n t e g e r T o S t r i n g ( S y m b o l s T o t a l ( M a r k e t W a t c h ) ) +
" \ n ( m a x . " + I n t e g e r T o S t r i n g ( C H A R T S _ M A X ) + " ) " ,
" A r e y o u s u r e ? " , M B _ O K C A N C E L ) ;
i f ( r e t = = I D O K ) * /
{
f o r ( i n t i = 0 ; i < M a t h M i n ( S y m b o l s T o t a l ( M a r k e t W a t c h ) , C H A R T S _ M A X ) ; i + + )
{
b o o l m a y o p e n = t r u e ;
l o n g c = C h a r t F i r s t ( ) ;
w h i l e ( ! I s S t o p p e d ( ) )
{
i f ( C h a r t S y m b o l ( c ) = = S y m b o l N a m e s [ i ] ) { m a y o p e n = f a l s e ; P r i n t ( " F o u n d " , S y m b o l N a m e s [ i ] ) ; b r e a k ; }
c = C h a r t N e x t ( c ) ;
i f ( c < 0 ) b r e a k ;
}
i f ( m a y o p e n ) { i f ( m a y o p e n ) P r i n t ( " O p e n " , S y m b o l N a m e s [ i ] ) ; C h a r t O p e n ( S y m b o l N a m e s [ i ] , T F 1 ) ; }
}
}
}
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 T 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 T 2 " , O B J P R O P _ S T A T E , f a l s e ) ;
/ *
i n t r e t = M e s s a g e B o x ( " T h i s w i l l h i d e s o m e s y m b o l s i n M a r k e t W a t c h " ,
" A r e y o u s u r e ? " , M B _ O K C A N C E L ) ;
i f ( r e t = = I D O K ) * /
{
f o r ( i n t i = S y m b o l s T o t a l ( t r u e ) ; i > = 0 ; i - - )
S y m b o l S e l e c t ( S y m b o l N a m e s [ i ] , S y m b o l I n f o I n t e g e r ( S y m b o l N a m e s [ i ] , S Y M B O L _ T R A D E _ M O D E ) = = S Y M B O L _ T R A D E _ M O D E _ F U L L ) ;
}
}
i n t c o u n t c h a r t s = 0 ;
l o n g c = C h a r t F i r s t ( ) ;
w h i l e ( C h a r t N e x t ( c ) > = 0 & & ! I s S t o p p e d ( ) )
{
c = C h a r t N e x t ( c ) ;
c o u n t c h a r t 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 T 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 T 3 " , O B J P R O P _ S T A T E , f a l s e ) ;
d o u b l e M a x S p r e a d = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ T E X T ) ) ;
/ * i n t r e t = M e s s a g e B o x ( " T h i s w i l l h i d e s y m b o l s , t h a t h a v e s p r e a d m o r e t h a n " + O b j e c t G e t S t r i n g ( C h a r t I D ( ) , o b j _ p r e f + " S p r e a d " , O B J P R O P _ T E X T )
+ " p o i n t s \ n p e r 1 0 0 0 p o i n t s o f d a i l y m o v e . \ n O p e n e d c h a r t s w i l l n o t b e h i d e n o r c l o s e d . " +
" \ n \ n S o m e t i m e s n e e d t o d o t h i s t w i c e i f m a n y s y m b o l s h a s n o d a i l y d a t a . " ,
" A r e y o u s u r e ? " , M B _ O K C A N C E L ) ;
i f ( r e t = = I D O K ) * /
f o r ( i n t i = S y m b o l s T o t a l ( t r u e ) - 1 ; i > = 0 ; i - - )
{
i n t D a i l y _ M o v e = 0 ;
s t r i n g S _ N a m e = S y m b o l N a m e s [ i ] ;
i f ( i B a r s ( S _ N a m e , P E R I O D _ D 1 ) < 2 0 ) { P r i n t ( " N o d a i l y d a t a f o r " , S _ N a m e ) ; c o n t i n u e ; }
f o r ( i n t b = 1 ; b < 2 0 ; b + + )
D a i l y _ M o v e + = i n t ( ( i H i g h ( S _ N a m e , P E R I O D _ D 1 , b ) - i L o w ( S _ N a m e , P E R I O D _ D 1 , b ) ) / M a r k e t I n f o ( S _ N a m e , M O D E _ P O I N T ) / 1 8 ) ;
i f ( D a i l y _ M o v e = = 0 ) { P r i n t ( S _ N a m e , " d a i l y m o v e c a l c u l a t i o n e r r o r ( D M = 0 ) . " ) ; c o n t i n u e ; }
P r i n t ( " A v e r a g e d a i l y m o v e f o r " , S _ N a m e , " i s " , D a i l y _ M o v e , " p o i n t s . S p r e a d i s " , M a r k e t I n f o ( S _ N a m e , M O D E _ S P R E A D ) , " ( " ,
D o u b l e T o S t r ( 1 0 0 0 . 0 / D a i l y _ M o v e * M a r k e t I n f o ( S _ N a m e , M O D E _ S P R E A D ) , 1 ) , " p e r 1 0 0 0 ) p o i n t s . " , 1 0 0 0 . 0 / D a i l y _ M o v e * M a r k e t I n f o ( S _ N a m e , M O D E _ S P R E A D ) < M a x S p r e a d ? " D o n ' t h " : " H " , " i d e p a i r " ) ;
S y m b o l S e l e c t ( S _ N a m e , 1 0 0 0 . 0 / D a i l y _ M o v e * M a r k e t I n f o ( S _ N a m e , M O D E _ S P R E A D ) < M a x S p r e a d ) ;
}
}
i n t M A X _ F I T _ X = i n t ( C h a r t G e t I n t e g e r ( 0 , C H A R T _ W I D T H _ I N _ P I X E L S ) / H _ S t e p / F S ) - 2 ;
i n t M A X _ F I T _ Y = i n t ( C h a r t G e t I n t e g e r ( 0 , C H A R T _ H E I G H T _ I N _ P I X E L S ) / V _ S t e p / F S ) - 2 ;
S y m b _ T o t a l = S y m b o l s T o t a l ( M a r k e t W a t c h ) ;
T e x t ( 4 , 0 , " M a y S t a r t = f a l s e ! ! ! S e t u p p a i r s a n d c h a n g e i n p u t s . " , C L _ S y m b , 1 0 ) ;
T e x t ( 2 , 0 , " P a i r s n u m b e r " + I n t e g e r T o S t r i n g ( S y m b _ T o t a l ) + " . C h a r t s N u m b e r " + I n t e g e r T o S t r i n g ( c o u n t c h a r t s + 1 ) , C L _ S y m b , 1 0 ) ;
T e x t ( 0 , 0 , " M a x . n u m b e r t o b e f i t o n s c r e e n " + I n t e g e r T o S t r i n g ( M A X _ F I T _ X ) + " ( h o r i s o n t a l ) x " + I n t e g e r T o S t r i n g ( M A X _ F I T _ Y ) + " ( v e r t i c a l ) " , C L _ S y m b , 1 0 ) ;
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 T 4 " , O B J P R O P _ S T A T E ) )
{
M a y S t a r t = 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 ) ;
O n I n i t ( ) ;
}
}
v o i d d e i n i 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 ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ M O D E , C H A R T _ B A R S ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ A S K _ L I N E , t r u e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ B I D _ L I N E , t r u e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ P E R I O D _ S E P , t r u e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ D A T E _ S C A L E , t r u e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ P R I C E _ S C A L E , t r u e ) ;
}
v o i d s t a r t ( )
{
i f ( O n c e )
{
i f ( L a s t T i m e = = i T i m e ( N U L L , T F 1 , 0 ) ) r e t u r n ;
L a s t T i m e = i T i m e ( N U L L , T F 1 , 0 ) ;
}
i f ( ! M a y S t a r t )
{
S y m b _ T o t a l = S y m b o l s T o t a l ( M a r k e t W a t c h ) ;
T e x t ( 0 , 0 , " P a i r s n u m b e r i s " + I n t e g e r T o S t r i n g ( S y m b _ T o t a l ) + " . S t a r t i s n o t a l l o w e d b y i n p u t s . " , C L _ S y m b , 1 0 ) ;
r e t u r n ;
}
e l s e
{
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " B T 1 " ) ;
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " B T 2 " ) ;
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " B T 3 " ) ;
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " B T 4 " ) ;
O b j e c t D e l e t e ( 0 , o b j _ p r e f + " S p r e a d " ) ;
}
/ / d o u b l e M a x V = M a t h M a x ( 4 , ( C h a r t G e t I n t e g e r ( 0 , C H A R T _ H E I G H T _ I N _ P I X E L S ) - 1 0 ) / V _ S t e p / F S - 2 ) ;
/ / d o u b l e M a x H = M a t h M a x ( 4 , ( C h a r t G e t I n t e g e r ( 0 , C H A R T _ W I D T H _ I N _ P I X E L S ) - 1 0 ) / H _ S t e p / F S - 2 ) ;
i f ( S y m b _ T o t a l < 2 ) { A l e r t ( " N e e d a t l e a s t T W O s y m b o l s ! " ) ; M a y S t a r t = f a l s e ; O n I n i t ( ) ; r e t u r n ; }
s t r i n g s T F 1 = S t r i n g S u b s t r ( E n u m T o S t r i n g ( T F 1 ) , 7 ) ;
u l o n g S t a r t = G e t M i c r o s e c o n d C o u n t ( ) ;
T e x t ( 0 , 0 , s T F 1 + " ( " + I n t e g e r T o S t r i n g ( c P e r i o d 1 ) + " ) " ) ;
T e x t ( S y m b _ T o t a l + 1 , S y m b _ T o t a l + 1 , s T F 1 + " ( " + I n t e g e r T o S t r i n g ( c P e r i o d 1 ) + " ) " ) ;
T e x t ( S y m b _ T o t a l + 1 , 0 , s T F 1 + " ( " + I n t e g e r T o S t r i n g ( c P e r i o d 1 ) + " ) " ) ;
i n t c n t r 1 = 0 , c n t r 2 = 0 ;
f o r ( i n t r = 0 ; r < S y m b _ T o t a l ; r + + )
{
/ / i f ( r > = M a x H ) b r e a k ;
C u r r e n c y P a i r 1 = S y m b o l N a m e s [ r ] ;
T e x t ( r + 1 , 0 , C u t ( C u r r e n c y P a i r 1 ) , C L _ S y m b ) ;
T e x t ( r + 1 , S y m b _ T o t a l + 1 , C u t ( C u r r e n c y P a i r 1 ) , C L _ S y m b ) ;
f o r ( i n t c = 0 ; c < S y m b _ T o t a l ; c + + )
{
/ / i f ( c > = M a x V ) b r e a k ;
d o u b l e C o r r = 1 ;
C u r r e n c y P a i r 2 = S y m b o l N a m e s [ c ] ;
i f ( c = = r ) { T e x t ( 0 , S y m b _ T o t a l - c , C u t ( C u r r e n c y P a i r 1 ) , C L _ S y m b ) ;
T e x t ( S y m b _ T o t a l + 1 , S y m b _ T o t a l - c , C u t ( C u r r e n c y P a i r 1 ) , C L _ S y m b ) ;
T e x t ( r + 1 , S y m b _ T o t a l - c , C u t ( C u r r e n c y P a i r 1 ) , C L _ S y m b ) ;
i f ( r % 2 = = 0 ) R e c t ( r + 1 , S y m b _ T o t a l - c ) ; }
e l s e
{
C o r r = C o r r e l a t i o n ( C u r r e n c y P a i r 1 , C u r r e n c y P a i r 2 , T F 1 , c P e r i o d 1 ) ;
T e x t ( r + 1 , S y m b _ T o t a l - c , D o u b l e T o S t r ( C o r r , 3 ) , C L ) ;
i f ( C o r r > = E n o u g h t & & C o r r ! = 1 ) T e x t ( r + 1 , S y m b _ T o t a l - c , D o u b l e T o S t r ( C o r r , 3 ) , C L _ P o s , 3 ) ;
i f ( C o r r < = - E n o u g h t ) T e x t ( r + 1 , S y m b _ T o t a l - c , D o u b l e T o S t r ( C o r r , 3 ) , C L _ N e g , 3 ) ;
i f ( f a b s ( C o r r ) < = N o C o r r ) T e x t ( r + 1 , S y m b _ T o t a l - c , D o u b l e T o S t r ( C o r r , 3 ) , C L _ N o C , 3 ) ;
i f ( C o r r = = 2 ) T e x t ( r + 1 , S y m b _ T o t a l - c , " N o D a t a " , C L ) ;
i f ( C o r r = = 3 ) T e x t ( r + 1 , S y m b _ T o t a l - c , " . . . " , C L ) ;
}
C o r A r r 1 [ c ] [ r ] = C o r r ;
}
}
i f ( M A X _ M I N )
{
T e x t ( S y m b _ T o t a l + 3 , 0 , " m a x - m i n : " , C L _ S y m b ) ;
T e x t ( S y m b _ T o t a l + 9 , 0 , " m a x - m i n : " , C L _ S y m b ) ;
T e x t ( S y m b _ T o t a l + 4 , 0 , " L o w c o r r . : " , C L _ S y m b ) ;
T e x t ( S y m b _ T o t a l + 1 0 , 0 , " L o w c o r r . : " , C L _ S y m b ) ;
T e x t ( S y m b _ T o t a l + 5 , 0 , " H i g h c o r r . : " , C L _ S y m b ) ;
T e x t ( S y m b _ T o t a l + 1 1 , 0 , " H i g h c o r r . : " , C L _ S y m b ) ;
T e x t ( S y m b _ T o t a l + 6 , 0 , " M a i n : " , C L _ S y m b ) ;
T e x t ( S y m b _ T o t a l + 1 2 , 0 , " M a i n : " , C L _ S y m b ) ;
T e x t ( S y m b _ T o t a l + 7 , 0 , " B e s t b y v a l u e s : " , C L _ S y m b , 3 ) ;
T e x t ( S y m b _ T o t a l + 1 3 , 0 , " D i f f e r e n t c u r r e n c i e s : " , C L _ S y m b , 3 ) ;
f o r ( i n t c = 0 ; c < S y m b _ T o t a l ; c + + )
{
i n t m a x = ( c = = 0 ? 1 : 0 ) ;
i n t m i n = ( c = = 0 ? 1 : 0 ) ;
f o r ( i n t r = 0 ; r < S y m b _ T o t a l ; r + + )
{
i f ( f a b s ( C o r A r r 1 [ c ] [ r ] > = 1 ) ) c o n t i n u e ;
i f ( f a b s ( C o r A r r 1 [ c ] [ m a x ] ) < f a b s ( C o r A r r 1 [ c ] [ r ] ) ) m a x = r ;
i f ( f a b s ( C o r A r r 1 [ c ] [ r ] ) < f a b s ( C o r A r r 1 [ c ] [ m i n ] ) ) m i n = r ;
}
b o o l g r a y = f a l s e ;
i f ( f a b s ( C o r A r r 1 [ c ] [ m a x ] ) < E n o u g h t | | f a b s ( C o r A r r 1 [ c ] [ m i n ] ) > N o C o r r ) g r a y = t r u e ;
T e x t ( S y m b _ T o t a l + 6 , S y m b _ T o t a l - c , C u t ( S y m b o l N a m e s [ c ] ) , g r a y ? C L : C L _ S y m b , g r a y ? 0 : 1 ) ;
T e x t ( S y m b _ T o t a l + 5 , S y m b _ T o t a l - c , C u t ( S y m b o l N a m e s [ m a x ] ) , g r a y ? C L : ( C o r A r r 1 [ c ] [ m a x ] > 0 ? C L _ P o s : C L _ N e g ) , g r a y ? 0 : 1 ) ;
T e x t ( S y m b _ T o t a l + 4 , S y m b _ T o t a l - c , C u t ( S y m b o l N a m e s [ m i n ] ) , g r a y ? C L : C L _ N o C , g r a y ? 0 : 1 ) ;
T e x t ( S y m b _ T o t a l + 3 , S y m b _ T o t a l - c , D o u b l e T o S t r i n g ( C o r A r r 1 [ c ] [ m a x ] - f a b s ( C o r A r r 1 [ c ] [ m i n ] ) , 3 ) , g r a y ? C L : C L _ S y m b , g r a y ? 0 : 2 ) ;
T e x t ( S y m b _ T o t a l + 3 , 0 , " m a x - m i n : " , C L _ S y m b ) ;
}
/ / b e t t e r
f o r ( i n t c = 0 ; c < S y m b _ T o t a l ; c + + )
{
i n t m a x = ( c = = 0 ? 1 : 0 ) ;
i n t m i n = ( c = = 0 ? 1 : 0 ) ;
f o r ( i n t r = 0 ; r < S y m b _ T o t a l ; r + + )
{
i f ( f a b s ( C o r A r r 1 [ c ] [ m a x ] ) < f a b s ( C o r A r r 1 [ c ] [ r ] ) ) m i n = r ;
i f ( f a b s ( C o r A r r 1 [ c ] [ r ] ) < f a b s ( C o r A r r 1 [ c ] [ m i n ] ) ) m a x = r ;
}
s t r i n g s 1 = S t r i n g S u b s t r ( S y m b o l N a m e s [ c ] , 0 , 3 ) ,
s 2 = S t r i n g S u b s t r ( S y m b o l N a m e s [ c ] , 3 , 3 ) ;
f o r ( i n t r = 0 ; r < S y m b _ T o t a l ; r + + )
{
i f ( f a b s ( C o r A r r 1 [ c ] [ r ] > = 1 ) ) c o n t i n u e ;
i f ( S t r i n g F i n d ( S y m b o l N a m e s [ r ] , s 1 ) > - 1 | | S t r i n g F i n d ( S y m b o l N a m e s [ r ] , s 2 ) > - 1 )
{
/ / P r i n t ( s 1 , " - " , s 2 ) ;
c o n t i n u e ;
}
i f ( f a b s ( C o r A r r 1 [ c ] [ m a x ] ) < f a b s ( C o r A r r 1 [ c ] [ r ] ) ) m a x = r ;
i f ( f a b s ( C o r A r r 1 [ c ] [ r ] ) < f a b s ( C o r A r r 1 [ c ] [ m i n ] ) ) m i n = r ;
}
b o o l g r a y = f a l s e ;
i f ( f a b s ( C o r A r r 1 [ c ] [ m a x ] ) < E n o u g h t | | f a b s ( C o r A r r 1 [ c ] [ m i n ] ) > N o C o r r )
{
g r a y = t r u e ;
/ * T e x t ( S y m b _ T o t a l + 1 2 , S y m b _ T o t a l - c , " " , C L ) ;
T e x t ( S y m b _ T o t a l + 1 1 , S y m b _ T o t a l - c , " " , C L ) ;
T e x t ( S y m b _ T o t a l + 1 0 , S y m b _ T o t a l - c , " " , C L ) ;
T e x t ( S y m b _ T o t a l + 9 , S y m b _ T o t a l - c , " " , C L ) ;
c o n t i n u e ; * /
}
T e x t ( S y m b _ T o t a l + 1 2 , S y m b _ T o t a l - c , C u t ( S y m b o l N a m e s [ c ] ) , g r a y ? C L : C L _ S y m b , g r a y ? 0 : 1 ) ;
T e x t ( S y m b _ T o t a l + 1 1 , S y m b _ T o t a l - c , C u t ( S y m b o l N a m e s [ m a x ] ) , g r a y ? C L : ( C o r A r r 1 [ c ] [ m a x ] > 0 ? C L _ P o s : C L _ N e g ) , g r a y ? 0 : 1 ) ;
T e x t ( S y m b _ T o t a l + 1 0 , S y m b _ T o t a l - c , C u t ( S y m b o l N a m e s [ m i n ] ) , g r a y ? C L : C L _ N o C , g r a y ? 0 : 1 ) ;
T e x t ( S y m b _ T o t a l + 9 , S y m b _ T o t a l - c , D o u b l e T o S t r i n g ( C o r A r r 1 [ c ] [ m a x ] - f a b s ( C o r A r r 1 [ c ] [ m i n ] ) , 3 ) , g r a y ? C L : C L _ S y m b , g r a y ? 0 : 2 ) ;
}
}
/ / S y m b _ T o t a l = S y m b o l s T o t a l ( M a r k e t W a t c h ) ;
T e x t ( 0 , S y m b _ T o t a l + 1 , " C a l c . t i m e " + I n t e g e r T o S t r i n g ( ( G e t M i c r o s e c o n d C o u n t ( ) - S t a r t ) / 1 0 0 0 ) + " m s " ) ; / / + D o u b l e T o S t r ( M a x H , 1 ) ) ;
}
d o u b l e C o r r e l a t i o n ( s t r i n g s y m b o l 1 , s t r i n g s y m b o l 2 , i n t T F , i n t p e r i o d , i n t s h i f t = 1 )
{
i f ( i B a r s ( s y m b o l 1 , T F ) < p e r i o d - 1 - s h i f t | | i B a r s ( s y m b o l 2 , T F ) < p e r i o d - 1 - s h i f t ) r e t u r n ( 2 ) ;
i f ( I g n o r e _ S y m b o l ( s y m b o l 1 ) | | I g n o r e _ S y m b o l ( s y m b o l 2 ) ) r e t u r n ( 3 ) ;
i f ( s y m b o l 1 = = s y m b o l 2 ) r e t u r n ( 1 ) ;
i n t i ;
d o u b l e M 1 = 0 ;
d o u b l e M 2 = 0 ;
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 ;
f o r ( i = s h i f t ; i < p e r i o d + s h i f t ; i + + )
{
M 1 = M 1 + i C l o s e ( s y m b o l 1 , T F , i ) ;
M 2 = M 2 + i C l o s e ( s y m b o l 2 , T F , i ) ;
}
M 1 = M 1 / p e r i o d ;
M 2 = M 2 / p e r i o d ;
f o r ( i = s h i f t ; i < p e r i o d + s h i f t ; i + + )
{
D 1 = i C l o s e ( s y m b o l 1 , T F , i ) - M 1 ;
D 2 = i C l o s e ( s y m b o l 2 , T F , i ) - M 2 ;
S 1 = S 1 + ( D 1 * D 2 ) ;
S 2 = S 2 + ( D 1 * D 1 ) ;
S 3 = S 3 + ( D 2 * D 2 ) ;
}
r e t u r n ( S 1 / ( M a t h S q r t ( S 2 * S 3 ) ) ) ;
}
s t r i n g o b j _ p r e f = " C o r r _ " ;
v o i d T e x t ( i n t r o w , i n t c o l u m n , s t r i n g t e x t = " " , c o l o r C L R = 0 , i n t F S _ s h i f t = 0 )
{
i f ( C L R = = 0 ) C L R = C L ;
/ / P r i n t ( r o w ) ;
s t r i n g n a m e = o b j _ p r e f + I n t e g e r T o S t r i n g ( r o w ) + " _ " + I n t e g e r T o S t r i n g ( c o l u m n ) ; / / + S y m b o l N a m e s [ r o w ] + " _ " + S y m b o l N a m e s [ S y m b _ T o t a l - c o l u m n ] ; / / + " _ " + t e x t ;
i n t y = i n t ( ( r o w ) * F S * V _ S t e p ) + 5 ;
i n t x = i n t ( ( c o l u m n ) * F S * H _ S t e p ) + 5 ;
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 _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t ( n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ L O W E R ) ;
O b j e c t S e t ( n a m e , 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 , 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 , t e x t , F S + F S _ s h i f t , " A r i a l " , 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 T e x t 2 ( i n t r o w , i n t c o l u m n , s t r i n g t e x t = " " , c o l o r C L R = 0 , i n t F S _ s h i f t = 0 )
{
i f ( C L R = = 0 ) C L R = C L ;
s t r i n g n a m e = o b j _ p r e f + I n t e g e r T o S t r i n g ( r o w ) + " _ " + I n t e g e r T o S t r i n g ( c o l u m n ) ;
i n t y = i n t ( ( r o w ) * F S * V _ S t e p ) + 1 5 ;
i n t x = i n t ( ( c o l u m n ) * F S * H _ S t e p ) + 5 ;
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 _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t ( 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 _ U P P E R ) ;
O b j e c t S e t ( n a m e , 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 , 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 , t e x t , F S + F S _ s h i f t , " A r i a l " , 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 R e c t ( i n t r o w , i n t c o l u m n )
{
s t r i n g n a m e = o b j _ p r e f + I n t e g e r T o S t r i n g ( r o w ) + " _ " + I n t e g e r T o S t r i n g ( c o l u m n ) + " _ R _ " ;
i n t y = i n t ( ( r o w ) * F S * V _ S t e p ) + 5 ;
i n t x = i n t ( ( S y m b _ T o t a l + 2 ) * F S * H _ S t e p ) - 1 0 ;
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 _ R E C T A N G L E _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t ( n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F 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 , 5 ) ;
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 , y ) ;
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 , x ) ;
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 , 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 L O R , C 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 _ T Y P E , B O R D E R _ F L A 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 _ B A C K , 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 _ H I D D E N , t r u e ) ;
}
s t r i n g C u t ( s t r i n g s y m b )
{
i f ( C u t S u f f i x ) r e t u r n S t r i n g S u b s t r ( s y m b , 0 , 6 ) ;
e l s e r e t u r n s y m b ;
}
b o o l I g n o r e _ S y m b o l ( s t r i n g m S y m b ) / / t r u e - i g n o r e
{
i f ( S y m b _ i g n o r e _ l i s t > 0 )
f o r ( i n t i = 0 ; i < S y m b _ i g n o r e _ l i s t ; i + + )
i f ( S t r i n g F i n d ( m S y m b , S y m b _ i g n o r e _ A R R [ i ] ) > = 0 ) r e t u r n ( t r u e ) ;
r e t u r n ( f a l s e ) ;
}
Comments