财务主图指标公式第七版[其他软件公式]

相关标签:

{财务主图第七版
指标来源说明：
此指标源于lzw077和KKKale两位老师，本人只是将两位老师的心血做了整理性工作。
其中财务主图为Lzw007老师首创的精品指标。非常敬佩Lzw077老师。不仅仅是他创造能力和精湛的技术水平，更敬佩他的人品和为人。记得当初Lzw077老师创造此指标时，不仅将源码无私展示给论坛朋友们共享，更为此耗费大量的时间和精力开专贴耐心阐述此指标的编制原理及大量实战案例，真是受益匪浅！此指标之所以被Lzw077老师命名为“财务主图”，顾名思义指标中引用了部分财务数据，以后不断修正前后出了七个版本。至第六个版本止，均有分析家、飞狐等各类股软的版本，但至第七版时仅见分析家（大智慧新一代）。坦率的说，在第六个版本时，飞狐版的已放弃了财务数据的引用，个人冒昧揣测：可能是原指标中引用的“销售毛利润率”数据飞狐软件的财务数据没有体现（细查飞狐相关财务函数也未见）。
个人感觉，使用没有引用财务数据的第六版“财务主图”稍有遗憾，随产生了将Lzw007老师开发的第七版大智慧分析家使用版改为飞狐版的念头。苦于水平有限，没有找到如何在飞狐中引用“销售毛利润”财务数据办法。在论坛中发求助贴，幸得KKKale老师的热心指教，采取F10数据采集的办法成功的解决了这一难题，并得到了KKKale老师慷慨相赠的提取F10数据精品指标的源码。
今将两位老师心血合二为一，提供给大家。因第七版财务主图系建立在大智慧分析家的平台上，飞狐有部分函数与之不一致，本人对此做了些修改，以便飞狐能使用。
水平有限，欢迎朋友们指出其中错误，以利进一步完善。
财务主图第七版（飞狐专用）源码如下：}
{销售毛利率-适用于Wind、鹏搏}

原理解析 ：

