通达信 分时公式

抓timing

{=== 分时资金博弈 终极版 (V5引擎) ===}
{参数 N：缺省5，最小1，最大1000}

{--- 基础画线 ---}
NN:=MIN(BARSCOUNT(C),N);
FF:=(C-REF(C,NN))/REF(C,NN);
STICKLINE(FF>0,DYNAINFO(3),DYNAINFO(3)*(1+FF),0.5,0),COLORRED;
STICKLINE(FF<0,DYNAINFO(3),DYNAINFO(3)*(1+FF),0.5,0),COLORGREEN;

{--- 一、可调整参数区 ---}
超小盘阈值:=3; { 单位：亿股 }
小盘阈值:=20;
中盘阈值:=88;
中大盘阈值:=188;
量起爆系数:=1.8; { 整体调整量能敏感度 }
价创新高周期:=15; { 几分钟内新高 }

{--- 二、数据引用模块 (彻底去外部依赖，使用内置函数) ---}
{直接引用日线数据用于计算昨日指标}
昨开:=REF(O#DAY,1);
昨高:=REF(H#DAY,1);
昨低:=REF(L#DAY,1);
昨收:=REF(C#DAY,1);
昨量:=REF(V#DAY,1);
昨额:=REF(AMOUNT#DAY,1);

{实时数据使用DYNAINFO}
实时换手率:=DYNAINFO(8)/FINANCE(7); {使用FINANCE(7)流通股本更准确}
实时量比:=DYNAINFO(17);
外盘量:=DYNAINFO(23);
内盘量:=DYNAINFO(8)-外盘量; {内盘估算}

{--- 三、V5核心引擎：首分倍数计算 ---}
当前时间:=TIME;
竞价成交额:=DYNAINFO(15);
竞价成交量:=DYNAINFO(15)/DYNAINFO(4)/100;
竞价换手:=DYNAINFO(15)/OPEN/FINANCE(46)*100;
竞价量比:=(DYNAINFO(15)/DYNAINFO(4)/100)/DYNAINFO(16);

{V5核心逻辑：锁定第1根K线成交额}
首分成:=VALUEWHEN(BARSCOUNT(C)=1, AMOUNT);
首分倍:=IF(竞价成交额>0, 首分成/竞价成交额, 0);
首分文本:=STRCAT('首分/竞价: ', STRCAT(CON2STR(首分倍,2), '倍'));
竞价占比:=IF(昨额>0 AND 竞价成交额>0, 竞价成交额/昨额*100, 0);

{--- 四、核心变量计算 ---}
{ 流通盘与动态量能参数 }
自由流通盘:=FINANCE(46);
流通盘亿:=自由流通盘/100000000;
竞价时段:=当前时间>=091500 AND 当前时间<=092500;
有效竞价数据:=竞价时段 AND DYNAINFO(4)>0 AND DYNAINFO(15)>0;

{ 竞价比例计算 }
竞价股数:=IF(竞价时段, DYNAINFO(15)/DYNAINFO(4), 0);
竞价股数万:=竞价股数/10000;
竞价比例:=IF(自由流通盘>0 AND 竞价股数>0, 竞价股数万/自由流通盘*100, 0);

{ 动态量起爆阈值 }
量起爆倍数:=量起爆系数*IF(流通盘亿<超小盘阈值,2.0, IF(流通盘亿<小盘阈值,1.8, IF(流通盘亿<中盘阈值,1.5, IF(流通盘亿<中大盘阈值,1.3,1.1))));

{ 内外盘计算 }
内外比:=IF(内盘量>0, 外盘量/内盘量, 0);
X:=外盘量/(内盘量+外盘量);
Y:=内盘量/(内盘量+外盘量);
ZBB:=CON2STR(X*100,2);
ZSB:=CON2STR(Y*100,2);

{--- 五、文本格式化 (融合版) ---}
JJJEDW:=IF(竞价成交额>10000,'万元','元');
JJJE:=IF(竞价成交额>10000,CON2STR(竞价成交额/10000,2),CON2STR(竞价成交额,2));
JJJE1:=STRCAT(JJJE,JJJEDW);
JJ_STR:=STRCAT('【竞价量额】：',STRCAT(CON2STR(竞价成交量/100,2),'万股'));
JJ1:=STRCAT(JJ_STR,' = ');

HHSS:=STRCAT(STRCAT('竞价换手：',CON2STR(竞价换手,2)),'%');
RHHS:=STRCAT(STRCAT('实时换手：',CON2STR(实时换手率*100,2)),'%');
LLBB:=STRCAT('实时量比：',CON2STR(实时量比,2));
SSSS:=STRCAT(STRCAT('内盘：',CON2STR(内盘量,0)),' ');
BBBB:=STRCAT(STRCAT('外盘：',CON2STR(外盘量,0)),' ');
内外比文本:=STRCAT('内外比：',CON2STR(内外比,2));

{--- 六、支撑阻力与价格标识 ---}
H01:=MAX(DYNAINFO(3),DYNAINFO(5));
L01:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H01-L01;
阻力01+P1*8/9,COLORCYAN,LINETHICK1;
支撑01+P1*0.5/9,COLORFF66FF,LINETHICK1;
中H01+L01)/2,POINTDOT,COLORWHITE,LINETHICK1;
DRAWICON(LONGCROSS(支撑,C,2),C*0.995,44);
STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORRED;
DRAWICON(LONGCROSS(C,阻力,2),C*1.005,45);
STICKLINE(LONGCROSS(C,阻力,2),C,支撑,0,-1),COLORGREEN;
STICKLINE(C<支撑,支撑,C,1,0),COLORLIMAGENTA;

{--- 七、主力资金分析 ---}
价:=C;
VAR20:=(3*CLOSE+LOW+OPEN+HIGH)/6;
VAR21:=(20*VAR20+19*REF(VAR20,1)+18*REF(VAR20,2)+17*REF(VAR20,3)+16*REF(VAR20,4)+15*REF(VAR20,5)+14*REF(VAR20,6)+13*REF(VAR20,7)+12*REF(VAR20,8)+11*REF(VAR20,9)+10*REF(VAR20,10)+9*REF(VAR20,11)+8* REF(VAR20,12)+7*REF(VAR20,13)+6*REF(VAR20,14)+5*REF(VAR20,15)+4*REF(VAR20,16)+3*REF(VAR20,17)+2*REF(VAR20,18)+REF(VAR20,21))/210;
VAR22:=EMA(VAR21,15);
VAR23:=HHV(CLOSE,90);
VAR24:=LLV(CLOSE,90);
VAR25:=VAR23-VAR24;
VAR26:=EMA((CLOSE-VAR24)/VAR25-0.5,14);
ZLSP:=VAR26*20;
VAR27:=REF(HHV(CLOSE,66),2);
VAR28:=CROSS(CLOSE,VAR27) AND (HHV(CLOSE,110)/LLV(CLOSE,110)-1)*100<45 AND ZLSP<5.666;
VAR31:=15*FILTER(VAR28,41)>10;

AX:=(VOL/C)/2;
A2X:=SUM(IF(AX>100 AND CLOSE>REF(CLOSE,1),AX,0),0);
A3X:=SUM(IF(AX>100 AND CLOSE<REF(CLOSE,1),AX,0),0);
A4X:=SUM(IF(AX<100 AND CLOSE>REF(CLOSE,1),AX,0),0);
A5X:=SUM(IF(AX<100 AND CLOSE<REF(CLOSE,1),AX,0),0);
A6X:=A2X+A3X+A4X+A5X;
机买:=(A2X/A6X)*100;
机卖:=(A3X/A6X)*100;
主力差:=机买-机卖;
AAA1X:=主力差>0 AND REF(主力差,1)<=0;

VAR18:=EMA(EMA(CLOSE,13),13);
控盘:=(VAR18-REF(VAR18,1))/REF(VAR18,1)*1000;
JJ_PRICE:=DYNAINFO(11);
P:=55;S:=8;M1:=3;
财:=(EMA(CLOSE,S)-EMA(CLOSE,P))*10;
神:=EMA(财,M1);
BTJ1:=(C-JJ_PRICE)/JJ_PRICE<-0.03;
BTJ2:=控盘>REF(控盘,1) AND 控盘<-0.2;
BTJ3:=CROSS(财,神) AND 财<-0.3;
BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,13);

{--- 八、分时决策与起爆信号 ---}
星期:=WEEKDAY;
日1:=DATETODAY(DATE);
上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT);
自然日:=日1-DATETODAY(上市日)+1;
ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1)OR TOTALBARSCOUNT-CURRBARSCOUNT=0;
本周第几天:=BARSLAST(ZB)+1;
MA1:=REF(C,本周第几天); MA2:=REF(MA1,本周第几天); MA3:=REF(MA2,本周第几天);
MA4:=REF(MA3,本周第几天); MA5:=REF(MA4,本周第几天); MA6:=REF(MA5,本周第几天);
MA7:=REF(MA6,本周第几天); MA8:=REF(MA7,本周第几天); MA9:=REF(MA8,本周第几天);
MA10:=REF(MA9,本周第几天); MA11:=REF(MA10,本周第几天); MA12:=REF(MA11,本周第几天);
十三周价:=(C+MA1+MA2+MA3+MA4+MA5+MA6+MA7+MA8+MA9+MA10+MA11+MA12)/13;
决策:REFDATE(十三周价,DATE),POINTDOT,COLORMAGENTA;
均价11:=SUM(C*V,240)/SUM(V,240),COLORRED,LINETHICK2;

TT1:=BARSCOUNT(C);
均价黄:=SUM(C*V,TT1)/SUM(V,TT1);
量两步:=MA(V,5)>REF(MA(V,5),1) AND REF(MA(V,5),1)>REF(MA(V,5),2);
价两步:= C>=REF(C,1) AND REF(C,1)>REF(C,2);
价上岗量破5:=C>均价黄 AND V>MA(V,5);
量起爆:=V>=REF(V,1)*量起爆倍数;
价创新高:=C>=HHV(C,价创新高周期);
量创新高:=V>=HHV(V,价创新高周期);
对昨日涨幅:=(C/DYNAINFO(3)-1)*100<=2.50;
每日一点:=量两步 AND 价两步 AND 价上岗量破5 AND 量起爆 AND 价创新高 AND 量创新高 AND 对昨日涨幅;

BU:=BARSLAST(CLOSE=HHV(CLOSE,60));
SE:=BARSLAST(CLOSE=LLV(CLOSE,60));
ACX:=FILTER(CROSS(SE,BU) AND DYNAINFO(7)>REF(C,1)*1.03,60);
信号优先级:=IF(每日一点,3,IF(VAR31,2,IF(BTJ81,1,0)));

{--- 九、附加量能分析 (基于分时K线回顾) ---}
{这里使用分时图的VOL来估算昨日数据，不再引用外部}
SJ:=BARSCOUNT(V);
今开量:=竞价成交量;
昨大量:=IF(SJ>238,REF(HHV(V,239),SJ-238),0)/10000,NODRAW;
BZ:=今开量/昨大量;
标准量:=昨大量*0.63*10000;
ZTJ:=DYNAINFO(3)*1.1-0.01;
WZ:=BARSLAST(C<ZTJ);
拉板量:=IF(C>=ZTJ AND C=DYNAINFO(5),REF(V,WZ-1),DRAWNULL);
前5量:=IF(SJ>4,REF(SUM(V,0),SJ-4),DRAWNULL);
KZB:=今开量/((FINANCE(7)/10000)*100)*100; {估算开量占流通盘比}

{--- 十、显示模块 (重构UI) ---}

{--- 顶部核心指标 (V5风格 + 竞价占昨比) ---}
{1. 竞价金额}
DRAWTEXT_FIX(1,0.018,0.98,0,STRCAT(JJ1,JJJE1)),COLORWHITE;
DRAWTEXT_FIX(实时量比<1,0.018,0.98,0,STRCAT(JJ1,JJJE1)),COLORGREEN;
DRAWTEXT_FIX(竞价比例>1 OR 实时量比>3,0.018,0.98,0,STRCAT(JJ1,JJJE1)),COLORMAGENTA;
DRAWTEXT_FIX((竞价比例>0.3 AND 竞价比例<=1) OR (竞价成交额>2000000 OR 竞价成交量>1000),0.018,0.98,0,STRCAT(JJ1,JJJE1)),COLORYELLOW;

{2. 竞价占昨比 (新增)}
DRAWTEXT_FIX(1, 0.018, 0.94, 0, '竞价占昨比:   '), COLORWHITE;
DRAWTEXT_FIX(竞价占比>0 AND 竞价占比<3, 0.018, 0.94, 0, STRCAT('竞价占昨比: ', STRCAT(CON2STR(竞价占比, 2), '%'))), COLORGREEN;
DRAWTEXT_FIX(竞价占比>=3 AND 竞价占比<5, 0.018, 0.94, 0, STRCAT('竞价占昨比: ', STRCAT(CON2STR(竞价占比, 2), '%'))), COLORYELLOW;
DRAWTEXT_FIX(竞价占比>=5, 0.018, 0.94, 0, STRCAT('竞价占昨比: ', STRCAT(CON2STR(竞价占比, 2), '%'))), COLORMAGENTA;

{3. 首分/竞价倍数 (V5核心)}
DRAWTEXT_FIX(1, 0.018, 0.90, 0, '首分/竞价: '), COLORWHITE;
DRAWTEXT_FIX(首分倍>0 AND 首分倍<1, 0.018, 0.90, 0, STRCAT('首分/竞价: ', STRCAT(CON2STR(首分倍, 2), '倍'))), COLORGREEN;
DRAWTEXT_FIX(首分倍>=1 AND 首分倍<3, 0.018, 0.90, 0, STRCAT('首分/竞价: ', STRCAT(CON2STR(首分倍, 2), '倍'))), COLORYELLOW;
DRAWTEXT_FIX(首分倍>=3, 0.018, 0.90, 0, STRCAT('首分/竞价: ', STRCAT(CON2STR(首分倍, 2), '倍'))), COLORMAGENTA;

{--- 左侧信息区 ---}
DRAWTEXT_FIX(ISLASTBAR,0.4,0.83,1,STRCAT('竞价量比：',CON2STR(竞价量比,2))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.4,0.87,1,HHSS),COLORWHITE;
DRAWTEXT_FIX(SJ>239,0.4,0.88,1,STRCAT(STRCAT('昨爆今开比：',CON2STR(BZ,2)),'')),COLORYELLOW;

{--- 右侧信息区 ---}
DRAWTEXT_FIX(ISLASTBAR AND 实时量比<1,0.6,0.83,0,LLBB),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR AND 实时量比>3,0.6,0.83,0,LLBB),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR AND 实时量比>=1.5 AND 实时量比<=3,0.6,0.83,0,LLBB),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR AND 实时量比>=1 AND 实时量比<1.5,0.6,0.83,0,LLBB),COLORWHITE;

