设为首页收藏本站伏击涨停
切换到窄版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

股海明灯官网»量学论坛 › 入门与提高 › 新人新帖 › 925分时公式
广告载入中...
返回列表 发新帖
查看: 32|回复: 1

925分时公式

[复制链接]
发表于 2025-9-19 15:50 | 显示全部楼层 |阅读模式

马上注册，享用更多功能，让你轻松玩转本论坛。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
{--- 基础设置 ---}
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;
{--- 引用日线数据 ---}
O1:="分时引用.O1#DAY";
H1:="分时引用.H1#DAY";
L1:="分时引用.L1#DAY";
J1:="分时引用.J1#DAY";
V1:="分时引用.V1#DAY";
S:="分时引用.S#DAY";
B:="分时引用.B#DAY";
RHS:="分时引用.HS#DAY";
LB:="分时引用.LB#DAY";
{--- 计算变量 ---}
HS:=DYNAINFO(15)/OPEN/FINANCE(46)*100;
竞价量比:=(DYNAINFO(15)/DYNAINFO(4)/100)/DYNAINFO(16);
JJCJL:=DYNAINFO(15)/DYNAINFO(4)/100;
量比变化:=LB-REF(LB,1);
当前时间:=TIME;
{--- 判断是否在竞价时段 ---}
竞价时段:=当前时间>=091500 AND 当前时间<=092500;
{--- 判断是否在交易时间内 ---}
交易时间:= (当前时间>=093000 AND 当前时间<=113000) OR
         (当前时间>=130000 AND 当前时间<=150000);
{--- 自由流通盘比例计算 ---}
自由流通盘:=FINANCE(46);
竞价股数:=IF(竞价时段, DYNAINFO(15)/DYNAINFO(4), 0);
竞价股数万股:=竞价股数/10000;
竞价比例:=IF(自由流通盘>0 AND 竞价股数>0, 竞价股数万股/自由流通盘*100, 0);
{--- 判断是否有有效的竞价数据 ---}
有效竞价数据:=竞价时段 AND DYNAINFO(4)>0 AND DYNAINFO(15)>0;
{--- 内外盘计算 ---}
外盘:=B;
内盘:=S;
内外比:=IF(内盘>0, 外盘/内盘, 0);
X:=B/(S+B);
Y:=S/(S+B);
ZBB:=CON2STR(X*100,2);
ZSB:=CON2STR(Y*100,2);
{--- 文本格式化 ---}
JJJEDW:=IF(DYNAINFO(15)>10000,'万元','元');
JJJE:=IF(DYNAINFO(15)>10000,CON2STR(DYNAINFO(15)/10000,2),CON2STR(DYNAINFO(15),2));
JJJE1:=STRCAT(JJJE,JJJEDW);
JJ:=STRCAT('【竞价量额】：',STRCAT(CON2STR(JJCJL/100,2),'万股'));
JJ1:=STRCAT(JJ,' = ');
竞价比例文本:=IF(有效竞价数据, STRCAT(STRCAT('竞价比例:',CON2STR(竞价比例,2)),'%'), '竞价比例: --');
HHSS:=STRCAT(STRCAT('竞价换手：',CON2STR(HS,2)),'%');
RHHS:=STRCAT(STRCAT('实时换手：',CON2STR(RHS*100,2)),'%');
LLBB:=STRCAT('实时量比：',CON2STR(LB,2));
BBSS:=STRCAT(STRCAT('外盘：',CON2STR(B,0)), STRCAT(' / 内盘：',CON2STR(S,0)));
内外比文本:=STRCAT('内外比：',CON2STR(内外比,2));
{--- 竞价量额显示（根据条件设置颜色） ---}
DRAWTEXT_FIX(竞价比例>1 OR LB>3,0.018,0.98,0,STRCAT(JJ1,JJJE1)),COLORMAGENTA;
DRAWTEXT_FIX((竞价比例>0.3 AND 竞价比例<=1) OR (DYNAINFO(15)>2000000 OR JJCJL>1000),0.018,0.98,0,STRCAT(JJ1,JJJE1)),COLORYELLOW;
DRAWTEXT_FIX(LB<1,0.018,0.98,0,STRCAT(JJ1,JJJE1)),COLORGREEN;
DRAWTEXT_FIX(竞价比例<=0.3 AND LB>=1 AND LB<=3 AND DYNAINFO(15)<=2000000 AND JJCJL<=1000,0.018,0.98,0,STRCAT(JJ1,JJJE1)),COLORWHITE;
{--- 显示竞价比例信息 ---}
DRAWTEXT_FIX(有效竞价数据, 0.018, 0.94, 0, 竞价比例文本), COLORWHITE;
DRAWTEXT_FIX(NOT(有效竞价数据), 0.018, 0.94, 0, 竞价比例文本), COLORGRAY;
{--- 左侧信息显示 ---}
DRAWTEXT_FIX(ISLASTBAR,0.4,0.83,1,STRCAT('竞价量比：',CON2STR(竞价量比,2))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.4,0.87,1,HHSS),COLORWHITE;
{--- 实时量比显示（带颜色和趋势） ---}
DRAWTEXT_FIX(ISLASTBAR AND LB<1,0.6,0.83,0,LLBB),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR AND LB>3,0.6,0.83,0,LLBB),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR AND LB>=1 AND LB<=3,0.6,0.83,0,LLBB),COLORWHITE;
{--- 量比变化趋势 ---}
DRAWTEXT_FIX(量比变化>0 AND ISLASTBAR,0.65,0.83,0,'↑'),COLORRED;
DRAWTEXT_FIX(量比变化<0 AND ISLASTBAR,0.65,0.83,0,'↓'),COLORGREEN;
DRAWTEXT_FIX(量比变化=0 AND ISLASTBAR,0.65,0.83,0,'→'),COLORWHITE;
{--- 实时换手率显示（带颜色） ---}
DRAWTEXT_FIX(ISLASTBAR AND RHS*100>5,0.6,0.87,0,RHHS),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND RHS*100>=3 AND RHS*100<=5,0.6,0.87,0,RHHS),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR AND RHS*100<3,0.6,0.87,0,RHHS),COLORGREEN;
{--- 内外盘显示 ---}
DRAWTEXT_FIX(ISLASTBAR,0.4,0.91,1,BBSS),COLORWHITE;
{--- 内外盘比例柱状图 ---}
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('外盘：',ZBB+'%')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.6,0.95,0,STRCAT('内盘：',ZSB+'%')),COLORGREEN;
{--- 内外盘比值显示（带颜色） ---}
DRAWTEXT_FIX(ISLASTBAR AND 内外比>1.5,0.53,0.95,1,内外比文本),COLORRED;
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,内外比文本),COLORYELLOW;
{--- 预警信号 ---}
有庄手:=竞价量比>50 AND HS>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;
{--- 时间标记 ---}
DRAWTEXT_FIX(当前时间=093000,0.01,0.1,0,'开盘'),COLORWHITE;
DRAWTEXT_FIX(当前时间=113000,0.01,0.1,0,'午盘'),COLORWHITE;
DRAWTEXT_FIX(当前时间=140000,0.01,0.1,0,'尾盘'),COLORWHITE;

