主题：能不能做到？

macd00z:=stkindi('','macd.macd1',0,7);

macd01z:=stkindi('','macd.macd1',0,7,-1);

macd02z:=stkindi('','macd.macd1',0,7,-2);

debugfile('e:\test_sh.txt', STKLABEL +'位置1--引用变量输出: '+' MACD00Z= ['+NUMTOSTR(macd00z,6)+' ] macd01z=[ '+NUMTOSTR(macd01z,6)+' ] macd02z= [ '+NUMTOSTR(macd02z,6)+' ]',0);

debugfile('e:\test_sh.txt', STKLABEL +'位置2--买入条件触发状态：**['+NUMTOSTR((GETINIFILE( 'C:\buy_date.INI','SETTING',STKLABEL+'DATE')=0 and macd00z>macd01z and macd01z<macd02z  and  tbuyholding(1)=0),0)+']** 详细条件输出： buy_date.date= ['+NUMTOSTR(GETINIFILE( 'C:\buy_date.INI','SETTING',STKLABEL+'DATE'),0)+' ]  tbuyholding(1)=[ '+NUMTOSTR(tbuyholding(1),0)+']', 0 );

if GETINIFILE( 'C:\buy_date.INI','SETTING',STKLABEL+'DATE')=0 and macd00z>macd01z and macd01z<macd02z  and  tbuyholding(1)=0  then begin

  tbuy(1,10000/close,MKT); 

  WRITEINIFILE('C:\buy_date.INI','SETTING',STKLABEL+'DATE',date);//写文件记录开仓日期。

 WRITEINIFILE('C:\buy_date.INI','SETTING',STKLABEL+'WEEK',WEEKDAY);

end

debugfile('e:\test_sh.txt', STKLABEL +'位置3--卖出条件触发状态 :**['+NUMTOSTR((macd00z<macd01z and tbuyholding(0)>0),0)+']** 详细条件输出: buy_date.date= ['+NUMTOSTR( GETINIFILE('C:\buy_date.INI','SETTING',STKLABEL+'DATE'),0)+' ] tbuyholding(1)=[ '+NUMTOSTR(tbuyholding(1),0)+']', 0 );

if macd00z<macd01z and tbuyholding(0)>0 then  BEGIN

 tsell(1,0,mkt);

 WRITEINIFILE('C:\buy_date.INI','SETTING',STKLABEL+'DATE',0);//平仓时将其置为0 

 WRITEINIFILE('C:\buy_date.INI','SETTING',STKLABEL+'WEEK',0);

debugfile('e:\test_sh.txt', STKLABEL +'位置3--探针输出: buy_date.date= ['+NUMTOSTR(GETINIFILE('C:\buy_date.INI','SETTING',STKLABEL+'DATE'),0)+']', 0 );

end

 

开仓日期:GETINIFILE( 'C:\buy_date.INI','SETTING',STKLABEL+'DATE');

week:GETINIFILE( 'C:\buy_date.INI','SETTING',STKLABEL+'week');

debugfile('e:\test_sh.txt', STKLABEL +'位置4--时间控制变量输出:**['+NUMTOSTR((DATEDIFF(开仓日期,date)>5-week),0)+']**  开仓日期= ['+NUMTOSTR( 开仓日期,0)+' ] week=[ '+NUMTOSTR(week,0)+' ] DATEDIFF(开仓日期,date)= [ '+NUMTOSTR(DATEDIFF(开仓日期,date),0)+' ]   5-week= [ '+NUMTOSTR(5-week,0)+'  ]'  ,0  );

if 开仓日期<>0 and week and  DATEDIFF(开仓日期,date)>5-week  then begin

 WRITEINIFILE('C:\buy_date.INI','SETTING',STKLABEL+'DATE',0);//下周第一个交易日时将其置为0,

 WRITEINIFILE('C:\buy_date.INI','SETTING',STKLABEL+'WEEK',0);

debugfile('e:\test_sh.txt', STKLABEL +'位置4--探针输出: buy_date.date= ['+NUMTOSTR(GETINIFILE( 'C:\buy_date.INI','SETTING',STKLABEL+'DATE'),0)+']', 0 );

 end

//将A赋值为1，表示当前有持仓

IF TBUYHOLDINGEX('','',0 )>0 AND EXTGBDATA('a')=0 THEN BEGIN

EXTGBDATASET('a',1 );

END

//使A始终表示监控开始后的最高价

IF DYNAINFO(7)>EXTGBDATA('a') and EXTGBDATA('a')>0 THEN BEGIN

EXTGBDATASET('a',DYNAINFO(7));

END

//发现价格回落止损，并将A赋值为0表示移动止损动作完成

IF EXTGBDATA('a')*0.97>DYNAINFO(7) and EXTGBDATA('a')>0 THEN BEGIN

TSELL(1,0,MKT);

debugfile('e:\test_sh.txt', STKLABEL +'位置5--移动止损触发状态 :**['+NUMTOSTR((EXTGBDATA('a')*0.97>DYNAINFO(7) and EXTGBDATA('a')>0),0)+']** 详细条件输出:止损价= ['+NUMTOSTR(EXTGBDATA('a')*0.97,6)+'] 最新价=[ '+NUMTOSTR(DYNAINFO(7),6)+']', 0 );

EXTGBDATASET('a',0);

END

以下是输出:

2017-08-07 09:35:49.054    002643位置1--引用变量输出:  MACD00Z= [-0.275691 ] macd01z=[ -0.185874 ] macd02z= [ -0.107319 ]

2017-08-07 09:35:49.054    002643位置2--买入条件触发状态:**[0]** 详细条件输出: buy_date.date= [0 ]  tbuyholding(1)=[ 0]

2017-08-07 09:35:49.054    002643位置3--卖出条件触发状态 :**[0]** 详细条件输出: buy_date.date= [0 ] tbuyholding(1)=[ 0]

2017-08-07 09:35:49.054    002643位置4--时间控制变量输出:**[0]**  开仓日期= [0 ] week=[ 0 ] DATEDIFF(开仓日期,date)= [ 0 ]   5-week= [ 5  ]

2017-08-07 09:35:49.054    002643位置5--移动止损触发状态 :**[1]** 详细条件输出:止损价= [17.857700] 最新价=[ 12.940000]

感觉输出的所有满足条件的止损价都有问题，不知问题出在什么地方？