P1:=5;
P2:=10;
P3:=20;
P4:=30;
P5:=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);
黄金分割618: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,黄金分割618,'5'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,HJ_24,'6'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,低点,'7'),COLORWHITE;
DRAWTEXT(ISLASTBAR,HJ_25,'8'),COLORMAGENTA;
