相關(guān)標(biāo)簽:

?

{財務(wù)主圖第七版
指標(biāo)來源說明：
此指標(biāo)源于lzw077和KKKale兩位老師，本人只是將兩位老師的心血做了整理性工作。
其中財務(wù)主圖為Lzw007老師首創(chuàng)的精品指標(biāo)。非常敬佩Lzw077老師。不僅僅是他創(chuàng)造能力和精湛的技術(shù)水平，更敬佩他的人品和為人。記得當(dāng)初Lzw077老師創(chuàng)造此指標(biāo)時，不僅將源碼無私展示給論壇朋友們共享，更為此耗費大量的時間和精力開專貼耐心闡述此指標(biāo)的編制原理及大量實戰(zhàn)案例，真是受益匪淺！此指標(biāo)之所以被Lzw077老師命名為“財務(wù)主圖”，顧名思義指標(biāo)中引用了部分財務(wù)數(shù)據(jù)，以后不斷修正前后出了七個版本。至第六個版本止，均有分析家、飛狐等各類股軟的版本，但至第七版時僅見分析家（大智慧新一代）。坦率的說，在第六個版本時，飛狐版的已放棄了財務(wù)數(shù)據(jù)的引用，個人冒昧揣測：可能是原指標(biāo)中引用的“銷售毛利潤率”數(shù)據(jù)飛狐軟件的財務(wù)數(shù)據(jù)沒有體現(xiàn)（細(xì)查飛狐相關(guān)財務(wù)函數(shù)也未見）。
個人感覺，使用沒有引用財務(wù)數(shù)據(jù)的第六版“財務(wù)主圖”稍有遺憾，隨產(chǎn)生了將Lzw007老師開發(fā)的第七版大智慧分析家使用版改為飛狐版的念頭。苦于水平有限，沒有找到如何在飛狐中引用“銷售毛利潤”財務(wù)數(shù)據(jù)辦法。在論壇中發(fā)求助貼，幸得KKKale老師的熱心指教，采取F10數(shù)據(jù)采集的辦法成功的解決了這一難題，并得到了KKKale老師慷慨相贈的提取F10數(shù)據(jù)精品指標(biāo)的源碼。
今將兩位老師心血合二為一，提供給大家。因第七版財務(wù)主圖系建立在大智慧分析家的平臺上，飛狐有部分函數(shù)與之不一致，本人對此做了些修改，以便飛狐能使用。
水平有限，歡迎朋友們指出其中錯誤，以利進(jìn)一步完善。
財務(wù)主圖第七版（飛狐專用）源碼如下：}
{銷售毛利率-適用于Wind、鵬搏}

?

?

原理解析 ：

