通达信的程序改写　[文华财经]

DRAWTEXT(CURRBARSCOUNT=21,H1,'高点'),COLORBLUE;
DRAWTEXT(CURRBARSCOUNT=21,H3,'0.618'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=21,H4,'0.5'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=21,H5,'0.382'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=21,H2,'低点'),COLORRED;

STICKLINE(CURRBARSCOUNT=1,H1,H1,3000,1),COLORBLUE;
STICKLINE(CURRBARSCOUNT=1,H3,H3,3000,-1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=1,H4,H4,3000,-1),COLORYELLOW;
STICKLINE(CURRBARSCOUNT=1,H5,H5,3000,-1),COLORLIRED;
STICKLINE(CURRBARSCOUNT=1,H2,H2,3000,1),COLORRED;

谢谢老师，请帮忙，，

您使用的版本不是最新版本 请您在文华官网下载最新版本WH6使用

新版中使用如下语句

H1:=HHV(H,500);
H2:=LLV(L,500);
H3:=H1-(H1-H2)*0.382;
H4:=H1-(H1-H2)*0.5;
H5:=H1-(H1-H2)*0.618;

A:=BACKSET(ISLASTBAR,21);

DRAWTEXT(CROSS(A,0.5),H1,'高点'),COLORBLUE;
DRAWTEXT(CROSS(A,0.5),H3,'0.618'),COLORYELLOW;
DRAWTEXT(CROSS(A,0.5),H4,'0.5'),COLORYELLOW;
DRAWTEXT(CROSS(A,0.5),H5,'0.382'),COLORYELLOW;
DRAWTEXT(CROSS(A,0.5),H2,'低点'),COLORRED;

STICKLINE1(ISLASTBAR,H1,H1,3000,1),COLORBLUE;
STICKLINE1(ISLASTBAR,H3,H3,3000,-1),COLORGREEN;
STICKLINE1(ISLASTBAR,H4,H4,3000,-1),COLORYELLOW;
STICKLINE1(ISLASTBAR,H5,H5,3000,-1),COLORLIRED;
STICKLINE1(ISLASTBAR,H2,H2,3000,1),COLORRED;

模型仅供参考