黄金分割主图（源码）

黄金分割

lhnh:=BARSLAST(DISPSTATUS=1)+1;nnl:=DISPSTATUS=2;
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
hh:=HHV(h ,lhnh);ll:=llV(l ,lhnh);q809:=ll+(hh-ll)*0.809;
q618:=ll+(hh-ll)*0.618;q500:=ll+(hh-ll)*0.5;
q382:=ll+(hh-ll)*0.382;q191:=ll+(hh-ll)*0.191;
PARTLINE(hh,qqqq,RGB(255,18,28));
PARTLINE(q191,qqqq,RGB(198,248,248));
PARTLINE(q382,qqqq,RGB(18,108,208));
PARTLINE(q500,qqqq,RGB(198,8,118));
PARTLINE(q618,qqqq,RGB(98,98,228));
PARTLINE(q809,qqqq,RGB(158,228,158));
PARTLINE(ll,qqqq,RGB(238,238,28));
DRAWTEXT(nnl,hh*0.998,'最高价：'+hh),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q809,'19.1%：'+q809),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q618,'38.2%：'+q618),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q500,'50%：'+q500),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q382,'61.8%：'+q382),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q191,'80.9%：'+q191),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,ll*1.01,'最低价：'+ll),ALIGN2,VALIGN2,Color00FFFF;