好用的通达信黄金分割指标

{参数：T   1  1000  180
 设置：T1  1  500   10}
DRAWGBK(C>0, RGB(01,01,01),RGB(01,01,01),0,0,1);{黑色}
DRAWKLINE(H,O,L,C);

{黄金分割}
HH:=REF(HHV(H,T),T1);
LL:=REF(LLV(L,T),T1);
H1:=HH-(HH-LL)*0.191;
H2:=HH-(HH-LL)*0.382;
H3:=HH-(HH-LL)*0.5;
H4:=HH-(HH-LL)*0.618;
H5:=HH-(HH-LL)*0.764;
H6:=HH-(HH-LL)*0.809;
H7:=HH-(HH-LL)*0.236;
顶1:=HH+(HH-LL)*0.191;
顶2:=HH+(HH-LL)*0.382;
顶3:=HH+(HH-LL)*0.618;
底1:=IF((HH-LL)<LL,LL-(HH-LL)*0.191,LL-LL*0.191);
底2:=IF((HH-LL)<LL,LL-(HH-LL)*0.382,LL-LL*0.382);
底3:=IF((HH-LL)<LL,LL-(HH-LL)*0.618,LL-LL*0.618);
高:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(HH,DATE),DRAWNULL);
一:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H1,DATE),DRAWNULL);
二:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H2,DATE),DRAWNULL);
三:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H3,DATE),DRAWNULL);
四:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H4,DATE),DRAWNULL);
五:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H5,DATE),DRAWNULL);
六:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H6,DATE),DRAWNULL);
七:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H7,DATE),DRAWNULL);
低:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(LL,DATE),DRAWNULL);
NOTEXT1:高,COLOR007799;
{NOTEXT2:IF(GOQI,DRAWNULL,一),DOTLINE,COLOR777777;
NOTEXT3:IF(GOQI,DRAWNULL,二),DOTLINE,COLOR777777;
NOTEXT4:IF(GOQI,DRAWNULL,三),DOTLINE,COLOR777777;
NOTEXT5:IF(GOQI,DRAWNULL,四),DOTLINE,COLOR777777;
NOTEXT6:IF(GOQI,DRAWNULL,五),DOTLINE,COLOR777777;
NOTEXT7:IF(GOQI,DRAWNULL,六),DOTLINE,COLOR777777;}
AA:REFDATE(一,DATE),DOTLINE,COLOR555555;
BB:REFDATE(二,DATE),DOTLINE,COLOR005858;
CC:REFDATE(三,DATE),DOTLINE,COLOR777777;
DD:REFDATE(四,DATE),DOTLINE,COLOR005858;
EE:REFDATE(五,DATE),DOTLINE,COLOR555555;
FF:REFDATE(六,DATE),DOTLINE,COLOR555555;
GG:REFDATE(七,DATE),DOTLINE,COLOR555555;
NOTEXT8:低,COLOR668800;
TT:=INTPART(T*0.5)+T1;
TT1:=(CURRBARSCOUNT=TT);
TT2:=(CURRBARSCOUNT=TT-32);
TT3:=(CURRBARSCOUNT=TT-40);
DRAWTEXT(TT1 AND 高,高-(高-低)*0.025,STRCAT('  【高点】:　',CON2STR(HH,2))),COLOR007799;
DRAWTEXT(TT1 AND 一,一+(高-低)*0.020,STRCAT('191 (809):　',CON2STR(H1,2))),COLOR888888;
DRAWTEXT(TT1 AND 二,二+(高-低)*0.020,STRCAT('382 (618):　',CON2STR(H2,2))),COLOR008888;
DRAWTEXT(TT1 AND 三,三+(高-低)*0.020,STRCAT('  【中点】:　',CON2STR(H3,2))),COLOR000088;
DRAWTEXT(TT1 AND 四,四+(高-低)*0.020,STRCAT('618 (382):　',CON2STR(H4,2))),COLOR008888;
DRAWTEXT(TT1 AND 五,五+(高-低)*0.020,STRCAT('764 (236):　',CON2STR(H5,2))),COLOR888888;
DRAWTEXT(TT1 AND 六,六+(高-低)*0.020,STRCAT('809 (191):　',CON2STR(H6,2))),COLOR888888;
DRAWTEXT(TT1 AND 七,七+(高-低)*0.020,STRCAT('236 (764):　',CON2STR(H7,2))),COLOR888888;
DRAWTEXT(TT1 AND 低,低+(高-低)*0.020,STRCAT('  【低点】:　',CON2STR(LL,2))),COLOR668800;
DRAWTEXT(TT3 AND 高,高+(高-低)*0.040,''),COLOR007799;{顶距};

DRAWTEXT_FIX(1,0.68,0.02,0,'【注意：高低点的位置是否找对？不对一定要调整参数找准！】'),COLOR0000FF;