输出INPUT:N(3,1,3) 确定F10种类F10赋值:如果F10FIND('WIND资讯就是',1)>0,返回2,否则返回如果F10FIND('鹏搏资讯',1)>0,返回3,否则返回0 当满足条件SYSPARAM(2)+20=BARPOSANDF10=0时,在15位置书写文字,COLOREEFF 条件判断 F10=0 THEN EXIT 浦副昝聘持?如果N=1,返回'净资产收益率',否则返回如果N=2,返回'主营业务利润率',否则返回'销售毛利率' WA赋值:如果F10=2,返回F10FIND('最新简况→',10),否则返回F10FIND('财务指标-盈利能力',10) 输出WIND临时JA赋值:F10FIND('【3:利润构成与盈利能力】',WA+200) 输出VARIABLE:SJ[8]='STR',SY[8]='STR' 条件判断 WA<0 THEN EXIT LTZ赋值:如果F10=3,返回74,否则返回70 SJT赋值:F10TEXT(F10FIND(如果F10=3,返回'指标名称',否则返回'最新财务指标',WA),70) SJJ赋值:STRRIGHT(SJT,69-STRFIND(SJT,如果F10=2,返回'｜',否则返回'│',1)+2) SYT赋值:F10TEXT(F10FIND(指标名称,WA),LTZ) SYT赋值:STRRIGHT(SYT,LTZ-1-STRFIND(SYT,如果F10=2,返回'｜',否则返回'│',1)+2) //当满足条件SYSPARAM(2)+20=BARPOS时,在25位置书写文字 赋值:STRMID(SJJ,如果F10=3,返回14*(J-1)+5,否则返回12*(J-1)+如果J<4,返回5,否则返回4,8) 赋值:LTRIM(STRMID(SYT,如果F10=3,返回14*(J-1)+7,否则返回如果F10=2,返回12*(J-1)+3,否则返回10*(J-1),8)) END //当满足条件SYSPARAM(2)+20=BARPOS时,在15位置书写文字 //调试用语句DRAWTEXT(SYSPARAM(2)=BARPOS,0,'《'+指标名称+'》'+' \N \N最新日期：'+SJ[1]),ALIGN4,COLOREEFF TMP赋值:如果字符串比较=0,返回0,否则返回1 WT赋值:如果STRLEN(RTRIM(SJ[4]))>4,返回1,否则返回0 XSL赋值:如果DATACOUNT<60,返回1,否则返回5 KG赋值:' ' SJT1赋值:LTRIM(F10TEXT(如果F10=2,返回F10FIND('财务指标(单位)',JA)+14,否则返回F10FIND('指标名称',WA+700)+12,56)) SYT1赋值:F10TEXT(F10FIND(指标名称, 如果F10=2,返回JA+100,否则返回WA+700)+18,56) //当满足条件SYSPARAM(2)+20=BARPOS时,在15位置书写文字 赋值:STRMID(SJT1,如果F10=3,返回14*(J-5)+5,否则返回如果F10=2,返回12*(J-5)+5,否则返回3,8) 赋值:LTRIM(STRMID(SYT1,如果F10=3,返回14*(J-5)+5,否则返回如果F10=2,返回12*(J-5)+5,否则返回3,8)) END 最新赋值:字符串转化为数字(条件函数(TMP=1 AND F10=2 AND N=3,SY[5],SY[1])),PRECISION4,COLORFFFFFF 填充背景 趋势赋值:收盘价的5日指数移动平均 短线赋值:趋势的8日指数移动平均 中线赋值:短线的13日指数移动平均 长线赋值:中线的50日指数移动平均 价格中枢赋值:(长线的历史累和/BARPOS) 输出G5:价格中枢*4.236,线宽为2,POINTDOT,画黄色 输出G4:价格中枢*3.382,POINTDOT,画白色 输出G3:价格中枢*2.618,POINTDOT,画白色 输出G2:价格中枢*2,线宽为4,COLOR009900 输出G1:价格中枢*1.191,线宽为4,COLOR009900 FILLRGN(G1,G2,G1>0),COLOR5F5F5F 价格中枢*1.618,线宽为1,COLORFFBB00 A赋值:(3*收盘价+最低价+开盘价+最高价)/6 X赋值:(20*A+19*1日前的A+18*2日前的A+17*3日前的A+16*4日前的A+15*5日前的A+14*6日前的A+13*7日前的A+12*8日前的A+11*9日前的A+10*10日前的A+9*11日前的A+8*12日前的A+7*13日前的A+6*14日前的A+5*15日前的A+4*16日前的A+3*17日前的A+2*18日前的A+20日前的A)/210 输出回调认同:X的13日指数移动平均,COLORFF00FF 当满足条件收阳线时,在最高价和最低价位置之间画柱状线,宽度为0.3,0不为0则画空心柱.,COLOR9933FF 当满足条件开盘价>=收盘价时,在最低价和最高价位置之间画柱状线,宽度为0.3,0不为0则画空心柱.,COLOR66CC33 当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR009900 当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR00CC00 当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,COLOR33FF00 当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR66FF00 当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR000099 当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR0000CC 当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,COLOR0000FF 当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR0033FF AA赋值:收盘价/1日前的收盘价>=1.09 当满足条件AA时,在开盘价和收盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,画黄色 当满足条件AA时,在最低价和最高价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,画黄色 X1赋值:(收盘价+最低价+最高价)/3 BB13赋值:X1的13日指数移动平均-1日前的X1的13日指数移动平均的反正切*3.1416*10 EMA8赋值:收盘价的8日指数移动平均 当满足条件BB13>1ANDEMA(X1,13)>1日前的X1的8日指数移动平均的10日过滤时,在EMA8位置书写文字,画白色 WR赋值:-100*(14日内最高价的最高值-收盘价)/(14日内最高价的最高值-14日内最低价的最低值) 当满足条件WR上穿(0-81)的10日过滤时,在最低价位置画4号图标 当满足条件(0-19)上穿WR的10日过滤时,在最高价*1.04位置画5号图标 当满足条件统计5日中满足收盘价>1日前的收盘价的天数=5时,在最高价*1.01位置画3号图标 当满足条件统计5日中满足收盘价<1日前的收盘价的天数=5时,在最低价*0.995位置画1号图标 年认同价赋值:收盘价的240日简单移动平均 毛利润率赋值:最新/100 输出成长价值:年认同价*(1+毛利润率),画黄色,线宽为1 输出收益价值:年认同价+营业成本,画红色,线宽为1

 来源:程序化99（ WWW.CXH99.COM ）

源码 ：

