通达信自用分时主图源码

分享自用分时主图,在定制版面看比较方便

 
{涨停时间}
DRAWNUMBER(FILTER(CROSS(C,DYNAINFO(3)*1.1-0.01),60),C*0.99,TIME),COLORYELLOW;

{板块市值业绩}
市盈率:=STRCAT(' 市盈率:',CON2STR(C/FINANCE(33),2));
市净率:=STRCAT(' 市净率:',CON2STR(C/FINANCE(34),2));
市销率:=STRCAT(' 市销率:',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
净资收益率:=STRCAT(' ROE:',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
毛利率:=STRCAT(' 毛利率:',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
净利润率:=STRCAT(' 净利率:',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
主营利润率:=STRCAT(' 主营利润率:',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
当前业绩:=STRCAT('当前业绩:',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市净率),净资收益率),市销率),毛利率),净利润率),主营利润率));
DRAWTEXT_FIX(ISLASTBAR,0.09,0.9,0,当前业绩),COLORMAGENTA;

{所属板块}
BK1:=STRCAT(STRSPACE(DYBLOCK),HYBLOCK);
BK2:=STRCAT(STRSPACE(BK1),GNBLOCK);
BK3:=STRCAT(STRSPACE(BK2),FGBLOCK);
BK4:=STRCAT(STRSPACE(BK3),ZHBLOCK);
DRAWTEXT_FIX(1,0.09,1,0,BK4),COLORWHITE;


换手率:换手引用.ZHS#DAY,NODRAW;
ZHS:=STRCAT('昨换手:',STRCAT(VAR2STR(换手率,2),'%'));
ZHSWS:=STRCAT(VAR2STR("换手引用.ZZL#DAY",2),'万手');
ZHS1:=STRCAT(ZHS,' ≈ ');
DRAWTEXT_FIX(1,0.67,0.75,0,STRCAT(ZHS1,ZHSWS))COLORYELLOW;

HS:=100*DYNAINFO(8)/CAPITAL;
ZHWS:=STRCAT(VAR2STR(DYNAINFO(8)/10000,2),'万手');
JHS:=STRCAT('今换手:',STRCAT(VAR2STR(HS,2),'%'));
JHS1:=STRCAT(JHS,' ≈ ');
DRAWTEXT_FIX(1,0.67,0.85,0,STRCAT(JHS1,ZHWS))COLORYELLOW;

LTPDW:=IF((FINANCE(46))/1000000>1,'亿股','万股');
LTP:=IF((FINANCE(46))/1000000>1,CON2STR((FINANCE(46))/100000000,2),CON2STR((FINANCE(46))/10000,0));
LTP1:=STRCAT(STRCAT('自由流通盘:',LTP),LTPDW);
LTPWS:=STRCAT(VAR2STR(FINANCE(46)/1000000,2),'万手');
LTP2:=STRCAT(LTP1,' ≈ ');
DRAWTEXT_FIX(1,0.67,0.65,0,STRCAT(LTP2,LTPWS))COLORMAGENTA;
DRAWTEXT_FIX(1,0.67,0.55,0,STRCAT(STRCAT('流通市值:',CON2STR(FINANCE(46)*C/100000000,2)),'亿元'))COLORMAGENTA;



KP:=(DYNAINFO(4)-DYNAINFO(3))/DYNAINFO(3)*100;
DRAWTEXT_FIX(1,0.2,0.65,0,STRCAT('开盘:',STRCAT(VAR2STR(KP,2),'%')))COLORYELLOW;

DRAWTEXT_FIX(1,0.35,0.65,0,STRCAT('最高价:',CON2STR(DYNAINFO(5),2)))COLORYELLOW;
DRAWTEXT_FIX(1,0.35,0.75,0,STRCAT('最低价:',CON2STR(DYNAINFO(6),2)))COLORYELLOW;

CJE:=DYNAINFO(8)*DYNAINFO(11);
DW:=IF(CJE/1000000>1,'亿','万');
AB:=IF(CJE/1000000>1,CJE/1000000,CJE/100);
DRAWTEXT_FIX(1,0.2,0.75,0,STRCAT(STRCAT('成交额:',CON2STR(AB,2)),DW))COLORYELLOW;

{
市盈率:=STRCAT('市盈率:',CON2STR(C/FINANCE(33),2));
DRAWTEXT_FIX(1,0.3,0.75,0,STRCAT(市盈率,'倍'))COLORYELLOW;}

