日:=49;昨前:=10;
高:=REF(HHV(H,日),昨前);
低:=REF(LLV(L,日),昨前);
H1:=高-(高-低)*1;
H2:=高-(高-低)*0.809;
H3:=高-(高-低)*0.618;
H4:=高-(高-低)*0.5;
H5:=高-(高-低)*0.382;
H6:=高-(高-低)*0.236;
底:REFDATE(H1,DATE),COLORLIRED;
DRAWTEXT(ISLASTBAR,H1,'底');
一:REFDATE(H2,DATE),COLORLIRED;
DRAWTEXT(ISLASTBAR,H2,'0.809');
二0.618:REFDATE(H3,DATE),COLORYELLOW;
DRAWTEXT(ISLASTBAR,H3,'0.618');
三0.5:REFDATE(H4,DATE),COLORGREEN;
DRAWTEXT(ISLASTBAR,H4,'0.5');
四0.382:REFDATE(H5,DATE),COLORCYAN;
DRAWTEXT(ISLASTBAR,H5,'0.382');
五:REFDATE(H6,DATE),COLORBLUE;
DRAWTEXT(ISLASTBAR,H6,'0.236');
頂:REFDATE(高,DATE),COLORLIBLUE;
DRAWTEXT(ISLASTBAR,頂,'前高');
主H6:=高+(高-低)*1;
主H5:=高+(高-低)*0.809;
主H4:=高+(高-低)*0.618;
主H3:=高+(高-低)*0.5;
主H2:=高+(高-低)*0.382;
主H1:=高+(高-低)*0.236;
主升H1:REFDATE(主H1,DATE),COLORLIRED;
DRAWTEXT(ISLASTBAR,主H1,'1.236');
主升H2:REFDATE(主H2,DATE),COLORYELLOW;
DRAWTEXT(ISLASTBAR,主H2,'1.382');
主升H3:REFDATE(主H3,DATE),COLORGREEN;
DRAWTEXT(ISLASTBAR,主H3,'1.5');
{主升H4:REFDATE(主H4,DATE),COLORCYAN;
DRAWTEXT(ISLASTBAR,主H4,'1.618');
主升H5:REFDATE(主H5,DATE),COLORBLUE;
DRAWTEXT(ISLASTBAR,主H5,'1.809');
主升H6:REFDATE(主H6,DATE),COLORBLUE;
DRAWTEXT(ISLASTBAR,主H6,'2');};