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