指标请写成模型.　[金字塔]

老师好!.如下指标请写成模型.红色线开多平空.青色线开空平多.用收盘价下单.谢谢!

USERRIGHT:=1;
OO:=(USERRIGHT=0);
AA:=(USERRIGHT=1);
BB:=(USERRIGHT=2);
CC:=(USERRIGHT=3);
DD:=(USERRIGHT=4);
EE:=(USERRIGHT=5);
if (((AA or BB) or CC)) then
begin

A7:=(((EMA(((((OPEN+HIGH)+LOW)+CLOSE)/4),40)+EMA(((((OPEN+HIGH)+LOW)+CLOSE)/4),120))+EMA(((((OPEN+HIGH)+LOW)+CLOSE)/4),256))/3);
VAR7:=FORCAST(A7,16);
PARTLINE((VAR7>REF(VAR7,1)),VAR7,COLORRED),COLOR0000FF;
PARTLINE((VAR7<REF(VAR7,1)),VAR7,COLORCYAN),COLORFFFF54;

end

if VAR7>REF(VAR7,1) then begin

    sellshort(1,0,thisclose);

    buy(holding=0,1,thisclose);

end

if VAR7<REF(VAR7,1) then begin

     sell(1,0,thisclose);

     buyshort(holding=0,1,thisclose);

end

USERRIGHT:=1;
OO:=(USERRIGHT=0);
AA:=(USERRIGHT=1);
BB:=(USERRIGHT=2);
CC:=(USERRIGHT=3);
DD:=(USERRIGHT=4);
EE:=(USERRIGHT=5);
ee:=(((EMA(((((OPEN+HIGH)+LOW)+CLOSE)/4),40)+EMA(((((OPEN+HIGH)+LOW)+CLOSE)/4),120))+EMA(((((OPEN+HIGH)+LOW)+CLOSE)/4),256))/3);
if (((AA or BB) or CC)) then
begin

A7:=ee;
VAR7:=FORCAST(A7,16);
PARTLINE((VAR7>REF(VAR7,1)),VAR7,COLORRED),COLOR0000FF;
PARTLINE((VAR7<REF(VAR7,1)),VAR7,COLORCYAN),COLORFFFF54;

end
 
if VAR7>REF(VAR7,1) then begin

    sellshort(1,0,thisclose);

    buy(holding=0,1,thisclose);

end

if VAR7<REF(VAR7,1) then begin

     sell(1,0,thisclose);

     buyshort(holding=0,1,thisclose);

end