通达信【分时红绿柱】主图分时指标，竞价资金监控+涨停封单分析，VIP级高胜率源码！

admin

朋友们，今天我要分享的这个指标是【分时红绿柱】分时主图主要含义是通过量化竞价金额、封单结构与盘口异动，全方位捕捉主力资金意图。专为短线超短线交易打造，将资金博弈可视化，极大提升了打板和低吸的成功率。

1. 指标说明
这是一款集合了指标量化与图形可视化的通达信分时主图指标神器。它不仅实时显示市场涨跌家数，更能详细拆解“竞价抢筹额”、“封单比”等核心数据。通过直观的红绿柱和文字提示，将复杂的盘口语言转化为高胜率的交易信号，是精选的VIP级指标。

2. 买点思考
在指标实盘中，重点关注9点25分的竞价图。若“竞价金额”柱子显示红色且超过5000万甚至1亿，配合全市场上涨家数占优，是极佳的低吸博弈点。盘中若出现“秒板”且“封单比”雄厚，说明主力决心大，可果断跟随。

3. 卖点思考
当指标提示“炸板”或“天地板”风险时，应立即高抛止损。若分时图中股价跌破均线且无法收回，且“封单比”急剧缩小，说明主力资金撤退，切勿恋战，需严格执行纪律。

4. 特别提示
该指标依赖DYNAINFO动态行情函数，仅在开盘交易时段数据准确，盘后可能无法显示完整画面。建议大家在指标下载后先进行指标评测，熟悉“竞价额”与“封单”的配合逻辑后再进行实战。

指标源码

指标公式源码