925分时公式.zip

1.73 KB, 下载次数: 0
回复

使用道具 举报

 楼主| 发表于 2025-9-19 16:33 | 显示全部楼层
{--- 基础设置 ---}
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;

{--- 引用日线数据 ---}
O1:="分时引用.O1#DAY";
H1:="分时引用.H1#DAY";
L1:="分时引用.L1#DAY";
J1:="分时引用.J1#DAY";
V1:="分时引用.V1#DAY";
S:="分时引用.S#DAY";
B:="分时引用.B#DAY";
RHS:="分时引用.HS#DAY";
LB:="分时引用.LB#DAY";

{--- 计算变量 ---}
HS:=DYNAINFO(15)/OPEN/FINANCE(46)*100;
竞价量比:=(DYNAINFO(15)/DYNAINFO(4)/100)/DYNAINFO(16);
JJCJL:=DYNAINFO(15)/DYNAINFO(4)/100;
量比变化:=LB-REF(LB,1);
当前时间:=TIME;

{--- 判断是否在竞价时段 ---}
竞价时段:=当前时间>=091500 AND 当前时间<=092500;
{--- 判断是否在交易时间内 ---}
交易时间:= (当前时间>=093000 AND 当前时间<=113000) OR
         (当前时间>=130000 AND 当前时间<=150000);

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

