通达信【多空监控】+【涨跌MACD】主图副图源码全公开，精准规避监管停牌风险！

admin

朋友们，今天我要分享的这个指标是【全能多空监控与异动预警系统】，这个指标包含了主图，副图，主要含义是结合均线趋势、主力资金流向以及独具特色的“严重异动监管”预警，更能规避监管雷区，辅助大家安全交易。

1. 指标说明
这款指标神器集成了技术指标与基本面数据。主图不仅有漂亮的均线共振带和自动画出的压力支撑线，还能实时显示涨跌家数。副图更是量化了监管红线，精准计算个股相对大盘的偏离度，提示“严重异动”风险，是通达信指标中的精选精品。

2. 买点思考
当主图出现“穿云箭”形态（放量上穿年线），且均线共振带多头排列时，为极佳的低吸点。若副图显示“今日安全”或“明日安全”，且开盘成交额（柱状图）放大，说明主力资金进场，胜率较高。

3. 卖点思考
指标实盘中，一旦主图K线出现长上影线或“炸板”信号，需警惕高抛。特别是副图文字提示“今日极度危险”或“明日高危”，意味着监管风险将至，此时应果断止损离场，避免被关。

4. 特别提示
该指标源码中的画线功能使用了未来函数，历史K线上的支撑压力线会随新数据变化，仅供参考，不可依赖回测。请下载指标后先进行指标评测，熟悉异动预警逻辑后再实战。

指标图例

指标源码

主图指标公式

