「翔博精选指标」黄金分割坐标线（通达信公式 主图 源码 测试图免费资源
2022-04-25 来源：原创 编辑：翔博软件
{黄金分割坐标线 参数：T 1 10000 1080天 [90看时间周期进行调整] 设置：T1 1 10000 5} {DRAWGBK(C0, RGB(01,01,01),RGB(01,01,01),0,0,1);黑色} {涨停次数} DRAWKLINE(H,O,L,C
{黄金分割坐标线
参数：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;WWW70822COM:=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;};
