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

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

源码正文：

高点:=22{XG51};
低点:=10{XG51};
T1:=10{XG51};
T:=180{XG51};
M5:=ma(C,5){XG51};
M10:=MA(C,10){XG51};
M20:=MA(C,20){XG51};
M60:=MA(C,60){XG51};
AX:=M5>=M60 AND M10>=M60 AND M20>=M60{XG51};
TX:=BArslAst(crOSS(AX,0.5)){XG51};
HT:=HHVBARS(H,TX+1){XG51};
LT0:=FINDLOWBARS(L,0,30,1){XG51};
HT0:=FINDHIGHBARS(H,LT0=0,60,1){XG51};
LLX:=REF(L,LT0){XG51};
HHX:=REF(H,HT0){XG51};
NOTEXT01:DRAWLINE(HT0=0,HHX,LT0=0,HHX,1),COLORBLUE,NODRAW{XG51};
NOTEXT02:DRAWLINE(HT0=0,HHX,LT0=0,LLX,1),COLORBLUE{XG51};
NOTEXT03:DRAWLINE(HT0=0,HHX,LT0=0,(HHX-LLX)*0.382+LLX,1),COLORMAGENTA{XG51};
NOTEXT04:DRAWLINE(HT0=0,HHX,LT0=0,(HHX-LLX)*0.618+LLX,1),COLORLIGREEN{XG51};
TA:=BARSLAST(REF(NOTEXT01,1)=DRAWNULL AND HT=0){XG51};
X支撑线:REF(L,LT0),COLORBLUE,NODRAW{XG51};
X阻力1:(HHX-LLX)*0.382+LLX,COLORMAGENTA,NODRAW{XG51};
X阻力2:(HHX-LLX)*0.618+LLX,COLORLIGREEN, NODRAW{XG51};
HH:=REF(HHV(H,T),T1){XG51};
LL:=REF(LLV(L,T),T1){XG51};
H1:=HH-(HH-LL)*0.191{XG51};
H2:=HH-(HH-LL)*0.382{XG51};
H3:=HH-(HH-LL)*0.5{XG51};
H4:=HH-(HH-LL)*0.618{XG51};
H5:=HH-(HH-LL)*0.764{XG51};
H6:=HH-(HH-LL)*0.809{XG51};
H7:=HH-(HH-LL)*0.236{XG51};
顶1:=HH+(HH-LL)*0.191{XG51};
顶2:=HH+(HH-LL)*0.382{XG51};
顶3:=HH+(HH-LL)*0.618{XG51};
底1:=IF((HH-LL)<LL,LL-(HH-LL)*0.191,LL-LL*0.191){XG51};
底2:=IF((HH-LL)<LL,LL-(HH-LL)*0.382,LL-LL*0.382){XG51};
底3:=IF((HH-LL)<LL,LL-(HH-LL)*0.618,LL-LL*0.618){XG51};
高:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(HH,DATE),DRAWNULL){XG51};
一:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H1,DATE),DRAWNULL){XG51};
二:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H2,DATE),DRAWNULL){XG51};
三:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H3,DATE),DRAWNULL){XG51};
四:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H4,DATE),DRAWNULL){XG51};
五:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H5,DATE),DRAWNULL){XG51};
六:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H6,DATE),DRAWNULL){XG51};
七:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H7,DATE),DRAWNULL){XG51};
低:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(LL,DATE),DRAWNULL){XG51};
NOTEXT1:高,COLOR007799{XG51};
AA:REFDATE(一,DATE),DOTLINE,COLOR555555{XG51};
BB:REFDATE(二,DATE),DOTLINE,COLOR005858{XG51};
CCA:REFDATE(三,DATE),DOTLINE,COLOR777777{XG51};
DDA:REFDATE(四,DATE),DOTLINE,COLOR005858{XG51};
EE:REFDATE(五,DATE),DOTLINE,COLOR555555{XG51};
FF:REFDATE(六,DATE),DOTLINE,COLOR555555{XG51};
GG:REFDATE(七,DATE),DOTLINE,COLOR555555{XG51};
NOTEXT8:低,COLOR668800{XG51};
TT:=INTPART(T*0.5)+T1{XG51};
TT1:=(CURRBARSCOUNT=TT){XG51};
TT2:=(CURRBARSCOUNT=TT-32){XG51};
TT3:=(CURRBARSCOUNT=TT-40){XG51};
DRAWTEXT(TT1 AND 高,高-(高-低)*0.025,STRCAT('  【高点】:　',CON2STR(HH,2))),COLOR007799{XG51};
DRAWTEXT(TT1 AND 一,一+(高-低)*0.020,STRCAT('191 (809):　',CON2STR(H1,2))),COLOR888888{XG51};
DRAWTEXT(TT1 AND 二,二+(高-低)*0.020,STRCAT('382 (618):　',CON2STR(H2,2))),COLOR008888{XG51};
DRAWTEXT(TT1 AND 三,三+(高-低)*0.020,STRCAT('  【中点】:　',CON2STR(H3,2))),COLOR000088{XG51};
DRAWTEXT(TT1 AND 四,四+(高-低)*0.020,STRCAT('618 (382):　',CON2STR(H4,2))),COLOR008888{XG51};
DRAWTEXT(TT1 AND 五,五+(高-低)*0.020,STRCAT('764 (236):　',CON2STR(H5,2))),COLOR888888{XG51};
DRAWTEXT(TT1 AND 六,六+(高-低)*0.020,STRCAT('809 (191):　',CON2STR(H6,2))),COLOR888888{XG51};
DRAWTEXT(TT1 AND 七,七+(高-低)*0.020,STRCAT('236 (764):　',CON2STR(H7,2))),COLOR888888{XG51};
DRAWTEXT(TT1 AND 低,低+(高-低)*0.020,STRCAT('  【低点】:　',CON2STR(LL,2))),COLOR668800{XG51};
DRAWTEXT(TT3 AND 高,高+(高-低)*0.040,''),COLOR007799;{XG51};
GD:=CONST(FINDHIGH(H,0,高点*10,1)){XG51};
DD:=CONST(FINDLOW(L,0,低点*10,1)){XG51};
GT:=CONST(BARSLAST(GD=H))+1{XG51};
DT:=CONST(BARSLAST(DD=L))+1{XG51};
SH:=CONST(IF(GT=1,H,REF(H,GT-1))){XG51};
SL:=CONST(IF(DT=1,L,REF(L,DT-1))){XG51};
CC:=IF(DT>GT,DT,GT){XG51};
CD:=INTPART(CC-(DT+GT)/2){XG51};
CG:=IF(高点>CD,DT,GT){XG51};

