通达信最厉害的黄金分割线主图指标源码

参数1: P1, 最小: 0, 最大: 10000, 缺省: 5
参数2: P2, 最小: 0, 最大: 10000, 缺省: 10
参数3: P3, 最小: 0, 最大: 10000, 缺省: 20
参数4: P4, 最小: 0, 最大: 10000, 缺省: 30
参数5: P5, 最小: 0, 最大: 10000, 缺省: 60

 MA5:MA(CLOSE,P1);
 MA10:MA(CLOSE,P2);
 MA20:MA(CLOSE,P3);
 MA30:MA(CLOSE,P4);
 MA60:MA(CLOSE,P5);
 STICKLINE(CLOSE>REF(CLOSE,1)*1.095,CLOSE,OPEN,2,0),COLORYELLOW;
 HJ_1:=BARSLASTCOUNT(CLOSE<MA20);
 HJ_2:=BACKSET((HJ_1>=4)*HJ_1,HJ_1);
 HJ_3:=BARSLASTCOUNT(CLOSE>MA20);
 HJ_4:=BACKSET((HJ_3>=4)*HJ_3,HJ_3);
 HJ_5:=BARSLASTCOUNT(NOT(HJ_2 OR HJ_4));
 HJ_6:=BARSLASTCOUNT(REF(HJ_2>0,HJ_5));
 HJ_7:=BARSLASTCOUNT(REF(HJ_4>0,HJ_5));
 HJ_8:=FILTERX(LLV(LOW,HJ_6)=LOW,HJ_6);
 HJ_9:=FILTERX(HHV(HIGH,HJ_7)=HIGH,HJ_7);
 HJ_10:=REF(HIGH,BARSLAST(HJ_9));
 HJ_11:=REF(LOW,BARSLAST(HJ_8));
 HJ_12:=BARSLAST(HJ_6=1);
 HJ_13:=REF(HJ_10,BARSLAST(HJ_6));
 HJ_14:=REF(HJ_11,HJ_12);
 HJ_15:=(HJ_13-HJ_14)*0.236+HJ_14;
 HJ_16:=(HJ_13-HJ_14)*0.382+HJ_14;
 HJ_17:=(HJ_13-HJ_14)*0.5+HJ_14;
 HJ_18:=(HJ_13-HJ_14)*0.618+HJ_14;
 HJ_19:=(HJ_13-HJ_14)*0.809+HJ_14;
 HJ_20:=(HJ_13-HJ_14)*1.382+HJ_14;
顶点:REFDATE(HJ_13,DATE),COLORRED;
低点:REFDATE(HJ_14,DATE),COLORGREEN;
 HJ_21:=REFDATE(HJ_15,DATE);
 HJ_22:=REFDATE(HJ_16,DATE);
 HJ_23:=REFDATE(HJ_17,DATE);
 %61.8:REFDATE(HJ_18,DATE),DOTLINE,COLORYELLOW;
 HJ_24:=REFDATE(HJ_19,DATE);
 HJ_25:=REFDATE(HJ_20,DATE);
 DRAWTEXT(ISLASTBAR,顶点,1),COLORWHITE;
 DRAWTEXT(ISLASTBAR,HJ_21,2),COLORYELLOW;
 DRAWTEXT(ISLASTBAR,HJ_22,3),COLORMAGENTA;
 DRAWTEXT(ISLASTBAR,HJ_23,4),COLORRED;
 DRAWTEXT(ISLASTBAR,%61.8,5),COLORMAGENTA;
 DRAWTEXT(ISLASTBAR,HJ_24,6),COLORYELLOW;
 DRAWTEXT(ISLASTBAR,低点,7),COLORWHITE;
 DRAWTEXT(ISLASTBAR,HJ_25,8),COLORMAGENTA;