主题：请老师帮忙写个程序

ma10:ma(c,10);
ma20:ma(c,20);
jc:cross(ma10,ma20);
sc:cross(ma20,ma10);
if jc  then BEGIN
sellshort(holding<0,holding,market);
buy(holding=0,1,market);
end
if sc then BEGIN
sell(holding>0,holding,market);
buyshort(1,1,market);
end

hh:hhv(h,4);
ll:llv(l,3);
if h>=hh then begin
sellshort(holding<0,holding,market);
buy(holding=0,1,market);
end
if l<=ll then begin
sell(holding>0,holding,market);
buyshort(1,1,market);
end