ZG:=IF(CURRBARSCOUNT<=CD,SH,DRAWNULL){XG51};
DRAWBAND(ZG,RGB(0,0,0),ZG,RGB(0,0,0)),DOTLINE,COLORLICYAN{XG51};
ZD:=IF(CURRBARSCOUNT<=CD,SL,DRAWNULL){XG51};
DRAWBAND(ZD,RGB(0,0,0),ZD,RGB(0,0,0)),DOTLINE,COLORLICYAN{XG51};
X191:=IF(CURRBARSCOUNT<=CD,SH-(SH-SL)*0.191,DRAWNULL){XG51};
DRAWBAND(X191,RGB(0,0,0),X191,RGB(0,0,0)),DOTLINE,COLORLICYAN{XG51};
X382:=IF(CURRBARSCOUNT<=CD,SH-(SH-SL)*0.382,DRAWNULL){XG51};
DRAWBAND(X382,RGB(0,0,0),X382,RGB(0,0,0)),DOTLINE,COLORLICYAN{XG51};
X500:=IF(CURRBARSCOUNT<=CD,SH-(SH-SL)*0.500,DRAWNULL){XG51};
DRAWBAND(X500,RGB(0,0,0),X500,RGB(0,0,0)),DOTLINE,COLORWHITE{XG51};
X618:=IF(CURRBARSCOUNT<=CD,SH-(SH-SL)*0.618,DRAWNULL){XG51};
DRAWBAND(X618,RGB(0,0,0),X618,RGB(0,0,0)),DOTLINE,COLORLICYAN{XG51};
X809:=IF(CURRBARSCOUNT<=CD,SH-(SH-SL)*0.809,DRAWNULL){XG51};
DRAWBAND(X809,RGB(0,0,0),X809,RGB(0,0,0)),DOTLINE,COLORLICYAN{XG51};
DRAWTEXT(CURRBARSCOUNT=CG,(ZD)*1.02,STRCAT('起点:  ',CON2STR(ZD,2))),COLORBLACK{XG51};
DRAWTEXT(CURRBARSCOUNT=CG,(X191)*0.986,STRCAT('80.9%  ',CON2STR(X191,2))),COLORBLACK{XG51};
DRAWTEXT(CURRBARSCOUNT=CG,(X382)*0.985,STRCAT('61.8%  ',CON2STR(X382,2))),COLORBLACK{XG51};
DRAWTEXT(CURRBARSCOUNT=CG,(X500)*0.984,STRCAT('50%  ',CON2STR(X500,2))),COLORBLACK{XG51};
DRAWTEXT(CURRBARSCOUNT=CG,(X618)*0.982,STRCAT('38.2%  ',CON2STR(X618,2))),COLORBLACK{XG51};
DRAWTEXT(CURRBARSCOUNT=CG,(X809)*0.98,STRCAT('19.1%  ',CON2STR(X809,2))),COLORBLACK{XG51};
DRAWTEXT(CURRBARSCOUNT=CG,(ZG)*0.98,STRCAT('100%  ',CON2STR(ZG,2))),COLORBLACK{X.G^5=1.C.N.{};