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

?

飛狐版北沙MACD幅圖公式由于在飛狐里無法使用畫直線函數(shù) DRAWLINE 作為變量引用，只能使用飛狐的趨勢(shì)線數(shù)值函數(shù) LINEVALUE 代替，但因?yàn)榇撕瘮?shù)的特殊性質(zhì)『估計(jì)此函數(shù)設(shè)計(jì)出來就是為了預(yù)警使用的』，相同的畫線條件在個(gè)股圖形中只能顯示最新成立的一段畫線，無法在歷史圖形中顯示，這個(gè)也是無奈之舉，如果哪位老師有更好的方法解決 通達(dá)信 畫直線函數(shù) DRAWLINE 在飛狐中的變量引用問題，請(qǐng)一定指教，我這里先萬(wàn)分感謝了源碼

?

?

?

原理解析：
輸出平滑異同平均:"MACD.MACD",線寬為0 輸出W1:當(dāng)滿足條件MACD>0時(shí),在MACD和0位置之間畫柱狀線,寬度為8,1不為0則畫空心柱.,畫紅色 輸出W2:當(dāng)滿足條件MACD<0時(shí),在MACD和0位置之間畫柱狀線,寬度為8,1不為0則畫空心柱.,畫青色 VA1賦值:上次MACD<0距今天數(shù)+1日內(nèi)MACD距今天數(shù) VA2賦值:若0上穿MACD則將最近1日前的VA1+2周期置為1上穿0.5 QG賦值:若0上穿MACDOR(ISLASTBARANDMACD>0)則將最近1日前的VA1+2周期置為1上穿0.5 輸出前高:LINEVALUE(VA2,MACD,1日前的VA2,1日前的MACD,0,0),畫洋紅色 VA3賦值:上次MACD>0距今天數(shù)+1日內(nèi)MACD距今天數(shù) VA4賦值:若MACD上穿0則將最近1日前的VA3+2周期置為1上穿0.5 BD賦值:上次0上穿MACD的收盤價(jià)的有效數(shù)據(jù)周期數(shù)日反向過濾距今天數(shù) 輸出前低:LINEVALUE(VA4,MACD,1日前的VA4,1日前的MACD,0,0) BDTJ賦值:如果MACD<0,返回MACD=上次MACD>0距今天數(shù)日內(nèi)MACD的最低值的收盤價(jià)的有效數(shù)據(jù)周期數(shù)日反向過濾,否則返回0 TSBDTJ賦值:上次BDTJ距今天數(shù) ZQ賦值:DATACOUNT-BARPOS BDZH賦值:MACD<ZQ日后的BD+1日內(nèi)MACD的最低值的收盤價(jià)的有效數(shù)據(jù)周期數(shù)日反向過濾 BDTS賦值:上次BDZH距今天數(shù) 輸出本低:如果BD+1>=1,返回ZQ日后的BD+1日內(nèi)MACD的最低值,否則返回0,線寬為0 PARTLINE(BD+1>=1,ZQ日后的BD+1日內(nèi)MACD的最低值) BDCL賦值:統(tǒng)計(jì)TSBDTJ日中滿足MACD>本低/2ANDMACD<0上穿0.5的天數(shù)=1上穿0.5 AND TSBDTJ>=0 終點(diǎn)賦值:如果ISLASTBARANDMACD>0ANDMACD=上次MACD<0距今天數(shù)日內(nèi)MACD的最高值,返回1,否則返回如果QG的收盤價(jià)的有效數(shù)據(jù)周期數(shù)日反向過濾,返回2,否則返回0 UU賦值:(終點(diǎn)=1 OR 終點(diǎn)=2) AND MACD>0 ZZ賦值:UU的收盤價(jià)的有效數(shù)據(jù)周期數(shù)日反向過濾 輸出本高:LINEVALUE(ZZ,MACD,1日前的ZZ,1日前的MACD,0,0),畫白色 橫線賦值:ZQ日后的上次ZZ距今天數(shù)日前的MACD WW賦值:MACD>橫線 起始點(diǎn)賦值:1日后的上次WW距今天數(shù)=1的收盤價(jià)的有效數(shù)據(jù)周期數(shù)日反向過濾 輸出天數(shù)┃:上次起始點(diǎn)距今天數(shù),畫黃色,線寬為0 輸出上橫線:LINEVALUE(起始點(diǎn),橫線,ZZ,橫線,0,0),畫綠色,LINEDOT 輸出下橫線:當(dāng)滿足條件BDZH時(shí),在ZQ日后的BD+1日內(nèi)MACD的最低值位置畫直線起點(diǎn)，當(dāng)滿足條件BDTJ=1時(shí),在MACD位置畫直線終點(diǎn),0表示是否延長(zhǎng).,COLOR8080FF,LINEDOT 當(dāng)滿足條件BDTJ時(shí),在ZQ日后的BD+1日內(nèi)MACD的最低值*0.9位置書寫數(shù)字 當(dāng)滿足條件ZZ時(shí),在上橫線*1.1位置書寫數(shù)字 AQ賦值:SETVAL(起始點(diǎn),上次ZZ距今天數(shù),0-上次ZZ距今天數(shù),上次ZZ距今天數(shù)) TJ賦值:如果起始點(diǎn),返回AQ,否則返回0 輸出紅柱數(shù)量:如果天數(shù)┃>0AND天數(shù)┃<=天數(shù)┃日前的TJ,返回MACD>0的天數(shù)┃日累和,否則返回0,畫白色,線寬為0 輸出橫線起始價(jià):天數(shù)日前的收盤價(jià),線寬為0 輸出空間評(píng)估:(橫線起始價(jià)-收盤價(jià))/收盤價(jià)*100,線寬為0 TT賦值:上次ZZ距今天數(shù) WQG賦值:統(tǒng)計(jì)ZZ日中滿足MACD<本高/2ANDMACD>0上穿0.5的天數(shù)=1上穿0.5 AND ZZ>=0 當(dāng)滿足條件MACD>前高AND本高>前高ANDBARSLAST(MACD<本高/2上穿0.5)>0ANDMACD>(前高+本高)/2時(shí),在MACD和前高位置之間畫柱狀線,寬度為2.6666666666666666666666666666667,0不為0則畫空心柱.,畫黃色 輸出前高本高二分位:如果MACD>0AND本高不等于前高,返回LINEVALUE(WQG,(前高+本高)/2,1日前的WQG,1日前的(前高+本高)/2,0,0),否則返回0,COLORC0C000,LINEDOT,線寬為0 PARTLINE(MACD>0 AND 本高不等于前高,LINEVALUE(WQG,(前高+本高)/2,1日前的WQG,1日前的(前高+本高)/2,0,0)),COLORC0C000,LINEDOT AA賦值:'〖'+'上升空間'+'〗'+NUMTOSTR(如果空間評(píng)估,返回空間評(píng)估,否則返回0,2) DRAWTEXTEX(收盤價(jià)>0,1,0,1000,AA + '﹪'),畫白色 當(dāng)滿足條件WQG時(shí),在MACD*1.1位置書寫文字,畫白色 當(dāng)滿足條件BDCL時(shí),在MACD*1.1位置書寫文字,畫白色 當(dāng)滿足條件MACD>前高時(shí),在MACD和前高位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫黃色 當(dāng)滿足條件WQG時(shí),在MACD和0位置之間畫柱狀線,寬度為2.6666666666666666666666666666667,0不為0則畫空心柱.,畫綠色 當(dāng)滿足條件MACD<0ANDMACD<前低AND前低<0時(shí),在MACD和前低位置之間畫柱狀線,寬度為2.6666666666666666666666666666667,0不為0則畫空心柱.,畫藍(lán)色 AQ1賦值:SETVAL(MACD<0上穿0.5,上次BDTJ距今天數(shù),0-上次BDTJ距今天數(shù),上次BDTJ距今天數(shù)) B1賦值:如果MACD<0上穿0.5,返回AQ1,否則返回0 TSB1賦值:上次MACD>0距今天數(shù)-1 當(dāng)滿足條件上次BDCL距今天數(shù)>=0ANDMACD<前低ANDMACD<0時(shí),在MACD和前低位置之間畫柱狀線,寬度為2.6666666666666666666666666666667,0不為0則畫空心柱.,畫綠色 當(dāng)滿足條件BDCL時(shí),在MACD和0位置之間畫柱狀線,寬度為2.6666666666666666666666666666667,0不為0則畫空心柱.,畫白色 當(dāng)滿足條件MACD>前高AND本高>前高ANDBARSLAST(WQG)>0時(shí),在MACD和前高位置之間畫柱狀線,寬度為2.6666666666666666666666666666667,0不為0則畫空心柱.,畫紅色 當(dāng)滿足條件VA2ANDVA2不等于UU時(shí),在(MACD/10)*9位置書寫文字 當(dāng)滿足條件VA2ANDVA2不等于UU時(shí),在MACD/10位置書寫文字 當(dāng)滿足條件ZZ時(shí),在(MACD/10)*9位置書寫文字,畫白色 當(dāng)滿足條件ZZ時(shí),在MACD/10位置書寫文字,畫白色 當(dāng)滿足條件BDTJ時(shí),在(MACD/10)*9位置書寫文字,畫紅色 當(dāng)滿足條件BDTJ時(shí),在MACD/10位置書寫文字,畫紅色

