通达信最好的黄金分割比例自动画线优化版主图选股指标公式源码

通达信最好的黄金分割比例自动画线优化版主图选股指标公式源码

源码正文：

N:=6000{XG51};
高:=REFDATE(HHV(H,N),DATE);
低:=REFDATE(LLV(L,N),DATE){XG51};
H1:=高-(高-低)*0.191{XG51};
H2:=高-(高-低)*0.382{XG51};
H3:=高-(高-低)*0.5{XG51};
H4:=高-(高-低)*0.618{XG51};
H5:=高-(高-低)*0.809{XG51};
H6:=高-(高-低)*0.764{XG51};
H7:=高-(高-低)*0.236{XG51};
stICKLINE(CURRBARSCOUNT=8,高,高,0,1),COLORCYAN{XG51};
STICKLINE(CURRBARSCOUNT=8,H1,H1,0,1),COLORGREEN{XG51};
STICKLINE(CURRBARSCOUNT=8,H2,H2,0,1),COLORCCCCCC{XG51};
DRAWTEXT(CURRBARSCOUNT=10,高,' 1.000'),COLORCYAN{XG51};
DRAWTEXT(CURRBARSCOUNT=10,H1,'0.809'),COLORGREEN{XG51};
DRAWTEXT(CURRBARSCOUNT=10,H2,' 0.618'),COLORFFFFFF{XG51};
DRAWTEXT(CURRBARSCOUNT=10,H3,' 0.500'),COLORBLUE{XG51};
DRAWTEXT(CURRBARSCOUNT=10,H4,' 0.382'),COLORLICYAN{XG51};
DRAWTEXT(CURRBARSCOUNT=10,H6,' 0.236'),COLORCYAN{XG51};
DRAWTEXT(CURRBARSCOUNT=10,H5,' 0.191'),COLORmaGENTA{XG51};
DRAWTEXT(CURRBARSCOUNT=10,H7,' 0.764'),COLORWHITE{XG51};
DRAWTEXT(CURRBARSCOUNT=10,低,' 0.000'),COLORWHITE{XG51};
STICKLINE(CURRBARSCOUNT=8,H3,H3,0,1),COLORBLUE{XG51};
STICKLINE(CURRBARSCOUNT=8,H4,H4,0,1),COLORLICYAN{XG51};
STICKLINE(CURRBARSCOUNT=8,H6,H6,0,1),COLORCYAN{XG51};
STICKLINE(CURRBARSCOUNT=8,H5,H5,0,1),COLORLIMAGENTA{XG51};
STICKLINE(CURRBARSCOUNT=8,低,低,0,1),COLORWHITE{XG51};
STICKLINE(CURRBARSCOUNT=8,H7,H7,0,1),COLORWHITE{XG51};
DRAWTEXT(CURRBARSCOUNT=50,高*0.99,CON2STR(高,2)),COLORCYAN{XG51};
DRAWTEXT(CURRBARSCOUNT=50,H1,CON2STR(H1,2)),COLORGREEN{XG51};
DRAWTEXT(CURRBARSCOUNT=50,H2,CON2STR(H2,2)),COLORFFFFFF{XG51};
DRAWTEXT(CURRBARSCOUNT=50,H3,CON2STR(H3,2)),COLORBLUE{XG51};
DRAWTEXT(CURRBARSCOUNT=50,H6,CON2STR(H6,2)),COLORCYAN{XG51};
DRAWTEXT(CURRBARSCOUNT=50,H4,CON2STR(H4,2)),COLORLICYAN{XG51};
DRAWTEXT(CURRBARSCOUNT=50,H5,CON2STR(H5,2)),COLORLIMAGENTA{XG51};
DRAWTEXT(CURRBARSCOUNT=50,H7,CON2STR(H7,2)),COLORWHITE{XG51};
DRAWTEXT(CURRBARSCOUNT=50,低*1.01,CON2STR(低,2)),COLORWHITE{XG51};
HDAY:=800;LDAY:=800;调点:=3;角度:=100;之字幅度:=25;横向调节:=1{XG51};
CURR:=CURRBARSCOUNT{XG51};
TCH:=CONST(FINDHIGH(H,0,HDAY*10,1)){XG51};
GTT:=CONST(BArslAST(TCH=H))+1{XG51};
SX跌H:=CONST(IF(GTT=1,H,REF(H,GTT-1))){XG51};
BCL:=CONST(FINDLOW(L,0,LDAY*10,1)){XG51};
DTT:=CONST(BARSLAST(BCL=L))+1{XG51};
SX涨L:=CONST(IF(DTT=1,L,REF(L,DTT-1))){XG51};
涨点:=BARSSINCE(BacKSET(ISLASTBAR,BARSLAST(L=SX涨L)+1)){XG51};
跌点:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=SX跌H)+1)){XG51};
最低:=IF(调点=1,跌点,IF(调点=2,涨点,IF(调点=3,涨点,跌点))){XG51};
L斜率:=角度/IF(C<300,1000,10){XG51};
最高:=IF(调点=1,跌点,IF(调点=2,涨点,IF(调点=3,跌点,涨点))){XG51};
H斜率:=角度/IF(C<300,1000,10){XG51};
IM68:=((SX跌H-SX涨L)/6-(SX跌H-SX涨L)/8){XG51};
GH跌X:=SX跌H+(SX跌H-SX涨L)/8{XG51};
DL涨X:=SX涨L-(SX跌H-SX涨L)/8{XG51};
GTHT:=IF(DTT>GTT,DTT,GTT){XG51};
X000:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.000,DRAWNULL),DOTLINE,COLOR556600{XG51};
DRAWTEXT(CURR=GTHT,(X000)*1.001,STRCAT('  0.000   ',CON2STR(X000,2))),COLORF5CCEB{XG51};
X191:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.191,DRAWNULL),DOTLINE,COLOR556600{XG51};
DRAWTEXT(CURR=GTHT,(X191)*1.001,STRCAT('  0.191    ',CON2STR(X191,2))),COLORF5CCEB{XG51};
X236:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.236,DRAWNULL),DOTLINE,COLOR556600{XG51};
DRAWTEXT(CURR=GTHT,(X236)*1.001,STRCAT('  0.236   ',CON2STR(X236,2))),COLORF5CCEB{XG51};
X382:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.382,DRAWNULL),DOTLINE,COLOR556600{XG51};
DRAWTEXT(CURR=GTHT,(X382)*1.001,STRCAT('  0.382   ',CON2STR(X382,2))),COLORF5CCEB{XG51};
X500:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.500,DRAWNULL),DOTLINE,COLOR556600{XG51};
DRAWTEXT(CURR=GTHT,(X500)*1.001,STRCAT('  0.500    ',CON2STR(X500,2))),COLORF5CCEB{XG51};
X618:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.618,DRAWNULL),DOTLINE,COLOR556600{XG51};
DRAWTEXT(CURR=GTHT,(X618)*1.001,STRCAT('  0.618    ',CON2STR(X618,2))),COLORF5CCEB{XG51};
X764:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.764,DRAWNULL),DOTLINE,COLOR556600{XG51};
DRAWTEXT(CURR=GTHT,(X764)*1.001,STRCAT('  0.764    ',CON2STR(X764,2))),COLORF5CCEB{XG51};
X809:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.809,DRAWNULL),DOTLINE,COLOR556600{XG51};
DRAWTEXT(CURR=GTHT,(X809)*1.001,STRCAT('  0.809    ',CON2STR(X809,2))),COLORF5CCEB{XG51};
X1:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*1.000,DRAWNULL),DOTLINE,COLOR556600{XG51};
DRAWTEXT(CURR=GTHT,(X1)*1.001,STRCAT('  1.000.   ',CON2STR(X1,2))),COLORF5CCEB{X~G?5_1~C~N~{};