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