海利克

VARIABLE:OO:=0;
IF BARPOS=1 THEN
BEGIN
OO:(O+C)/2,NODRAW;
CC:(O+C+H+L)/4,NODRAW;
HH:H,NODRAW;
LL:L,NODRAW;
END
IF BARPOS>1 THEN
BEGIN
OO:(REF(OO,1)+REF(CC,1))/2,NODRAW;
CC:(OPEN+HIGH+LOW+CLOSE)/4,NODRAW;
HH:MAX1(HIGH,OO,CC),NODRAW;
LL:MIN1(LOW,OO,CC),NODRAW;
END
DRAWLINE(OO>CC,HH,OO>CC,LL,COLORGREEN);
DRAWLINE(OO<CC,HH,OO<CC,CC,COLORRED);
DRAWLINE(OO<CC,OO,OO<CC,LL,COLORRED);
DRAWLINE(OO=CC,HH,OO=CC,LL,COLORWHITE);
STICKLINE(OO>CC,OO,CC,COLORGREEN,0);
STICKLINE(OO<CC,CC,OO,COLORRED,1);
STICKLINE(OO=CC,CC,OO,COLORWHITE,0);