INPUT:N(3,1,3);
//确定F10种类
F10:=IF(F10FIND('Wind资讯就是',1)>0,2,IF(F10FIND('鹏搏资讯',1)>0,3,0));
DRAWTEXT(SYSPARAM(2)+20=BARPOS AND F10=0,15,'本公式不适合该种F10资料。'),COLOREEFF;
IF F10=0 THEN EXIT;//设定最新指标名称
指标名称:=IF(N=1,'净资产收益率',IF(N=2,'主营业务利润率','销售毛利率'));WA:=IF(F10=2,F10FIND('最新简况→',10),F10FIND('财务指标-盈利能力',10));
//Wind临时
JA:=F10FIND('【3:利润构成与盈利能力】',WA+200);VARIABLE:SJ[8]='str',SY[8]='str';
IF WA<0 then EXIT;
LTZ:=IF(F10=3,74,70);
SJT:=F10TEXT(F10FIND(IF(F10=3,'指标名称','最新财务指标'),WA),70);
SJJ:=STRRIGHT(SJT,69-STRFIND(SJT,IF(F10=2,'｜','│'),1)+2);
SYT:=F10TEXT(F10FIND(指标名称,WA),LTZ);
SYT:=STRRIGHT(SYT,LTZ-1-STRFIND(SYT,IF(F10=2,'｜','│'),1)+2);//DRAWTEXT(SYSPARAM(2)+20=BARPOS,25,Syt);//调试用语句FOR j=1 TO 4 DO BEGIN
SJ[j]:=STRMID(SJJ,IF(F10=3,14*(j-1)+5,12*(j-1)+IF(j<4,5,4)),8);
SY[j]:=LTRIM(STRMID(SYT,IF(F10=3,14*(j-1)+7,IF(F10=2,12*(j-1)+3,10*(j-1))),8));
END;//DRAWTEXT(SYSPARAM(2)+20=BARPOS,15,SJ[1]);//调试用语句DRAWTEXT(SYSPARAM(2)=BARPOS,0,'《'+指标名称+'》'+' \n \n最新日期：'+SJ[1]),ALIGN4,COLOREEFF;
TMP:=IF(STRCMP(STRMID(SJ[1],4,2),'12')=0,0,1);
WT:=IF(STRLEN(RTRIM(SJ[4]))>4,1,0);XSL:=IF(DATACOUNT<60,1,5);
KG:=' ';
SJT1:=LTRIM(F10TEXT(IF(F10=2,F10FIND('财务指标(单位)',JA)+14,F10FIND('指标名称',WA+700)+12),56));
SYT1:=F10TEXT(F10FIND(指标名称, IF(F10=2,JA+100,WA+700))+18,56);//DRAWTEXT(SYSPARAM(2)+20=BARPOS,15,SYT1);//调试用语句FOR j=5 TO 8 DO BEGIN
SJ[j]:=STRMID(SJT1,IF(F10=3,14*(j-5)+5,IF(F10=2,12*(j-5)+5,3)),8);
SY[j]:=LTRIM(STRMID(SYT1,IF(F10=3,14*(j-5)+5,IF(F10=2,12*(j-5)+5,3)),8));
END;最新:=字符串转化为数字(条件函数(TMP=1 AND F10=2 AND N=3,SY[5],SY[1])),PRECISION4,COLORFFFFFF;
DRAWGBK(CLOSE>0,COLORRGB(0,128,128),COLORRGB(25,25,112),0);
趋势:=EMA(CLOSE,5);
短线:=EMA(趋势,8);
中线:=EMA(短线,13);
长线:=EMA(中线,50);
价格中枢:=(SUM(长线,0)/BARPOS);
G5:价格中枢*4.236,LINETHICK2,POINTDOT,Coloryellow;
G4:价格中枢*3.382,POINTDOT,Colorwhite;
G3:价格中枢*2.618,POINTDOT,Colorwhite;
G2:价格中枢*2,LINETHICK4,color009900;
G1:价格中枢*1.191,LINETHICK4,color009900;
FILLRGN(G1,G2,G1>0),color5f5f5f;
价格中枢*1.618,LINETHICK1,COLORFFBB00;
a:=(3*CLOSE+LOW+OPEN+HIGH)/6;
X:=(20*a+19*REF(a,1)+18*REF(a,2)+17*REF(a,3)+16*REF(a,4)+15*REF(a,5)+
14*REF(a,6)+13*REF(a,7)+12*REF(a,8)+11*REF(a,9)+10*REF(a,10)+9*REF(a,11)+8*REF(a,12)
+7*REF(a,13)+6*REF(a,14)+5*REF(a,15)+4*REF(a,16)+3*REF(a,17)+2*REF(a,18)+
REF(a,20))/210;
回调认同:EMA(X,13),colorff00ff;
STICKLINE(CLOSE>OPEN,HIGH,LOW,0.3,0 ),COLOR9933FF;
STICKLINE(OPEN>=CLOSE,LOW,HIGH,0.3,0 ),COLOR66CC33;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0),COLOR009900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0),COLOR00CC00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1.5,0),COLOR33FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0),COLOR66FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0),COLOR000099;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0 ),COLOR0000CC;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.5,0 ),COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0 ),COLOR0033FF;
aa:=CLOSE/REF(CLOSE,1)>=1.09;
STICKLINE(aa,OPEN,CLOSE,8,0),coloryellow;
STICKLINE(aa,LOW,HIGH,0.5 ,0 ),coloryellow;
{}
x1:=(CLOSE+LOW+HIGH)/3;
bb13:=ATAN(EMA(x1,13)-REF(EMA(x1,13),1))*3.1416*10;
ema8:=EMA(CLOSE,8);
DRAWTEXT(FILTER(bb13>1 and EMA(x1,13)>REF(EMA(x1,8),1),10),
ema8,'∠45上升'),colorwhite;
{}
WR:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
DRAWICON(FILTER(CROSS(WR,(0 - 81)),10),LOW,4);{//威廉买点↑ ↓}
DRAWICON(FILTER(CROSS((0 -19),WR),10),HIGH*1.04,5);{//威廉卖点};
DRAWICON(COUNT(CLOSE>REF(CLOSE,1),5)=5,HIGH*1.01,3);
DRAWICON(COUNT(CLOSE<REF(CLOSE,1),5)=5,LOW*0.995,1);
年认同价:=MA(CLOSE,240);
毛利润率:=最新/100;
成长价值:年认同价*(1+毛利润率),Coloryellow,linethick1;
收益价值:年认同价+FINANCE(21),Colorred,linethick1;

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】