通达信撑压系统源码副图

HJ_1:=STRCAT(HYBLOCK,1);
 HJ_2:=STRCAT(HJ_1,DYBLOCK);
 HJ_3:=STRCAT(HJ_2,1);
 DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(HJ_3,GNBLOCK)),COLORRED;
 NOTEXTMA1:MA(CLOSE,M1),COLORWHITE;
 NOTEXTMA2:MA(CLOSE,M2),COLORMAGENTA;
 NOTEXTMA3:MA(CLOSE,M3),COLORCYAN;
 NOTEXTMA4:MA(CLOSE,M4),COLORGREEN;
 HJ_4:=REF(CLOSE,1);
 HJ_5:=REF(HIGH,8)=HHV(HIGH,2*8+1);
 HJ_6:=REF(LOW,8)=LLV(LOW,2*8+1);
 HJ_7:=BACKSET(HJ_5,8+1);
 HJ_8:=BACKSET(HJ_6,8+1);
 HJ_9:=FILTER(HJ_7,8) AND HIGH=HHV(HIGH,8+1);
 HJ_10:=FILTER(HJ_8,8) AND LOW=LLV(LOW,8+1);
 HJ_11:=BARSLAST(HJ_9);
 HJ_12:=BARSLAST(HJ_10);
 HJ_13:=IF(HJ_9,CURRBARSCOUNT,0);
 HJ_14:=IF(HJ_10,CURRBARSCOUNT,0);
 HJ_15:=IF(HJ_11,REF(HJ_13,HJ_11),HJ_13);
 HJ_16:=IF(HJ_12,REF(HJ_14,HJ_12),HJ_14);
 HJ_17:=CONST(HJ_15);
 HJ_18:=CONST(HJ_16);
 HJ_19:=CONST(REF(HIGH,HJ_17-1));
 HJ_20:=CONST(REF(LOW,HJ_18-1));
 HJ_21:=REF(HJ_15,HJ_11+1);
 HJ_22:=REF(HJ_16,HJ_12+1);
 HJ_23:=CONST(HJ_21);
 HJ_24:=CONST(HJ_22);
 HJ_25:=CONST(REF(HIGH,HJ_21-1));
 HJ_26:=CONST(REF(LOW,HJ_22-1));
 HJ_27:=BACKSET(ISLASTBAR,HJ_17);
 HJ_28:=BACKSET(ISLASTBAR,HJ_18);
 HJ_29:=BACKSET(ISLASTBAR,HJ_21);
 HJ_30:=BACKSET(ISLASTBAR,HJ_22);
 HJ_31:=INTPART(3*8/5);
 HJ_32:=REF(HIGH,HJ_31)=HHV(HIGH,2*HJ_31+1);
 HJ_33:=BACKSET(HJ_32,HJ_31+1);
 HJ_34:=FILTER(HJ_33,HJ_31) AND HIGH=HHV(HIGH,HJ_31+1);
 HJ_35:=BARSLAST(HJ_34);
 HJ_36:=IF(HJ_34,CURRBARSCOUNT,0);
 HJ_37:=IF(HJ_35,REF(HJ_36,HJ_35),HJ_36);
 HJ_38:=CONST(HJ_37);
 HJ_39:=REF(HJ_37,HJ_35+1);
 HJ_40:=CONST(HJ_39);
 HJ_41:=REF(LOW,HJ_31)=LLV(LOW,2*HJ_31+1);
 HJ_42:=BACKSET(HJ_41,HJ_31+1);
 HJ_43:=FILTER(HJ_42,HJ_31) AND LOW=LLV(LOW,HJ_31+1);
 HJ_44:=BARSLAST(HJ_43);
 HJ_45:=IF(HJ_43,CURRBARSCOUNT,0);
 HJ_46:=IF(HJ_44,REF(HJ_45,HJ_44),HJ_45);
 HJ_47:=CONST(HJ_46);
 HJ_48:=REF(HJ_46,HJ_44+1);
 HJ_49:=CONST(HJ_48);
 HJ_50:=REF(HIGH,5)=HHV(HIGH,2*5+1);
 HJ_51:=FILTER(HJ_50,5);
 HJ_52:=BACKSET(HJ_51,5+1);
 HJ_53:=FILTER(HJ_52,5);
 HJ_54:=BACKSET(ISLASTBAR,BARSLAST(HJ_53)+1);
 HJ_55:=HJ_54>REF(HJ_54,1);
 HJ_56:=REF(LOW,5)=LLV(LOW,2*5+1);
 HJ_57:=FILTER(HJ_56,5);
 HJ_58:=BACKSET(HJ_57,5+1);
 HJ_59:=FILTER(HJ_58,5);
 HJ_60:=BACKSET(ISLASTBAR,BARSLAST(HJ_59)+1);
 HJ_61:=HJ_60>REF(HJ_60,1);
 HJ_62:=10;
 HJ_63:=10;
 HJ_64:=REF(HIGH,HJ_62)=HHV(HIGH,2*HJ_62+1);
 HJ_65:=BACKSET(HJ_64,HJ_62+1);
 HJ_66:=FILTER(HJ_65,HJ_62) AND HIGH=HHV(HIGH,HJ_62+1);
 HJ_67:=BARSLAST(HJ_66);
 HJ_68:=IF(HJ_66,CURRBARSCOUNT,0);
 HJ_69:=IF(HJ_67,REF(HJ_68,HJ_67),HJ_68);
 HJ_70:=CONST(HJ_69);
 HJ_71:=REF(HJ_69,HJ_67+1);
 HJ_72:=CONST(HJ_71);
 HJ_73:=REF(LOW,HJ_63)=LLV(LOW,2*HJ_63+1);
 HJ_74:=BACKSET(HJ_73,HJ_63+1);
 HJ_75:=FILTER(HJ_74,HJ_63) AND LOW=LLV(LOW,HJ_63+1);
 HJ_76:=BARSLAST(HJ_75);
 HJ_77:=IF(HJ_75,CURRBARSCOUNT,0);
 HJ_78:=IF(HJ_76,REF(HJ_77,HJ_76),HJ_77);
 HJ_79:=CONST(HJ_78);
 HJ_80:=REF(HJ_78,HJ_76+1);
 HJ_81:=CONST(HJ_80);
 HJ_82:=BACKSET(ISLASTBAR,SUMBARS(VOL,CAPITAL));
 HJ_83:=HJ_82>REF(HJ_82,1);
 NOTEXT1上:DRAWLINE(CURRBARSCOUNT=HJ_40,HIGH,CURRBARSCOUNT=HJ_38,HIGH,1),COLORGRAY;
 NOTEXT1下:DRAWLINE(CURRBARSCOUNT=HJ_49,LOW,CURRBARSCOUNT=HJ_47,LOW,1),COLORGRAY;
 NOTEXT1:IF(HJ_29,HJ_25,DRAWNULL),POINTDOT,COLORLIGRAY;
 NOTEXT2:IF(HJ_27,HJ_19,DRAWNULL),POINTDOT,COLORLIGRAY;
 NOTEXT3:IF(HJ_30,HJ_26,DRAWNULL),POINTDOT,COLORLIGRAY;
 NOTEXT4:IF(HJ_28,HJ_20,DRAWNULL),POINTDOT,COLORLIGRAY;
