通達信的程序改寫　[文華財經]

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;

模型僅供參考