通达信黄金分割坐标线公式主图源码

{黄金分割坐标线

参数：T 1 10000 1080天 [90看时间周期进行调整]

设置：T1 1 10000 5}

{DRAWGBK(C 0, RGB(01,01,01),RGB(01,01,01),0,0,1);黑色}

{涨停次数}

DRAWKLINE(H,O,L,C);

涨停:=C/REF(C,1) =1.097 AND C=H;

半年板数:SUM(涨停,130),NODRAW;

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;www.9m8.cn:=L,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,COLORYELLOW;

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))),COLORYELLOW;

DRAWTEXT(TT1 AND 四,四+(高-低)*0.020,STRCAT('618 (382): ',CON2STR(H4,2))),COLOR008888;

DRAWTEXT(TT1 AND 五,五+(高-低)*0.020,STRCAT('764 (236): ',CON2STR(H5,2))),COLORRED;

DRAWTEXT(TT1 AND 六,六+(高-低)*0.020,STRCAT('809 (191): ',CON2STR(H6,2))),COLOR888888;

DRAWTEXT(TT1 AND 七,七+(高-低)*0.020,STRCAT('236 (764): ',CON2STR(H7,2))),COLORRED;

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;};