高压:DRAWLINE(CURRBARSCOUNT=HJ_72,HIGH,CURRBARSCOUNT=HJ_70,HIGH,1),COLORMAGENTA;
低撑:DRAWLINE(CURRBARSCOUNT=HJ_81,LOW,CURRBARSCOUNT=HJ_79,LOW,1),COLORMAGENTA;
短压:DRAWLINE(HJ_53,HIGH,HJ_55,HIGH,1),COLORYELLOW;
短撑:DRAWLINE(HJ_59,LOW,HJ_61,LOW,1),COLORYELLOW;
 HJ_84:=MA(MA(CLOSE,3),1);
轨道:MA(MA(CLOSE,3),3),COLOR32CD32,LINETHICK2;
 NOTEXT_升:IF(HJ_84>=轨道,轨道,DRAWNULL),COLORMAGENTA,LINETHICK2;
涨家数:INDEXADV,NODRAW,COLORRED;
跌家数:INDEXDEC,NODRAW,COLORCYAN;
流通市值:FINANCE(40)/100000000,NODRAW,COLORRED;
流通亿股:FINANCE(7)/100000000,NODRAW,COLOR0080FF;
日成交亿:AMOUNT/100000000,NODRAW,COLORMAGENTA;
净买额:(DYNAINFO(23)-DYNAINFO(22))*CLOSE/1000000,NODRAW,COLORRED;
买卖比:DYNAINFO(23)/DYNAINFO(22),NODRAW,COLORWHITE;
 HJ_85:=IF(PERIOD=16,0.03,IF(PERIOD=15,0.03,IF(PERIOD=14,0.006,IF(PERIOD=11,0.02,IF(PERIOD=10,0.02,IF(PERIOD=9,0.02,IF(PERIOD=8,0.002,IF(PERIOD=7,0.05,IF(PERIOD=6,0.03,IF(PERIOD=5,0.018,IF(PERIOD=4,0.005,IF(PERIOD=3,0.004,IF(PERIOD=2,0.003,IF(PERIOD=1,0.0015,IF(PERIOD=0,0.0012,0)))))))))))))));
 HJ_86:=MA(CLOSE,5);
 HJ_87:=MA(CLOSE,10);
 HJ_88:=REF(HIGH,5)=HHV(HIGH,11);
 HJ_89:=REF(LOW,5)=LLV(LOW,11);
 HJ_90:=BACKSET(HJ_88,6)>BACKSET(HJ_88,5);
 HJ_91:=BACKSET(HJ_89,6)>BACKSET(HJ_89,5);
 HJ_92:=IF(BARSLAST(HJ_90)=BARSLAST(HJ_91) AND HJ_86>HJ_87,HJ_90,IF(BARSLAST(HJ_91)>BARSLAST(HJ_90),HJ_90,0));
 HJ_93:=IF(BARSLAST(HJ_90)=BARSLAST(HJ_91) AND HJ_87>HJ_86,HJ_91,IF(BARSLAST(HJ_90)>BARSLAST(HJ_91),HJ_91,0));
 HJ_94:=HJ_92 AND HIGH=HHV(HIGH,BARSLAST(HJ_93));
 HJ_95:=HJ_93 AND LOW=LLV(LOW,BARSLAST(HJ_92));
 HJ_96:=IF(HJ_94,HIGH,DRAWNULL);
 HJ_97:=IF(HJ_95,LOW,DRAWNULL);
 HJ_98:=LOW>REF(HIGH,1) AND DAY!=REF(DAY,1);
 HJ_99:=HIGH<REF(LOW,1) AND DAY!=REF(DAY,1);
 HJ_100:=REF(LOW,BARSLAST(HJ_98));
 HJ_101:=REF(HIGH,BARSLAST(HJ_99));
 HJ_102:=REF(HIGH,BARSLAST(HJ_94));
 HJ_103:=REF(LOW,BARSLAST(HJ_94));
 HJ_104:=REF(HIGH,BARSLAST(HJ_94)+1);
 HJ_105:=REF(LOW,BARSLAST(HJ_94)+1);
 HJ_106:=REF(HIGH,BARSLAST(HJ_94)+2);
 HJ_107:=REF(LOW,BARSLAST(HJ_94)+2);
 HJ_108:=REF(HIGH,BARSLAST(HJ_95));
 HJ_109:=REF(LOW,BARSLAST(HJ_95));
 HJ_110:=REF(HIGH,BARSLAST(HJ_95)+1);
 HJ_111:=REF(LOW,BARSLAST(HJ_95)+1);
 HJ_112:=REF(HIGH,BARSLAST(HJ_95)+2);
 HJ_113:=REF(LOW,BARSLAST(HJ_95)+2);
 HJ_114:=IF(HJ_103<=HJ_105,HJ_106,HJ_104);
 HJ_115:=IF(HJ_104<HJ_103,HJ_103,IF(HJ_103<=HJ_105,HJ_107,HJ_105));
 HJ_116:=IF(HJ_111>HJ_108,HJ_108,IF(HJ_108>=HJ_110,HJ_112,HJ_110));
 HJ_117:=IF(HJ_108>=HJ_110,HJ_113,HJ_111);
 HJ_118:=HJ_102>HJ_116 AND HJ_94;
 HJ_119:=HJ_109<HJ_115 AND HJ_95;
 HJ_120:=HJ_118 AND HJ_102>HJ_108 AND HJ_103>HJ_109 AND HJ_105>HJ_109;
 HJ_121:=HJ_119 AND HJ_109<HJ_103 AND HJ_108<HJ_102 AND HJ_110<HJ_102;
 HJ_122:=HIGH<=REF(HIGH,1) AND LOW>=REF(LOW,1) OR (HIGH>=REF(HIGH,1) AND LOW<=REF(LOW,1));
 HJ_123:=COUNT(HJ_122,BARSLAST(HJ_95));
 HJ_124:=COUNT(HJ_122,BARSLAST(HJ_94));
 HJ_125:=COUNT(HJ_98,BARSLAST(HJ_95));
 HJ_126:=COUNT(HJ_99,BARSLAST(HJ_94));
 HJ_127:=IF(HJ_123>0,HJ_123+2+笔,IF(HJ_124,HJ_124+2+笔,3));
 HJ_128:=IF(HJ_125,HJ_127-HJ_125,IF(HJ_126,HJ_127-HJ_126,HJ_127));
 HJ_129:=HJ_120 AND BARSLAST(HJ_121)>HJ_128;
 HJ_130:=HJ_121 AND BARSLAST(HJ_120)>HJ_128;
 HJ_131:=HJ_94 AND REF(HIGH,BARSLAST(HJ_94))>=REF(HIGH,BARSLAST(HJ_129)) AND BARSLAST(HJ_130)>BARSLAST(HJ_129) OR (HJ_118 AND COUNT(HJ_98,BARSLAST(HJ_119))>0 AND REF(HIGH,BARSLAST(HJ_118))>REF(HIGH,BARSLAST(HJ_129)));
 HJ_132:=HJ_95 AND REF(LOW,BARSLAST(HJ_95))<=REF(LOW,BARSLAST(HJ_130)) AND BARSLAST(HJ_129)>BARSLAST(HJ_130) OR (HJ_119 AND COUNT(HJ_99,BARSLAST(HJ_118))>0 AND REF(LOW,BARSLAST(HJ_119))<REF(HIGH,BARSLAST(HJ_130)));
 HJ_133:=IF(BARSLAST(HJ_132)>BARSLAST(HJ_131),REF(HIGH,BARSLAST(HJ_131)),REF(HIGH,BARSLAST(HJ_132)));
 HJ_134:=IF(BARSLAST(HJ_131)>BARSLAST(HJ_132),REF(LOW,BARSLAST(HJ_132)),REF(LOW,BARSLAST(HJ_131)));
 HJ_135:=HJ_131 AND HIGH=HHV(HJ_133,BARSLAST(HJ_132)+1) AND HIGH>REF(HIGH,1) AND BARSLAST(HJ_132)>BARSLAST(HJ_131);
 HJ_136:=HJ_53 AND LOW=LLV(HJ_134,BARSLAST(HJ_131)+1) AND LOW<REF(LOW,1) AND BARSLAST(HJ_131)>BARSLAST(HJ_132);
 HJ_137:=HJ_135 OR (HJ_94 AND REF(HIGH,BARSLAST(HJ_94))>REF(HIGH,BARSLAST(HJ_135)) AND BARSLAST(HJ_136)>BARSLAST(HJ_135));
 HJ_138:=HJ_136 OR (HJ_95 AND REF(LOW,BARSLAST(HJ_95))<REF(LOW,BARSLAST(HJ_136)) AND BARSLAST(HJ_135)>BARSLAST(HJ_136));
 NOTEXT高点:IF(HJ_129,HIGH,DRAWNULL),POINTDOT,COLORGREEN,LINETHICK4;
 NOTEXT低点:IF(HJ_130,LOW,DRAWNULL),POINTDOT,COLORYELLOW,LINETHICK4;
 NOTEXT上:DRAWLINE(HJ_130,LOW,HJ_129,HIGH,0),COLORGRAY;
 NOTEXT下:DRAWLINE(HJ_129,HIGH,HJ_130,LOW,0),COLOR888888;
 HJ_139:=BARSLAST(HJ_129);
 HJ_140:=BARSLAST(HJ_130);
 DRAWNUMBER(HJ_130,LOW,HJ_139),COLORYELLOW;
 DRAWNUMBER(HJ_129,HIGH+HIGH*HJ_85,HJ_140),COLORGREEN;
 DRAWNUMBER(ISLASTBAR,IF(BARSLAST(HJ_129)>BARSLAST(HJ_130),LOW,HIGH+HIGH*HJ_85),MIN(HJ_139,HJ_140)),COLORMAGENTA;

{-----------------------------------}