通达信动态黄金分割主图指标公式源码

源码：
 DRAWGBK(1,RGB(0,0,0),RGB(0,0,0),0,'BJ',0); {背景}
 {布林}
MA21:MA(CLOSE,21)COLORFFA900,CROSSDOT,LINETHICK2;
布林上:MA21+2*STD(CLOSE,21),COLORFFA900,LINETHICK2;
布林下:MA21-2*STD(CLOSE,21),COLORFFA900,LINETHICK2;
 STICKLINE(MA21>=REF(MA21,1),布林上,MA21,5,0),COLOR000088;{上涨彩带可以去掉}
STICKLINE(MA21<REF(MA21,1),MA21,布林下,5,0),COLOR880000;{下跌彩带可以去掉}

MA5:MA(CLOSE,5),COLORWHITE;
 MA13:MA(CLOSE,13)COLORMAGENTA;
 DRAWBAND(MA5,RGB(188,0,188),MA13,RGB(0,88,0));{短线波段彩带可以去掉}
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
 {以上内容全部可以去掉，以下内容可以叠加或复制到任何指标中}
 {动态黄金分割}
FG:IF (HIGH>PEAK(1,7,1),HHV(HIGH,21),PEAK(1,7,1)),COLORGREEN;
 FD:IF (LOW<TROUGH(2,7,1),LLV(LOW,21),TROUGH(2,7,1)),COLORRED;
分割0.191:(FG-FD)*0.191+FD,DOTLINE,COLORMAGENTA;
分割0.382:(FG-FD)*0.382+FD,DOTLINE,COLORCYAN;
分割0.5:(FG-FD)*0.5+FD,DOTLINE,COLORGREEN;
分割0.618:(FG-FD)*0.618+FD,DOTLINE,COLORCYAN;
分割0.809:(FG-FD)*0.809+FD,DOTLINE,COLORYELLOW;
 DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.191),'F0.191')COLORMAGENTA;
 DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.382),'F0.382')COLORCYAN;
 DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.5),'F0.500')COLORGREEN;
 DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.618),'F0.618')COLORCYAN;
 DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.809),'F0.809')COLORYELLOW;
 {以下是理想论坛指标，组合进来很好}
 {斐波那契时间坐标以阶段低点为起点}
低:=CONST(LLV(L,377)); {周期数377,自己调}
LTJ:= L=低;
LSJ:=BARSLAST(LTJ)+1;
 DRAWTEXT(LSJ=3,LOW*0.995,'↑3G')COLORYELLOW;
 DRAWTEXT(LSJ=5,LOW*0.995,'↑5G')COLORYELLOW;
 DRAWTEXT(LSJ=8,LOW*0.995,'↑8G')COLORYELLOW;
 DRAWTEXT(LSJ=13,LOW*0.995,'↑13G')COLORYELLOW;
 DRAWTEXT(LSJ=21,LOW*0.995,'↑21G')COLORYELLOW;
 DRAWTEXT(LSJ=34,LOW*0.995,'↑34G')COLORYELLOW;
 DRAWTEXT(LSJ=55,LOW*0.995,'↑55G')COLORYELLOW;
 DRAWTEXT(LSJ=89,LOW*0.995,'↑89G')COLORYELLOW;
 DRAWTEXT(LSJ=144,LOW*0.995,'↑144G')COLORYELLOW;
 DRAWTEXT(LSJ=233,LOW*0.995,'↑233G')COLORYELLOW;
 DRAWTEXT(LSJ=377,LOW*0.995,'↑377G')COLORYELLOW;
 {斐波那契时间坐标以阶段高点为起点}
高:=CONST(HHV(H,120));{周期120}
 H_L:=高-低;{阶段高低差}
HTJ:= H=高;
HSJ:=BARSLAST(HTJ)+1;
 H00:=高+H_L*0.01;
 DRAWTEXT(HSJ=3,HIGH*1.01,'↓3天')COLORCYAN;
 DRAWTEXT(HSJ=5,HIGH*1.01,'↓5天')COLORCYAN;
 DRAWTEXT(HSJ=8,HIGH*1.01,'↓8天')COLORCYAN;
 DRAWTEXT(HSJ=13,HIGH*1.01,'↓13天')COLORCYAN;
 DRAWTEXT(HSJ=21,HIGH*1.01,'↓21天')COLORCYAN;
 DRAWTEXT(HSJ=34,HIGH*1.01,'↓34天')COLORCYAN;
 DRAWTEXT(HSJ=55,HIGH*1.01,'↓55天')COLORCYAN;
 DRAWTEXT(HSJ=89,HIGH*1.01,'↓89天')COLORCYAN;
 DRAWTEXT(HSJ=144,HIGH*1.01,'↓144天')COLORCYAN;
 DRAWTEXT(HSJ=233,HIGH*1.01,'↓233天')COLORCYAN;
 DRAWTEXT(HSJ=377,HIGH*1.01,'↓377天')COLORCYAN;

 说明：斐波那契以及江恩对股海漂泊的人来说是两位伟大的牛人！
 我把他们的神奇作为分析形态，预测点位的重要依据，如果主图公式限制取消，加上农历的节气，就更加完美，控制时空点位和转折点具有非凡的意义。
 背景需要把图BJ.zip解压放进T0002/signals文件夹中