机构数量和连续几年的净利润与扣非 公式并非原创,也是从论坛得到的,做了些修改:
1.自动适应年份
2.增加了一年的数据
3.所有坐标都改用变量,方便更改。
4.去除了数据的柱形对比
5.增加了同比列。
这个需要下载专业财务数据
{年份:=20;}{2020年就是20 2021就是21 以此类推}
年份:=INTPART((MACHINEDATE-01000000)/10000);{机器时间去除得到年份的后2位数}
列17年:=0.21;
列18年:=0.41;
列19年:=0.61;
列20年:=0.81;
列18同比:=0.54;
列19同比:=0.74;
列20同比:=0.94;
行一季:=0.10;
行二季:=0.20;
行三季:=0.30;
行四季:=0.40;
行扣非一季:=0.60;
行扣非二季:=0.70;
行扣非三季:=0.80;
行扣非四季:=0.90;
行年标题:=0.00;
行扣非标题:=0.5;
{今年}
第一季20:=FINONE(232,年份,331)/10000;
第二季20:=FINONE(232,年份,630)/10000;
第三季20:=FINONE(232,年份,930)/10000;
第四季20:=FINONE(232,年份,1231)/10000;
第一季20扣:=FINONE(233,年份,331)/10000;
第二季20扣:=FINONE(233,年份,630)/10000;
第三季20扣:=FINONE(233,年份,930)/10000;
第四季20扣:=FINONE(233,年份,1231)/10000;
{去年}
第一季19:=FINONE(232,年份-1,331)/10000;
第二季19:=FINONE(232,年份-1,630)/10000;
第三季19:=FINONE(232,年份-1,930)/10000;
第四季19:=FINONE(232,年份-1,1231)/10000;
第一季19扣:=FINONE(233,年份-1,331)/10000;
第二季19扣:=FINONE(233,年份-1,630)/10000;
第三季19扣:=FINONE(233,年份-1,930)/10000;
第四季19扣:=FINONE(233,年份-1,1231)/10000;
{前年}
第一季18:=FINONE(232,年份-2,331)/10000;
第二季18:=FINONE(232,年份-2,630)/10000;
第三季18:=FINONE(232,年份-2,930)/10000;
第四季18:=FINONE(232,年份-2,1231)/10000;
第一季18扣:=FINONE(233,年份-2,331)/10000;
第二季18扣:=FINONE(233,年份-2,630)/10000;
第三季18扣:=FINONE(233,年份-2,930)/10000;
第四季18扣:=FINONE(233,年份-2,1231)/10000;
{大前年}
第一季17:=FINONE(232,年份-3,331)/10000;
第二季17:=FINONE(232,年份-3,630)/10000;
第三季17:=FINONE(232,年份-3,930)/10000;
第四季17:=FINONE(232,年份-3,1231)/10000;
第一季17扣:=FINONE(233,年份-3,331)/10000;
第二季17扣:=FINONE(233,年份-3,630)/10000;
第三季17扣:=FINONE(233,年份-3,930)/10000;
第四季17扣:=FINONE(233,年份-3,1231)/10000;
{大前年}
DRAWTEXT_FIX(ISLASTBAR,列17年,行年标题,0,STRCAT(CON2STR(年份-3,0),' 年')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列17年,行扣非标题,0,'扣非'),COLORRED;
{STICKLINE(CURRBARSCOUNT=208 AND 第一季17>=0,0,第一季17,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=208 AND 第一季17<0,0,ABS(第一季17),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列17年,行一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季17,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列17年,行扣非一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季17扣,2),'万元'))),COLORLIGRAY;
{STICKLINE(CURRBARSCOUNT=202 AND 第二季17>=0,0,第二季17,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=202 AND 第二季17<0,0,ABS(第二季17),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列17年,行二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季17,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列17年,行扣非二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季17扣,2),'万元'))),COLORLIGRAY;
{STICKLINE(CURRBARSCOUNT=196 AND 第三季17>=0,0,第三季17,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=196 AND 第三季17<0,0,ABS(第三季17),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列17年,行三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季17,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列17年,行扣非三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季17扣,2),'万元'))),COLORLIGRAY;
{STICKLINE(CURRBARSCOUNT=190 AND 第四季17>=0,0,第四季17,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=190 AND 第四季17<0,0,ABS(第四季17),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列17年,行四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季17,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列17年,行扣非四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季17扣,2),'万元'))),COLORLIGRAY;
{前年}
DRAWTEXT_FIX(ISLASTBAR,列18年,行年标题,0,STRCAT(CON2STR(年份-2,0),' 年')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列18年,行扣非标题,0,'扣非'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列18同比,行扣非标题,0,'同比'),COLORRED;
{STICKLINE(CURRBARSCOUNT=152 AND 第一季18>=0,0,第一季18,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=152 AND 第一季18<0,0,ABS(第一季18),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列18年,行一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季18,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18年,行扣非一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季18扣,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18同比,行扣非一季,0,STRCAT(CON2STR((第一季18扣/第一季17扣-1)*100,2),'%')),COLORRED;
{STICKLINE(CURRBARSCOUNT=146 AND 第二季18>=0,0,第二季18,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=146 AND 第二季18<0,0,ABS(第二季18),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列18年,行二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季18,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18年,行扣非二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季18扣,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18同比,行扣非二季,0,STRCAT(CON2STR((第二季18扣/第二季17扣-1)*100,2),'%')),COLORRED;
{STICKLINE(CURRBARSCOUNT=140 AND 第三季18>=0,0,第三季18,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=140 AND 第三季18<0,0,ABS(第三季18),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列18年,行三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季18,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18年,行扣非三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季18扣,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18同比,行扣非三季,0,STRCAT(CON2STR((第三季18扣/第三季17扣-1)*100,2),'%')),COLORRED;
{STICKLINE(CURRBARSCOUNT=134 AND 第四季18>=0,0,第四季18,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=134 AND 第四季18<0,0,ABS(第四季18),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列18年,行四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季18,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18年,行扣非四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季18扣,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18同比,行扣非四季,0,STRCAT(CON2STR((第四季18扣/第四季17扣-1)*100,2),'%')),COLORRED;
{去年}
DRAWTEXT_FIX(ISLASTBAR,列19年,行年标题,0,STRCAT(CON2STR(年份-1,0),' 年')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列19年,行扣非标题,0,'扣非'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列19同比,行扣非标题,0,'同比'),COLORRED;
{STICKLINE(CURRBARSCOUNT=96 AND 第一季19>=0,0,第一季19,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=96 AND 第一季19<0,0,ABS(第一季19),19,0),COLORGREEN;}
DRAWTEX |
- 软件大小:8.00 KB
- 推荐星级:
- 更新时间:2021-01-12 00:16:05
- 软件类别: 国产软件 / 通达信公式
- 软件语言:简体中文
- 授权方式: 免费版
- 联系方式:暂无联系方式
- 官方主页: Home Page
- 点击大图: 【一键转帖到论坛】
- 插件情况:
- 运行环境:Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
- 相关Tags:指标公式 股票软件,公式源码
-
(0)0%(0)0%
评论内容只代表网友观点,与本站立场无关!
本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程
* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!