以下是通达信高低点公式主图源码(无源码的请下载附件导入)
{高低点}
高:=REF(HHV(H,80),3);
低:=REF(LLV(L,80),3);
顶点:REFDATE(高,DATE),DOTLINE,LINETHICK2,COLORRED;
低点:REFDATE(低,DATE),DOTLINE,LINETHICK2,COLORBLUE;
DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORRED;
DRAWTEXT(ISLASTBAR,低点,'低点'),COLORBLUE;
{上穿均线}
MA5:=MA(C,5);
MA20:MA(C,20);
MA60:MA(C,60),COLORFF00FF,LINETHICK2;
DRAWICON(CROSS(MA5,MA20),L*0.98,1);
DRAWICON(CROSS(MA60,C),H*1.05,2);
IF(C>MA20,MA20,DRAWNULL),COLORYELLOW,LINETHICK2;
IF(C<MA20,MA20,DRAWNULL),COLORGREEN,LINETHICK2;
|