DRAWTEXT_FIX(ISLASTBAR AND 实时换手率*100>5,0.6,0.87,0,RHHS),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND 实时换手率*100>=3 AND 实时换手率*100<=5,0.6,0.87,0,RHHS),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR AND 实时换手率*100<3,0.6,0.87,0,RHHS),COLORWHITE;

{--- 内外盘 ---}
DRAWTEXT_FIX(ISLASTBAR,0.4,0.91,1,BBBB),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.6,0.91,0,SSSS),COLORGREEN;
DRAWRECTREL(400,978,600,988,RGB(0,500,0));
DRAWRECTREL(400,978,200*X+400,988,RGB(500,0,0));
DRAWTEXT_FIX(ISLASTBAR,0.4,0.95,1,STRCAT(STRCAT('外盘：',ZBB),'%')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.6,0.95,0,STRCAT(STRCAT('内盘：',ZSB),'%')),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR AND 内外比>1.5,0.53,0.95,1,内外比文本),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR AND 内外比<0.5,0.53,0.95,1,内外比文本),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR AND 内外比>=0.5 AND 内外比<=1.5,0.53,0.95,1,内外比文本),COLORWHITE;

DRAWTEXT_FIX(内外比>1.2, 0.50, 0.9, 0, '▲ 买盘强'), COLORMAGENTA;
DRAWTEXT_FIX(内外比<0.8, 0.50, 0.9, 0, '△ 卖盘强'), COLORGREEN;
DRAWTEXT_FIX(内外比>=0.8 AND 内外比<=1.2, 0.50, 0.9, 0, '◆ 平衡'), COLORGRAY;

