分析家公式网,提供指标公式,股票软件 用户登录  |  用户 注册
当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：一本万利（通达信公式 副图 源码 测试图）

软件名称：[B]一本万利（通达信公式 副图 源码 测试图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：11.0 KB
官方主页：Home Page
更新时间：2020-12-31 00:15:18
软件简介:

 新版通达信公式，老通达信已经不能使用。

下面的是源码中的新函数
HYSJL 
本网的开心果整合版本，就可以使用。
公式没加密

 
{一本万利}
 
AYEAR:=IF(FINANCE(37)=4,YEAR-2,IF(FINANCE(37)!=4,YEAR-1,DRAWNULL));
RCF:=(FINONE(66,同期,0)+FINONE(68,同期,0))/FINONE(238,同期,0);
NIIC:=FINONE(131,同期,0)/FINONE(238,同期,0);
CASH:=FINONE(133,同期,0)/FINONE(238,同期,0);
EPS:=FINONE(308,同期,0)*10000/FINONE(238,同期,0);
DEPS:=FINONE(309,同期,0)*10000/FINONE(238,同期,0);
DR:=FINANCE(45)*DYNAINFO(38);
CFFO:=EPS*DR/100;
DYR:=CFFO/C*100;
MOIN:=DYR/12*10;
所属地域:=STRCAT('所属地域: ',DYBLOCK);
所属行业:=STRCAT('所属行业: ',HYZSCODE);
所属概念:=STRCAT('所属概念: ',EXTERNSTR(0,1));
所属风格:=STRCAT('所属风格: ',FGBLOCK);
所属指数:=STRCAT('所属指数: ',ZSBLOCK);
业绩快报:=STRCAT(STRCAT('业绩快报: ',CON2STR(FINVALUE(291),2)),'元');
留存收益:=STRCAT(STRCAT('留存收益: ',CON2STR(RCF,2)),'元');
现金净额:=STRCAT(STRCAT('现金净额: ',CON2STR(NIIC,2)),'元');
现金余额:=STRCAT(STRCAT('现金余额: ',CON2STR(CASH,2)),'元');
分红率:=STRCAT(STRCAT('分红率: ',CON2STR(DR,2)),'%');
分红:=STRCAT(STRCAT('分红: ',CON2STR(CFFO,2)),'元');
股息率:=STRCAT(STRCAT('股息率: ',CON2STR(DYR,2)),'%');
月息:=STRCAT(STRCAT('月息: ',CON2STR(MOIN,2)),'厘');
DRAWTEXT_FIX(1,0.00,0.00,0,所属地域),COLORMAGENTA;
DRAWTEXT_FIX(1,0.00,0.06,0,所属行业),COLORCYAN;
DRAWTEXT_FIX(1,0.00,0.12,0,所属概念),COLORGREEN;
DRAWTEXT_FIX(1,0.00,0.18,0,所属风格),COLORYELLOW;
DRAWTEXT_FIX(1,0.00,0.24,0,所属指数),COLORRED;
DRAWTEXT_FIX(1,0.23,0.00,0,业绩快报),COLORMAGENTA;
DRAWTEXT_FIX(1,0.23,0.06,0,留存收益),COLORCYAN;
DRAWTEXT_FIX(1,0.43,0.00,0,现金净额),COLORGREEN;
DRAWTEXT_FIX(1,0.43,0.06,0,现金余额),COLORGREEN;
DRAWTEXT_FIX(1,0.63,0.00,0,分红率),COLORYELLOW;
DRAWTEXT_FIX(1,0.63,0.06,0,分红),COLORYELLOW;
DRAWTEXT_FIX(1,0.80,0.00,0,股息率),COLORRED;
DRAWTEXT_FIX(1,0.80,0.06,0,月息),COLORRED;
E2:=EPS+FINONE(308,同期+1,0)*10000/FINONE(238,同期+1,0);E3:=E2+FINONE(308,同期+2,0)*10000/FINONE(238,同期+2,0);
E4:=E3+FINONE(308,同期+3,0)*10000/FINONE(238,同期+3,0);E5:=E4+FINONE(308,同期+4,0)*10000/FINONE(238,同期+4,0);
E6:=E5+FINONE(308,同期+5,0)*10000/FINONE(238,同期+5,0);E7:=E6+FINONE(308,同期+6,0)*10000/FINONE(238,同期+6,0);
E8:=E7+FINONE(308,同期+7,0)*10000/FINONE(238,同期+7,0);E9:=E8+FINONE(308,同期+8,0)*10000/FINONE(238,同期+8,0);
E10:=E9+FINONE(308,同期+9,0)*10000/FINONE(238,同期+9,0);E11:=E10+FINONE(308,同期+10,0)*10000/FINONE(238,同期+10,0);
E12:=E11+FINONE(308,同期+11,0)*10000/FINONE(238,同期+11,0);E13:=E12+FINONE(308,同期+12,0)*10000/FINONE(238,同期+12,0);
E14:=E13+FINONE(308,同期+13,0)*10000/FINONE(238,同期+13,0);E15:=E14+FINONE(308,同期+14,0)*10000/FINONE(238,同期+14,0);
E16:=E15+FINONE(308,同期+15,0)*10000/FINONE(238,同期+15,0);E17:=E16+FINONE(308,同期+16,0)*10000/FINONE(238,同期+16,0);
E18:=E17+FINONE(308,同期+17,0)*10000/FINONE(238,同期+17,0);E19:=E18+FINONE(308,同期+18,0)*10000/FINONE(238,同期+18,0);
E20:=E19+FINONE(308,同期+19,0)*10000/FINONE(238,同期+19,0);E21:=E20+FINONE(308,同期+20,0)*10000/FINONE(238,同期+20,0);
E22:=E21+FINONE(308,同期+21,0)*10000/FINONE(238,同期+21,0);E23:=E22+FINONE(308,同期+22,0)*10000/FINONE(238,同期+22,0);
E24:=E23+FINONE(308,同期+23,0)*10000/FINONE(238,同期+23,0);E25:=E24+FINONE(308,同期+24,0)*10000/FINONE(238,同期+24,0);
E26:=E25+FINONE(308,同期+25,0)*10000/FINONE(238,同期+25,0);E27:=E26+FINONE(308,同期+26,0)*10000/FINONE(238,同期+26,0);
E28:=E27+FINONE(308,同期+27,0)*10000/FINONE(238,同期+27,0);E29:=E28+FINONE(308,同期+28,0)*10000/FINONE(238,同期+28,0);
E30:=E29+FINONE(308,同期+29,0)*10000/FINONE(238,同期+29,0);E31:=E30+FINONE(308,同期+30,0)*10000/FINONE(238,同期+30,0);
E32:=E31+FINONE(308,同期+31,0)*10000/FINONE(238,同期+31,0);E33:=E32+FINONE(308,同期+32,0)*10000/FINONE(238,同期+32,0);
E34:=E33+FINONE(308,同期+33,0)*10000/FINONE(238,同期+33,0);E35:=E34+FINONE(308,同期+34,0)*10000/FINONE(238,同期+34,0);
E36:=E35+FINONE(308,同期+35,0)*10000/FINONE(238,同期+35,0);E37:=E36+FINONE(308,同期+36,0)*10000/FINONE(238,同期+36,0);
E38:=E37+FINONE(308,同期+37,0)*10000/FINONE(238,同期+37,0);E39:=E38+FINONE(308,同期+38,0)*10000/FINONE(238,同期+38,0);
E40:=E39+FINONE(308,同期+39,0)*10000/FINONE(238,同期+39,0);
E:=IF(年均=2,E2,IF(年均=3,E3,IF(年均=4,E4,IF(年均=5,E5,IF(年均=6,E6,IF(年均=7,E7,IF(年均=8,E8,IF(年均=9,E9,IF(年均=10,E10,IF(年均=11,E11,
IF(年均=12,E12,IF(年均=13,E13,IF(年均=14,E14,IF(年均=15,E15,IF(年均=16,E16,IF(年均=17,E17,IF(年均=18,E18,IF(年均=19,E19,IF(年均=20,E20,IF(年均=21,E21,
IF(年均=22,E22,IF(年均=23,E23,IF(年均=24,E24,IF(年均=25,E25,IF(年均=26,E26,IF(年均=27,E27,IF(年均=28,E28,IF(年均=29,E29,IF(年均=30,E30,IF(年均=31,E31,
IF(年均=32,E32,IF(年均=33,E33,IF(年均=34,E34,IF(年均=35,E35,IF(年均=36,E36,IF(年均=37,E37,IF(年均=38,E38,IF(年均=39,E39,IF(年均=40,E40,DRAWNULL)))))))))))))))))))))))))))))))))))))));
EPSAR:=E/年均;
BUS:=FINONE(35,同期,0)/FINONE(238,同期,0);
OCF:=FINONE(307,同期,0)/FINONE(238,同期,0);
ROS:=FINONE(202,同期,0)/FINONE(202,(复合+同期),0);
ROSCAGR:=IF(FINONE(202,同期,0)!=0,(POW(ROS,(1/复合))-1)*100,DRAWNULL);
EP:=EPS/C*100;
ROP:=FINONE(199,同期,0)/FINONE(199,(复合+同期),0);
ROPCAGR:=IF(FINONE(199,同期,0)!=0,(POW(ROP,(1/复合))-1)*100,DRAWNULL);
EGR:=FINONE(276,同期,0)/FINONE(276,(复合+同期),0);
ECAGR:=(POW(EGR,(1/复合))-1)*100;
MGR:=FINONE(283,同期,0)/FINONE(283,(复合+同期),0);
MCAGR:=(POW(MGR,(1/复合))-1)*100;
BGR:=FINONE(4,同期,0)/FINONE(4,(复合+同期),0);
BCAGR:=(POW(BGR,(1/复合))-1)*100;
ROE:=FINONE(6,同期,0)+FINONE(6,(AYEAR-同期),1231)-FINONE(6,(同期+1),0);R2:=ROE+(FINONE(6,(同期+1),0)+FINONE(6,(AYEAR-同期-1),1231)-FINONE(6,(同期+2),0));
R3:=R2+FINONE(6,(同期+2),0)+FINONE(6,(AYEAR-同期-2),1231)-FINONE(6,(同期+3),0);R4:=R3+FINONE(6,(同期+3),0)+FINONE(6,(AYEAR-同期-3),1231)-FINONE(6,(同期+4),0);
R5:=R4+FINONE(6,(同期+4),0)+FINONE(6,(AYEAR-同期-4),1231)-FINONE(6,(同期+5),0);R6:=R5+FINONE(6,(同期+5),0)+FINONE(6,(AYEAR-同期-5),1231)-FINONE(6,(同期+6),0);
R7:=R6+FINONE(6,(同期+6),0)+FINONE(6,(AYEAR-同期-6),1231)-FINONE(6,(同期+7),0);R8:=R7+FINONE(6,(同期+7),0)+FINONE(6,(AYEAR-同期-7),1231)-FINONE(6,(同期+8),0);
R9:=R8+FINONE(6,(同期+8),0)+FINONE(6,(AYEAR-同期-8),1231)-FINONE(6,(同期+9),0);R10:=R9+FINONE(6,(同期+9),0)+FINONE(6,(AYEAR-同期-9),1231)-FINONE(6,(同期+10),0);
R11:=R10+FINONE(6,(同期+10),0)+FINONE(6,(AYEAR-同期-10),1231)-FINONE(6,(同期+11),0);R12:=R11+FINONE(6,(同期+11),0)+FINONE(6,(AYEAR-同期-11),1231)-FINONE(6,(同期+12),0);
R13:=R12+FINONE(6,(同期+12),0)+FINONE(6,(AYEAR-同期-12),1231)-FINONE(6,(同期+13),0);R14:=R13+FINONE(6,(同期+13),0)+FINONE(6,(AYEAR-同期-13),1231)-FINONE(6,(同期+14),0);
R15:=R14+FINONE(6,(同期+14),0)+FINONE(6,(AYEAR-同期-14),1231)-FINONE(6,(同期+15),0);R16:=R15+FINONE(6,(同期+15),0)+FINONE(6,(AYEAR-同期-15),1231)-FINONE(6,(同期+16),0);
R17:=R16+FINONE(6,(同期+16),0)+FINONE(6,(AYEAR-同期-16),1231)-FINONE(6,(同期+17),0);R18:=R17+FINONE(6,(同期+17),0)+FINONE(6,(AYEAR-
[url=http://www.70822.com/soft/sort013/sort05/down-152600.html]一本万利（通达信公式 副图 源码 测试图）[/url]

关于本站 | 网站帮助 | 广告合作 | 声明 | 友情连接 | 网站地图 |
分析家公式网声明：本站所有股票公式软件资料均网上公开收集，如侵权请联系删帖。站内所有广告，均与本站无关！
Copyright © 2003-2024 70822.Com. All Rights Reserved .
页面执行时间：62.50000 毫秒