主题：编写求助

 以下代码适用于图表程序化。

DS:=NEWHBARS(HIGH,1);
DN:=IF(BARPOS=DS,1,DS);
DM:REF(DN,DN)+DN,NODRAW;
HH:=IF(BARPOS<4,CLOSE,REF(HIGH,DM));
KD:=CLOSE>LLV(HH,DS);
KS:=NEWLBARS(LOW,1);
KN:=IF(KS=BARPOS,1,KS);
KM:REF(KN,KN)+KN,NODRAW;
LL:=IF(BARPOS<4,CLOSE,REF(LOW,KM));
KK:=CLOSE<HHV(LL,KS);
开多:buy(holding=0 and kd,1,market);
//ENTERLONG:=KD;
平多:sell(holding>0 and kk,holding,market);
//EXITLONG:=KK;
TD:=ENTERBARS+1;
TK:=EXITBARS+1;
A:=REF(IF(TD<TK,HHV(LL,TD),LLV(HH,TK)),1);
多空线:A,COLORRED,LINETHICK2;

//DRAWCOLORLINE(CLOSE<多空线,多空线,COLOR00FF00,COLORRED),LINETHICK2;
//上面这个函数无法直接转换，需要用2个线的变色来间接实现
green:if(CLOSE<多空线,多空线,drawnull),colorgreen;
red:if(not(CLOSE<多空线),多空线,drawnull),colorred ;


if CROSS(C,多空线) then
begin
sellshort(holding<0,holding,market);
buy(holding=0,1,market);
end

if CROSS(多空线,c) then
begin
sell(holding>0,holding,market);
buyshort(holding=0,1,market);   
end