股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[大智慧] 自用主图和成交量副图(源码、贴图)


    [-----复制链接-----]
楼主
 通达信源码安装路径:1,工具栏点击公式选项。2,弹出公式窗口点击新建。3,把源码复制到指标编辑器保存。4,回到K线图界面安装建立好的公式 || 2024-3-21 17:23:12
自用主图和成交量副图(源码、贴图)介绍

自用主图和成交量副图(源码、贴图)

比较简单没什么指标 都是拿论坛里几个老师的东西整合起来的 自己用着还算舒服 拿来分享下
主图 基本的f10资料和涨停板标示
成交量图 最近几次解禁股信息和地量标示



主图:
{基本信息}
每股收益:=FINANCE2(3);
每股市盈率:=DYNAINFO(39);
每股净资产:=FINANCE2(4);
每股现金流:=FINANCE2(6);
主营收入同比:=FINANCE2(11);
净利润同比增长:=FINANCE2(10);
每股未分配:=FINANCE2(8);
每股公积金:=FINANCE2(7);
资产负债率:=FINANCE2(20)/FINANCE2(14)*100;
每股市净率:=DYNAINFO(58);
销售毛利率:=FINANCE2(12);
净资产收益率:=FINANCE2(5);
总市值:=C*CAPITAL*VOLUNIT/100000000;
总股本:=FINANCE2(35)/10000;
流通盘:=FINANCE2(37)/10000;
DRAWTEXTABS(1,10,'■所属板块:'+BKNAME),COLOR00FFFF;
DRAWTEXTABS(1,25,'■主营业务:'+SELFSTRING('主营业务')),color00D7FF;
DRAWTEXTABS(1,40,'■主题库:'+SELFSTRING('主题库')),COLOR00A5FF;
DRAWTEXTABS(1,60,'■净利润同比增长:'+NUMTOSTRN(净利润同比增长,2)+'%'),LINETHICK1,COLORB48246;
DRAWTEXTABS(1,75,'■净资产收益率:'+NUMTOSTRN(净资产收益率,2)+'%'),LINETHICK1,COLORFFBF00;
DRAWTEXTABS(1,90,'■销售毛利率:'+NUMTOSTRN(销售毛利率,2)+'%'),LINETHICK1,COLOREBCE87;
DRAWTEXTABS(1,105,'■每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),COLORD0E040;
DRAWTEXTABS(1,120,'■每股收益:'+NUMTOSTRN(每股收益,2)+'元'),COLOrD4FF7F;
DRAWTEXTABS(1,140,'■流通盘:'+NUMTOSTRN(流通盘,2)+'亿'),LINETHICK1,COLORFFFFFF;
DRAWTEXTABS(135,140,'总股本:'+NUMTOSTRN(总股本,2)+'亿'),LINETHICK1,COLOR808080;
DRAWTEXTABS(1,155,'■流通市值:'+DYNAINFO(57)/100000000+'亿'),COLOR808080;
DRAWTEXTABS(135,155,'总市值:'+DYNAINFO(56)/100000000+'亿'),COLOR808080;

{涨停}
ZT:=C/ref(C,1)>1.097;
XH:=FILTER(ZT,13);
BH:=BARSLAST(ZT);
CZ:=REF(H,BH)-REF(L,BH);
STICKLINE(ZT,REF(O,BH),REF(C,BH),7,0),COLORYELLOW;
DRAWTEXT(ZT,L*0.98,'涨停'),COLOR9314FF;


成交量副图:
{地量}
VOL,VOLSTICK;
AA:=SUMBARS(VOL,CAPITAL);
地量:IF(CAPITAL=0,AMOUNT=LLV(AMOUNT,34),VOL<MA(VOL,AA)/3) ,LINETHICK0;
STICKLINE(地量,VOL,0,7,0),COLORYELLOW;

{解禁股}
解禁股:=SelfString('限售流通股. 大智慧');
XOffset:= 0;
YOffset:= 0;
lineHeight:= 18;
pos1:= STRFIND(解禁股, ';', 1);
pos2:= STRFIND(解禁股, ';', pos1 + 1);
pos3:= STRFIND(解禁股, ';', pos2 + 1);
pos4:= STRFIND(解禁股, ';', pos3 + 1);
pos5:= STRFIND(解禁股, ';', pos4 + 1);
str1:= STRMID(解禁股, 1 , pos1-1);
str2:= STRMID(解禁股, pos1 + 1, pos2 - pos1 - 1);
str3:= STRMID(解禁股, pos2 + 1, pos3 - pos2 - 1);
str4:= STRMID(解禁股, pos3 + 1, pos4 - pos3 - 1);
str5:= STRMID(解禁股, pos4 + 1, pos5 - pos4 - 1);
IF pos1 THEN DRAWTEXTABS(XOffset, YOffset + lineHeight , '解禁股: '+ str1), Color808080;
IF pos1 AND pos2 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 2, str2), Color908070;
IF pos1 AND pos2 AND pos3 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 3, str3), Color808080;
IF pos1 AND pos2 AND pos3 AND pos4 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 4, str4), Color908070;
IF pos1 AND pos2 AND pos3 AND pos4 AND pos5 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 5, str5), Color808080;
 



gd14210

回复

举报

QQ|

GMT+8, 2024-11-18 04:25

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