輸出INPUT:N(3,1,3) 確定F10種類F10賦值:如果F10FIND('WIND資訊就是',1)>0,返回2,否則返回如果F10FIND('鵬搏資訊',1)>0,返回3,否則返回0 當(dāng)滿足條件SYSPARAM(2)+20=BARPOSANDF10=0時,在15位置書寫文字,COLOREEFF 條件判斷 F10=0 THEN EXIT 浦副昝聘持?如果N=1,返回'凈資產(chǎn)收益率',否則返回如果N=2,返回'主營業(yè)務(wù)利潤率',否則返回'銷售毛利率' WA賦值:如果F10=2,返回F10FIND('最新簡況→',10),否則返回F10FIND('財務(wù)指標(biāo)-盈利能力',10) 輸出WIND臨時JA賦值:F10FIND('【3:利潤構(gòu)成與盈利能力】',WA+200) 輸出VARIABLE:SJ[8]='STR',SY[8]='STR' 條件判斷 WA<0 THEN EXIT LTZ賦值:如果F10=3,返回74,否則返回70 SJT賦值:F10TEXT(F10FIND(如果F10=3,返回'指標(biāo)名稱',否則返回'最新財務(wù)指標(biāo)',WA),70) SJJ賦值:STRRIGHT(SJT,69-STRFIND(SJT,如果F10=2,返回'｜',否則返回'│',1)+2) SYT賦值:F10TEXT(F10FIND(指標(biāo)名稱,WA),LTZ) SYT賦值:STRRIGHT(SYT,LTZ-1-STRFIND(SYT,如果F10=2,返回'｜',否則返回'│',1)+2) //當(dāng)滿足條件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 //當(dāng)滿足條件SYSPARAM(2)+20=BARPOS時,在15位置書寫文字 //調(diào)試用語句DRAWTEXT(SYSPARAM(2)=BARPOS,0,'《'+指標(biāo)名稱+'》'+' \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('財務(wù)指標(biāo)(單位)',JA)+14,否則返回F10FIND('指標(biāo)名稱',WA+700)+12,56)) SYT1賦值:F10TEXT(F10FIND(指標(biāo)名稱, 如果F10=2,返回JA+100,否則返回WA+700)+18,56) //當(dāng)滿足條件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 最新賦值:字符串轉(zhuǎn)化為數(shù)字(條件函數(shù)(TMP=1 AND F10=2 AND N=3,SY[5],SY[1])),PRECISION4,COLORFFFFFF 填充背景 趨勢賦值:收盤價的5日指數(shù)移動平均 短線賦值:趨勢的8日指數(shù)移動平均 中線賦值:短線的13日指數(shù)移動平均 長線賦值:中線的50日指數(shù)移動平均 價格中樞賦值:(長線的歷史累和/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 輸出回調(diào)認(rèn)同:X的13日指數(shù)移動平均,COLORFF00FF 當(dāng)滿足條件收陽線時,在最高價和最低價位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR9933FF 當(dāng)滿足條件開盤價>=收盤價時,在最低價和最高價位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR66CC33 當(dāng)滿足條件開盤價>=收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR009900 當(dāng)滿足條件開盤價>=收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00CC00 當(dāng)滿足條件開盤價>=收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR33FF00 當(dāng)滿足條件開盤價>=收盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR66FF00 當(dāng)滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR000099 當(dāng)滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR0000CC 當(dāng)滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR0000FF 當(dāng)滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR0033FF AA賦值:收盤價/1日前的收盤價>=1.09 當(dāng)滿足條件AA時,在開盤價和收盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫黃色 當(dāng)滿足條件AA時,在最低價和最高價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,畫黃色 X1賦值:(收盤價+最低價+最高價)/3 BB13賦值:X1的13日指數(shù)移動平均-1日前的X1的13日指數(shù)移動平均的反正切*3.1416*10 EMA8賦值:收盤價的8日指數(shù)移動平均 當(dāng)滿足條件BB13>1ANDEMA(X1,13)>1日前的X1的8日指數(shù)移動平均的10日過濾時,在EMA8位置書寫文字,畫白色 WR賦值:-100*(14日內(nèi)最高價的最高值-收盤價)/(14日內(nèi)最高價的最高值-14日內(nèi)最低價的最低值) 當(dāng)滿足條件WR上穿(0-81)的10日過濾時,在最低價位置畫4號圖標(biāo) 當(dāng)滿足條件(0-19)上穿WR的10日過濾時,在最高價*1.04位置畫5號圖標(biāo) 當(dāng)滿足條件統(tǒng)計5日中滿足收盤價>1日前的收盤價的天數(shù)=5時,在最高價*1.01位置畫3號圖標(biāo) 當(dāng)滿足條件統(tǒng)計5日中滿足收盤價<1日前的收盤價的天數(shù)=5時,在最低價*0.995位置畫1號圖標(biāo) 年認(rèn)同價賦值:收盤價的240日簡單移動平均 毛利潤率賦值:最新/100 輸出成長價值:年認(rèn)同價*(1+毛利潤率),畫黃色,線寬為1 輸出收益價值:年認(rèn)同價+營業(yè)成本,畫紅色,線寬為1

?

?來源:程序化99（ www.weiqiv.net.cn ）

源碼 ：

?

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;//設(shè)定最新指標(biāo)名稱
指標(biāo)名稱:=IF(N=1,'凈資產(chǎn)收益率',IF(N=2,'主營業(yè)務(wù)利潤率','銷售毛利率'));WA:=IF(F10=2,F10FIND('最新簡況→',10),F10FIND('財務(wù)指標(biāo)-盈利能力',10));
//Wind臨時
JA:=F10FIND('【3:利潤構(gòu)成與盈利能力】',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,'指標(biāo)名稱','最新財務(wù)指標(biāo)'),WA),70);
SJJ:=STRRIGHT(SJT,69-STRFIND(SJT,IF(F10=2,'｜','│'),1)+2);
SYT:=F10TEXT(F10FIND(指標(biāo)名稱,WA),LTZ);
SYT:=STRRIGHT(SYT,LTZ-1-STRFIND(SYT,IF(F10=2,'｜','│'),1)+2);//DRAWTEXT(SYSPARAM(2)+20=BARPOS,25,Syt);//調(diào)試用語句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]);//調(diào)試用語句DRAWTEXT(SYSPARAM(2)=BARPOS,0,'《'+指標(biāo)名稱+'》'+' \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('財務(wù)指標(biāo)(單位)',JA)+14,F10FIND('指標(biāo)名稱',WA+700)+12),56));
SYT1:=F10TEXT(F10FIND(指標(biāo)名稱, IF(F10=2,JA+100,WA+700))+18,56);//DRAWTEXT(SYSPARAM(2)+20=BARPOS,15,SYT1);//調(diào)試用語句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;最新:=字符串轉(zhuǎn)化為數(shù)字(條件函數(shù)(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;
回調(diào)認(rèn)同: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);
年認(rèn)同價:=MA(CLOSE,240);
毛利潤率:=最新/100;
成長價值:年認(rèn)同價*(1+毛利潤率),Coloryellow,linethick1;
收益價值:年認(rèn)同價+FINANCE(21),Colorred,linethick1;

?

公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】

?