自用黄金分割(主图 贴图 原码)

{N 2 1000 16}
N1:=N*10;
CY:=BARSLAST(CURRBARSCOUNT=N1);
GD:=CONST(IF(ISLASTBAR=1,HHV(H,CY),0));
DD:=CONST(IF(ISLASTBAR=1,LLV(L,CY),0));
　预顶百分比％:(GD-C)/C*100,NODRAW;
H5:=GD-(GD-DD)*0.191;
H4:=GD-(GD-DD)*0.382;
H3:=GD-(GD-DD)*0.5;
H2:=GD-(GD-DD)*0.618;
H1:=GD-(GD-DD)*0.809;
DH5:=STRCAT(STRCAT('80.9％ ',CON2STR(H5,3)),'');
DH4:=STRCAT(STRCAT('61.8％ ',CON2STR(H4,3)),'');
DH3:=STRCAT(STRCAT('50.0％ ',CON2STR(H3,3)),'');
DH2:=STRCAT(STRCAT('38.2％ ',CON2STR(H2,3)),'');
DH1:=STRCAT(STRCAT('19.1％ ',CON2STR(H1,3)),'');
BASE:=STRCAT(STRCAT('BASE ',CON2STR(DD,3)),' 随浪飞扬');
％100:=STRCAT(STRCAT('100％ ',CON2STR(GD,3)),'');
DRAWBAND(IF(CURRBARSCOUNT<=1,DD,DRAWNULL),
RGB(16,36,46),IF(CURRBARSCOUNT<=N1,DD,DRAWNULL)-(H4-H3)/2,RGB(0,0,0));
{DRAWBAND(IF(CURRBARSCOUNT<=N1,GD,DRAWNULL)+(H4-H3)/2,
RGB(16,36,46),IF(CURRBARSCOUNT<=N1,DD,DRAWNULL)-(H4-H3)/2,RGB(0,0,0));}{背景}
DRAWKLINE(H,O,L,C);
DRAWBAND(IF(CURRBARSCOUNT<=N1,H1,DRAWNULL),RGB(200,0,200),H1,RGB(0,0,0));
DRAWBAND(IF(CURRBARSCOUNT<=N1,H2,DRAWNULL),RGB(200,0,200),H2,RGB(0,0,0));
DRAWBAND(IF(CURRBARSCOUNT<=N1,H3,DRAWNULL),RGB(200,0,200),H3,RGB(0,0,0));
DRAWBAND(IF(CURRBARSCOUNT<=N1,H4,DRAWNULL),RGB(200,0,200),H4,RGB(0,0,0));
DRAWBAND(IF(CURRBARSCOUNT<=N1,H5,DRAWNULL),RGB(200,0,200),H5,RGB(0,0,0));
DRAWBAND(IF(CURRBARSCOUNT<=N1,GD,DRAWNULL),RGB(200,0,200),GD,RGB(0,0,0));
DRAWBAND(IF(CURRBARSCOUNT<=N1,DD,DRAWNULL),RGB(200,0,200),DD,RGB(0,0,0));
DRAWTEXT(CURRBARSCOUNT=N1-1,H5,DH5),COLORAA99AA;
DRAWTEXT(CURRBARSCOUNT=N1-1,H4,DH4),COLORAA99AA;
DRAWTEXT(CURRBARSCOUNT=N1-1,H3,DH3),COLORAA99AA;
DRAWTEXT(CURRBARSCOUNT=N1-1,H2,DH2),COLORAA99AA;
DRAWTEXT(CURRBARSCOUNT=N1-1,H1,DH1),COLORAA99AA;
DRAWTEXT(CURRBARSCOUNT=N1-1,DD,BASE),COLORAA99AA;
DRAWTEXT(CURRBARSCOUNT=N1-1,GD,％100),COLORAA99AA;