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