通达信自用黄金分割主图选股指标公式源码

通达信自用黄金分割主图选股指标公式源码

源码正文：

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

{X_G-5~1_C_N_{}