易得专用--主图指标：黄金分割线

wqm

{主图指标：黄金分割线}
gbb:=barslast(DISPSTATUS=1);
ahs1:=hhvbars(h,gbb);
ahs:=ahs1;
als1:=llvbars(l,gbb);
als:=als1;
ahb:=BACKSET(BarStatus=2,ahs+1);
alb:=BACKSET(BarStatus=2,als+1);
ahba:=barslast(ahb>ref(ahb,1));
alba:=barslast(alb>ref(alb,1));
ahc:=ref(h,ahba);
alc:=ref(l,alba);
可视区域高点:ahc,colorred,DOTLINE;
可视区域低点:alc,colorcyan,DOTLINE;
aaqa:=if(ahba<alba,ahc,alc);
aaqb:=if(ahba<alba,-1,1);
aaqc:=if(ahba<alba,barslast(ahb>ref(ahb,1)),barslast(alb>ref(alb,1)));
点809:ref(aaqa+aaqb*(ahc-alc)*0.191,aaqc),color0000AA,PRECIS2,DOTLINE;
点618:ref(aaqa+aaqb*(ahc-alc)*0.382,aaqc),color0000AA,PRECIS2,DOTLINE;
点500:ref(aaqa+aaqb*(ahc-alc)*0.500,aaqc),color0000AA,PRECIS2,DOTLINE;
点382:ref(aaqa+aaqb*(ahc-alc)*0.618,aaqc),color0000AA,PRECIS2,DOTLINE;
点236:ref(aaqa+aaqb*(ahc-alc)*0.764,aaqc),color0000AA,PRECIS2,DOTLINE;
点191:ref(aaqa+aaqb*(ahc-alc)*0.809,aaqc),color0000AA,PRECIS2,DOTLINE;
aap0:=(点191/ahc-1)*100;
aap1:=(点236/ahc-1)*100;
aap2:=(点382/ahc-1)*100;
aap3:=(点500/ahc-1)*100;
aap4:=(点618/ahc-1)*100;
aap5:=(点809/ahc-1)*100;
aaw0:=ifs(ahba<alba,'高点跌:0.191','低点涨:'+NUMTOSTRN(1-0.191,3));
aaw1:=ifs(ahba<alba,'高点跌:0.236','低点涨:'+NUMTOSTRN(1-0.236,3));
aaw2:=ifs(ahba<alba,'高点跌:0.382','低点涨:'+NUMTOSTRN(1-0.382,3));
aaw3:=ifs(ahba<alba,'高点跌:0.500','低点涨:'+NUMTOSTRN(1-0.500,3));
aaw4:=ifs(ahba<alba,'高点跌:0.618','低点涨:'+NUMTOSTRN(1-0.618,3));
aaw5:=ifs(ahba<alba,'高点跌:0.809','低点涨:'+NUMTOSTRN(1-0.809,3));
DRAWTEXT(last(点191>0)=1,点191*1.0,aaw0+'。 '+NUMTOSTRN(点191,2)+'('+NUMTOSTRN(aap0,2)+'%)'),colorffffff ,ALIGN2;
DRAWTEXT(last(点236>0)=1,点236*1.0,aaw1+'。 '+NUMTOSTRN(点236,2)+'('+NUMTOSTRN(aap1,2)+'%)'),colorffffff ,ALIGN2;
DRAWTEXT(last(点382>0)=1,点382*1.0,aaw2+'。 '+NUMTOSTRN(点382,2)+'('+NUMTOSTRN(aap2,2)+'%)'),colorffffff ,ALIGN2;
DRAWTEXT(last(点500>0)=1,点500*1.0,aaw3+'。 '+NUMTOSTRN(点500,2)+'('+NUMTOSTRN(aap3,2)+'%)'),colorffffff ,ALIGN2;
DRAWTEXT(last(点618>0)=1,点618*1.0,aaw4+'。 '+NUMTOSTRN(点618,2)+'('+NUMTOSTRN(aap4,2)+'%)'),colorffffff ,ALIGN2;
DRAWTEXT(last(点809>0)=1,点809*1.0,aaw5+'。 '+NUMTOSTRN(点809,2)+'('+NUMTOSTRN(aap5,2)+'%)'),colorffffff ,ALIGN2;
DRAWTEXT(DISPSTATUS=2 AND 可视区域高点,可视区域高点*1.01,''+NUMTOSTRN(可视区域高点,2)),colorred;
DRAWTEXT(DISPSTATUS=2 AND 可视区域低点,可视区域低点*1.02,' '+NUMTOSTRN(可视区域低点,2)),colorcyan;
图:='可视区域:'+barslast(DISPSTATUS=1)+'天。  ';
DRAWTEXTREL(10,85,图),colorwhite;

易恒

加上图。

wqm