?

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

源碼：

?

?

MACD:"MACD.MACD",LINETHICK;
W1:STICKLINE(MACD>0,MACD,0,8,1),COLORRED;
W2:STICKLINE(MACD<0,MACD,0,8,1),COLORCYAN;
VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1);
VA2:=CROSS(BACKSET(CROSS(0,MACD),REF(VA1,1)+2),0.5);
QG:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5);
前高:LINEVALUE(VA2,MACD,REF(VA2,1),REF(MACD,1),0,0),COLORMAGENTA;
VA3:=LLVBARS(MACD,BARSLAST(MACD>0)+1);
VA4:=CROSS(BACKSET(CROSS(MACD,0),REF(VA3,1)+2),0.5);
BD:=BARSLAST(FILTERX(CROSS(0,MACD),BARSCOUNT(C)));
前低:LINEVALUE(VA4,MACD,REF(VA4,1),REF(MACD,1),0,0);
BDTJ:=IF(MACD<0,FILTERX(MACD=LLV(MACD,BARSLAST(MACD>0)),
BARSCOUNT(C)),0);
TSBDTJ:=BARSLAST(BDTJ);
ZQ:=DATACOUNT-BARPOS;
BDZH:=FILTERX(MACD<REFX(LLV(MACD,BD+1),ZQ),BARSCOUNT(C));
BDTS:=BARSLAST(BDZH);
本低:IF(BD+1>=1,REFX(LLV(MACD,BD+1),ZQ),0),LINETHICK;
PARTLINE(BD+1>=1,REFX(LLV(MACD,BD+1),ZQ));
BDCL:=CROSS(COUNT(CROSS(MACD>本低/2 AND MACD<0,0.5),TSBDTJ)=1,0.5) AND TSBDTJ>=0;
終點(diǎn):=IF(ISLASTBAR AND MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)),1,
IF(FILTERX(QG,BARSCOUNT(C)),2,0));
UU:=(終點(diǎn)=1 OR 終點(diǎn)=2) AND MACD>0;
ZZ:=FILTERX(UU,BARSCOUNT(C));
本高:LINEVALUE(ZZ,MACD,REF(ZZ,1),REF(MACD,1),0,0),COLORWHITE;
橫線:=REFX(REF(MACD,BARSLAST(ZZ)),ZQ);
WW:=MACD>橫線;
起始點(diǎn):=FILTERX(REFX(BARSLAST(WW),1)=1,BARSCOUNT(C));
天數(shù)┃:BARSLAST(起始點(diǎn)),COLORYELLOW,LINETHICK;
上橫線:LINEVALUE(起始點(diǎn),橫線,ZZ,橫線,0,0),COLORGREEN,LINEDOT;
下橫線:DRAWLINE(BDZH,REFX(LLV(MACD,BD+1),ZQ),BDTJ=1,MACD,0),COLOR8080FF,LINEDOT;
DRAWNUMBER(BDTJ,REFX(LLV(MACD,BD+1),ZQ)*0.9,BDTS,2);
DRAWNUMBER(ZZ,上橫線*1.1,天數(shù)┃,2);
AQ:=SETVAL(起始點(diǎn),BARSLAST(ZZ),0-BARSLAST(ZZ),BARSLAST(ZZ));
TJ:=IF(起始點(diǎn),AQ,0);
紅柱數(shù)量:IF(天數(shù)┃>0 AND 天數(shù)┃<=REF(TJ,天數(shù)┃),SUM(MACD>0,天數(shù)┃),0),COLORWHITE,LINETHICK;
橫線起始價(jià):REF(C,天數(shù)),LINETHICK;
空間評(píng)估:(橫線起始價(jià)-C)/C*100,LINETHICK;
TT:=BARSLAST(ZZ);
WQG:=CROSS(COUNT(CROSS(MACD<本高/2 AND MACD>0,0.5),ZZ)=1,0.5) AND ZZ>=0;
STICKLINE(MACD>前高 AND 本高>前高 AND BARSLAST(CROSS(MACD<本高/2,0.5))>0 AND
MACD>(前高+本高)/2,MACD,前高,2.6666666666666666666666666666667,0),COLORYELLOW;
前高本高二分位:IF(MACD>0 AND 本高<>前高,LINEVALUE(WQG,(前高+本高)/2,REF(WQG,1),REF((前高+本高)/2,1),0,0)
,0),COLORC0C000,LINEDOT,LINETHICK;
PARTLINE(MACD>0 AND 本高<>前高,LINEVALUE(WQG,(前高+本高)/2,REF(WQG,1),REF((前高+本高)/2,1),0,0)),COLORC0C000,LINEDOT;
AA:='〖'+'上升空間'+'〗'+NUMTOSTR(IF(空間評(píng)估,空間評(píng)估,0),2);
DRAWTEXTEX(C>0,1,0,1000,AA + '﹪'),COLORWHITE;
DRAWTEXT(WQG,MACD*1.1,'本高成立'),COLORWHITE;
DRAWTEXT(BDCL,MACD*1.1,'本低成立'),COLORWHITE;
STICKLINE(MACD>前高,MACD,前高,1,0),COLORYELLOW;
STICKLINE(WQG,MACD,0,2.6666666666666666666666666666667,0),COLORGREEN;
STICKLINE(MACD<0 AND MACD<前低 AND 前低<0,MACD,前低,2.6666666666666666666666666666667,0),COLORBLUE;
AQ1:=SETVAL(CROSS(MACD<0,0.5),BARSLAST(BDTJ),0-BARSLAST(BDTJ),BARSLAST(BDTJ));
B1:=IF(CROSS(MACD<0,0.5),AQ1,0);
TSB1:=BARSLAST(MACD>0)-1;
STICKLINE(BARSLAST(BDCL)>=0 AND MACD<前低 AND MACD<0,MACD,前低,2.6666666666666666666666666666667,0),COLORGREEN;
STICKLINE(BDCL,MACD,0,2.6666666666666666666666666666667,0),COLORWHITE;
STICKLINE(MACD>前高 AND 本高>前高 AND BARSLAST(WQG)>0,
MACD,前高,2.6666666666666666666666666666667,0),COLORRED;
DRAWTEXT(VA2 AND VA2<>UU,(MACD/10)*9,'前');
DRAWTEXT(VA2 AND VA2<>UU,MACD/10,'高');
DRAWTEXT(ZZ,(MACD/10)*9,'本'),COLORWHITE;
DRAWTEXT(ZZ,MACD/10,'高'),COLORWHITE;
DRAWTEXT(BDTJ,(MACD/10)*9,'低'),COLORRED;
DRAWTEXT(BDTJ,MACD/10,'本'),COLORRED;
PARTLINE(BARSLAST(BDCL)>=0,本低/2),COLORRED,LINEDOT;{程序化交易 www.weiqiv.net.cn }

?

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

?