{--- 判断是否有有效的竞价数据 ---}
有效竞价数据:=竞价时段 AND DYNAINFO(4)>0 AND DYNAINFO(15)>0;

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

{--- 文本格式化 ---}
JJJEDW:=IF(DYNAINFO(15)>10000,'万元','元');
JJJE:=IF(DYNAINFO(15)>10000,CON2STR(DYNAINFO(15)/10000,2),CON2STR(DYNAINFO(15),2));
JJJE1:=STRCAT(JJJE,JJJEDW);
JJ:=STRCAT('【竞价量额】：',STRCAT(CON2STR(JJCJL/100,2),'万股'));
JJ1:=STRCAT(JJ,' = ');
竞价比例文本:=IF(有效竞价数据, STRCAT(STRCAT('竞价比例:',CON2STR(竞价比例,2)),'%'), '竞价比例: --');
HHSS:=STRCAT(STRCAT('竞价换手：',CON2STR(HS,2)),'%');
RHHS:=STRCAT(STRCAT('实时换手：',CON2STR(RHS*100,2)),'%');
LLBB:=STRCAT('实时量比：',CON2STR(LB,2));
SSSS:=STRCAT(STRCAT('内盘：',CON2STR(S,0)),' ');
BBBB:=STRCAT(STRCAT('外盘：',CON2STR(B,0)),' ');

内外比文本:=STRCAT('内外比：',CON2STR(内外比,2));

{--- 竞价量额显示（根据条件设置颜色） ---}
DRAWTEXT_FIX(竞价比例>1 OR LB>3,0.018,0.98,0,STRCAT(JJ1,JJJE1)),COLORMAGENTA;
DRAWTEXT_FIX((竞价比例>0.3 AND 竞价比例<=1) OR (DYNAINFO(15)>2000000 OR JJCJL>1000),0.018,0.98,0,STRCAT(JJ1,JJJE1)),COLORYELLOW;
DRAWTEXT_FIX(LB<1,0.018,0.98,0,STRCAT(JJ1,JJJE1)),COLORGREEN;
DRAWTEXT_FIX(竞价比例<=0.3 AND LB>=1 AND LB<=3 AND DYNAINFO(15)<=2000000 AND JJCJL<=1000,0.018,0.98,0,STRCAT(JJ1,JJJE1)),COLORWHITE;

{--- 显示竞价比例信息 ---}
DRAWTEXT_FIX(有效竞价数据, 0.018, 0.94, 0, 竞价比例文本), COLORWHITE;
DRAWTEXT_FIX(NOT(有效竞价数据), 0.018, 0.94, 0, 竞价比例文本), COLORGRAY;

{--- 左侧信息显示 ---}
DRAWTEXT_FIX(ISLASTBAR,0.4,0.83,1,STRCAT('竞价量比：',CON2STR(竞价量比,2))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.4,0.87,1,HHSS),COLORWHITE;

{--- 实时量比显示（带颜色和趋势） ---}
DRAWTEXT_FIX(ISLASTBAR AND LB<1,0.6,0.83,0,LLBB),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR AND LB>3,0.6,0.83,0,LLBB),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR AND LB>=1 AND LB<=3,0.6,0.83,0,LLBB),COLORWHITE;


{--- 实时换手率显示（带颜色） ---}
DRAWTEXT_FIX(ISLASTBAR AND RHS*100>5,0.6,0.87,0,RHHS),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND RHS*100>=3 AND RHS*100<=5,0.6,0.87,0,RHHS),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR AND RHS*100<3,0.6,0.87,0,RHHS),COLORGREEN;

{--- 内外盘显示 ---}
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,内外比文本),COLORRED;
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,内外比文本),COLORYELLOW;

{--- 预警信号 ---}
有庄手:=竞价量比>50 AND HS>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;

新改的
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

快速回复 返回顶部 返回列表