通达信点石成金_新主图指标源码 附图

HT:=60;
LT:=60;
HJ_1:=IF(DATE<1170331,1,0);
HJ_2:=IF(HJ_1=1,HIGH=HHV(HIGH,HT),0);
HJ_3:=IF(HJ_1=1,LOW=LLV(LOW,LT),0);
HJ_4:=BARSLAST(HJ_2);
HJ_5:=BARSLAST(HJ_3);
HJ_6:=BACKSET(ISLASTBAR,HJ_4+1);
HJ_7:=BACKSET(ISLASTBAR,HJ_5+1);
HJ_8:=BARSSINCE(HJ_6)+1;
HJ_9:=BARSSINCE(HJ_7)+1;
HJ_10:=IF(BACKSET(HJ_6,HJ_8+1),1,DRAWNULL);
HJ_11:=IF(BACKSET(HJ_7,HJ_9+1),1,DRAWNULL);
HJ_12:=HJ_11*SUM(HIGH*VOL,HJ_9)/SUM(VOL,HJ_9);
HJ_13:=HJ_10*SUM(LOW*VOL,HJ_8)/SUM(VOL,HJ_8);
HJ_14:=HJ_11*SUM(LOW*VOL,HJ_9)/SUM(VOL,HJ_9);
HJ_15:=HJ_10*SUM(HIGH*VOL,HJ_8)/SUM(VOL,HJ_8);
NOTEXT点金_支:IF(REF(HIGH,HJ_8)>REF(HIGH,HJ_8+1) AND REF(HIGH,HJ_8)>REF(HIGH,HJ_8-1),HJ_12,HJ_13),COLOR00FF7F;
NOTEXT点金_支1:IF(REF(HIGH,HJ_8)>REF(HIGH,HJ_8+1) AND REF(HIGH,HJ_8)>REF(HIGH,HJ_8-1),HJ_14,HJ_15),COLORGREEN,LINETHICK2;
NOTEXT点金_压:IF(REF(HIGH,HJ_9)>REF(HIGH,HJ_9+1) AND REF(HIGH,HJ_9)>REF(HIGH,HJ_9-1),HJ_13,HJ_12),COLORLIMAGENTA;
NOTEXT点金_压1:IF(REF(HIGH,HJ_9)>REF(HIGH,HJ_9+1) AND REF(HIGH,HJ_9)>REF(HIGH,HJ_9-1),HJ_15,HJ_14),COLORRED,LINETHICK2;
DRAWNUMBER(ISLASTBAR,NOTEXT点金_压*1,CONST(NOTEXT点金_压)),COLORRED;
DRAWNUMBER(ISLASTBAR,NOTEXT点金_支*1,CONST(NOTEXT点金_支)),COLORGREEN;
DRAWNUMBER(ISLASTBAR,NOTEXT点金_压1*1,CONST(NOTEXT点金_压1)),COLORLIMAGENTA;
DRAWNUMBER(ISLASTBAR,NOTEXT点金_支1*1,CONST(NOTEXT点金_支1)),COLOR00FF7F;
HJ_16:=CLOSE>REF(CLOSE,4);
HJ_17:=BARSLASTCOUNT(HJ_16);
HJ_18:=HJ_17=18;
HJ_19:=ISLASTBAR AND BETWEEN(HJ_17,1,17);
HJ_20:=(BACKSET(HJ_18>0,18) OR BACKSET(HJ_19>0,HJ_17))*HJ_17;
DRAWNUMBER(HJ_20>0,HIGH*1.02,HJ_20),COLORMAGENTA;
DRAWNUMBER(HJ_17=9,HIGH*1.02,9),COLORGREEN;
DRAWNUMBER(HJ_17=13,HIGH*1.02,13),COLORYELLOW;
DRAWNUMBER(HJ_17=18,HIGH*1.02,18),COLORYELLOW;
HJ_21:=CLOSE<REF(CLOSE,4);
HJ_22:=BARSLASTCOUNT(HJ_21);
HJ_23:=HJ_22=18;
HJ_24:=ISLASTBAR AND BETWEEN(HJ_22,1,17);
HJ_25:=(BACKSET(HJ_23>0,18) OR BACKSET(HJ_24>0,HJ_22))*HJ_22;
DRAWNUMBER(HJ_25>0,LOW*0.98,HJ_25),COLORMAGENTA;
DRAWNUMBER(HJ_22=9,LOW*0.98,9),COLORGREEN;
DRAWNUMBER(HJ_22=13,LOW*0.98,13),COLORYELLOW;
DRAWNUMBER(HJ_22=18,LOW*0.98,18),COLORYELLOW;