改为金字塔模型　[金字塔]

C1:=VALUEWHEN(DATE<>REF(DATE,1),REF(C,1));
H1:=VALUEWHEN(DATE<>REF(DATE,1),REF(H,1));
L1:=VALUEWHEN(DATE<>REF(DATE,1),REF(L,1));
CF:=MAX((H1-C1),(C1-L1))*4;
 //昨日高点减去收盘  和  昨日收盘减去低点 两者中大的数值 乘以3
O1:=VALUEWHEN(DATE<>REF(DATE,1),O);
if C>O1+CF then begin
sellshort(holding<0,holding,market);
buy(holding=0,1,market);
end
 //收盘大于今日开盘+ CF  买入
if C<O1-CF then begin
sell(holding>0,holding,market);
buyshort(holding=0,1,market);
end
//收盘低于今日开盘- CF  卖出

HH:=HHV(H,enterbars+1);
//买开仓位置到现在最高价
LL:=LLV(L,exitbars+1);
//卖开仓位置到现在最低价
if TIME>=0930 and C>=LL+L*9/1000 then sellshort(holding<0,holding,market);
//最高阶回撤1%止损
if TIME>=0930&&C<=HH-HH*9/1000 then sell(holding>0,holding,market);
//最高阶回撤1%止损
if TIME>=1455 then sell(holding>0,holding,market);
if TIME>=1455 then sellshort(holding<0,holding,market);
//TIME>=1456,BP;