{--- 风险与附加信息 ---}
DRAWTEXT_FIX(SJ>239,0.8,0.95,0,STRCAT(STRCAT('【昨尾比】',CON2STR(REF(SUM(V,60),SJ-239)/REF(SUM(V,0),SJ-239)*100,2)),'%')),COLORMAGENTA;
DRAWTEXT_FIX(SJ>239,0,0,0,'昨暴拉板量，一字除外,今比值0.60左右可考虑介入'),COLORCYAN;
DRAWTEXT_FIX(SJ>239,0,0.2,0,'比值不达标，须开盘后补量, 过大,出货嫌疑'),COLORCYAN;
DRAWTEXT_FIX(SJ>239,0,0.1,0,STRCAT(STRCAT('【昨拉板量】',CON2STR(昨大量*10000,2)),'')),COLORRED;
DRAWTEXT_FIX(SJ>239,0.25,0.3,0,STRCAT(STRCAT('【标准量】',CON2STR(标准量,2)),'')),COLORRED;
DRAWTEXT_FIX(O>0,0.018,0.86,0,STRCAT(STRCAT('开昨比：',CON2STR(KZB,2)),'%')),COLORWHITE;
DRAWTEXT_FIX(DYNAINFO(15)>0,0.8,0.98,0,STRCAT(STRCAT('拉板量：',CON2STR(拉板量,2)),'')),COLORMAGENTA;

