坡度几何图副图指标 源码 通达信

T:30;
HJ_1:=BACKSET(LLV(LOW,5)<REF(LLV(LOW,4),1),4);
HJ_2:=BACKSET(HJ_1=0 AND REF(HJ_1,1)=1,2);
HJ_3:=IF(HJ_2=1 AND REF(HJ_2,1)=0,(-1),0);
HJ_4:=BACKSET(HHV(HIGH,5)>REF(HHV(HIGH,4),1),4);
HJ_5:=BACKSET(HJ_4=0 AND REF(HJ_4,1)=1,2);
HJ_6:=IF(HJ_5=1 AND REF(HJ_5,1)=0,1,0);
HJ_7:=IF(LOW>REF(HIGH,1),1,IF(HIGH<REF(LOW,1),(-1),0));
HJ_8:=BARSLAST(HJ_6=1);
HJ_9:=BARSLAST(HJ_3=(-1));
HJ_10:=LOWRANGE(LOW);
HJ_11:=TOPRANGE(HIGH);
HJ_12:=IF(HJ_3=(-1) AND REF(HJ_8,1)>REF(HJ_9,1) AND LLV(LOW,HJ_8+1)<REF(LLV(LOW,HJ_8+1),1),(-1),0);
HJ_13:=IF(HJ_3=(-1) AND REF(HJ_8,1)<=REF(HJ_9,1) AND (HJ_8>=4 OR LLV(HJ_7,HJ_8)=(-1) OR LLV(LOW,HJ_9+2)<REF(LLV(LOW,HJ_9+1),1)),(-1),0);
HJ_14:=IF(HJ_12=(-1) OR HJ_13=(-1) AND LOW<REF(HIGH,HJ_8+1),(-1),0);
HJ_15:=IF(HJ_9<4 AND HHV(HJ_7,HJ_9)!=1 OR REF(HJ_14,HJ_9)=0,1,0);
HJ_16:=IF(HJ_6=1 AND REF(HJ_9,1)<=REF(HJ_8,1) AND HJ_15=1 AND HJ_11>REF(HJ_10,HJ_9+1) AND HJ_11>REF(HJ_10,HJ_9) AND HJ_11>REF(HJ_11,HJ_8),1,0);
HJ_17:=IF(HJ_6=1 AND REF(HJ_9,1)>REF(HJ_8,1) AND HHV(HIGH,HJ_9+1)>REF(HHV(HIGH,HJ_9+1),1),1,0);
HJ_18:=IF(HJ_6=1 AND REF(HJ_9,1)<=REF(HJ_8,1) AND REF(HJ_14,HJ_9)=(-1) AND (HJ_9>=4 OR HHV(HJ_7,HJ_9)=1),1,0);
HJ_19:=IF(HJ_17=1 OR HJ_18=1 OR HJ_16=1 AND HIGH>REF(LOW,HJ_9+1),1,0);
HJ_20:=IF(HJ_8<4 AND HHV(HJ_7,HJ_8)!=1 OR REF(HJ_19,HJ_8)=0,1,0);
HJ_21:=IF(HJ_3=(-1) AND REF(HJ_8,1)<=REF(HJ_9,1) AND HJ_20=1 AND HJ_10>REF(HJ_11,HJ_8+1) AND HJ_10>REF(HJ_11,HJ_8) AND HJ_10>REF(HJ_10,HJ_9),(-1),0);
HJ_22:=IF(HJ_3=(-1) AND REF(HJ_8,1)>REF(HJ_9,1) AND LLV(LOW,HJ_8+1)<REF(LLV(LOW,HJ_8+1),1),(-1),0);
HJ_23:=IF(HJ_3=(-1) AND REF(HJ_8,1)<=REF(HJ_9,1) AND (HJ_8>=4 OR LLV(HJ_7,HJ_8)=(-1) OR HJ_21=(-1)),(-1),0);
HJ_24:=IF(HJ_22=(-1) OR HJ_23=(-1) AND LOW<REF(HIGH,HJ_8+1),(-1),0);
HJ_25:=BARSLAST(HJ_19=1);
HJ_26:=BARSLAST(HJ_24=(-1));
HJ_27:=IF(HJ_26<4 AND HHV(HJ_7,HJ_26)!=1 OR REF(HJ_24,HJ_26)=0,1,0);
HJ_28:=IF(HJ_6=1 AND REF(HJ_26,1)<=REF(HJ_25,1) AND HJ_27=1 AND HJ_11>REF(HJ_10,HJ_26+1) AND HJ_11>REF(HJ_10,HJ_26) AND HJ_11>REF(HJ_11,HJ_25),1,0);
HJ_29:=IF(HJ_6=1 AND REF(HJ_26,1)>REF(HJ_25,1) AND HHV(HIGH,HJ_26+1)>REF(HHV(HIGH,HJ_26+1),1),1,0);
HJ_30:=IF(HJ_6=1 AND REF(HJ_26,1)<=REF(HJ_25,1) AND REF(HJ_24,HJ_26)=(-1) AND (HJ_26>=4 OR HHV(HJ_7,HJ_26)=1),1,0);
HJ_31:=IF(HJ_29=1 OR HJ_30=1 OR HJ_28=1 AND HIGH>REF(LOW,HJ_26+1),1,0);
HJ_32:=IF(HJ_25<4 AND HHV(HJ_7,HJ_25)!=1 OR REF(HJ_29,HJ_25)=0,1,0);
HJ_33:=IF(HJ_3=(-1) AND REF(HJ_25,1)<=REF(HJ_26,1) AND HJ_32=1 AND HJ_10>REF(HJ_11,HJ_25+1) AND HJ_10>REF(HJ_11,HJ_25) AND HJ_10>REF(HJ_10,HJ_26),(-1),0);
HJ_34:=IF(HJ_3=(-1) AND REF(HJ_25,1)>REF(HJ_26,1) AND LLV(LOW,HJ_25+1)<REF(LLV(LOW,HJ_25+1),1),(-1),0);
HJ_35:=IF(HJ_3=(-1) AND REF(HJ_25,1)<=REF(HJ_26,1) AND (HJ_25>=4 OR LLV(HJ_7,HJ_25)=(-1) OR HJ_33=(-1)),(-1),0);
HJ_36:=IF(HJ_34=(-1) OR HJ_35=(-1) AND LOW<REF(HIGH,HJ_25+1),(-1),0);
HJ_37:=BARSLAST(HJ_31=1);
HJ_38:=BARSLAST(HJ_36=(-1));
HJ_39:=IF(HJ_38<4 AND HHV(HJ_7,HJ_38)!=1 OR REF(HJ_36,HJ_38)=0,1,0);
HJ_40:=IF(HJ_6=1 AND REF(HJ_38,1)<=REF(HJ_37,1) AND HJ_39=1 AND HJ_11>REF(HJ_10,HJ_38+1) AND HJ_11>REF(HJ_10,HJ_38) AND HJ_11>REF(HJ_11,HJ_37),1,0);
HJ_41:=IF(HJ_6=1 AND REF(HJ_38,1)>REF(HJ_37,1) AND HHV(HIGH,HJ_38+1)>REF(HHV(HIGH,HJ_38+1),1),1,0);
HJ_42:=IF(HJ_6=1 AND REF(HJ_38,1)<=REF(HJ_37,1) AND REF(HJ_36,HJ_38)=(-1) AND (HJ_38>=4 OR HHV(HJ_7,HJ_38)=1),1,0);
HJ_43:=IF(HJ_41=1 OR HJ_42=1 OR HJ_40=1 AND HIGH>REF(LOW,HJ_38+1),1,0);
HJ_44:=IF(HJ_37<4 AND HHV(HJ_7,HJ_37)!=1 OR REF(HJ_41,HJ_37)=0,1,0);
HJ_45:=IF(HJ_3=(-1) AND REF(HJ_37,1)<=REF(HJ_38,1) AND HJ_44=1 AND HJ_10>REF(HJ_11,HJ_37+1) AND HJ_10>REF(HJ_11,HJ_37) AND HJ_10>REF(HJ_10,HJ_38),(-1),0);
HJ_46:=IF(HJ_3=(-1) AND REF(HJ_37,1)>REF(HJ_38,1) AND LLV(LOW,HJ_37+1)<REF(LLV(LOW,HJ_37+1),1),(-1),0);
HJ_47:=IF(HJ_3=(-1) AND REF(HJ_37,1)<=REF(HJ_38,1) AND (HJ_37>=4 OR LLV(HJ_7,HJ_37)=(-1) OR HJ_45=(-1)),(-1),0);
HJ_48:=IF(HJ_46=(-1) OR HJ_47=(-1) AND LOW<REF(HIGH,HJ_37+1),(-1),0);
HJ_49:=IF(HJ_43=1 AND HJ_48=(-1) AND HIGH>REF(HIGH,REF(HJ_37,1)+2),1,IF(HJ_43=1 AND HJ_48=(-1) AND LOW<REF(LOW,REF(HJ_38,1)+2),(-1),0));
HJ_50:=IF(HJ_49=0,HJ_43+HJ_48,HJ_49);
HJ_51:=IF(DATE<1161215,1,1);
HJ_52:=IF(HJ_50=(-1),LOW,IF(HJ_50=1,HIGH,DRAWNULL));
HJ_53:=DRAWLINE(HJ_50=(-1),HJ_52,HJ_50=1,HJ_52,0);
HJ_54:=DRAWLINE(HJ_50=1,HJ_52,HJ_50=(-1),HJ_52,0);
HJ_55:=HJ_53=HJ_54 AND HJ_4 AND HJ_50=1;
HJ_56:=IF(HJ_55,HIGH*HJ_51,DRAWNULL);
HJ_57:=HJ_53=HJ_54 AND HJ_1 AND HJ_50=(-1);
HJ_58:=IF(HJ_57,LOW*HJ_51,DRAWNULL);
HJ_59:=BARSLAST(ABS(HJ_50));
HJ_60:=CLOSE/REF(CLOSE,HJ_59)*100-100;
NOTEXT跌速:IF(HJ_50=(-1),(HJ_54-REF(HJ_54,1))/REF(HJ_54,1)/(0.1/100)*HJ_51,DRAWNULL);
跌坡度:PLOYLINE(NOTEXT跌速<0,NOTEXT跌速),COLORGREEN,LINETHICK2;
NOTEXT跌点:IF(HJ_50=(-1),跌坡度,DRAWNULL),CIRCLEDOT,COLORBLUE,LINETHICK5;
HJ_61:=BARSLAST(HJ_50=1);
HJ_62:=BACKSET(ISLASTBAR,HJ_61+1);
HJ_63:=IF(HJ_50=0,(CLOSE-REF(HIGH,HJ_61))/REF(HIGH,HJ_61)/HJ_61/(0.1/100)*HJ_51,DRAWNULL);
跌点:IF(ISLASTBAR AND HJ_60<0,HJ_63,DRAWNULL),CIRCLEDOT,COLORGREEN,LINETHICK5;
DRAWNUMBER(ISLASTBAR AND HJ_60<0,跌点,跌点),COLORGREEN;
HJ_64:=HJ_62=1 AND REF(HJ_62,1)=0;
HJ_65:=IF(HJ_64,(HJ_53-REF(HJ_53,1))/REF(HJ_53,1)/(0.1/100)*HJ_51,DRAWNULL);
NOTEXT涨速:IF(HJ_50=1,(HJ_53-REF(HJ_53,1))/REF(HJ_53,1)/(0.1/100)*HJ_51,DRAWNULL);
涨坡度:PLOYLINE(NOTEXT涨速>0,NOTEXT涨速),COLORRED,LINETHICK2;
NOTEXT涨点:IF(HJ_50=1,涨坡度,DRAWNULL),CIRCLEDOT,COLORMAGENTA,LINETHICK5;
HJ_66:=BARSLAST(HJ_50=(-1));
HJ_67:=BACKSET(ISLASTBAR,HJ_66+1);
HJ_68:=IF(HJ_50=0,(CLOSE-REF(LOW,HJ_66))/REF(LOW,HJ_66)/HJ_66/(0.1/100)*HJ_51,DRAWNULL);
涨点:IF(ISLASTBAR AND HJ_60>0,HJ_68,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK5;
DRAWNUMBER(ISLASTBAR AND HJ_60>0,涨点,涨点),COLORRED;
NOTEXTDDG:DRAWLINE(HJ_50=(-1),NOTEXT跌点,HJ_50=1,NOTEXT涨点,0),COLORLIRED;
NOTEXTGDD:DRAWLINE(HJ_50=1,NOTEXT涨点,HJ_50=(-1),NOTEXT跌点,0),COLORYELLOW;
DRAWNUMBER(HJ_50=(-1),NOTEXT跌点,NOTEXT跌点),COLORGREEN;
DRAWNUMBER(HJ_50=1,NOTEXT涨点,NOTEXT涨点),COLORRED;
HJ_69:=LLV(LOW,T)=HJ_58*HJ_51;
HJ_70:=BARSLAST(HJ_69);
HJ_71:=COUNT(HJ_57,HJ_70)*HJ_51;
HJ_72:=COUNT(HJ_55,HJ_70)*HJ_51;
HJ_73:=IF(HJ_70>0,BARSLAST(HJ_72=1),DRAWNULL);
HJ_74:=HHV(HIGH,T)=HJ_56*HJ_51;
HJ_75:=BARSLAST(HJ_74);
HJ_76:=COUNT(HJ_55,HJ_75)*HJ_51;
HJ_77:=COUNT(HJ_57,HJ_75)*HJ_51;
HJ_78:=BARSLAST(HJ_77=1);
HJ_79:=IF(LOW=LLV(LOW,HJ_75),1,0);
HJ_80:=IF(HJ_50=(-1) AND 跌坡度>REF(跌坡度,1) AND 跌坡度<0,1,0);
HJ_81:=HJ_79=1 AND HJ_80=1 AND HJ_50=(-1);
DRAWICON(HJ_81,跌坡度,26);
HJ_82:=IF(HIGH=HHV(HIGH,HJ_70),1,0);
HJ_83:=IF(HJ_50=1 AND 涨坡度<REF(涨坡度,1) AND 涨坡度>0,1,0);
HJ_84:=HJ_82=1 AND HJ_83=1 AND HJ_50=1;
DRAWICON(HJ_84,涨坡度,27);