財(cái)務(wù)主圖指標(biāo)公式第七版[其他軟件公式]
相關(guān)標(biāo)簽:
?
{財(cái)務(wù)主圖第七版
指標(biāo)來(lái)源說(shuō)明：
此指標(biāo)源于lzw077和KKKale兩位老師，本人只是將兩位老師的心血做了整理性工作。
其中財(cái)務(wù)主圖為L(zhǎng)zw007老師首創(chuàng)的精品指標(biāo)。非常敬佩Lzw077老師。不僅僅是他創(chuàng)造能力和精湛的技術(shù)水平，更敬佩他的人品和為人。記得當(dāng)初Lzw077老師創(chuàng)造此指標(biāo)時(shí)，不僅將源碼無(wú)私展示給論壇朋友們共享，更為此耗費(fèi)大量的時(shí)間和精力開(kāi)專貼耐心闡述此指標(biāo)的編制原理及大量實(shí)戰(zhàn)案例，真是受益匪淺！此指標(biāo)之所以被Lzw077老師命名為“財(cái)務(wù)主圖”，顧名思義指標(biāo)中引用了部分財(cái)務(wù)數(shù)據(jù)，以后不斷修正前后出了七個(gè)版本。至第六個(gè)版本止，均有分析家、飛狐等各類股軟的版本，但至第七版時(shí)僅見(jiàn)分析家（大智慧新一代）。坦率的說(shuō)，在第六個(gè)版本時(shí)，飛狐版的已放棄了財(cái)務(wù)數(shù)據(jù)的引用，個(gè)人冒昧揣測(cè)：可能是原指標(biāo)中引用的“銷售毛利潤(rùn)率”數(shù)據(jù)飛狐軟件的財(cái)務(wù)數(shù)據(jù)沒(méi)有體現(xiàn)（細(xì)查飛狐相關(guān)財(cái)務(wù)函數(shù)也未見(jiàn)）。
個(gè)人感覺(jué)，使用沒(méi)有引用財(cái)務(wù)數(shù)據(jù)的第六版“財(cái)務(wù)主圖”稍有遺憾，隨產(chǎn)生了將Lzw007老師開(kāi)發(fā)的第七版大智慧分析家使用版改為飛狐版的念頭。苦于水平有限，沒(méi)有找到如何在飛狐中引用“銷售毛利潤(rùn)”財(cái)務(wù)數(shù)據(jù)辦法。在論壇中發(fā)求助貼，幸得KKKale老師的熱心指教，采取F10數(shù)據(jù)采集的辦法成功的解決了這一難題，并得到了KKKale老師慷慨相贈(zèng)的提取F10數(shù)據(jù)精品指標(biāo)的源碼。
今將兩位老師心血合二為一，提供給大家。因第七版財(cái)務(wù)主圖系建立在大智慧分析家的平臺(tái)上，飛狐有部分函數(shù)與之不一致，本人對(duì)此做了些修改，以便飛狐能使用。
水平有限，歡迎朋友們指出其中錯(cuò)誤，以利進(jìn)一步完善。
財(cái)務(wù)主圖第七版（飛狐專用）源碼如下：}
{銷售毛利率-適用于Wind、鵬搏}
?
?
原理解析 ：
?
?來(lái)源:程序化99（ m.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;//設(shè)定最新指標(biāo)名稱
指標(biāo)名稱:=IF(N=1,'凈資產(chǎn)收益率',IF(N=2,'主營(yíng)業(yè)務(wù)利潤(rùn)率','銷售毛利率'));WA:=IF(F10=2,F10FIND('最新簡(jiǎn)況→',10),F10FIND('財(cái)務(wù)指標(biāo)-盈利能力',10));
//Wind臨時(shí)
JA:=F10FIND('【3:利潤(rùn)構(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)名稱','最新財(cái)務(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)試用語(yǔ)句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)試用語(yǔ)句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('財(cái)務(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)試用語(yǔ)句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);
趨勢(shì):=EMA(CLOSE,5);
短線:=EMA(趨勢(shì),8);
中線:=EMA(短線,13);
長(zhǎng)線:=EMA(中線,50);
價(jià)格中樞:=(SUM(長(zhǎng)線,0)/BARPOS);
G5:價(jià)格中樞*4.236,LINETHICK2,POINTDOT,Coloryellow;
G4:價(jià)格中樞*3.382,POINTDOT,Colorwhite;
G3:價(jià)格中樞*2.618,POINTDOT,Colorwhite;
G2:價(jià)格中樞*2,LINETHICK4,color009900;
G1:價(jià)格中樞*1.191,LINETHICK4,color009900;
FILLRGN(G1,G2,G1>0),color5f5f5f;
價(jià)格中樞*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);{//威廉買點(diǎn)↑ ↓}
DRAWICON(FILTER(CROSS((0 -19),WR),10),HIGH*1.04,5);{//威廉賣點(diǎn)};
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)同價(jià):=MA(CLOSE,240);
毛利潤(rùn)率:=最新/100;
成長(zhǎng)價(jià)值:年認(rèn)同價(jià)*(1+毛利潤(rùn)率),Coloryellow,linethick1;
收益價(jià)值:年認(rèn)同價(jià)+FINANCE(21),Colorred,linethick1;
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?
有思路，想編寫(xiě)各種指標(biāo)公式，交易模型，選股公式，還原公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 或微信：cxhjy888 進(jìn)行 有償收費(fèi) 編寫(xiě)！(注：由于人數(shù)限制，QQ或微信請(qǐng)選擇方便的一個(gè)聯(lián)系我們就行，加好友時(shí)請(qǐng)簡(jiǎn)單備注下您的需求，否則無(wú)法通過(guò)。謝謝您！)
（怎么收費(fèi)，代編流程等詳情請(qǐng)點(diǎn)擊查閱！）
(注：由于人數(shù)限制，QQ或微信請(qǐng)選擇方便的一個(gè)聯(lián)系我們就行，加好友時(shí)請(qǐng)簡(jiǎn)單備注下您的需求，否則無(wú)法通過(guò)。謝謝您！)
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)