{--- 风险预警 ---}
有庄手:=竞价量比>50 AND 竞价换手>0.2;
DRAWTEXT_FIX(有庄手,0.5,0.5,0,'有庄手'),COLORFF00FF;
WTG:=IF(INBLOCK('拟减持') OR INBLOCK('近期解禁') OR INBLOCK('本月解禁') OR INBLOCK('连续亏损') OR INBLOCK('风险提示'),1,0);
DRAWTEXT_FIX(WTG,0.5,0.68,0,'注意：△！问题股'),COLORYELLOW;
量比异常:=竞价量比>100;
DRAWTEXT_FIX(量比异常,0.5,0.55,0,'!量比异常'),COLORGRAY;

{--- 分时偏离度 ---}
分时现价:=DYNAINFO(7);
分时均价:=DYNAINFO(11);
分时偏离度:=(分时现价 - 分时均价)/分时均价*100;
偏离度文本:=STRCAT('分时偏离 = ',STRCAT(CON2STR(分时偏离度,2),'%'));
DRAWTEXT_FIX(分时偏离度>8,0.5,0.75,0,偏离度文本),COLORRED;
DRAWTEXT_FIX(分时偏离度>=5 AND 分时偏离度<=8,0.5,0.75,0,偏离度文本),COLORYELLOW;
DRAWTEXT_FIX(分时偏离度>3 AND 分时偏离度<5,0.5,0.75,0,偏离度文本),COLORGREEN;
DRAWTEXT_FIX(分时偏离度<=3,0.5,0.75,0,偏离度文本),COLORWHITE;

{--- 信号标识 ---}
DRAWTEXT(信号优先级=3,C,'←分时起爆◇!'),COLORMAGENTA;
DRAWTEXT(信号优先级=2 AND 信号优先级<3,C,'▲吸筹'),COLORRED;
DRAWTEXT(信号优先级=1 AND 信号优先级<2,C,'●庄影'),COLORYELLOW;
DRAWICON(CROSS(C,决策),C,1);
DRAWICON(每日一点,C,25);
DRAWICON(FILTER(CROSS(SE,BU) AND DYNAINFO(7)>REF(C,1)*1.03,60),OPEN*1,11);
DRAWTEXT(FILTER(CROSS(SE,BU)AND DYNAINFO(7)>REF(C,1)*1.03,60) ,OPEN*0.990,'抓★'),COLORMAGENTA;