{主图指标：黄金分割线}
{修正上面低点涨的百分比错误}
gbb:=barslast(DISPSTATUS=1);
ahs1:=hhvbars(h,gbb);
ahs:=ahs1;
als1:=llvbars(l,gbb);
als:=als1;
ahb:=BACKSET(BarStatus=2,ahs+1);
alb:=BACKSET(BarStatus=2,als+1);
ahba:=barslast(ahb>ref(ahb,1));
alba:=barslast(alb>ref(alb,1));
ahc:=ref(h,ahba);
alc:=ref(l,alba);
可视区域高点:ahc,colorred,DOTLINE;
可视区域低点:alc,colorcyan,DOTLINE;
aaqa:=if(ahba<alba,ahc,alc);
aaqb:=if(ahba<alba,-1,1);
aaqc:=if(ahba<alba,barslast(ahb>ref(ahb,1)),barslast(alb>ref(alb,1)));
点809:ref(aaqa+aaqb*(ahc-alc)*0.191,aaqc),color0000AA,PRECIS2,DOTLINE;
点618:ref(aaqa+aaqb*(ahc-alc)*0.382,aaqc),color0000AA,PRECIS2,DOTLINE;
点500:ref(aaqa+aaqb*(ahc-alc)*0.500,aaqc),color0000AA,PRECIS2,DOTLINE;
点382:ref(aaqa+aaqb*(ahc-alc)*0.618,aaqc),color0000AA,PRECIS2,DOTLINE;
点236:ref(aaqa+aaqb*(ahc-alc)*0.764,aaqc),color0000AA,PRECIS2,DOTLINE;
点191:ref(aaqa+aaqb*(ahc-alc)*0.809,aaqc),color0000AA,PRECIS2,DOTLINE;
aap0:=if(ahba<alba,(点191/ahc-1)*100,(点191/alc-1)*100);
aap1:=if(ahba<alba,(点236/ahc-1)*100,(点236/alc-1)*100);
aap2:=if(ahba<alba,(点382/ahc-1)*100,(点382/alc-1)*100);
aap3:=if(ahba<alba,(点500/ahc-1)*100,(点500/alc-1)*100);
aap4:=if(ahba<alba,(点618/ahc-1)*100,(点618/alc-1)*100);
aap5:=if(ahba<alba,(点809/ahc-1)*100,(点809/alc-1)*100);
aaw0:=ifs(ahba<alba,'高点跌:0.191','低点涨:'+NUMTOSTRN(1-0.191,3));
aaw1:=ifs(ahba<alba,'高点跌:0.236','低点涨:'+NUMTOSTRN(1-0.236,3));
aaw2:=ifs(ahba<alba,'高点跌:0.382','低点涨:'+NUMTOSTRN(1-0.382,3));
aaw3:=ifs(ahba<alba,'高点跌:0.500','低点涨:'+NUMTOSTRN(1-0.500,3));
aaw4:=ifs(ahba<alba,'高点跌:0.618','低点涨:'+NUMTOSTRN(1-0.618,3));
aaw5:=ifs(ahba<alba,'高点跌:0.809','低点涨:'+NUMTOSTRN(1-0.809,3));
DRAWTEXT(last(点191>0)=1,点191*1.0,aaw0+'。 '+NUMTOSTRN(点191,2)+'('+NUMTOSTRN(aap0,2)+'%)'),colorffffff ,ALIGN2;
DRAWTEXT(last(点236>0)=1,点236*1.0,aaw1+'。 '+NUMTOSTRN(点236,2)+'('+NUMTOSTRN(aap1,2)+'%)'),colorffffff ,ALIGN2;
DRAWTEXT(last(点382>0)=1,点382*1.0,aaw2+'。 '+NUMTOSTRN(点382,2)+'('+NUMTOSTRN(aap2,2)+'%)'),colorffffff ,ALIGN2;
DRAWTEXT(last(点500>0)=1,点500*1.0,aaw3+'。 '+NUMTOSTRN(点500,2)+'('+NUMTOSTRN(aap3,2)+'%)'),colorffffff ,ALIGN2;
DRAWTEXT(last(点618>0)=1,点618*1.0,aaw4+'。 '+NUMTOSTRN(点618,2)+'('+NUMTOSTRN(aap4,2)+'%)'),colorffffff ,ALIGN2;
DRAWTEXT(last(点809>0)=1,点809*1.0,aaw5+'。 '+NUMTOSTRN(点809,2)+'('+NUMTOSTRN(aap5,2)+'%)'),colorffffff ,ALIGN2;
DRAWTEXT(DISPSTATUS=2 AND 可视区域高点,可视区域高点*1.01,''+NUMTOSTRN(可视区域高点,2)),colorred;
DRAWTEXT(DISPSTATUS=2 AND 可视区域低点,可视区域低点*1.02,' '+NUMTOSTRN(可视区域低点,2)),colorcyan;
图:='可视区域:'+barslast(DISPSTATUS=1)+'天。  ';
DRAWTEXTREL(10,85,图),colorwhite;

wqm

见附图