精美角度線+MACD套裝通達信指標公式源碼(附圖)

精美角度線+MACD套裝通達信指標公式源碼(附圖),拾荒網

公式名稱:角度線

公式位置:主圖

公式代碼:

N:=30;

TS:=BARSLAST(L=LLV(L,N));

開始信號:=FILTERX(TS=0,BARSSINCE(C));

開始天數:=BARSLAST(開始信號);

天數橫線:=CONST(開始天數);

低點:DRAWLINE(L=LLV(L,N),L,ISLASTBAR,REF(L,TS),1),COLORGRAY;

高點:DRAWLINE(L=LLV(L,N),CONST(HHV(H,天數橫線)),ISLASTBAR,REF(CONST(HHV(H,天數橫線)),

TS),1),COLORGRAY;

STICKLINE(開始信號,L,CONST(HHV(H,天數橫線)),0,0),COLORGRAY;

STICKLINE(ISLASTBAR,低點,高點,0,0),COLORGRAY;

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);

C2:=REF(C,1),NODRAW;

漲停:=REF(C,1)*1.1-C<0.01 ANDH=C,NODRAW;

STICKLINE(漲停,OPEN,CLOSE,1,0),COLORRED;

STICKLINE(漲停,H,L,0,0),COLORRED;

跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2) ANDL=C,1,0),NODRAW;

STICKLINE(跌停,OPEN,CLOSE,1,0),COLORGREEN;

STICKLINE(跌停,H,L,0,1),COLORGREEN;

差:=(高點-低點)/天數橫線;

收盤差:=CONST(C)-低點;

對角差:=高點-低點;

對角角度:ATAN((對角差/(對角差*((天數橫線-1)/天數橫線))-1)*100)*57.3,COLORFF00FF,NODRAW;

差60度:=(高點-低點)*60/對角角度;

差45度:=(高點-低點)*45/對角角度;

差55度:=(高點-低點)*55/對角角度;

差50度:=(高點-低點)*50/對角角度;

差65度:=(高點-低點)*65/對角角度;

角度65:=IF(TS>=0 AND 低點+(差65度/天數橫線)*TS<=高點,低點+(差65度/天數橫線)*TS,DRAWNULL),COLORLIBLUE,DOTLINE;

角度50:IF(TS>=0 AND 低點+(差50度/天數橫線)*TS<=高點,低點+(差50度/天數橫線)*TS,DRAWNULL),COLORLIBLUE,DOTLINE;

角度55:IF(TS>=0 AND 低點+(差55度/天數橫線)*TS<=高點,低點+(差55度/天數橫線)*TS,DRAWNULL),COLORLIBLUE,DOTLINE;

對角線:IF(TS>=0 AND 低點+差*TS<=高點,低點+差*TS,DRAWNULL),COLORYELLOW,LINETHICK2;

{DRAWBAND(對角線,RGB(255,0,255),對角線,RGB(255,0,255)),LINETHICK2;}

角度60:IF(TS>=0 AND 低點+(差60度/天數橫線)*TS<=高點,低點+(差60度/天數橫線)*TS,DRAWNULL),COLORLIBLUE,DOTLINE;

角度45:IF(TS>=0 AND 低點+(差45度/天數橫線)*TS<=高點,低點+(差45度/天數橫線)*TS,DRAWNULL),COLORGREEN;

收盤角度:(收盤差*對角角度)/對角差,NODRAW;

收盤線:=IF(TS>=0 AND 低點+(收盤差/天數橫線)*TS<=高點,低點+(收盤差/天數橫線)*TS,DRAWNULL);

{DRAWBAND(收盤線,RGB(192,192,192),收盤線,RGB(192,192,192)),DOTLINE,COLORC0C0C0;};

看圖要點:

股價的內在力量往往通過速度和角度表現出來:時間短、角度陡、說明攻擊力充足,而能長期保持大角度上升的個股更是強中之強;對角線(黃線)可以看做是主趨勢線;45度線(綠線)可以看做是強弱分界線;四條虛線分別是50、55、60、65度線、註意對角線和K線與它們的關系、越高則越強勢;起點(N),可根據自己的需要進行調整、例如改成60、90、125、250等。

(備註,此主圖含有未來函數,主要體現在畫線,可將此圖當個自動角度畫線參考使用。)

公式名稱:彩圖MACD

公式位置:副圖

公式代碼:

