p:=26;s:=12;m:=9;
DIFF : EMA(CLOSE,S) - EMA(CLOSE,P);
DEA : EMA(DIFF,M);
MACD : 2*(DIFF-DEA);
if h=hhv(h,10) and macd<ref(macd,1) and cross(dea,diff) then begin
sell(1,0,market);
buyshort(holding=0,1,market);
end
if l=llv(l,10) and macd>ref(macd,1) and cross(diff,dea) then begin
sellshort(1,0,market);
buy(holding=0,1,market);
end