INPUT:N1(4,1,21,,1),N2(32,5,34,1),M1(0.27,0.1,0.5,0.01),M2(0.25,0.1,0.5,0.01),ss(1,0,100000000,1);//参数值
昨高:=CALLSTOCK(STKLABEL,VTHIGH,6,-1);//昨高
昨低:=CALLSTOCK(STKLABEL,VTLOW,6,-1);//昨低
昨收:=CALLSTOCK(STKLABEL,VTCLOSE,6,-1);//昨收
今日开盘价:=Valuewhen(date<>ref(date,1),open);
S1:=max(昨收-昨低,昨高-昨收);//中间变量
S:=max(昨收*0.008,S1);//中间变量
上轨:max(HHV(HIGH,3),今日开盘价+M1*S);//求上轨
下轨:min(LLV(LOW,3),今日开盘价-M2*S);//求下轨
短期均线:ma(CLOSE,N1);//求短期均线
长期均线:ma(CLOSE,N2);//求长期均线
手数:=SS;
//条件
开仓条件:=high>=上轨 and 短期均线 > 长期均线;//开多条件:
平仓条件:=low<=下轨 and 短期均线 < 长期均线;//平仓条件
//交易系统
IF TIME>090000 AND HOLDING = 0 THEN BEGIN
开多:=BUY(开仓条件 ,手数,MARKET);
开仓日期:=date;
END
IF date>valuewhen(开仓条件,date) AND HOLDING > 0 THEN BEGIN
平仓:=sell(平仓条件 ,手数,MARKET);
END
请老师帮我看一下,我改编的对不对?