MACD:"MACD.MACD",NODRAW;
W1:STICKLINE(MACD>0,MACD,0,3,1),COLORRED;
W2:STICKLINE(MACD<0,MACD,0,3,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 ANDMACD>0),REF(VA1,1)+2),0.5);
前高:DRAWLINE(VA2,MACD,REF(VA2,1),REF(MACD,1),1),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)));
前低:DRAWLINE(VA4,MACD,REF(VA4,1),REF(MACD,1),1);
BDTJ:=IF(MACD<0,FILTERX(MACD=LLV(MACD,BARSLAST(MACD>0)),
BARSCOUNT(C)),DRAWNULL);
TSBDTJ:=BARSLAST(BDTJ);
BDZH:=FILTERX(MACD
BDTS:=BARSLAST(BDZH);
本低:IF(BD+1>=1,CONST(LLV(MACD,BD+1)),DRAWNULL);
BDCL:=CROSS(COUNT(CROSS(MACD>本低/2 ANDMACD<0,0.5),TSBDTJ)=1,0.5) ANDTSBDTJ>=0;
終點:=IF(ISLASTBAR AND MACD>0 ANDMACD=HHV(MACD,BARSLAST(MACD<0)),1,
IF(FILTERX(QG,BARSCOUNT(C)),2,DRAWNULL));
UU:=(終點=1 OR 終點=2) AND MACD>0;
ZZ:=FILTERX(UU,BARSCOUNT(C));
本高:DRAWLINE(ZZ,MACD,REF(ZZ,1),REF(MACD,1),1),COLORWHITE;
橫線:=CONST(REF(MACD,BARSLAST(ZZ)));
WW:=MACD>橫線;
起始點:=FILTERX(REFX(BARSLAST(WW),1)=1,BARSCOUNT(C));
天數:BARSLAST(起始點),COLORYELLOW,NODRAW;
上橫線:DRAWLINE(起始點,橫線,ZZ,橫線,0),COLORGREEN,DOTLINE;
下橫線:DRAWLINE(BDZH,CONST(LLV(MACD,BD+1)),BDTJ=1,MACD,0),COLOR8080FF,DOTLINE;
DRAWNUMBER(BDTJ,CONST(LLV(MACD,BD+1))*0.9,BDTS);
DRAWNUMBER(ZZ,上橫線*1.1,天數);
TJ:=IF(起始點,BARSNEXT(ZZ),DRAWNULL);
紅柱數量:IF(天數>0 AND天數<=REF(TJ,天數),SUM(MACD>0,天數),DRAWNULL),COLORWHITE,NODRAW;
橫線起始價:REF(C,天數),NODRAW;
空間評估:(橫線起始價-C)/C*100,NODRAW;
TT:=BARSLAST(ZZ);
WQG:=CROSS(COUNT(CROSS(MACD<本高/2 ANDMACD>0,0.5),ZZ)=1,0.5) ANDZZ>=0;
STICKLINE(MACD>前高 AND 本高>前高 ANDBARSLAST(CROSS(MACD<本高/2,0.5))>0AND
MACD>(前高+本高)/2,MACD,前高,1,0),COLORYELLOW;

前高本高二分位:IF(MACD>0 AND本高!=前高,DRAWLINE(WQG,(前高+本高)/2,REF(WQG,1),REF((前高+本高)/2,1),1)
,DRAWNULL),COLORC0C000,DOTLINE;
AA:=STRCAT(STRCAT(STRCAT('〖','上升空間'),'〗'),CON2STR(IF(空間評估,空間評估,
DRAWNULL),2));

DRAWTEXT(WQG,MACD*1.1,'本高成立'),COLORWHITE;
DRAWTEXT(BDCL,MACD*1.1,'本低成立'),COLORWHITE;
STICKLINE(MACD>前高,MACD,前高,1,0),COLORYELLOW;
STICKLINE(WQG,MACD,0,1,0),COLORGREEN;
STICKLINE(MACD<0 AND MACD<前低 AND前低<0,MACD,前低,1,0),COLORBLUE;
B1:=IF(CROSS(MACD<0,0.5),BARSNEXT(BDTJ),DRAWNULL);
TSB1:=BARSLAST(MACD>0)-1;
STICKLINE(BARSLAST(BDCL)>=0 ANDMACD<前低 ANDMACD<0,MACD,前低,1,0),COLORGREEN;
STICKLINE(BDCL,MACD,0,1,0),COLORWHITE;
STICKLINE(MACD>前高 AND 本高>前高 ANDBARSLAST(WQG)>0,
MACD,前高,1,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;
IF(BARSLAST(BDCL)>=0,本低/2,DRAWNULL),COLORRED,DOTLINE;

DRAWTEXT_FIX(1,0.05,0.04,0,'【黑馬拉升由兩個階段構成:同步上漲階段(黃芯柱)
和慣性上漲階段(背離階段、紅芯柱)】'),COLORFFFF00;

(備註,此副圖無未來函數,可以改成選股公式使用,以上主、副圖公式僅限 通達信軟件 使用)

要吃透這一套裝組合公式,須下番功夫噢!

Leave a Comment

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *