下面这段代码，在同一价位上发出多个开仓指令，请帮忙看看是什么原因？
VARIABLE:Num_p0=(Buy_END-Buy_START)/Buy_STEP+1;
VARIABLE:Num_p1=(Buy_END1-Buy_START1)/Buy_STEP1+1;
VARIABLE:Num_p2=(Buy_END2-Buy_START2)/Buy_STEP2+1;
VARIABLE:SNum_p0=(Sell_END-Sell_START)/Sell_STEP+1;
VARIABLE:SNum_p1=(Sell_END1-Sell_START1)/Sell_STEP1+1;
VARIABLE:SNum_p2=(Sell_END2-Sell_START2)/Sell_STEP2+1;
VARIABLE:I_tmp=0,S_tmp=0,S_tmp1=0;
VARIABLE:Buy_point[Num_p0]=0,Buy_point1[Num_p1]=0,Buy_point2[Num_p2]=0;//?òμ?
VARIABLE:B_price[Num_p0]=0,B_price1[Num_p1]=0,B_price2[Num_p2]=0;//3é????
VARIABLE:B_flag[Num_p0]=0,B_flag1[Num_p1]=0,B_flag2[Num_p2]=0;//?òμ?±ê??
VARIABLE:S_point[SNum_p0]=0,S_point1[SNum_p1]=0,S_point2[SNum_p2]=0;//??μ?
VARIABLE:CB_flag[Num_p0]=0,CB_flag1[Num_p1]=0,CB_flag2[Num_p2]=0;//?ùóú?òμ?μ?ì??tμ￥±ê??
VARIABLE:S_flag[SNum_p0]=0,S_flag1[SNum_p1]=0,S_flag2[SNum_p2]=0;//??μ?±ê??
VARIABLE:B_NUM=0;//?òμ?×üá?μ?±ê??
VARIABLE:Add_flag=0,CAdd_flag=0;//212??°212?ì??tμ￥±ê??
VARIABLE:Is_debug=1,Is_log=1;
FOR I_tmp=1 TO Num_p0 DO BEGIN
IF 开盘时间 AND OPEN>=Buy_point[I_tmp] AND B_flag[I_tmp]<=0 AND B_NUM<MAX_hold and ABS(holding)<MAX_hold THEN BEGIN
b_tmpp:=Buy_SS;
//?aμ￥á?2??ü3?1y×?′óMAX_hold
IF b_tmpp+ABS(holding)>MAX_hold THEN b_tmpp:=ABS(MAX_hold-ABS(holding));
IF b_tmpp+B_NUM>MAX_hold THEN b_tmpp:=ABS(MAX_hold-B_NUM);//?òμ￥á?2??ü3?1y×?′ó?μ
S_tmp:=HOLDING;
//?a??
IF b_tmpp>0 AND b_tmpp<ABS(MAX_hold) THEN BEGIN
//开仓:buyshort(1,b_tmpp,LIMITR,OPEN);//MARKET);//limitr,X?ü?úμíμ?);
开空:buyshort(1,b_tmpp,MARKET);//LIMITR,OPEN);//MARKET);//limitr,X?ü?úμíμ?);
B_NUM:=B_NUM+1;
// END
//IF HOLDING<>S_tmp THEN BEGIN
B_price[I_tmp]:=ENTERPRICE;
B_flag[I_tmp]:=1;
//ê?3?μ÷ê?D??￠
IF Is_debug=1 and ISLASTBAR THEN MSGOUT(TRUE,'DòáD????:'&numtostr(BARPOS,0)&',?a??êy:'&numtostr(b_tmpp,0)&',3é????:'&numtostr(ENTERPRICE,0)&',3?2?:'&numtostr(HOLDING,0)&',???ˉóˉ?÷:'&numtostr(OPENPROFIT,0)&',×ü?òμ￥êy:'&numtostr(B_NUM,0)&',×ê2ú:'&numtostr(ASSET,0)&',êμê±:'&numtostr(ISLASTBAR,0));
IF Is_log=1 THEN DEBUGFILE('C:\myTEST.TXT','DòáD????:'&numtostr(BARPOS,0)&',?a??êy:'&numtostr(b_tmpp,0)&',3é????:'&numtostr(ENTERPRICE,0)&',3?2?:'&numtostr(HOLDING,0)&',???ˉóˉ?÷:'&numtostr(OPENPROFIT,0)&',×ü?òμ￥êy:'&numtostr(B_NUM,0)&',×ê2ú:'&numtostr(ASSET,0)&',êμê±:'&numtostr(ISLASTBAR,0),0);
END
END
END
同一根k线多次发单的最有可能原因是：
1.信号闪烁，这个是不正常的
2.多个开仓语句同时满足，这个是正常的，1个开仓语句在同一根k线上反复开仓才是不正常的
就是在IE里面发的，好奇怪，有时候好的，有时候是乱码？
现在就是在同一价位同一根K线，只有一个条件满足情况下，一个开仓语句发出多个开仓指令。
我开完仓置标志位也置不上去
开仓信号就是这句：
IF 开盘时间 AND OPEN>=Buy_point[I_tmp] AND B_flag[I_tmp]<=0 AND B_NUM<MAX_hold and ABS(holding)<MAX_hold THEN BEGIN
这是程序输出的信息，居然在一个价位上开了好多单
而且持仓居然不变，用的是固定时间间隔扫描
//区间0 开多
FOR I_tmp=1 TO Num_p0 DO BEGIN
IF B_flag[I_tmp]<=0 AND B_NUM<MAX_hold AND ABS(holding)<MAX_hold THEN BEGIN
//S_tmp1:=OPEN;
IF 开多平空条件 AND OPEN<=Buy_point[I_tmp] THEN BEGIN
b_tmpp:=Buy_SS;
//开单量不能超过最大MAX_hold
IF b_tmpp+ABS(holding)>MAX_hold THEN b_tmpp:=ABS(MAX_hold-ABS(holding));
IF b_tmpp+B_NUM>MAX_hold THEN
b_tmpp:=ABS(MAX_hold-B_NUM);
S_tmp:=HOLDING;
//开多
IF b_tmpp>0 AND b_tmpp<ABS(MAX_hold) THEN BEGIN
开多:buy(1,b_tmpp,MARKET),IGNORECHECKPRICE;//LIMITR,OPEN),IGNORECHECKPRICE;//MARKET);//limitr,X周期低点);
B_NUM:=B_NUM+1;
//END
// IF HOLDING<>S_tmp THEN B_flag[I_tmp]:=1;
// IF HOLDING<>S_tmp THEN BEGIN
B_price[I_tmp]:=ENTERPRICE;
B_flag[I_tmp]:=1;
//输出调试信息AND ISLASTBAR
IF Is_debug=1 THEN MSGOUT(TRUE,'序列位置:'&numtostr(BARPOS,0)&'，开多数:'&numtostr(b_tmpp,0)&',成交价:'&numtostr(ENTERPRICE,0)&',持仓:'&numtostr(HOLDING,0)&',浮动盈亏:'&numtostr(OPENPROFIT,0)&',总买单数:'&numtostr(B_NUM,0)&',资产:'&numtostr(ASSET,0)&',实时:'&numtostr(ISLASTBAR,0));
IF Is_log=1 THEN DEBUGFILE('C:\myTEST.TXT','序列位置:'&numtostr(BARPOS,0)&'，开多数:'&numtostr(b_tmpp,0)&',成交价:'&numtostr(ENTERPRICE,0)&',持仓:'&numtostr(HOLDING,0)&',浮动盈亏:'&numtostr(OPENPROFIT,0)&',总买单数:'&numtostr(B_NUM,0)&',资产:'&numtostr(ASSET,0)&',实时:'&numtostr(ISLASTBAR,0),0);
END
IF ABS(HOLDING)>=MAX_hold THEN BEGIN
MSGOUT(TRUE,'警告：持仓达到上限，停止开多！');//NOAXIS,COLORGRAY;警告："持仓达到上限，停止开多！";
SENDPHONEMSG('警告：持仓达到上限，停止开多！',1);
END
END
END
END