JJCJL:=DYNAINFO(15)/DYNAINFO(4)/100;
JJJEDW:=IF(DYNAINFO(15)>10000,'万元','元');
JJJE:=IF(DYNAINFO(15)>10000,CON2STR(DYNAINFO(15)/10000,1),CON2STR(DYNAINFO(15),1));
JJJE1:=STRCAT(JJJE,JJJEDW);
JJ:=STRCAT('竞价:',STRCAT(CON2STR(JJCJL,0),'手'));
JJ1:=STRCAT(JJ,' = ');
DRAWTEXT_FIX(1,0.2,0.55,0,STRCAT(JJ1,JJJE1))COLORMAGENTA;







来函数检测结果如下
该公式没有未来函数


定制、编写指标公式请联系QQ或微信同号:88652583


当满足条件收盘价上穿昨收盘价*1.1-0.01的60日过滤时,在收盘价*0.99位置书写数字,画黄色
市盈率赋值:字符串相加
市净率赋值:字符串相加
市销率赋值:字符串相加
净资收益率赋值:字符串相加
毛利率赋值:字符串相加
净利润率赋值:字符串相加
主营利润率赋值:字符串相加
当前业绩赋值:字符串相加
当满足条件是否最后一个周期时,在横轴0.09纵轴0.9位置书写文字,画洋红色
BK1赋值:字符串相加
BK2赋值:字符串相加
BK3赋值:字符串相加
BK4赋值:字符串相加
当满足条件1时,在横轴0.09纵轴1位置书写文字,画白色
输出换手率:换手引用.ZHS[取日线数据],NODRAW
ZHS赋值:字符串相加
ZHSWS赋值:字符串相加
ZHS1赋值:字符串相加
当满足条件1时,在横轴0.67纵轴0.75位置书写文字画黄色
HS赋值:100*总量/当前流通股本(手)
ZHWS赋值:字符串相加
JHS赋值:字符串相加
JHS1赋值:字符串相加
当满足条件1时,在横轴0.67纵轴0.85位置书写文字画黄色
LTPDW赋值:如果(自由流通股本(股))/1000000>1,返回'亿股',否则返回'万股'
LTP赋值:如果(自由流通股本(股))/1000000>1,返回(自由流通股本(股))/100000000的2日取值转为字符串,否则返回(自由流通股本(股))/10000的历史取值转为字符串
LTP1赋值:字符串相加
LTPWS赋值:字符串相加
LTP2赋值:字符串相加
当满足条件1时,在横轴0.67纵轴0.65位置书写文字画洋红色
当满足条件1时,在横轴0.67纵轴0.55位置书写文字画洋红色
KP赋值:(开盘价-昨收盘价)/昨收盘价*100
当满足条件1时,在横轴0.2纵轴0.65位置书写文字画黄色
当满足条件1时,在横轴0.35纵轴0.65位置书写文字画黄色
当满足条件1时,在横轴0.35纵轴0.75位置书写文字画黄色
CJE赋值:总量*均价
DW赋值:如果CJE/1000000>1,返回'亿',否则返回'万'
AB赋值:如果CJE/1000000>1,返回CJE/1000000,否则返回CJE/100
当满足条件1时,在横轴0.2纵轴0.75位置书写文字画黄色
JJCJL赋值:开盘金额/开盘价/100
JJJEDW赋值:如果开盘金额>10000,返回'万元',否则返回'元'
JJJE赋值:如果开盘金额>10000,返回开盘金额/10000的1日取值转为字符串,否则返回开盘金额的1日取值转为字符串
JJJE1赋值:字符串相加
JJ赋值:字符串相加
JJ1赋值:字符串相加
当满足条件1时,在横轴0.2纵轴0.55位置书写文字画洋红色
定制、找人做指标公式联系我们
  • QQ:88652583
  • 邮箱:88652583@qq.com
  • 工作时间:7:30-21:00
  • 微信:88652583或扫描如下二维码
指标公式网微信联系方式
月度排行
季度排行
半年排行


指标安装下载帮助  |   联系我们  |  指标公式网  |  公式网   |  指标公式  |   加入收藏   

@2005-2023 粤ICP备2025457605号-1 指标公式网别名指标网均来源互联网收集整理,如不慎侵犯了你的权益,请联系我们告知,我们将做删除处理
免责声明:指标公式网所有指标公式及文章由网络收集,不保障实时性和真实性, 仅供学习研究并不构成投资建议,请勿以此为依据进行股票交易,由此引起的投资亏损与本站无关。
QQ:88652583 微信 88652583
sitemap站点地图