相關標簽:

?

{財務主圖第七版
指標來源說明：
此指標源于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.kzuj.com.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;//設定最新指標名稱
指標名稱:=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;

?

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

?