M1:=EMA(C,N),COLORYELLOW; M2:=MA(C,10),COLOR909090,DOTLINE; M3:=MA(C,20),COLOR00FFFF,LINETHICK1; M4:=MA(C,30),COLORFF00FF; M6:=EMA(C,60),COLORRED,LINETHICK1; M7:=MA(C,120),COLORC08080; M8:EMA(C,250),COLORBLUE,LINETHICK1; M9:=EMA(C,250),COLORBLUE,DOTLINE; E1:=EMA(C,5),COLOR006060,DOTLINE; E2:=EMA(C,120),COLORWHITE; 年:EMA(C,250),COLORBLUE,LINETHICK3; 季:=EMA(C,60),COLORRED; GDRAWBAND(MA(C,N),RGB(30,30,30),MA(C,M),RGB(0,210,0)); {共振带} IF(MA(C,5)>MA(C,10),M2,DRAWNULL),DOTLINE,COLOR909090; {如果5日>10日,画虚线} GG:=DRAWBAND(EMA(C,5),RGB(100,100,100),EMA(C,10),RGB(0,50,0)); DRAWKLINE(H,O,L,C); {---------------} {--------------------------涨跌停家数-------------------------------} DRAWRECTREL(IF(DYNAINFO(60)>0,870+IF((DYNAINFO(60)+DYNAINFO(61))>0,80*(DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61))),40),DRAWNULL),IF(DYNAINFO(60)>0,20,DRAWNULL),IF(DYNAINFO(60)>0,870,DRAWNULL),IF(DYNAINFO(60)>0,2,DRAWNULL),RGB(255,52,17)); DRAWRECTREL(IF(DYNAINFO(61)>0,950,DRAWNULL),IF(DYNAINFO(61)>0,20,DRAWNULL),IF(DYNAINFO(61)>0,870+IF((DYNAINFO(60)+DYNAINFO(61))>0,80*(DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61))),40),DRAWNULL),IF(DYNAINFO(61)>0,2,DRAWNULL),RGB(22,167,58)); DRAWTEXT_FIX(DYNAINFO(60)>0,0.9,0.022,1,VAR2STR(DYNAINFO(60),0)),COLORRED; {上涨家数} DRAWTEXT_FIX(DYNAINFO(61)>0,0.92,0.022,0,VAR2STR(DYNAINFO(61),0)),COLORGREEN; {下跌家数} {--------------------------涨跌停家数-------------------------------} STICKLINE(REF(C,1)<REF(O,1)AND(C>REF(C,1)*1.07 OR C>O*1.1),C,O,0.5,0),COLOR0055FF,NODRAW; {--大涨9个点} STICKLINE(C>REF(C,1)*1.095 AND C=H,C,O*0.995,5,0),COLORFF00FF; {涨停} STICKLINE(C>REF(C,1)*1.095 AND C=H AND NOT(REF(C>REF(C,1)*1.09,1))AND REF(C<MA(C,20)*1.15,1),C,O,5,0),COLORFF00FF; {涨停} STICKLINE(C>REF(C,1)*1.095 AND C=H AND REF(C,1)>REF(MA(C,20)*1.15,1),C,O,5,0),COLOR800080,NODRAW; {涨停} Y1:=EMA(C,N),COLORYELLOW; Y2:MA(C,M),COLORGREEN,LINETHICK1; {-----------------} 涨停:=C/REF(C,1)>1.097 AND C=H; P1:=FINANCE(3)=3; P2:=FINANCE(3)=4; P3:=FINANCE(3)=2; ZP:=IF(P1 OR P2,0.2,IF(P3,0.3,0.1)); 涨停价:=ZTPRICE(REF(C,1),ZP); ZTJ:=ZTPRICE(REF(C,1),IF(CODELIKE('3')OR CODELIKE('68'),0.2,IF(CODELIKE('8')OR CODELIKE('4')OR CODELIKE('9'),0.3,IF(CODELIKE('ST'),0.05,0.1)))); 炸板:=H>=ZTJ AND C<H; STICKLINE(炸板,H,MAX(O,C),1,0),COLORFF00FF; {炸板} STICKLINE(炸板,O,C,1,0),COLORYELLOW; {炸板} {-----------------} {STICKLINE(C<REF(C,1)*0.9015 AND C=L,C,O,-1,0),COLOR00FF00,NODRAW; {跌停} {STICKLINE(C<REF(C,1)*0.965 AND C<O,C,O,1.5,0),COLORGREEN,NODRAW; {-----下跌3.5%-------} {STICKLINE(O>MA(C,20)AND C<MA(C,20),C,O,2,0),COLORGREEN,NODRAW; {-------破20日线} STICKLINE(O>REF(C,1)*1.02,O,O*0.995,3,0),COLORRED,NODRAW; {高开1.5个点} STICKLINE((C>REF(C,1)*1.09 OR C>O*1.09)AND C<H,C,O,0.5,0),COLOR0080FF,NODRAW; {涨幅大于9.8} STICKLINE((O<MA(C,60)AND C>MA(C,60))OR(O<MA(C,250)AND C>MA(C,250)OR(O<MA(C,20)AND C>MA(C,20)))AND(C>REF(C,1)*1.06 OR C>O*1.08)AND H=C,C,O,0,0),COLORFF00FF,NODRAW; {-===-------穿云箭穿云箭穿云箭===-} {↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑穿年线↑↑↑↑↑↑↑↑↑↑↑↑↑↑} L1:=EMA(C,5); L2:=EMA(C,7); HH:=C>REF(HHV(H,35),1)AND(C/REF(C,1)>1.098  AND H=C); {STICKLINE(HH,C,O,0.1,0),COLORFFFF00,NODRAW; {---涨停创新高----} {STICKLINE(TT,C,O,1,0),COLORYELLOW; {穿云箭} ZF:=REF(COUNT(C/REF(C,1)>1.097 AND C=H,1)>=1,1); {涨停} ZB:=REF(COUNT(C/REF(C,1)>1.097  AND H=C,2)>=2,1); {---------2天内有2涨停} STICKLINE(ZF AND C<O  AND O>REF(C,1)*1.05,C,O,0,0),COLORRED; {………………涨停高开低走} CSC:=(O<EMA(C,18)AND C>EMA(C,18))OR(O<EMA(C,60)AND C>EMA(C,60)); DRAWICON(ZF AND O<REF(C,1),L,39),NODRAW; {2天涨停后低开画三角标} DRAWICON(ZF AND C>REF(HHV(H,100),1),H*1.07,1),NODRAW; {============================创30天新高} DRAWICON((ZF OR REF(炸板,1))AND(LARGEINTRDVOL-LARGEOUTTRDVOL)*10000/FINANCE(7)<0,H*1.03,39),NODRAW; {---画三角形反包---} {DRAWICON(DIF>DEA AND MD<REF(MD,1)AND REF(MD,1)<REF(MD,2)AND REF(MD,2)<REF(MD,3),L,2); {开始回调} {↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑} {↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑} STICKLINE(H>MAX(O,C)*1.038,H,MAX(O,C),1,0),COLORGREEN,NODRAW; {上影5} STICKLINE(H>REF(C,1)*1.098 AND H>MAX(O,C)*1.01,H,MAX(O,C),0.8,0),COLORGREEN,NODRAW; {上影4} STICKLINE(L<MIN(O,C)*0.965 AND L<REF(C,1),L,MIN(O,C),0.15,0),COLORBLUE,NODRAW; {-3.5%下影} STICKLINE(L<MIN(O,C)*0.96,L,MIN(O,C),0.2,0),COLORBLUE; {-4%下影} {↑↑↑↑↑↑↑↑↑↑↑画线画线画线画线画线画线↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑} QA:=REF(H,5)=HHV(H,2*5+1); QB:=BACKSET(QA,5+1); QC:=FILTER(QB,5)AND H=HHV(H,5+1); QD:=BARSLAST(QC); QE:=IF(QC,CURRBARSCOUNT,0); QF:=IF(QD,REF(QE,QD),QE); QG:=CONST(QF); QH:=REF(QF,QD+1); QW:=CONST(QH); XX:=DRAWLINE(CURRBARSCOUNT=QW,H,CURRBARSCOUNT=QG,H,1),COLOR00FFFF,LINETHICK2; {//////上方压力射线//////} QM:=INTPART(3*8/3); QR:=REF(H,QM)=HHV(H,2*QM+1); QT:=FILTER(QR,QM); QY:=BACKSET(QT,QM+1); QU:=FILTER(QY,QM); QI:=BACKSET(ISLASTBAR,BARSLAST(QU)+1); QP:=QI>REF(QI,1); DRAWLINE(QU,H,QP,H,1),COLORWHITE,NODRAW; QT1:=REF(L,QM)=LLV(L,2*QM+1); QY1:=FILTER(QT1,QM); QU1:=BACKSET(QY1,QM+1); QI1:=FILTER(QU1,QM); QP1:=BACKSET(ISLASTBAR,BARSLAST(QI1)+1); QJ1:=QP1>REF(QP1,1); DRAWLINE(QI1,L,QJ1,L,1),COLORGREEN,LINETHICK2,NODRAW; {//////下方支撑射线//////} {↑↑↑↑↑↑↑↑↑↑↑↑画线画线画线画线画线画线画线画线↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑} {==================压力支撑==========================} TTAA:=REF(H,12)=HHV(H,2*12+1); TTQY:=BACKSET(TTAA,12+1); TTCC:=FILTER(TTQY,12)AND H=HHV(H,12+1); TTDDD:=BARSLAST(TTCC); TTGDTS:=IF(TTCC,CURRBARSCOUNT,0); TTDINGBU:=IF(TTDDD,REF(H,TTDDD),H); {顶部} TTDINGBUTS:=IF(TTDDD,REF(TTGDTS,TTDDD),TTGDTS); TTDINGBU1:=REF(TTDINGBU,TTDDD+1); TTGDCS1:=CONST(TTDINGBUTS); TTDINGBUTS1:=REF(TTDINGBUTS,TTDDD+1); TTGDCS2:=CONST(TTDINGBUTS1); TX:=DRAWLINE(CURRBARSCOUNT=TTGDCS1,H,ISLASTBAR,REF(H,TTGDCS1-1),1),COLORRED,LINETHICK1; LA:=REF(H,23)=HHV(H,2*23+1); LY:=BACKSET(LA,23+1); LC:=FILTER(LY,23)AND H=HHV(H,23+1); LD:=BARSLAST(LC); LLG:=IF(LC,CURRBARSCOUNT,0); LLDINGB:=IF(LD,REF(H,LD),H); {顶部} LLDINGBUT:=IF(LD,REF(LLG,LD),LLG); LLDINGBA:=REF(LLDINGB,LD+1); LLGD:=CONST(LLDINGBUT); LLDINGBUTA:=REF(LLDINGBUT,LD+1); LLGDC:=CONST(LLDINGBUT); HX:=DRAWLINE(CURRBARSCOUNT=LLGD,H,ISLASTBAR,REF(H,LLGD-1),1),COLORLIRED,LINETHICK1; LLAA:=REF(H,30)=HHV(H,2*30+1); LLQY:=BACKSET(LLAA,30+1); LLCC:=FILTER(LLQY,30)AND H=HHV(H,30+1); LLDDD:=BARSLAST(LLCC); LLGDTS:=IF(LLCC,CURRBARSCOUNT,0); LLDINGBU:=IF(LLDDD,REF(H,LLDDD),H); {顶部} LLDINGBUTS:=IF(LLDDD,REF(LLGDTS,LLDDD),LLGDTS); LLDINGBU1:=REF(LLDINGBU,LLDDD+1); LLGDCS1:=CONST(LLDINGBUTS); LLDINGBUTS1:=REF(LLDINGBUTS,LLDDD+1); LLGDCS2:=CONST(LLDINGBUTS1); HZ:=DRAWLINE(CURRBARSCOUNT=LLGDCS1,H,ISLASTBAR,REF(H,LLGDCS1-1),1),COLORYELLOW,LINETHICK1; QLAA:=REF(H,40)=HHV(H,2*40+1); QLQY:=BACKSET(QLAA,40+1); QLCC:=FILTER(QLQY,40)AND H=HHV(H,40+1); QLDDD:=BARSLAST(QLCC); QLGDTS:=IF(QLCC,CURRBARSCOUNT,0); QLDINGBU:=IF(QLDDD,REF(H,QLDDD),H); {顶部} QLDINGBUTS:=IF(QLDDD,REF(QLGDTS,QLDDD),QLGDTS); QLDINGBU1:=REF(QLDINGBU,QLDDD+1); QLGDCS1:=CONST(QLDINGBUTS); QLDINGBUTS1:=REF(QLDINGBUTS,QLDDD+1); QLGDCS2:=CONST(QLDINGBUTS1); LX:=DRAWLINE(CURRBARSCOUNT=QLGDCS1,H,ISLASTBAR,REF(H,QLGDCS1-1),1),COLOR800000,LINETHICK1; STICKLINE((O<EMA(C,60)AND C>EMA(C,60))OR(O<EMA(C,120)AND C>EMA(C,120))AND(C>REF(C,1)*1.098 OR C>O*1.098),C,O*1.01,1,0),COLORYELLOW,NODRAW; {-===穿云箭===-} DRAWTEXT_FIX(1,0.06,0.027,0,'.:'),COLORWHITE; DRAWTEXT_FIX(1,0.2,1-01,0,GNBLOCK),COLORMAGENTA; DRAWTEXT_FIX(1,0.12,0.065,0,DYBLOCK),COLORRED; DRAWTEXT_FIX(ISLASTBAR,1,0.08,0,EXTERNSTR(0,7)),COLORYELLOW,NODRAW; {引入涨停原因} DRAWTEXT_FIX(1,0.49,1-0.01,0,EXTERNSTR(0,7)),COLORMAGENTA,NODRAW; {引入概念板块} DRAWNUMBER_FIX(1,0.98,0.065,0,CONST(AMO/100000000)),COLORMAGENTA; {上成交额} DRAWNUMBER_FIX(1,0.9,1-0,0,CONST(DYNAINFO(36)*100)),COLORWHITE; {下自由换手率} DRAWTEXT_FIX(1,0.885,0.065,0,'☆:'),COLOR808080; {上自然流通市值} DRAWNUMBER_FIX(1,0.9,0.065,0,CONST(FINANCE(46)*C/100000000)),COLOR808080; {上自然流通市值} DRAWTEXT_FIX(1,0.95,1-0.033,0,'☆:'),COLOR808080; {上自然流通市值} DRAWNUMBER_FIX(1,0.97,1-0,0,CONST(FINANCE(46)*C/100000000)),COLOR808080; {下自然流通市值} DRAWNUMBER_FIX(1,0.79,0.065,0,CONST(FINANCE(20)/100000000)),COLORRED; {营业收入} DRAWNUMBER_FIX(1,0.84,0.065,0,CONST(FINANCE(30)/100000000)),COLOR4080FF; {上净利润} DRAWNUMBER_FIX(1,0.84,1-0,0,CONST(FINANCE(30)/100000000)),COLOR4080FF; {下净利润} DRAWTEXT_FIX(1,0.00,0.00,0,'涨停原因：')COLOR8000FF,NODRAW; DRAWTEXT_FIX(1,0.06,0.00,0,EXTERNSTR(0,7))COLOR8000FF,NODRAW; DRAWTEXT_FIX(1,0.00,0.06,0,'主营业务：')COLORFF00FF,NODRAW; DRAWTEXT_FIX(1,0.06,0.06,0,EXTERNSTR(0,2))COLORFF00FF,NODRAW; DRAWTEXT_FIX(1,0.00,0.12,0,'公司亮点：')COLORFF00FF,NODRAW; DRAWTEXT_FIX(1,0.06,0.12,0,EXTERNSTR(0,3))COLORFF00FF,NODRAW; 昨日金额:REF(AMO/100000000,1),COLORGREEN,NODRAW; 【今日额】:AMO/100000000,COLOR0000FF,NODRAW; 流通市值:FINANCE(46)*C/100000000,COLORFF00FF,NODRAW; {DRAWTEXT_FIX(1,0.01,1-0.01,0,'流通市值:'),COLORWHITE; DRAWNUMBER_FIX(1,0.06,1-0.01,0,CONST(FINANCE(40))/100000000),COLORYELLOW; {DRAWTEXT_FIX(1,0.1,1-0.01,0,'未分利润:'),COLORWHITE; DRAWNUMBER_FIX(1,0.15,1-0.01,0,CONST(FINANCE(31))/100000000),COLORRED; DRAWTEXT_FIX(1,0.2,1-0.01,0,'负债率:'),COLORWHITE; DRAWNUMBER_FIX(1,0.24,1-0.01,0,CONST(FINANCE(9))),COLORYELLOW; {DRAWTEXT_FIX(1,0.28,1-0.01,0,'净利润:'),COLORWHITE; DRAWNUMBER_FIX(1,0.32,1-0.01,0,CONST(FINANCE(30)/100000000)),COLORRED; DRAWTEXT_FIX(1,0.36,1-0.01,0,'毛利率:'),COLORWHITE; DRAWNUMBER_FIX(1,0.40,1-0.01,0,CONST((1-FINANCE(21)/FINANCE(20))*100)),COLORRED; DRAWTEXT_FIX(1,0.44,1-0.01,0,'市盈率:'),COLORWHITE,NODRAW; DRAWNUMBER_FIX(1,0.48,1-0.01,0,CONST(C/FINANCE(33))),COLORYELLOW,NODRAW; {DRAWTEXT_FIX(1,0.44,1-0.01,0,'主营同比:'),COLORWHITE; DRAWNUMBER_FIX(1,0.49,1-0.01,0,CONST(FINANCE(44))),COLORRED; DRAWTEXT_FIX(1,0.53,1-0.01,0,'净利同比:'),COLORWHITE; DRAWNUMBER_FIX(1,0.58,1-0.01,0,CONST(FINANCE(43))),COLORRED; } {DRAWNUMBER(HY>0,H*1.03,HT),COLORRED; } HG1504:=STRCAT('',''); HG1166:=STRCAT('板块中，涨幅第',''); HG1167:=STRCAT('名',''); TJ2AA:=HORCALC(HYBLOCK,105,1,DRAWNULL); TJ4AA:=STRCAT(STRCAT(HG1504,HG1504),HG1504); DRAWTEXT_FIX(ISLASTBAR,0,0.05,0,STRCAT(TJ4AA,STRCAT(HG1166,STRCAT(CON2STR(TJ2AA,0),HG1167)))),COLORCYAN,NODRAW; {板块中涨幅第几名} ZDF:=IF(FINANCE(3)=3 OR FINANCE(3)=4,0.2,IF(FINANCE(3)=2,0.3,IF(NAMEINCLUDE('ST')OR NAMEINCLUDE('*ST')OR NAMEINCLUDE('退'),0.05,0.1))); KXZT:=ZTPRICE(REF(C,1),ZDF); STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,KXZT,MAX(OPEN,CLOSE),-1,-1),COLOR00C0C0,NODRAW; 涨停虚线:=CONST(HHV(KXZT,C)),DOTLINE,COLORGREEN; {涨停价画绿色虚线};

副图指标公式

{------------MACD----------------} DIF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIF,9); MACDDIF-DEA)*100,COLORSTICK; 自然流通市值:FINANCE(46)*C/100000000,COLORFF00FF,NODRAW; P1:=FINANCE(3)=3; P2:=FINANCE(3)=4; P3:=FINANCE(3)=2; ZP:=IF(P1 OR P2,0.2,IF(P3,0.3,0.1)); 涨停价:=ZTPRICE(REF(C,1),ZP); ZTJ:=ZTPRICE(REF(C,1),IF(CODELIKE('3')OR CODELIKE('68'),0.2,IF(CODELIKE('8')OR CODELIKE('4')OR CODELIKE('9'),0.3,IF(CODELIKE('ST'),0.05,0.1)))); 炸板:=H>=ZTJ AND C<H; 涨停:=C>REF(C,1)*1.095 AND H=C; ZZ:=REF(COUNT(涨停 OR 炸板,1)>=1,1); {1天ZT} STICKLINE(炸板,0,MACD,1,0),COLORYELLOW; {=========炸板} 开盘:=O; 昨开成交额:=REF(GPJYVALUE(25,1,0)*O/100,1),COLORBLUE,NODRAW; 开盘成交额:=GPJYVALUE(25,1,0)*O/100,COLORMAGENTA,NODRAW; STICKLINE(O>=REF(C,1)AND 开盘成交额>0,0,开盘成交额,2,2),COLORGREEN; STICKLINE(O<REF(C,1)AND 开盘成交额>0,0,开盘成交额,2,2),COLORGREEN; STICKLINE(ZZ,0,开盘成交额,2,2),COLORRED,NODRAW; {昨天涨停/炸板，今天开盘金额为红色DRAWNULL} 涨停家数:SCJYVALUE(3,1,1),COLORRED; 跌停家数:SCJYVALUE(4,1,1),COLORBLUE,NODRAW; 昨成交额:REF(AMO/100000000,1),COLOR808080,NODRAW; 今成交额:AMO/100000000,COLORRED,NODRAW; 前开【亿】:REF(GPJYVALUE(25,1,0)*O/1000000,2),COLORYELLOW,NODRAW; 昨开【亿】:REF(GPJYVALUE(25,1,0)*O/1000000,1),COLOR808080,NODRAW; 今开【亿】:GPJYVALUE(25,1,0)*O/1000000,COLORMAGENTA,NODRAW; STICKLINE(开盘成交额>2000,0,开盘成交额,2,2),COLOR4080FF; {2000W} STICKLINE(开盘成交额>5000,0,开盘成交额,3,2),COLORRED; {5000W} STICKLINE(开盘成交额>10000,0,开盘成交额,3.5,2),COLORFF00FF; {1亿} {STICKLINE(开盘成交额>5000,0,开盘成交额,2,3),COLORYELLOW; } ; {-------------------------涨跌家数---------------------------------------} DRAWRECTREL(IF(DYNAINFO(60)>0,870+IF((DYNAINFO(60)+DYNAINFO(61))>0,80*(DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61))),40),DRAWNULL),IF(DYNAINFO(60)>0,20,DRAWNULL),IF(DYNAINFO(60)>0,870,DRAWNULL),IF(DYNAINFO(60)>0,2,DRAWNULL),RGB(255,52,17)); DRAWRECTREL(IF(DYNAINFO(61)>0,950,DRAWNULL),IF(DYNAINFO(61)>0,20,DRAWNULL),IF(DYNAINFO(61)>0,870+IF((DYNAINFO(60)+DYNAINFO(61))>0,80*(DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61))),40),DRAWNULL),IF(DYNAINFO(61)>0,2,DRAWNULL),RGB(22,167,58)); DRAWTEXT_FIX(DYNAINFO(60)>0,0.9,0.022,1,VAR2STR(DYNAINFO(60),0)),COLORRED; {上涨家数} DRAWTEXT_FIX(DYNAINFO(61)>0,0.92,0.022,0,VAR2STR(DYNAINFO(61),0)),COLORGREEN; {下跌家数} {===========================异动指标======================================} IS_KCB:=CODELIKE('688'); IS_CYB:=CODELIKE('300')OR CODELIKE('301'); IS_BSE:=CODELIKE('8')OR CODELIKE('4')OR CODELIKE('92'); IS_ST:=NAMELIKE('S')OR NAMELIKE('*S'); IS_SH:=CODELIKE('6')AND NOT(IS_KCB); IS_SZ:=CODELIKE('0')OR CODELIKE('00'); MAX_ZF:=IF(IS_BSE,30,IF(IS_KCB OR IS_CYB,20,IF(IS_ST,5,10))); BASE_C:=IF(IS_KCB,"000688$C",IF(IS_CYB,"399006$C",IF(IS_BSE,"899050$C",IF(IS_SH,"999999$C",IF(IS_SZ,"399001$C",INDEXC))))); JC:=IF(BASE_C=DRAWNULL OR BASE_C=0,INDEXC,BASE_C); S1:=(C/REF(C,1)-1)*100; I1:=(JC/REF(JC,1)-1)*100; PL1:=S1-I1; S2:=(C/REF(C,2)-1)*100; I2:=(JC/REF(JC,2)-1)*100; PL2:=S2-I2; S3:=(C/REF(C,3)-1)*100; I3:=(JC/REF(JC,3)-1)*100; PL3:=S3-I3; S4:=(C/REF(C,4)-1)*100; I4:=(JC/REF(JC,4)-1)*100; PL4:=S4-I4; S5:=(C/REF(C,5)-1)*100; I5:=(JC/REF(JC,5)-1)*100; PL5:=S5-I5; S6:=(C/REF(C,6)-1)*100; I6:=(JC/REF(JC,6)-1)*100; PL6:=S6-I6; S7:=(C/REF(C,7)-1)*100; I7:=(JC/REF(JC,7)-1)*100; PL7:=S7-I7; S8:=(C/REF(C,8)-1)*100; I8:=(JC/REF(JC,8)-1)*100; PL8:=S8-I8; S9:=(C/REF(C,9)-1)*100; I9:=(JC/REF(JC,9)-1)*100; PL9:=S9-I9; S10:=(C/REF(C,10)-1)*100; I10:=(JC/REF(JC,10)-1)*100; PL10:=S10-I10; S11:=(C/REF(C,11)-1)*100; I11:=(JC/REF(JC,11)-1)*100; PL11:=S11-I11; S12:=(C/REF(C,12)-1)*100; I12:=(JC/REF(JC,12)-1)*100; PL12:=S12-I12; S13:=(C/REF(C,13)-1)*100; I13:=(JC/REF(JC,13)-1)*100; PL13:=S13-I13; S14:=(C/REF(C,14)-1)*100; I14:=(JC/REF(JC,14)-1)*100; PL14:=S14-I14; S15:=(C/REF(C,15)-1)*100; I15:=(JC/REF(JC,15)-1)*100; PL15:=S15-I15; S16:=(C/REF(C,16)-1)*100; I16:=(JC/REF(JC,16)-1)*100; PL16:=S16-I16; S17:=(C/REF(C,17)-1)*100; I17:=(JC/REF(JC,17)-1)*100; PL17:=S17-I17; S18:=(C/REF(C,18)-1)*100; I18:=(JC/REF(JC,18)-1)*100; PL18:=S18-I18; S19:=(C/REF(C,19)-1)*100; I19:=(JC/REF(JC,19)-1)*100; PL19:=S19-I19; S20:=(C/REF(C,20)-1)*100; I20:=(JC/REF(JC,20)-1)*100; PL20:=S20-I20; S21:=(C/REF(C,21)-1)*100; I21:=(JC/REF(JC,21)-1)*100; PL21:=S21-I21; S22:=(C/REF(C,22)-1)*100; I22:=(JC/REF(JC,22)-1)*100; PL22:=S22-I22; S23:=(C/REF(C,23)-1)*100; I23:=(JC/REF(JC,23)-1)*100; PL23:=S23-I23; S24:=(C/REF(C,24)-1)*100; I24:=(JC/REF(JC,24)-1)*100; PL24:=S24-I24; S25:=(C/REF(C,25)-1)*100; I25:=(JC/REF(JC,25)-1)*100; PL25:=S25-I25; S26:=(C/REF(C,26)-1)*100; I26:=(JC/REF(JC,26)-1)*100; PL26:=S26-I26; S27:=(C/REF(C,27)-1)*100; I27:=(JC/REF(JC,27)-1)*100; PL27:=S27-I27; S28:=(C/REF(C,28)-1)*100; I28:=(JC/REF(JC,28)-1)*100; PL28:=S28-I28; S29:=(C/REF(C,29)-1)*100; I29:=(JC/REF(JC,29)-1)*100; PL29:=S29-I29; S30:=(C/REF(C,30)-1)*100; I30:=(JC/REF(JC,30)-1)*100; PL30:=S30-I30; M10_A:=MAX(PL1,MAX(PL2,MAX(PL3,MAX(PL4,PL5)))); M10_B:=MAX(PL6,MAX(PL7,MAX(PL8,MAX(PL9,PL10)))); MAX_PL_10:=MAX(M10_A,M10_B); M30_A:=MAX(PL11,MAX(PL12,MAX(PL13,MAX(PL14,PL15)))); M30_B:=MAX(PL16,MAX(PL17,MAX(PL18,MAX(PL19,PL20)))); M30_C:=MAX(PL21,MAX(PL22,MAX(PL23,MAX(PL24,PL25)))); M30_D:=MAX(PL26,MAX(PL27,MAX(PL28,MAX(PL29,PL30)))); MAX_PL_30:=MAX(MAX_PL_10,MAX(MAX(M30_A,M30_B),MAX(M30_C,M30_D))); S9_PREV:=REF(S9,1); I9_PREV:=REF(I9,1); S29_PREV:=REF(S29,1); I29_PREV:=REF(I29,1); IDX_CUR:=(JC/REF(JC,1)-1)*100; I_10_NOW:=(1+I9_PREV/100)*(1+IDX_CUR/100)-1; I_30_NOW:=(1+I29_PREV/100)*(1+IDX_CUR/100)-1; TGT_TODAY_10:=((2+I_10_NOW)/(1+S9_PREV/100)-1)*100; TGT_TODAY_30:=((3+I_30_NOW)/(1+S29_PREV/100)-1)*100; S_BASE_10_TMR:=S9; I_BASE_10_TMR:=I9; S_BASE_30_TMR:=S29; I_BASE_30_TMR:=I29; TGT_TMR_10:=((2+I_BASE_10_TMR/100)/(1+S_BASE_10_TMR/100)-1)*100; TGT_TMR_30:=((3+I_BASE_30_TMR/100)/(1+S_BASE_30_TMR/100)-1)*100; RISK_A_NOW:=TGT_TODAY_10<=MAX_ZF; RISK_B_NOW:=TGT_TODAY_30<=MAX_ZF; TRIG_NOW:=MAX_PL_10>=100 OR MAX_PL_30>=200; {修正为检查PL10和PL30} ST_TODAY:=IF(TRIG_NOW,4,IF(RISK_A_NOW AND RISK_B_NOW,3,IF(RISK_A_NOW,2,IF(RISK_B_NOW,1,0)))); RISK_A_TMR:=TGT_TMR_10<=MAX_ZF; RISK_B_TMR:=TGT_TMR_30<=MAX_ZF; ST_TMR:=IF(TRIG_NOW,4,IF(RISK_A_TMR AND RISK_B_TMR,3,IF(RISK_A_TMR,2,IF(RISK_B_TMR,1,0)))); INFO1:=STRCAT('当前板块限幅:',STRCAT(CON2STR(MAX_ZF,0),'%')); INFO2:=STRCAT('30日偏离:',STRCAT(CON2STR(MAX_PL_30,2),'%')); INFO3:=STRCAT(INFO2,STRCAT('10日偏离:',STRCAT(CON2STR(MAX_PL_10,2),'%'))); DRAWTEXT_FIX(ISLASTBAR,0.00,0.24,0,STRCAT(INFO1,INFO3)),COLORWHITE,NODRAW; DRAWTEXT_FIX(ISLASTBAR,0.00,0,0,'异动监管分析'),COLORGREEN,NODRAW; TXT_SAFE_N:='【今日安全】涨停也不会触发严重异动'; TXT_TRIG_N:='【今日已触发】严重异动！'; TXT_RA_N:=STRCAT('【今日危险】涨幅达',STRCAT(CON2STR(TGT_TODAY_10,2),'%将触发严重异动，10个连续交易日偏离值达100%')); TXT_RB_N:=STRCAT('【今日危险】涨幅达',STRCAT(CON2STR(TGT_TODAY_30,2),'%将触发严重异动，30个连续交易日偏离值达200%')); MIN_N:=MIN(TGT_TODAY_10,TGT_TODAY_30); TXT_MIX_N:=STRCAT('【今日极度危险】涨幅达',STRCAT(CON2STR(MIN_N,2),'%即触发严重异动')); DRAWTEXT_FIX(ISLASTBAR AND ST_TODAY=0,0,0,0,TXT_SAFE_N),COLORGREEN; DRAWTEXT_FIX(ISLASTBAR AND ST_TODAY=1,0,0,0,TXT_RB_N),COLORRED,LINETHICK2; DRAWTEXT_FIX(ISLASTBAR AND ST_TODAY=2,0,0,0,TXT_RA_N),COLORYELLOW,LINETHICK2; DRAWTEXT_FIX(ISLASTBAR AND ST_TODAY=3,0,0,0,TXT_MIX_N),COLORMAGENTA; DRAWTEXT_FIX(ISLASTBAR AND ST_TODAY=4,0,0,0,TXT_TRIG_N),COLORMAGENTA; TXT_SAFE_T:='【明日安全】涨停也不会触发严重异动; '; TXT_TRIG_T:='【明日高危】延续严重异动状态; '; TXT_RA_T:=STRCAT('【明日危险】再涨',STRCAT(CON2STR(TGT_TMR_10,2),'%将触发严重异动，10个连续交易日偏离值达100%')); TXT_RB_T:=STRCAT('【明日危险】再涨',STRCAT(CON2STR(TGT_TMR_30,2),'%将触发严重异动，30个连续交易日偏离值达200%')); MIN_T:=MIN(TGT_TMR_10,TGT_TMR_30); TXT_MIX_T:=STRCAT('【明日极度危险】再涨',STRCAT(CON2STR(MIN_T,2),'%即触发严重异动')); DRAWTEXT_FIX(ISLASTBAR AND ST_TMR=0,0,0.25,0,TXT_SAFE_T),COLORGREEN; DRAWTEXT_FIX(ISLASTBAR AND ST_TMR=1,0,0.25,0,TXT_RB_T),COLORRED; DRAWTEXT_FIX(ISLASTBAR AND ST_TMR=2,0,0.25,0,TXT_RA_T),COLORYELLOW; DRAWTEXT_FIX(ISLASTBAR AND ST_TMR=3,0,0.25,0,TXT_MIX_T),COLORMAGENTA; DRAWTEXT_FIX(ISLASTBAR AND ST_TMR=4,0,0.25,0,TXT_TRIG_T),COLORMAGENTA;

注意事项

• 复制安装的时候主图，副图和选股分开复制，分开安装。
• 复制安装的时候出现错误提示，首先找到错误提示的代码，然后把代码里面出现的“问号”删除。
• 当导入源码出现问题时，大可能是在复制粘贴时格式变了，可复制到WORD再试试或到股指标网下载tn6。
  
  
  
  

↑关注备用号，防失联！