如下代码请转为金字塔模型　[金字塔]

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 and C<=HH-HH*9/1000 then sell(holding>0,holding,market);
//最高阶回撤1%止损
if TIME>=1500 then sell(holding>0,holding,market);
if TIME>=1500 then SELLSHORT(holding<0,holding,market);