{分时或者主图，M1=23,M2=10,宽度=1,INFO=2,CHART=1,LINE=1,FZX=0} DRAWTEXT_FIX(1,0.132,0.01,0,DYBLOCK),COLORRED;{地域} DRAWNUMBER_FIX(1,0.8,0.07,0,CONST(FINANCE(30)/100000000)),COLOR4080FF;{上净利润} DRAWTEXT_FIX(1,0.2,0.02,0,GNBLOCK),COLORMAGENTA; DRAWTEXT_FIX(1,0.12,0.07,0,'☆:'),COLOR808080; DRAWNUMBER_FIX(1,0.14,0.07,0,CONST(FINANCE(46)*C/100000000)),COLOR808080;{前自然市值Z_$} DRAWTEXT_FIX(1,0.68,0.07,0,'☆:'),COLOR808080; DRAWNUMBER_FIX(1,0.70,0.07,0,CONST(FINANCE(46)*C/100000000)),COLOR808080;{后自然市值Z_$} DRAWTEXT_FIX(1,0.125,1-0.012,0,FGBLOCK),COLORMAGENTA,NODRAW;{风格板块} DRAWNUMBER_FIX(1,0.73,0.05,0,CONST(FINANCE(40)/100000000)),COLORFF8000,NODRAW;{上市值} DRAWTEXT_FIX(1,0.9,0.07,0,'$：')COLORMAGENTA; DRAWNUMBER_FIX(1,0.92,0.07,0,CONST(DYNAINFO(10)/100000000)),COLORMAGENTA;{成交额} DRAWNUMBER_FIX(1,0.90,1-0.13,0,CONST(FINANCE(25)/100000000)),COLORFFFF00;{下流动现金} DRAWNUMBER_FIX(1,0.96,1-0.13,0,CONST(FINANCE(30)/100000000)),COLOR4080FF;{下净利润} DRAWTEXT_FIX(1,0.055,1-0.085,0,'主营业务：')COLORYELLOW;{拷贝内容增加到主图指标中} DRAWTEXT_FIX(1,0.05,1-0.085,0,EXTERNSTR(0,2))COLORYELLOW;{此处引入我们导入的自定义数据} DRAWTEXT_FIX(1,0.12,1-0.085,0,MAINBUSINESS)COLOR8000FF;{主营构成} DRAWTEXT_FIX(1,0.05,1-0,0,EXTERNSTR(0,1))COLOR8000FF,NODRAW;{此处引入我们导入的自定义数据} {DRAWNUMBER_FIX(1,0.51,1-0.5,0,CONST(DYNAINFO(15)/100000000)),COLORWHITE;{竞价抢筹} {DRAWNUMBER_FIX(1,0.38,1-0.5,0,CONST(DYNAINFO(96)/100000000)),COLORRED;{前天封单额} {DRAWNUMBER_FIX(1,0.45,1-0.5,0,CONST(DYNAINFO(95)/100000000)),COLORRED;{昨天封单额} {DRAWNUMBER_FIX(1,0.59,1-0.5,0,CONST(DYNAINFO(88)/100000000)),COLORRED;{今天封单额} DRAWTEXT_FIX(1,0.47,0.4,0,'▲'),COLORRED,NODRAW; DRAWNUMBER_FIX(1,0.13,0.51,0,DYNAINFO(60)),COLORRED,NODRAW;{上涨家数} DRAWTEXT_FIX(1,0.52,0.55,0,'▲'),COLORGREEN,NODRAW; DRAWNUMBER_FIX(1,0.22,0.51,0,DYNAINFO(61)),COLORGREEN,NODRAW;{下跌家数} DRAWNUMBER_FIX(1,0.1,0.44,0,DYNAINFO(93)/100000000),COLORMAGENTA,NODRAW;{昨天成交额} {=====================分时K线绘制 ===========================} ISST:=SETCODE<=2 &&BETWEEN(FINANCE(3),1,4);ISZS:=SETCODE<=2 &&FINANCE(3)=0;ISZQ:=SETCODE<=2 && BETWEEN(FINANCE(3),6,7); CBKS:=IF(HQCRBK,'&',''); MKRS:=STRCAT(CBKS,IF(NOT(PERIOD=0 && (ISST||ISZS || ISZQ)),'分时指标仅用于沪深京品种分时图，&其他品种或K线主图请选择其他指标。&','')); ERRS:=IF(STRLEN(MKRS)>0,STRCAT(MKRS,'-----仓鼠指标库'),''); DRAWTEXT_FIX(STRLEN(ERRS)>0,0.4,0.4,0,ERRS),COLORRED;ABORT:=TESTSKIP(STRLEN(ERRS)>0); STV0:='涨停';STV1:='跌停';STV2:='盘中';STV3:='竞开';STV4:='天地板';STV5:='地天板';STV6:='竞价';STV7:='封';STV8:='占昨量 '; STV9:=' 占今量 ';STV10:='冲';STV11:=' 从 ';STV12:='耗资';STV13:='成交';STV14:='板前：';STV15:=' 板后：';STV16:='天板';STV17:='地板';STV18:='炸板'; STV19:='撬板';STV20:='流入';STV21:='流出';STV22:='封单比';STV23:='倍';STV24:='指数';STV25:='昨封单';STV26:='昨今比';STV60:='概况：'; SV01:='安全分：';SV02:='主营：';SV03:='峰值';SV04:='昨开：';SV05:='  均现差：';SV06:='今开：';SV07:='竞价涨停买';SV08:='次';SV09:='日';SV10:='溢价';SV11:='闷杀'; SV12:='昨';SV13:='今';STVZ:='↑';STVD:='↓'; R1O:=DBREFA.R1O#DAY;R1C:=DBREFA.R1C#DAY;R1H:=DBREFA.R1H#DAY;R1L:=DBREFA.R1L#DAY;R1V:=DBREFA.R1V#DAY;R1A:=DBREFA.R1A#DAY; R2O:=DBREFA.R2O#DAY;R2C:=DBREFA.R2C#DAY;R2H:=DBREFA.R2H#DAY;R2L:=DBREFA.R2L#DAY;R2V:=DBREFA.R2V#DAY;R2A:=DBREFA.R2A#DAY; R3O:=DBREFA.R3O#DAY;R3C:=DBREFA.R3C#DAY;R3H:=DBREFA.R3H#DAY;R3L:=DBREFA.R3L#DAY;R3V:=DBREFA.R3V#DAY;R3A:=DBREFA.R3A#DAY; R4O:=DBREFA.R4O#DAY;R4C:=DBREFA.R4C#DAY;R4H:=DBREFA.R4H#DAY;R4L:=DBREFA.R4L#DAY;R4V:=DBREFA.R4V#DAY;R4A:=DBREFA.R4A#DAY; R5O:=DBREFA.R5O#DAY;R5C:=DBREFA.R5C#DAY;R5H:=DBREFA.R5H#DAY;R5L:=DBREFA.R5L#DAY;R5V:=DBREFA.R5V#DAY;R5A:=DBREFA.R5A#DAY; R6O:=DBREFA.R6O#DAY;R6C:=DBREFA.R6C#DAY;R6H:=DBREFA.R6H#DAY;R6L:=DBREFA.R6L#DAY;R6V:=DBREFA.R6V#DAY;R6A:=DBREFA.R6A#DAY; R7C:=DBREFA.R7C#DAY;BCNT:=DBREFB.BCNT#DAY;RHH:=DBREFB.RHH#DAY;RLL:=DBREFB.RLL#DAY;RHV:=DBREFB.RHV#DAY;RHA:=DBREFB.RHA#DAY; ZYJ:=DBREFB.ZYJ#DAY;ZMS:=DBREFB.ZMS#DAY;CZT:=DBREFB.CZT#DAY;CDT:=DBREFB.CDT#DAY;CZB:=DBREFB.CZB#DAY;CQB:=DBREFB.CQB#DAY; RZJ:=BLOCKSETNUM(STRCAT(STRCAT(SV12,SV09),STV0));RDJ:=BLOCKSETNUM(STRCAT(STRCAT(SV12,SV09),STV1)); MA1:=DBREFB.MA5#DAY;MA2:=DBREFB.MA10#DAY;MA3:=DBREFB.MA20#DAY;LC:=CONST(C);RJJ:=IF(R1A>0&& R1V>0,R1A/R1V/100,0); TDC:=IF(ISVALID(DYNAINFO(7)) &&DYNAINFO(7)>0,DYNAINFO(7),IF(CLOSE>0 &&CLOSE<>R1C,CLOSE,R1C));TDO:=IF(ISVALID(DYNAINFO(4)) &&DYNAINFO(4)>0,DYNAINFO(4),IF(TDC>0,TDC,R1C)); TDH:=IF(ISVALID(DYNAINFO(5)) &&DYNAINFO(5)>0,DYNAINFO(5),IF(TDC>0,TDC,R1C));TDL:=IF(ISVALID(DYNAINFO(6))&& DYNAINFO(6)>0,DYNAINFO(6),IF(TDC>0,TDC,R1C)); TDA:=IF(ISVALID(DYNAINFO(10)) &&DYNAINFO(10)>0,DYNAINFO(10),0);TDV:=IF(ISVALID(DYNAINFO(8)) &&DYNAINFO(8)>0,DYNAINFO(8),0); TOA:=IF(ISVALID(DYNAINFO(15)) &&DYNAINFO(15)>0,DYNAINFO(15),0);TOV:=IF(ISVALID(DYNAINFO(15)) &&DYNAINFO(15)>0,DYNAINFO(15)/DYNAINFO(4)/100,0); ROA:=IF(ISVALID(DYNAINFO(30)),DYNAINFO(30)*R1O*100,0);ROV:=IF(ISVALID(DYNAINFO(30)),DYNAINFO(30),0);ZTJ:=DYNAINFO(26);DTJ:=DYNAINFO(27); ZDTF:=(ZTJ-R1C)/R1C*100; ZDTR:=IF(ZDTF<5.1,0.05,IF(ZDTF<10.5,0.1,IF(ZDTF<20.5,0.2,0.3))); SHKP:=IF(CHART=1 || CHART=2 || CHART=4 ||CHART=5,1,0); SHKC:=IF(SHKP && CHART<4 &&ISST,1,0); SHKZ:=IF(SHKP && CHART<4 &&ISZQ,1,0); BARSX:=CONST(IF(TIME>1400 &&TIME<1458 && COUNT(TIME>1350 && C<>ZTJ &&C<>DTJ,-1)>1,80,780)); BARSY:=560; BARSW:=22+宽度*2; BARSH:=360;BVOLH:=100; SBDX:=380;SBDW:=240; SBDH:=12; JJCY:=BARSY+BVOLH+99; BACY:=JJCY+48; IF(LINE=1 || LINE=2 &&TDO>0,TDO,DRAWNULL),POINTDOT, COLORFF8080;{开盘虚线} DRAWTEXT(TDO>0 && TIME=930 &&(LINE=1 || LINE=2),IF(TDV>0,TDO,DRAWNULL),'开')DRAWABOVE,COLOR8000FF;{开盘} R0S:=IF(TDH=ZTPRICE(R1C,ZDTR) &&TDL=DTPRICE(R1C,ZDTR),3,IF(TDH=ZTPRICE(R1C,ZDTR),2,IF(TDL=DTPRICE(R1C,ZDTR),1,0))); R1S:=IF(R1H=ZTPRICE(R2C,ZDTR) &&R1L=DTPRICE(R2C,ZDTR),3,IF(R1H=ZTPRICE(R2C,ZDTR),2,IF(R1L=DTPRICE(R2C,ZDTR),1,0))); R2S:=IF(R2H=ZTPRICE(R3C,ZDTR) &&R2L=DTPRICE(R3C,ZDTR),3,IF(R2H=ZTPRICE(R3C,ZDTR),2,IF(R2L=DTPRICE(R3C,ZDTR),1,0))); R3S:=IF(R3H=ZTPRICE(R4C,ZDTR) &&R3L=DTPRICE(R4C,ZDTR),3,IF(R3H=ZTPRICE(R4C,ZDTR),2,IF(R3L=DTPRICE(R4C,ZDTR),1,0))); R4S:=IF(R4H=ZTPRICE(R5C,ZDTR) &&R4L=DTPRICE(R5C,ZDTR),3,IF(R4H=ZTPRICE(R5C,ZDTR),2,IF(R4L=DTPRICE(R5C,ZDTR),1,0))); R5S:=IF(R5H=ZTPRICE(R6C,ZDTR) &&R5L=DTPRICE(R6C,ZDTR),3,IF(R5H=ZTPRICE(R6C,ZDTR),2,IF(R5L=DTPRICE(R6C,ZDTR),1,0))); R6S:=IF(R6H=ZTPRICE(R7C,ZDTR) &&R6L=DTPRICE(R7C,ZDTR),3,IF(R6H=ZTPRICE(R7C,ZDTR),2,IF(R6L=DTPRICE(R7C,ZDTR),1,0))); MLP:=IF(ISVALID(RLL),MIN(TDL,RLL),TDL);MHP:=IF(ISVALID(RHH),MAX(TDH,RHH),TDH);MVP:=IF(ISVALID(RHV),MAX(TDV,RHV),TDV);MAP:=IF(ISVALID(RHA),MAX(TDA,RHA),TDA); HLD:=BARSH/(MHP-MLP);MVD:=BVOLH/MVP;TBCX:=500;TBCW:=488;TBCH:=16;TT:=IF(FROMOPEN=0,0,IF(HOUR>=13,HOUR-11,HOUR-9.5)*60+MINUTE+1); FZZ:=IF(TT=0,R1C,EMA(FORCAST(CLOSE,IF(TT>55,55,TT)),21))YZ:=IF(FZZ>ZTJ,ZTJ,IF(FZZ<DTJ,DTJ,FZZ))YBZ:=CONST(TDL+(TDH-TDL)/3)YZC:=EMA(IF(CLOSE>=PYZ,PYBZ+(CLOSE-PYZ),PYBZ-(PYZ-CLOSE)),5); ROAV:=IF(SHKC &&BCNT>=2,STRCAT6(SV04,FINANCE(46)*10000,'',IF(ROA>10000000,STRCAT(VAR2STR(ROA/100000000,3),'E'),STRCAT(VAR2STR(ROA/10000,1),'W')),'(',STRCAT(IF(ROV>1000,STRCAT(VAR2STR(ROV/FINANCE(46)*10000,2),'%'),STRCAT(VAR2STR(ROV,0),'S')),')&')),''); JJAV:=STRCAT6(STV6,'：',IF(TOA>10000000,STRCAT(VAR2STR(TOA/100000000,3),'E'),STRCAT(VAR2STR(TOA/10000,1),'W')),'/ ',STRCAT(STV26,'：'),IF(ROA<=TOA,STRCAT('1 :',CON2STR(TOA/ROA,2)),STRCAT(CON2STR(ROA/TOA,2),' : 1'))); TOAV:=IF(DYNAINFO(4)=0,JJAV,STRCAT6(SV06,FINANCE(46)*10000,'',IF(TOA>10000000,STRCAT(VAR2STR(TOA/100000000,3),'E'),STRCAT(VAR2STR(TOA/10000,1),'W')),'(',STRCAT(IF(TOV>1000,STRCAT(VAR2STR(TOV/FINANCE(46)*10000,2),'%'),STRCAT(VAR2STR(TOV,0),'S')),')'))); JJUA:=IF(SHKC,CONST(SUM(IF(C>ZSTJJ ||(REF(C,1)>ZSTJJ && C=ZSTJJ) || (ZSTJJ=ZTJ &&C=ZTJ),AMO,0),0)),0); JJDA:=IF(SHKC,CONST(SUM(IF(C<ZSTJJ ||(REF(C,1)<ZSTJJ && C=ZSTJJ) || (ZSTJJ=DTJ &&C=DTJ),AMO,0),0)),0); CAVL:=IF(SHKC,IF(TT<=15,R1V/240*1.5,SUM(IF(TIME>945,V,R1V/240*1.5),0)/TT),0); CAVB:=IF(SHKC,CONST(SUM(IF(V>CAVL*1.382&& (C=DTJ || (TIME=930 && C>=TDO) || C>REF(C,1) ||(C=REF(C,1) && C>REF(C,BARSLAST(C<>REF(C,1))))),AMO,0),0)),0); CAVS:=IF(SHKC,CONST(SUM(IF(V>CAVL*1.382&& (C=ZTJ || (TIME=930 && C<=TDO) || C<REF(C,1) ||(C=REF(C,1) && C<REF(C,BARSLAST(C<>REF(C,1))))),AMO,0),0)),0); AMCU:=CAVB-CAVS;T930:=CONST(BARSLAST(TIME=930));TRVR:=STRCAT('&',VAR2STR(TDV/R1V,2)); EXZT:=CONST(ISVALID(BARSSINCE(C=ZTJ)));EXDT:=CONST(ISVALID(BARSSINCE(C=DTJ))); ZDTS:=IF(NOT(CHART=1 || CHART=3 ||CHART=5),0,IF(TDO=ZTJ && EXDT,3,IF(TDO=DTJ &&EXZT,-3,IF(TDO=ZTJ,2,IF(TDO=DTJ,-2,IF(EXZT &&EXDT,IF(CONST(BARSSINCE(C=ZTJ))>CONST(BARSSINCE(C=DTJ)),4,-4),IF(EXZT,1,IF(EXDT,-1,0)))))))); FBLX:=IF(ZDTS=0,'',IF(ABS(ZDTS)=1,STRCAT(STV2,IF(ZDTS>0,STV0,STV1)),IF(ABS(ZDTS)=2,STRCAT(STV3,IF(ZDTS>0,STV0,STV1)),STRCAT(STRCAT(IF(ZDTS=3,STV3,STV2),IF(ZDTS>0,STV0,STV1)),IF(ZDTS>0,STV4,STV5))))); SFBT:=IF(ZDTS=0,-1,IF(INTPART(ABS(ZDTS)/2)=1,925,CONST(REF(TIME,BARSSINCE(C=ZTJ|| C=DTJ))))); FBCT:=IF(SFBT>930,IF(ZDTS=1 ||ZDTS=4,CONST(REF(TIME,IF(ISVALID(BARSLAST(TIME<SFBT &&C<REF(C,1))),BARSLAST(TIME<SFBT &&C<REF(C,1)),T930))),IF(ZDTS=-1 ||ZDTS=-4,CONST(REF(TIME,IF(ISVALID(BARSLAST(TIME<SFBT && C>REF(C,1))),BARSLAST(TIME<SFBT&& C>REF(C,1)),T930))),SFBT)),SFBT); FBCC:=IF(ZDTS=0,0,IF(FBCT=930,TDO,CONST(REF(C,BARSLAST(TIME=FBCT))))); DTET:=IF(ABS(ZDTS)<3,0,CONST(REF(TIME,CONST(BARSSINCE(TIME>SFBT&& IF(ZDTS>0,C=DTJ,C=ZTJ)))))); DTEN:=CONST(BARSLAST(TIME=DTET)+1); DTSN:=IF(ZDTS>0,BARSLAST(CURRBARSCOUNT>DTEN&& C=ZTJ),BARSLAST(CURRBARSCOUNT>DTEN && C=DTJ)); DTST:=IF(ZDTS>=3,IF(ZDTS=3 &&CONST(COUNT(C=ZTJ &&CURRBARSCOUNT>DTEN,0))=0,930,CONST(REF(TIME,BARSLAST(CURRBARSCOUNT>DTEN&& C=ZTJ)))),IF(ZDTS<=-3,IF(ZDTS=-3 && CONST(COUNT(C=DTJ&& CURRBARSCOUNT>DTEN,0))=0,930,CONST(REF(TIME,BARSLAST(CURRBARSCOUNT>DTEN&& C=DTJ)))),0)); DTSE:=IF(ABS(ZDTS)<3,'',STRCAT(STRCAT(STRCAT(VAR2STR(INTPART(DTST/100),0),':'),STRCAT(IF(MOD(DTST,100)<10,'0',''),VAR2STR(MOD(DTST,100),0))),STRCAT('-',STRCAT(STRCAT(VAR2STR(INTPART(DTET/100),0),':'),STRCAT(IF(MOD(DTET,100)<10,'0',''),VAR2STR(MOD(DTET,100),0)))))); CJBV:=IF(SFBT=-1,0,IF(SFBT=925,TOV,IF(SFBT=930,CONST(REF(V,T930)),CONST(SUM(IF(TIME<=SFBT&& TIME>=FBCT,V,0),0))))); CJBA:=IF(SFBT=-1,0,IF(SFBT=925,TOA,IF(SFBT=930,CONST(REF(AMO,T930)),CONST(SUM(IF(TIME<=SFBT&& TIME>=FBCT,AMO,0),0))))); CJB0:=IF(CJBV>0,STRCAT(STRCAT(STRCAT(STV12,''),IF(CJBA>=10000000,STRCAT(VAR2STR(CJBA/100000000,2),'E'),STRCAT(VAR2STR(CJBA/10000,0),'W '))),STRCAT(STRCAT(STV13,''),IF(CJBV>=10000,STRCAT(VAR2STR(CJBV/10000,2),'WS'),STRCAT(VAR2STR(CJBV,0),'S ')))),''); CJB1:=IF(CJBV>0,STRCAT(STRCAT(STRCAT(STRCAT(VAR2STR(INTPART(FBCT/100),0),':'),STRCAT(IF(MOD(FBCT,100)<10,'0',''),VAR2STR(MOD(FBCT,100),0))),STV11),STRCAT(VAR2STR(FBCC,2),STRCAT('(',STRCAT(VAR2STR((FBCC-R1C)/R1C*100,2),'%)')))),''); CJBS:=IF(ZDTS=0,'',IF(BETWEEN(ABS(ZDTS),2,3),STRCAT(STRCAT(STV6,''),STRCAT(STRCAT(CJB0,''),STRCAT(STV7,IF(ZDTS>0,STV0,STV1)))),STRCAT(CJB1,STRCAT(CJB0,STRCAT(STV10,IF(ZDTS>0,STV0,STV1)))))); TDTV:=IF(ABS(ZDTS)<3,0,CONST(SUM(IF(BETWEEN(TIME,DTST,DTET),V,0),0))); TDTA:=IF(ABS(ZDTS)<3,0,CONST(SUM(IF(BETWEEN(TIME,DTST,DTET),AMO,0),0))); TDT0:=IF(TDTV>0,STRCAT(IF(TDTA>=10000000,STRCAT(VAR2STR(TDTA/100000000,2),'E( '),STRCAT(VAR2STR(TDTA/10000,2),'W (')),IF(TDTV>=10000,STRCAT(VAR2STR(TDTV/10000,2),'WS)'),STRCAT(VAR2STR(TDTV,0),'S )'))),''); TDTS:=IF(ZDTS=0,'',STRCAT(TDT0,STRCAT(STV9,STRCAT(VAR2STR(TDTV/TDV*100,2),'%')))); FBQV:=IF(ZDTS=0,0,IF(SFBT=925,TOV,CONST(SUM(IF(TIME<=SFBT,V,0),0)))); FBQA:=IF(ZDTS=0,0,IF(SFBT=925,TOA,CONST(SUM(IF(TIME<=SFBT,AMO,0),0)))); FBQS:=IF(ZDTS=0,'',STRCAT(IF(FBQA>=10000000,STRCAT(VAR2STR(FBQA/100000000,2),'E'),STRCAT(VAR2STR(FBQA/10000,0),'W')),STRCAT('',STRCAT(VAR2STR(FBQV/TDV*100,2),'%')))); ZBQV:=IF(ABS(ZDTS)<3,0,CONST(SUM(IF(TIME<=DTET,V,0),0))); ZBQA:=IF(ABS(ZDTS)<3,0,CONST(SUM(IF(TIME<=DTET,AMO,0),0))); ZBQS:=IF(ABS(ZDTS)<3,0,STRCAT(IF(ZBQA>=10000000,STRCAT(VAR2STR(ZBQA/100000000,2),'E'),STRCAT(VAR2STR(ZBQA/10000,0),'W')),STRCAT('',STRCAT(VAR2STR(ZBQV/TDV*100,2),'%')))); FBHV:=IF(ZDTS=0,0,IF(SFBT=925,TDV-TOV,CONST(SUM(IF(TIME>SFBT,V,0),0)))); FBHA:=IF(ZDTS=0,0,IF(SFBT=925,TDA-TOA,CONST(SUM(IF(TIME>SFBT,AMO,0),0)))); FBHS:=IF(ZDTS=0,'',STRCAT(IF(FBHA>=10000000,STRCAT(VAR2STR(FBHA/100000000,2),'E'),STRCAT(VAR2STR(FBHA/10000,0),'W ')),STRCAT('',STRCAT(VAR2STR(FBHV/TDV*100,2),'%')))); ZACV:=IF(ZDTS=0,0,CONST(SUM(IF(IF(ZDTS>0,C<ZTJ,C>DTJ)&& TIME>SFBT,V,0),0))); ZACA:=IF(ZDTS=0,0,CONST(SUM(IF(IF(ZDTS>0,C<ZTJ,C>DTJ)&& TIME>SFBT,AMO,0),0))); ZACS:=IF(ZDTS=0,'',STRCAT(IF(ZACA>=10000000,STRCAT(VAR2STR(ZACA/100000000,2),'E'),STRCAT(VAR2STR(ZACA/10000,2),'W ')),STRCAT('',STRCAT(VAR2STR(ZACV/TDV*100,2),'%&')))); ZBHV:=IF(ABS(ZDTS)<3,0,CONST(SUM(IF(TIME>DTET,V,0),0))); ZBHA:=IF(ABS(ZDTS)<3,0,CONST(SUM(IF(TIME>DTET,AMO,0),0))); ZBHS:=IF(ABS(ZDTS)<3,0,STRCAT(IF(ZBHA>=10000000,STRCAT(VAR2STR(ZBHA/100000000,2),'E'),STRCAT(VAR2STR(ZBHA/10000,0),'W')),STRCAT('',STRCAT(VAR2STR(ZBHV/TDV*100,2),'%')))); ZBZV:=IF(ABS(ZDTS)<3,0,CONST(SUM(IF(IF(ZDTS>0,C>DTJ,C<ZTJ)&& TIME>DTET,V,0),0))); ZBZA:=IF(ABS(ZDTS)<3,0,CONST(SUM(IF(IF(ZDTS>0,C>DTJ,C<ZTJ)&& TIME>DTET,AMO,0),0))); ZBZS:=IF(ABS(ZDTS)<3,'',STRCAT(IF(ZBZA>=10000000,STRCAT(VAR2STR(ZBZA/100000000,2),'E'),STRCAT(VAR2STR(ZBZA/10000,2),'W ')),STRCAT('',STRCAT(VAR2STR(ZBZV/TDV*100,2),'%&')))); FZDA:=IF(DYNAINFO(20)=ZTJ,DYNAINFO(58)*DYNAINFO(20)*100,IF(DYNAINFO(21)=DTJ,DYNAINFO(59)*DYNAINFO(21)*100,0)); FZDV:=IF(DYNAINFO(20)=ZTJ,DYNAINFO(58),IF(DYNAINFO(21)=DTJ,DYNAINFO(59),0)); FZD0:=IF(FZDV=0,'',STRCAT(STRCAT(STV22,STRCAT(STV14,'')),STRCAT(STRCAT(IF(FZDV>=IF(ABS(ZDTS)<3,FBQV,ZBQV),VAR2STR(FZDV/IF(ABS(ZDTS)<3,FBQV,ZBQV),2),VAR2STR(FZDV/IF(ABS(ZDTS)<3,FBQV,ZBQV)*100,2)),IF(FZDV>=IF(ABS(ZDTS)<3,FBQV,ZBQV),STRCAT(STV23,'| '),'% | ')),STRCAT(STRCAT(STV15,''),STRCAT(IF(FZDV>=IF(ABS(ZDTS)<3,FBHV,ZBHV),VAR2STR(FZDV/IF(ABS(ZDTS)<3,FBHV,ZBHV),2),VAR2STR(FZDV/IF(ABS(ZDTS)<3,FBHV,ZBHV)*100,2)),IF(FZDV>=IF(ABS(ZDTS)<3,FBHV,ZBHV),STRCAT(STV23,''),'% ')))))); FZD1:=IF(FZDV=0,'',STRCAT(STRCAT(STV8,IF(FZDV>=R1V,STRCAT(VAR2STR(FZDV/R1V,2),STRCAT(STV23,'')),STRCAT(VAR2STR(FZDV/R1V*100,2),'%'))),STRCAT(STV9,IF(FZDV>=R1V,STRCAT(VAR2STR(FZDV/TDV,2),STV23),STRCAT(VAR2STR(FZDV/TDV*100,2),'%'))))); TBCY:=IF(ABS(ZDTS)>2,999-TBCH*2,999); {-------------绘制K线----------------} DRAWRECTREL(IF(SHKP &&BCNT>=2,BARSX+BARSW*5+10,DRAWNULL),IF(SHKP &&BCNT>=2,BARSY-(IF(R1O<R1C,R1O,R1C)-MLP)*HLD,DRAWNULL),IF(SHKP &&BCNT>=2,BARSX+BARSW*5,DRAWNULL),IF(SHKP &&BCNT>=2,BARSY-(IF(R1O<R1C,R1C,R1O)-MLP)*HLD,DRAWNULL),RGB(IF(R1O<R1C,186,IF(R1O>R1C,0,118)),IF(R1O<R1C,0,IF(R1O>R1C,185,118)),IF(R1O=R1C,118,0)))  ;{{---------画K线} DRAWRECTREL(IF(SHKP &&BCNT>=2,BARSX+BARSW*5+5,DRAWNULL),IF(SHKP &&BCNT>=2,BARSY-(R1L-MLP)*HLD,DRAWNULL),IF(SHKP &&BCNT>=2,BARSX+BARSW*5+5,DRAWNULL),IF(SHKP &&BCNT>=2,BARSY-(R1H-MLP)*HLD,DRAWNULL),RGB(IF(R1S>=2,255,IF(R1O<R1C,186,IF(R1O>R1C,0,118))),IF(BETWEEN(R1S,1,2),255,IF(R1O>=R1C,IF(R1O>R1C,185,118),0)),IF(R1S=1|| R1S=3,255,IF(R1O=R1C,118,0)))) ;{{---------画K线} DRAWRECTREL(IF(SHKP &&BCNT>=3,BARSX+BARSW*4+10,DRAWNULL),IF(SHKP &&BCNT>=3,BARSY-(IF(R2O<R2C,R2O,R2C)-MLP)*HLD,DRAWNULL),IF(SHKP &&BCNT>=3,BARSX+BARSW*4,DRAWNULL),IF(SHKP &&BCNT>=3,BARSY-(IF(R2O<R2C,R2C,R2O)-MLP)*HLD,DRAWNULL),RGB(IF(R2O<R2C,186,IF(R2O>R2C,0,118)),IF(R2O<R2C,0,IF(R2O>R2C,185,118)),IF(R2O=R2C,118,0))); DRAWRECTREL(IF(SHKP &&BCNT>=3,BARSX+BARSW*4+5,DRAWNULL),IF(SHKP &&BCNT>=3,BARSY-(R2L-MLP)*HLD,DRAWNULL),IF(SHKP &&BCNT>=3,BARSX+BARSW*4+5,DRAWNULL),IF(SHKP &&BCNT>=3,BARSY-(R2H-MLP)*HLD,DRAWNULL),RGB(IF(R2S>=2,255,IF(R2O<R2C,186,IF(R2O>R2C,0,118))),IF(BETWEEN(R2S,1,2),255,IF(R2O>=R2C,IF(R2O>R2C,185,118),0)),IF(R2S=1|| R2S=3,255,IF(R2O=R2C,118,0)))); DRAWRECTREL(IF(SHKP &&BCNT>=4,BARSX+BARSW*3+10,DRAWNULL),IF(SHKP &&BCNT>=4,BARSY-(IF(R3O<R3C,R3O,R3C)-MLP)*HLD,DRAWNULL),IF(SHKP &&BCNT>=4,BARSX+BARSW*3,DRAWNULL),IF(SHKP &&BCNT>=4,BARSY-(IF(R3O<R3C,R3C,R3O)-MLP)*HLD,DRAWNULL),RGB(IF(R3O<R3C,186,IF(R3O>R3C,0,118)),IF(R3O<R3C,0,IF(R3O>R3C,185,118)),IF(R3O=R3C,118,0))); DRAWRECTREL(IF(SHKP &&BCNT>=4,BARSX+BARSW*3+5,DRAWNULL),IF(SHKP &&BCNT>=4,BARSY-(R3L-MLP)*HLD,DRAWNULL),IF(SHKP &&BCNT>=4,BARSX+BARSW*3+5,DRAWNULL),IF(SHKP &&BCNT>=4,BARSY-(R3H-MLP)*HLD,DRAWNULL),RGB(IF(R3S>=2,255,IF(R3O<R3C,186,IF(R3O>R3C,0,118))),IF(BETWEEN(R3S,1,2),255,IF(R3O>=R3C,IF(R3O>R3C,185,118),0)),IF(R3S=1|| R3S=3,255,IF(R3O=R3C,118,0)))); DRAWRECTREL(IF(SHKP &&BCNT>=5,BARSX+BARSW*2+10,DRAWNULL),IF(SHKP &&BCNT>=5,BARSY-(IF(R4O<R4C,R4O,R4C)-MLP)*HLD,DRAWNULL),IF(SHKP &&BCNT>=5,BARSX+BARSW*2,DRAWNULL),IF(SHKP &&BCNT>=5,BARSY-(IF(R4O<R4C,R4C,R4O)-MLP)*HLD,DRAWNULL),RGB(IF(R4O<R4C,186,IF(R4O>R4C,0,118)),IF(R4O<R4C,0,IF(R4O>R4C,185,118)),IF(R4O=R4C,118,0))); DRAWRECTREL(IF(SHKP &&BCNT>=5,BARSX+BARSW*2+5,DRAWNULL),IF(SHKP &&BCNT>=5,BARSY-(R4L-MLP)*HLD,DRAWNULL),IF(SHKP &&BCNT>=5,BARSX+BARSW*2+5,DRAWNULL),IF(SHKP &&BCNT>=5,BARSY-(R4H-MLP)*HLD,DRAWNULL),RGB(IF(R4S>=2,255,IF(R4O<R4C,186,IF(R4O>R4C,0,118))),IF(BETWEEN(R4S,1,2),255,IF(R4O>=R4C,IF(R4O>R4C,185,118),0)),IF(R4S=1|| R4S=3,255,IF(R4O=R4C,118,0)))); DRAWRECTREL(IF(SHKP &&BCNT>=6,BARSX+BARSW*1+10,DRAWNULL),IF(SHKP &&BCNT>=6,BARSY-(IF(R5O<R5C,R5O,R5C)-MLP)*HLD,DRAWNULL),IF(SHKP &&BCNT>=6,BARSX+BARSW*1,DRAWNULL),IF(SHKP &&BCNT>=6,BARSY-(IF(R5O<R5C,R5C,R5O)-MLP)*HLD,DRAWNULL),RGB(IF(R5O<R5C,186,IF(R5O>R5C,0,118)),IF(R5O<R5C,0,IF(R5O>R5C,185,118)),IF(R5O=R5C,118,0))); DRAWRECTREL(IF(SHKP &&BCNT>=6,BARSX+BARSW*1+5,DRAWNULL),IF(SHKP &&BCNT>=6,BARSY-(R5L-MLP)*HLD,DRAWNULL),IF(SHKP &&BCNT>=6,BARSX+BARSW*1+5,DRAWNULL),IF(SHKP &&BCNT>=6,BARSY-(R5H-MLP)*HLD,DRAWNULL),RGB(IF(R5S>=2,255,IF(R5O<R5C,186,IF(R5O>R5C,0,118))),IF(BETWEEN(R5S,1,2),255,IF(R5O>=R5C,IF(R5O>R5C,185,118),0)),IF(R5S=1|| R5S=3,255,IF(R5O=R5C,118,0)))); DRAWRECTREL(IF(SHKP &&BCNT>=7,BARSX+10,DRAWNULL),IF(SHKP &&BCNT>=7,BARSY-(IF(R6O<R6C,R6O,R6C)-MLP)*HLD,DRAWNULL),IF(SHKP &&BCNT>=7,BARSX,DRAWNULL),IF(SHKP &&BCNT>=7,BARSY-(IF(R6O<R6C,R6C,R6O)-MLP)*HLD,DRAWNULL),RGB(IF(R6O<R6C,186,IF(R6O>R6C,0,118)),IF(R6O<R6C,0,IF(R6O>R6C,185,118)),IF(R6O=R6C,118,0))); DRAWRECTREL(IF(SHKP &&BCNT>=7,BARSX+5,DRAWNULL),IF(SHKP &&BCNT>=7,BARSY-(R6L-MLP)*HLD,DRAWNULL),IF(SHKP &&BCNT>=7,BARSX+BARSW*0+5,DRAWNULL),IF(SHKP &&BCNT>=7,BARSY-(R6H-MLP)*HLD,DRAWNULL),RGB(IF(R6S>=2,255,IF(R6O<R6C,186,IF(R6O>R6C,0,118))),IF(BETWEEN(R6S,1,2),255,IF(R6O>=R6C,IF(R6O>R6C,185,118),0)),IF(R6S=1|| R6S=3,255,IF(R6O=R6C,118,0)))); DRAWRECTREL(IF(SHKP,BARSX+BARSW*6+10,DRAWNULL),IF(SHKP,BARSY-(TDC-MLP)*HLD,DRAWNULL),IF(SHKP,BARSX,DRAWNULL),IF(SHKP,BARSY-(TDC-MLP)*HLD,DRAWNULL),RGB(119,119,0)); DRAWRECTREL(IF(SHKP,BARSX+BARSW*6+10,DRAWNULL),IF(SHKP,BARSY-(IF(TDO<TDC,TDO,TDC)-MLP)*HLD,DRAWNULL),IF(SHKP,BARSX+BARSW*6,DRAWNULL),IF(SHKP,BARSY-(IF(TDO<TDC,TDC,TDO)-MLP)*HLD,DRAWNULL),RGB(IF(TDO<TDC,186,IF(TDO>TDC,0,118)),IF(TDO<TDC,0,IF(TDO>TDC,185,118)),IF(TDO=TDC,118,0))); DRAWRECTREL(IF(SHKP,BARSX+BARSW*6+5,DRAWNULL),IF(SHKP,BARSY-(TDL-MLP)*HLD,DRAWNULL),IF(SHKP,BARSX+BARSW*6+5,DRAWNULL),IF(SHKP,BARSY-(TDH-MLP)*HLD,DRAWNULL),RGB(IF(R0S>=2,255,IF(TDO<TDC,186,IF(TDO>TDC,0,118))),IF(BETWEEN(R0S,1,2),255,IF(TDO>=TDC,IF(TDO>TDC,185,118),0)),IF(R0S=1|| R0S=3,255,IF(TDO=TDC,118,0)))); {--------------绘制成交量----------------} DRAWRECTREL(IF(SHKP &&BCNT>=2,BARSX+BARSW*5+10,DRAWNULL),IF(SHKP &&BCNT>=2,BARSY+BVOLH+40,DRAWNULL),IF(SHKP &&BCNT>=2,BARSX+BARSW*5,DRAWNULL),IF(SHKP &&BCNT>=2,BARSY+BVOLH+40-R1V*MVD,DRAWNULL),RGB(IF(R1O<R1C,132,IF(R1O>R1C,0,55)),IF(R1O<R1C,0,IF(R1O>R1C,132,55)),IF(R1C=R1O,55,0)));{{---------画成交量6} DRAWRECTREL(IF(SHKP &&BCNT>=3,BARSX+BARSW*4+10,DRAWNULL),IF(SHKP &&BCNT>=3,BARSY+BVOLH+40,DRAWNULL),IF(SHKP &&BCNT>=3,BARSX+BARSW*4,DRAWNULL),IF(SHKP &&BCNT>=3,BARSY+BVOLH+40-R2V*MVD,DRAWNULL),RGB(IF(R2O<R2C,132,IF(R2O>R2C,0,55)),IF(R2O<R2C,0,IF(R2O>R2C,132,55)),IF(R2C=R2O,55,0))); DRAWRECTREL(IF(SHKP &&BCNT>=4,BARSX+BARSW*3+10,DRAWNULL),IF(SHKP &&BCNT>=4,BARSY+BVOLH+40,DRAWNULL),IF(SHKP &&BCNT>=4,BARSX+BARSW*3,DRAWNULL),IF(SHKP &&BCNT>=4,BARSY+BVOLH+40-R3V*MVD,DRAWNULL),RGB(IF(R3O<R3C,132,IF(R3O>R3C,0,55)),IF(R3O<R3C,0,IF(R3O>R3C,132,55)),IF(R3C=R3O,55,0))); DRAWRECTREL(IF(SHKP &&BCNT>=5,BARSX+BARSW*2+10,DRAWNULL),IF(SHKP &&BCNT>=5,BARSY+BVOLH+40,DRAWNULL),IF(SHKP &&BCNT>=5,BARSX+BARSW*2,DRAWNULL),IF(SHKP &&BCNT>=5,BARSY+BVOLH+40-R4V*MVD,DRAWNULL),RGB(IF(R4O<R4C,132,IF(R4O>R4C,0,55)),IF(R4O<R4C,0,IF(R4O>R4C,132,55)),IF(R4C=R4O,55,0))); DRAWRECTREL(IF(SHKP &&BCNT>=6,BARSX+BARSW*1+10,DRAWNULL),IF(SHKP &&BCNT>=6,BARSY+BVOLH+40,DRAWNULL),IF(SHKP &&BCNT>=6,BARSX+BARSW*1,DRAWNULL),IF(SHKP &&BCNT>=6,BARSY+BVOLH+40-R5V*MVD,DRAWNULL),RGB(IF(R5O<R5C,132,IF(R5O>R5C,0,55)),IF(R5O<R5C,0,IF(R5O>R5C,132,55)),IF(R5C=R5O,55,0))); DRAWRECTREL(IF(SHKP &&BCNT>=7,BARSX+10,DRAWNULL),IF(SHKP &&BCNT>=7,BARSY+BVOLH+40,DRAWNULL),IF(SHKP &&BCNT>=7,BARSX,DRAWNULL),IF(SHKP &&BCNT>=7,BARSY+BVOLH+40-R6V*MVD,DRAWNULL),RGB(IF(R6O<R6C,132,IF(R6O>R6C,0,55)),IF(R6O<R6C,0,IF(R6O>R6C,132,55)),IF(R6C=R6O,55,0)));{{成交量1} DRAWRECTREL(IF(SHKP,BARSX+BARSW*6+10,DRAWNULL),IF(SHKP,BARSY+BVOLH+40-TDV*MVD,DRAWNULL),IF(SHKP,BARSX,DRAWNULL),IF(SHKP,BARSY+BVOLH+40-TDV*MVD,DRAWNULL),RGB(99,99,99)); DRAWTEXT_FIX(SHKP,BARSX/1000,(BARSY+15)/1000,0,STRCAT(SV03,STRCAT(VAR2STR(IF(CODELIKE('11')|| CODELIKE('12'),MVP/FINANCE(7)*1000,MVP/FINANCE(46)*10000),2),STRCAT('% (',STRCAT(VAR2STR(MAP/100000000,2),'E )'))))),COLORFF8000,NODRAW;{最大} DRAWRECTREL(IF(SHKP,BARSX+BARSW*6+10,DRAWNULL),IF(SHKP,BARSY+BVOLH+40,DRAWNULL),IF(SHKP,BARSX+BARSW*6,DRAWNULL),IF(SHKP,BARSY+BVOLH+40-TDV*MVD,DRAWNULL),RGB(IF(TDO<TDC,132,IF(TDO>TDC,0,55)),IF(TDO<TDC,0,IF(TDO>TDC,132,55)),IF(TDC=TDO,55,0))); DRAWRECTREL(IF(SHKP &&ZDTS<>0,BARSX+BARSW*6+8,DRAWNULL),IF(SHKP &&ZDTS<>0,BARSY+BVOLH+40,DRAWNULL),IF(SHKP &&ZDTS<>0,BARSX+BARSW*6+2,DRAWNULL),IF(SHKP &&ZDTS<>0,BARSY+BVOLH+40-IF(ABS(ZDTS)<3,FBQV,ZBQV)*MVD,DRAWNULL),RGB(IF(ABS(ZDTS)<3,213,253),IF(ABS(ZDTS)<3,213,54),IF(ABS(ZDTS)<3,0,213))); DRAWTEXT_FIX(SHKP,(BARSX+BARSW*6+15)/1000,(BARSY+BVOLH+24-TDV*MVD)/1000,0,STRCAT(STRCAT(VAR2STR(IF(CODELIKE('11')||CODELIKE('12'),TDV/FINANCE(7)*1000,TDV/FINANCE(46)*10000),2),'%'),IF(TIME>1457,TRVR,''))),COLORDC01A6;{换手率} DRAWTEXT_FIX(SHKP,BARSX/1000,(BARSY+0)/1000,0,STRCAT(SV03,STRCAT(VAR2STR(IF(CODELIKE('11')|| CODELIKE('12'),MVP/FINANCE(7)*1000,MVP/FINANCE(46)*10000),2),STRCAT('%   ',STRCAT(VAR2STR(MAP/100000000,2),'E'))))),COLORYELLOW;{7天最大成交额} {-------------------竞价额------------------------} DRAWTEXT_FIX(SHKP,(BARSX+BARSW*6+62)/1000,(BARSY-BARSH/2-58)/1000,1,STRCAT(VAR2STR((TDH-R1C)/R1C*100,2),'%')),COLORRED,NODRAW; DRAWTEXT_FIX(SHKP,(BARSX+BARSW*6+62)/1000,(BARSY-BARSH/2-10)/1000,1,STRCAT(VAR2STR((TDO-R1C)/R1C*100,2),'%')),COLORLIGRAY,NODRAW; DRAWTEXT_FIX(SHKP,(BARSX+BARSW*6+62)/1000,(BARSY-BARSH/2+38)/1000,1,STRCAT(VAR2STR((TDL-R1C)/R1C*100,2),'%')),COLORGREEN,NODRAW; DRAWRECTREL(IF(SHKC &&TDV>0,BARSX+(BARSW*6+10)*IF(JJUA=0 &&JJDA=0,0.5,JJUA/(JJUA+JJDA)),DRAWNULL),IF(SHKC &&TDV>0,JJCY+15,DRAWNULL),IF(SHKC && TDV>0,BARSX,DRAWNULL),IF(SHKC&& TDV>0,JJCY,DRAWNULL),RGB(200,100,10)),NODRAW; {竞价柱} DRAWRECTREL(IF(SHKC &&TDV>0,BARSX+(BARSW*6+10),DRAWNULL),IF(SHKC &&TDV>0,JJCY+15,DRAWNULL),IF(SHKC &&TDV>0,BARSX+(BARSW*6+10)*IF(JJUA=0 &&JJDA=0,0.5,JJUA/(JJUA+JJDA)),DRAWNULL),IF(SHKC && TDV>0,JJCY,DRAWNULL),RGB(0,137,196)),NODRAW;{竞价柱} DRAWTEXT_FIX(SHKP &&ISST,BARSX/1000,(BARSY+BVOLH+43)/1000,0,STRCAT(ROAV,TOAV)),COLORA8C600 ;{竞价数据} {---------------涨跌家数-----------------} DRAWRECTREL(IF(INFO>0,510+IF((DYNAINFO(60)+DYNAINFO(61))>0,80*(DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61))),40),DRAWNULL),IF(INFO>0,1000,DRAWNULL),IF(INFO>0,510,DRAWNULL),IF(INFO>0,980,DRAWNULL),RGB(255,52,17)); DRAWRECTREL(IF(INFO>0,590,DRAWNULL),IF(INFO>0,1000,DRAWNULL),IF(INFO>0,510+IF((DYNAINFO(60)+DYNAINFO(61))>0,80*(DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61))),40),DRAWNULL),IF(INFO>0,980,DRAWNULL),RGB(22,167,58)); DRAWTEXT_FIX(INFO>0,0.54,0.93,1,VAR2STR(DYNAINFO(60),0)),COLORRED;{上涨家数} DRAWTEXT_FIX(INFO>0,0.56,0.93,0,VAR2STR(DYNAINFO(61),0)),COLORGREEN;{下跌家数} DRAWTEXT_FIX(INFO>0,0.593,0.805,1,STRCAT6(STRCAT(SV12,''),CON2STR(RZJ,0),' . ',STRCAT('',STVZ),STRCAT('',STV0),CON2STR(TOTALHQINFO(3),0))),COLORRED;{STRCAT(' ',SV13) 今涨停} DRAWTEXT_FIX(INFO>0,0.505,0.865,0,STRCAT6(STRCAT(SV12,''),CON2STR(RDJ,0),' . ',STRCAT('',STVD),STRCAT('',STV1),CON2STR(TOTALHQINFO(4),0))),COLORGREEN;{STRCAT('',SV13) 今跌停} {-----------------涨停溢价-----------------} NZTS:=STRCAT(STRCAT6('年涨停 ',CON2STR(DYNAINFO(89),0),' 次',IF(DYNAINFO(89)>0,'，上次涨停',''),IF(DYNAINFO(89)>0,CON2STR(FINANCE(81),0),''),IF(DYNAINFO(89)>0,' 天前','')),'&'); ZTYJ:=STRCAT6(IF(ZYJ>0 || ZMS>0,'，',''),IF(ZYJ>0 ||ZMS>0,STRCAT(SV08,SV09),''),IF(ZYJ>0,STRSPACE(SV10),IF(ZMS>0,STRSPACE(SV11),'')),IF(ZYJ>0,STRCAT(CON2STR(ZYJ,0),SV08),IF(ZMS>0,STRCAT(CON2STR(ZMS,0),SV08),'')),IF(ZYJ>0&& ZMS>0,STRCAT(' ',STRSPACE(SV11)),''),IF(ZYJ>0 &&ZMS>0,STRCAT(CON2STR(ZMS,0),SV08),'')); CZDS:=STRCAT6(IF(CZT>0 || CDT>0 || CZB>0||CQB>0,STRCAT6('60',SV09,SUBSTR(STV0,1,2),STV1,STV60,'&'),''),IF(CZT>0,STRCAT6(STV0,'',VAR2STR(CZT,0),' ',SV08,ZTYJ),''),IF(CZT>0 && (CDT>0 ||CZB>0 || CQB>0),'&',''),IF(CZB>0,STRCAT6(STV0,STV18,'',VAR2STR(CZB,0),SV08,IF(CDT>0 || CQB>0,'，','')),''),IF(CDT>0,STRCAT6(STV1,' ',VAR2STR(CDT,0),'',SV08,IF(CQB>0,'，','')),''),IF(CQB>0,STRCAT6(STV1,STV19,'',VAR2STR(CQB,0),SV08,''),'')); DRAWBAND(IF((FZX=1 || FZX=3) && (ISST ||ISZQ) && TDV>0,PYZC,DRAWNULL),RGB(49,22,0),IF((FZX=1 || FZX=3)&& (ISST || ISZQ) &&TDV>0,PYBZ,DRAWNULL),RGB(0,48,16)),NODRAW;{共振带} IF((FZX=1 || FZX=2) && ISST && PYZ>0,PYZ,DRAWNULL),COLORFFA851,NODRAW;{成本线} SVR:=FRACPART(SUM(V,0)/R1V);SVN:=INTPART(SVR/0.1); PARTLINE(IF(FZX=1 || FZX=3 || FZX=4 &&YBZ>0 &&ISST,PYBZ,DRAWNULL),RGB(IF(SVN<5,255-255*(1-SVR*2),255),IF(SVN<=5,255,255*(1-(SVR-0.5)*2)),0),0),LINETHICK3; DRAWNUMBER((FZX=1 || FZX=3 || FZX=4) &&((SVN<>REF(SVN,1) && MOD(SVN,2)=1) || (ISLASTBAR &&TIME<1458)) && PYBZ>0 &&ISST,IF(TDV>0,PYBZ,DRAWNULL),IF(ISLASTBAR,SUM(V,0)/R1V,SVN)),COLORFFA448,DRAWABOVE; DRAWTEXT_FIX(SHKC,IF(STRLEN(CZDS)>0,0.5,BARSX/1000),(BARSY-BARSH-IF(STRLEN(CZDS)>0,60,94))/1000,0,STRCAT(NZTS,IF(STRLEN(CZDS)>0,CZDS,''))),COLORRED {编辑操盘线 };      {===========================异动指标======================================};

注意事项

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