等级: 专业版
- 注册:
- 2021-5-20
- 曾用名:
- a103165
|
楼主 |
发表于 2021-11-4 09:35
|
显示全部楼层
ZH1:='0250001278';
PZ1:= STKLABEL;
WARNING_DISABLE:4;
HLP:=INTPART(EMA(ABS(H-L)*1.1,15)/MINDIFF);
HLP2:=INTPART(EMA(ABS(H-L)*1.1/12,15)/MINDIFF);
HLP05:=MAX(HLP2,EXTGBDATA('HLP-'&STKLABEL&'-05'));
FXDAY:=EXTGBDATA('FX-'&STKLABEL&'-DAY');
MADAY:=EXTGBDATA('MA-'&STKLABEL&'-DAY');
CODAY:=EXTGBDATA('CO-'&STKLABEL&'-DAY');
AUDAY:=EXTGBDATA('FX-AU31-DAY');
COAUDAY:=EXTGBDATA('CO-AU31-DAY');
FX05:=EXTGBDATA('FX-'&STKLABEL&'-05');
FX15:=EXTGBDATA('FX-'&STKLABEL&'-15');
FX30:=EXTGBDATA('FX-'&STKLABEL&'-30');
FX60:=EXTGBDATA('FX-'&STKLABEL&'-60');
AU05:=EXTGBDATA('FX-AU31-05');
AU15:=EXTGBDATA('FX-AU31-15');
AU30:=EXTGBDATA('FX-AU31-30');
AU60:=EXTGBDATA('FX-AU31-60');
FCO_15:=EXTGBDATA('CO-'&STKLABEL&'-15');
FCO_30:=EXTGBDATA('CO-'&STKLABEL&'-30');
FCO_AU15:=EXTGBDATA('CO-AU31-15');
FCO_AU30:=EXTGBDATA('CO-AU31-30');
//***************************************************************************************************************
开多条件:= (KCMS=1 AND (FXDAY=1 or FX60=1 and FX30=1 ) OR KCMS>=0 AND FXDAY=1 AND AUDAY=1 ) AND DYNAINFO2(7,PZ1)<HHV(H,2)-HLP/FS*MINDIFF AND FX05=1 AND FX15=1 AND AU05=1 AND AU15=1 AND DYNAINFO2(21,PZ1)-DYNAINFO2(20,PZ1)<5*MINDIFF;
开空条件:= (KCMS=-1 AND (FXDAY=-1 or FX60=-1 and FX30=-1) OR KCMS<=0 AND FXDAY=-1 AND AUDAY=-1) AND DYNAINFO2(7,PZ1)>LLV(L,2)+HLP/FS*MINDIFF AND FX05=-1 AND FX15=-1 AND AU05=-1 AND AU15=-1 AND DYNAINFO2(21,PZ1)-DYNAINFO2(20,PZ1)<5*MINDIFF;
方向平多:= (FXDAY=-1 AND CODAY=-1 AND MADAY=-1 AND AUDAY=-1 AND COAUDAY=-1 OR FX05=-1 AND FX15=-1 AND FX30=-1 AND FX60=-1 AND (FCO_15=-1 or FCO_30=-1) AND AU05=-1 AND AU15=-1 AND AU30=-1 AND (FCO_AU15=-1 or FCO_AU30=-1)) AND TIMETOT0(DYNAINFO(207) )-TIMETOT0(DYNAINFO2(213,PZ1))>15*60 ;
方向平空:= (FXDAY=1 AND CODAY=1 AND MADAY=1 AND AUDAY=1 AND COAUDAY=1 OR FX05=1 AND FX15=1 AND FX30=1 AND FX60=1 AND (FCO_15=1 or FCO_30=1 ) AND AU05=1 AND AU15=1 AND AU30=1 AND (FCO_AU15=1 or FCO_AU30=1 )) AND TIMETOT0(DYNAINFO(207) )-TIMETOT0(DYNAINFO2(213,PZ1))>15*60 ;
止损平多1:= TAVGENTERPRICEEX2(ZH1,PZ1,0)-DYNAINFO2(7,PZ1)>=HLP*4/10*MINDIFF AND ( FX05=-1 AND FX15=-1 AND FX30=-1 AND FX60=-1 AND (FCO_15=-1 or FCO_30=-1) OR AU05=-1 AND AU15=-1 AND AU30=-1 AND AU60=-1 AND (FCO_AU15=-1 or FCO_AU30=-1));
止损平空1:= DYNAINFO2(7,PZ1)-TAVGENTERPRICEEX2(ZH1,PZ1,1)>=HLP*4/10*MINDIFF AND ( FX05=1 AND FX15=1 AND FX30=1 AND FX60=1 AND (FCO_15=1 or FCO_30=1 ) OR AU05=1 AND AU15=1 AND AU30=1 AND AU60=1 AND (FCO_AU15=1 or FCO_AU30=1 ));
止损平多2:= TAVGENTERPRICEEX2(ZH1,PZ1,0)-DYNAINFO2(7,PZ1)>=HLP*7/10*MINDIFF AND ( FX05=-1 AND FX15=-1 AND FX30=-1 AND (FCO_15=-1 or FCO_30=-1) OR AU05=-1 AND AU15=-1 AND AU30=-1 AND (FCO_AU15=-1 or FCO_AU30=-1));
止损平空2:= DYNAINFO2(7,PZ1)-TAVGENTERPRICEEX2(ZH1,PZ1,1)>=HLP*7/10*MINDIFF AND ( FX05=1 AND FX15=1 AND FX30=1 AND (FCO_15=1 or FCO_30=1 ) OR AU05=1 AND AU15=1 AND AU30=1 AND (FCO_AU15=1 or FCO_AU30=1 ));
止损平多3:= TAVGENTERPRICEEX2(ZH1,PZ1,0)-DYNAINFO2(7,PZ1)>=HLP*10/10*MINDIFF AND (FX05=-1 AND FX15=-1 AND (FCO_15=-1 or FCO_30=-1) OR AU05=-1 AND AU15=-1 AND (FCO_AU15=-1 or FCO_AU30=-1));
止损平空3:= DYNAINFO2(7,PZ1)-TAVGENTERPRICEEX2(ZH1,PZ1,1)>=HLP*10/10*MINDIFF AND (FX05=1 AND FX15=1 AND (FCO_15=1 or FCO_30=1 ) OR AU05=1 AND AU15=1 AND (FCO_AU15=1 or FCO_AU30=1 ));
止盈平多1:= DYNAINFO2(7,PZ1)-TAVGENTERPRICEEX2(ZH1,PZ1,0)>=HLP*7/10*MINDIFF AND ( FX05=-1 AND FX15=-1 AND FX30=-1 AND FX60=-1 AND (FCO_15=-1 or FCO_30=-1) OR AU05=-1 AND AU15=-1 AND AU30=-1 AND AU60=-1 AND (FCO_AU15=-1 or FCO_AU30=-1)) AND ( ZYF=1 OR ZYF=3 );
止盈平空1:= TAVGENTERPRICEEX2(ZH1,PZ1,1)-DYNAINFO2(7,PZ1)>=HLP*7/10*MINDIFF AND ( FX05=1 AND FX15=1 AND FX30=1 AND FX60=1 AND (FCO_15=1 or FCO_30=1 ) OR AU05=1 AND AU15=1 AND AU30=1 AND AU60=1 AND (FCO_AU15=1 or FCO_AU30=1 )) AND ( ZYF=1 OR ZYF=3 );
止盈平多2:= DYNAINFO2(7,PZ1)-TAVGENTERPRICEEX2(ZH1,PZ1,0)>=HLP*10/10*MINDIFF AND ( FX05=-1 AND FX15=-1 AND FX30=-1 AND (FCO_15=-1 or FCO_30=-1) OR AU05=-1 AND AU15=-1 AND AU30=-1 AND (FCO_AU15=-1 or FCO_AU30=-1)) AND ( ZYF=1 OR ZYF=3 );
止盈平空2:= TAVGENTERPRICEEX2(ZH1,PZ1,1)-DYNAINFO2(7,PZ1)>=HLP*10/10*MINDIFF AND ( FX05=1 AND FX15=1 AND FX30=1 AND (FCO_15=1 or FCO_30=1 ) OR AU05=1 AND AU15=1 AND AU30=1 AND (FCO_AU15=1 or FCO_AU30=1 )) AND ( ZYF=1 OR ZYF=3 );
止盈平多3:= DYNAINFO2(7,PZ1)-TAVGENTERPRICEEX2(ZH1,PZ1,0)>=HLP*13/10*MINDIFF AND (FX05=-1 AND FX15=-1 AND (FCO_15=-1 or FCO_30=-1) OR AU05=-1 AND AU15=-1 AND (FCO_AU15=-1 or FCO_AU30=-1)) AND ( ZYF=1 OR ZYF=3 );
止盈平空3:= TAVGENTERPRICEEX2(ZH1,PZ1,1)-DYNAINFO2(7,PZ1)>=HLP*13/10*MINDIFF AND (FX05=1 AND FX15=1 AND (FCO_15=1 or FCO_30=1 ) OR AU05=1 AND AU15=1 AND (FCO_AU15=1 or FCO_AU30=1 )) AND ( ZYF=1 OR ZYF=3 );
//**********************************************************************************************************************************************************************************************************************************
//********* ZH1 ************* ZH1 ************ ZH1 *********** ZH1 ************ ZH1 **************** ZH1 *************** ZH1 ****************** ZH1 ****************** ZH1 ****************** ZH1 **************
//**********************************************************************************************************************************************************************************************************************************
//(三)撤单
TCANCELEX( TSUBMIT(2)>66 ,2,ZH1,PZ1 );
TCANCELEX( TSUBMIT(4)>66 ,4,ZH1,PZ1 );
//(五)达标铲仓
账户权益:=TACCOUNT2(6,ZH1); 保证金:=TACCOUNT2( 28,ZH1); 浮动盈亏:=TACCOUNT2( 4,ZH1); 浮盈点:=浮动盈亏/保证金*100; 增长点:=浮动盈亏/账户权益*100;
TT1:= (增长点>5 OR 浮盈点>=6 ) and 保证金>账户权益*7/10;
TT2:= (增长点>8 OR 浮盈点>=9 ) and 保证金>账户权益*6/10;
TT3:= (增长点>10 OR 浮盈点>=11) and 保证金>账户权益*5/10;
达标平多1:= TT1 AND DYNAINFO2(7,PZ1)-TAVGENTERPRICEEX2(ZH1,PZ1,0)>=HLP*4/10*MINDIFF AND ( FX05=-1 AND FX15=-1 AND FX30=-1 AND FX60=-1 AND (FCO_15=-1 or FCO_30=-1) OR AU05=-1 AND AU15=-1 AND AU30=-1 AND AU60=-1 AND (FCO_AU15=-1 or FCO_AU30=-1)) AND ( ZYF=1 OR ZYF=3 );
达标平空1:= TT1 AND TAVGENTERPRICEEX2(ZH1,PZ1,1)-DYNAINFO2(7,PZ1)>=HLP*4/10*MINDIFF AND ( FX05=1 AND FX15=1 AND FX30=1 AND FX60=1 AND (FCO_15=1 or FCO_30=1 ) OR AU05=1 AND AU15=1 AND AU30=1 AND AU60=1 AND (FCO_AU15=1 or FCO_AU30=1 )) AND ( ZYF=1 OR ZYF=3 );
达标平多2:= TT2 AND DYNAINFO2(7,PZ1)-TAVGENTERPRICEEX2(ZH1,PZ1,0)>=HLP*7/10*MINDIFF AND ( FX05=-1 AND FX15=-1 AND FX30=-1 AND (FCO_15=-1 or FCO_30=-1) OR AU05=-1 AND AU15=-1 AND AU30=-1 AND (FCO_AU15=-1 or FCO_AU30=-1)) AND ( ZYF=1 OR ZYF=3 );
达标平空2:= TT2 AND TAVGENTERPRICEEX2(ZH1,PZ1,1)-DYNAINFO2(7,PZ1)>=HLP*7/10*MINDIFF AND ( FX05=1 AND FX15=1 AND FX30=1 AND (FCO_15=1 or FCO_30=1 ) OR AU05=1 AND AU15=1 AND AU30=1 AND (FCO_AU15=1 or FCO_AU30=1 )) AND ( ZYF=1 OR ZYF=3 );
达标平多3:= TT3 AND DYNAINFO2(7,PZ1)-TAVGENTERPRICEEX2(ZH1,PZ1,0)>=HLP*10/10*MINDIFF AND (FX05=-1 AND FX15=-1 AND (FCO_15=-1 or FCO_30=-1) OR AU05=-1 AND AU15=-1 AND (FCO_AU15=-1 or FCO_AU30=-1)) AND ( ZYF=1 OR ZYF=3 );
达标平空3:= TT3 AND TAVGENTERPRICEEX2(ZH1,PZ1,1)-DYNAINFO2(7,PZ1)>=HLP*10/10*MINDIFF AND (FX05=1 AND FX15=1 AND (FCO_15=1 or FCO_30=1 ) OR AU05=1 AND AU15=1 AND (FCO_AU15=1 or FCO_AU30=1 )) AND ( ZYF=1 OR ZYF=3 );
//(六)平多仓 * * *
IF TBUYHOLDINGEX(ZH1,PZ1,1)>0 THEN BEGIN
IF ISLASTBAR=1 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\上次开仓价-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 持仓手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' 成本均价-多 = '&NUMTOSTR(TAVGENTERPRICEEX2(ZH1,PZ1,0),2)&' 开仓时间 = '&NUMTOSTR(DYNAINFO( 213),0)&' C = '&NUMTOSTR(close,0)&' 7 = '&NUMTOSTR(DYNAINFO( 7),2)&' 上次开仓价-多 = %.2f',DYNAINFO( 211) );
IF 方向平多 OR 止损平多1 OR 止损平多2 OR 止损平多3 OR 止盈平多1 OR 止盈平多2 OR 止盈平多3 OR 达标平多1 OR 达标平多2 OR 达标平多3 THEN BEGIN
TSELL( 方向平多 , 0,LMT,DYNAINFO2(21,PZ1)+0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平多
TSELL( 止损平多1, 0,LMT,DYNAINFO2(21,PZ1)+0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平多
TSELL( 止损平多2, 0,LMT,DYNAINFO2(21,PZ1)+0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平多
TSELL( 止损平多3, 0,LMT,DYNAINFO2(21,PZ1)+0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平多
TSELL( 止盈平多1, 0,LMT,DYNAINFO2(21,PZ1)+0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平多
TSELL( 止盈平多2, 0,LMT,DYNAINFO2(21,PZ1)+0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平多
TSELL( 止盈平多3, 0,LMT,DYNAINFO2(21,PZ1)+0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平多
TSELL( 达标平多1, 0,LMT,DYNAINFO2(21,PZ1)+0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平多
TSELL( 达标平多2, 0,LMT,DYNAINFO2(21,PZ1)+0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平多
TSELL( 达标平多3, 0,LMT,DYNAINFO2(21,PZ1)+0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平多
IF ISLASTBAR=1 and 方向平多 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平多记录-方向平多-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 方向平多手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 止损平多1 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平多记录-止损平多1-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 止损平多1手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 止损平多2 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平多记录-止损平多2-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 止损平多2手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 止损平多3 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平多记录-止损平多3-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 止损平多3手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 止盈平多1 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平多记录-止盈平多1-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 止盈平多1手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 止盈平多2 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平多记录-止盈平多2-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 止盈平多2手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 止盈平多3 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平多记录-止盈平多3-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 止盈平多3手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 达标平多1 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平多记录-达标平多1-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 达标平多1手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 达标平多2 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平多记录-达标平多2-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 达标平多2手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 达标平多3 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平多记录-达标平多3-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 达标平多3手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
END
END
//(七)平空仓 * * *
IF TSELLHOLDINGEX(ZH1,PZ1,1)>0 THEN BEGIN
IF ISLASTBAR=1 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\上次开仓价-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 持仓手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' 成本均价-空 = '&NUMTOSTR(TAVGENTERPRICEEX2(ZH1,PZ1,1),2)&' 开仓时间 = '&NUMTOSTR(DYNAINFO( 213),0)&' C = '&NUMTOSTR(close,0)&' 7 = '&NUMTOSTR(DYNAINFO( 7),2)&' 上次开仓价-空 = %.2f',DYNAINFO( 211) );
IF 方向平空 OR 止损平空1 OR 止损平空2 OR 止损平空3 OR 止盈平空1 OR 止盈平空2 OR 止盈平空3 OR 达标平空1 OR 达标平空2 OR 达标平空3 THEN BEGIN
TSELLSHORT( 方向平空 , 0,LMT,DYNAINFO2(20,PZ1)-0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平空
TSELLSHORT( 止损平空1, 0,LMT,DYNAINFO2(20,PZ1)-0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平空
TSELLSHORT( 止损平空2, 0,LMT,DYNAINFO2(20,PZ1)-0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平空
TSELLSHORT( 止损平空3, 0,LMT,DYNAINFO2(20,PZ1)-0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平空
TSELLSHORT( 止盈平空1, 0,LMT,DYNAINFO2(20,PZ1)-0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平空
TSELLSHORT( 止盈平空2, 0,LMT,DYNAINFO2(20,PZ1)-0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平空
TSELLSHORT( 止盈平空3, 0,LMT,DYNAINFO2(20,PZ1)-0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平空
TSELLSHORT( 达标平空1, 0,LMT,DYNAINFO2(20,PZ1)-0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平空
TSELLSHORT( 达标平空2, 0,LMT,DYNAINFO2(20,PZ1)-0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平空
TSELLSHORT( 达标平空3, 0,LMT,DYNAINFO2(20,PZ1)-0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT; //平空
IF ISLASTBAR=1 and 方向平空 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平空记录-方向平空-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 方向平空手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 止损平空1 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平空记录-止损平空1-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 止损平空1手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 止损平空2 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平空记录-止损平空2-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 止损平空2手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 止损平空3 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平空记录-止损平空3-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 止损平空3手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 止盈平空1 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平空记录-止盈平空1-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 止盈平空1手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 止盈平空2 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平空记录-止盈平空2-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 止盈平空2手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 止盈平空3 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平空记录-止盈平空3-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 止盈平空3手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 达标平空1 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平空记录-达标平空1-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 达标平空1手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 达标平空2 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平空记录-达标平空2-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 达标平空2手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
IF ISLASTBAR=1 and 达标平空3 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\平空记录-达标平空3-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 达标平空3手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
END
END
//******************************************************************************
//(八)开多仓
IF TBUYHOLDINGEX(ZH1,PZ1,1)=0 THEN BEGIN
IF 开多条件 THEN BEGIN
IF TACCOUNT2(53,ZH1)=1 and TISREMAINEX( 1,ZH1 ,PZ1 )=0 and TISREMAINEX( 2,ZH1 ,PZ1 )=0 THEN BEGIN
TBUY( 1,1,LMT,DYNAINFO2(20,PZ1)-3*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT;//开多
END
END
END
//(九)开空仓
IF TSELLHOLDINGEX(ZH1,PZ1,1)=0 THEN BEGIN
IF 开空条件 THEN BEGIN
IF TACCOUNT2(53,ZH1)=1 and TISREMAINEX( 3,ZH1 ,PZ1 )=0 and TISREMAINEX( 4,ZH1 ,PZ1 )=0 THEN BEGIN
TBUYSHORT( 1,1,LMT,DYNAINFO2(21,PZ1)+3*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT;//开空
END
END
END
//******************************************************************************
//*************************************
反向加多:= DYNAINFO2(211,PZ1)-DYNAINFO2(7,PZ1)>=HLP/FS*MINDIFF ;
反向加空:= DYNAINFO2(7,PZ1)-DYNAINFO2(211,PZ1)>=HLP/FS*MINDIFF ;
//(十)加多仓
IF 反向加多 and TBUYHOLDINGEX(ZH1,PZ1,1)>=1 and TISREMAINEX( 1,ZH1 ,PZ1 )=0 and TISREMAINEX( 2,ZH1 ,PZ1 )=0 THEN BEGIN
TBUY( 1 ,1,LMT,DYNAINFO2(20,PZ1)-0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT;//开多
IF ISLASTBAR=1 and 反向加多 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\加多记录-反向加仓-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 反向加多手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
END
//(十一)加空仓
IF 反向加空 and TSELLHOLDINGEX(ZH1,PZ1,1)>=1 and TISREMAINEX( 3,ZH1 ,PZ1 )=0 and TISREMAINEX( 4,ZH1 ,PZ1 )=0 THEN BEGIN
TBUYSHORT( 1 ,1,LMT,DYNAINFO2(21,PZ1)+0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT;//开空
IF ISLASTBAR=1 and 反向加空 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\加空记录-反向加仓-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 反向加空手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
END
回撤加多:= C<HHV(H,1)-HLP*2*MINDIFF OR C<HHV(H,2)-HLP*3*MINDIFF OR C<HHV(H,3)-HLP*4*MINDIFF OR C<HHV(H,4)-HLP*5*MINDIFF ;
回撤加空:= C>LLV(H,1)+HLP*2*MINDIFF OR C>LLV(H,2)+HLP*3*MINDIFF OR C>LLV(H,3)+HLP*4*MINDIFF OR C>LLV(H,4)+HLP*5*MINDIFF ;
//(十)加多仓
IF 回撤加多 and TBUYHOLDINGEX(ZH1,PZ1,0)=0 and TBUYHOLDINGEX(ZH1,PZ1,1)>=1 and TISREMAINEX( 1,ZH1 ,PZ1 )=0 and TISREMAINEX( 2,ZH1 ,PZ1 )=0 THEN BEGIN
TBUY( 1 ,1,LMT,DYNAINFO2(20,PZ1)-0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT;//开多
IF ISLASTBAR=1 and 回撤加多 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\加多记录-回撤加仓-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 回撤加多手数 = '&NUMTOSTR(TBUYHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
END
//(十一)加空仓
IF 回撤加空 and TSELLHOLDINGEX(ZH1,PZ1,0)=0 and TSELLHOLDINGEX(ZH1,PZ1,1)>=1 and TISREMAINEX( 3,ZH1 ,PZ1 )=0 and TISREMAINEX( 4,ZH1 ,PZ1 )=0 THEN BEGIN
TBUYSHORT( 1 ,1,LMT,DYNAINFO2(21,PZ1)+0*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT;//开空
IF ISLASTBAR=1 and 回撤加空 then DEBUGFILE('C:\Users\Administrator\Desktop\账号'&ZH1&'\加空记录-回撤加仓-'&STKLABEL&'.TXT',' '&ZH1&'-'&STKLABEL&' 回撤加空手数 = '&NUMTOSTR(TSELLHOLDINGEX(ZH1,PZ1,1),0)&' CLOSE = %.2f',DYNAINFO2(7,PZ1) );
END
|
|