大智慧MACD改进指标公式，大智慧突破天使主图指标公式

大智慧MACD改进指标公式

SHORT:=5;

LONG:=25;

M:=10;

0;

DIFF:=(EMA(CLOSE,SHORT)/EMA(CLOSE,LONG)-1)*100;

partline(diff,diff>ref(diff,1),rgb(255,0,0),diff<ref(diff,1),rgb(0,255,0)),linethick2;

DEA:EMA(DIFF,M),coloryellow;

MACD:3*(DIFF-DEA), COLORSTICK;

macdx:macd;

partline(macdx,macdx>ref(macdx,1),rgb(255,0,0),macdx<ref(macdx,1),rgb(0,255,0));

Var1:=EMA(CLOSE,35)-EMA(CLOSE,17);

Var2:=EMA(Var1,5);

jgdx:TROUGHBARS(3,10,1)<1 AND CROSS(Var1,Var2),colorred;

{zds:=hhvall(macdx);

RSV:=((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*zds)-(zds/2);

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

Jb:=3*K-2*D;

zdjb:=hhvall(jb);

j:jb*zds/zdjb;

DRAWTEXTABS(40,5,'图中白色线为KDJ的J线'),Colorred;

}{difa:=abs(diff);

diff角度:=atan((difa/ref(difa,2)-1)*100)*180/3.1415926535;

DRAWTEXTABS(40,10,'■diff角度:'+NUMTOSTRN(diff角度,2)+''),ColorFFFF00;

}{drawtextabs(440,10,'！！注意： 日K线的bbiday的颜色变化和MACD的背离信号！！'),colorred;

}{diffday:"macd.diff#day";

}jc:=cross(diff,dea);

sc:=cross(dea,diff);

djck:=(count(jc,barslast(diff>0)));

ssjc:=(count(jc,barslast(diff<0)));

usck:=(count(sc,barslast(diff<0)));

jcd:=if(jc,dea,0);

{金叉点}scd:=if(sc,dea,0);

{死叉点}drawtext(jc and diff<0,jcd,numtostr(djck)+'金叉'),colorred;

drawtext(jc and diff>0,jcd,numtostr(ssjc)+'金叉'),colorred;

drawtext(sc and diff>0,scd,numtostr(usck)+'死叉'),colorgreen;

A1:=BARSLAST(ref(cross(diff,dea) and dea<0,1));

B1:=ref(c,A1+1)>c and ref(diff,A1+1)<diff and cross(diff,dea) and dea<0;

DRAWTEXT(FILTER(B1>0,5),diff-0.01,'*MACD底背离'),COLOryellow;

C1:=BARSLAST(ref(cross(dea,diff),1)) and dea>0;

D1:=ref(c,C1+1)<c and ref(diff,C1+1)>diff and cross(dea,diff) and dea>0;

DRAWTEXT(FILTER(D1>0,5),diff+0.01,'*MACD顶背离'),COLORred;

{gd:=if(diff<ref(diff,1) and ref(diff,1)<ref(diff,2) and ref(diff,2)>ref(diff,3) and ref(diff,3)>ref(diff,4),ref(diff,2),0);

gdk:=count(gd>0,barslast(diff<0));

drawtext(gd>0 and diff>0,ref(diff,2),numtostr(gdk)+'拐点'),coloryellow;

}{0007--MACD金死叉间最大、最小值}A1:=CROSS("MACD.MACD",0);

A2:=BARSLAST(A1);

A3:=HHVBARS("MACD.MACD" ,A2+1);

A4:=BACKSET(REF(A3>=1,1) AND "MACD.MACD"<0,A3);

A5:=BACKSET(REF(A4=0,1) AND A4=1,2);

高值:IF(FILTER(A5,2),"MACD.MACD",0);

DRAWICON(高值>0,高值,4);

B1:=CROSS(0,"MACD.MACD");

B2:=BARSLAST(B1);

B3:=LLVBARS("MACD.MACD" ,B2+1);

B4:=BACKSET(REF(B3>=1,1) AND "MACD.MACD">0,B3);

B5:=BACKSET(REF(B4=0,1) AND B4=1,2);

低值:IF(FILTER(B5,2),"MACD.MACD",0);

DRAWICON(低值<0,低值,5);

{A1:=BARSLAST(ref(cross(diff,dea),1));

B1:=ref(c,A1+1)>c and ref(diff,A1+1)<diff and cross(diff,dea);

DRAWTEXT(FILTER(B1>0,5),0,'MACD'),COLORGREEN,ALIGN0;;

Stickline(FILTER(B1>0,5),-1,0,1,0),COLORGREEN;

{A2:=BARSLAST(ref(cross("kdj.k","kdj.d"),1));

B2:=ref(c,A2+1)>c and ref("kdj.k",A2+1)<"kdj.k" and cross("kdj.k","kdj.d");

DRAWTEXT(FILTER(B2>0,5),0.5,'KDJ'),COLORYELLOW,ALIGN0;;

Stickline(FILTER(B2>0,5),0.5,-1,1,0),COLORYELLOW;

A3:=BARSLAST(ref(cross("RSI.RSI1","RSI.RSI2"),1));

B3:=ref(c,A3+1)>c and ref("RSI.RSI1",A3+1)<"RSI.RSI1" and cross("RSI.RSI1","RSI.RSI2");

DRAWTEXT(FILTER(B3>0,5),-0.25,'RSI'),COLORCYAN,ALIGN0;;

Stickline(FILTER(B3>0,5),-1,-0.25,1,0),COLORCYAN;

}{C1:=BARSLAST(ref(cross(dea,diff),1));

D1:=ref(c,C1+1)<c and ref(diff,C1+1)>diff and cross(dea,diff);

DRAWTEXT(FILTER(D1>0,5),-0.5,'MACD'),COLORwhite,ALIGN0;

Stickline(FILTER(D1>0,5),-0.5,1,1,0),COLORwhite;

{C2:=BARSLAST(ref(cross("kdj.d","kdj.k"),1));

D2:=ref(c,C2+1)<c and ref("kdj.k",C2+1)>"kdj.k" and cross("kdj.d","kdj.k");

DRAWTEXT(FILTER(D2>0,5),0,'KDJ'),COLORwhite,ALIGN0;

Stickline(FILTER(D2>0,5),1,0,1,0),COLORwhite;

C3:=BARSLAST(ref(cross("RSI.RSI2","RSI.RSI1"),1));

D3:=ref(c,C3+1)<c and ref("RSI.RSI1",C3+1)>"RSI.RSI1" and cross("RSI.RSI2","RSI.RSI1");

DRAWTEXT(FILTER(D3>0,5),0.25,'RSI'),COLORMAGENTA,ALIGN0;;

Stickline(FILTER(D3>0,5),1,0.25,1,0),COLORMAGENTA;

};

大智慧突破天使主图指标公式

{DRAWTEXTABS(10,10,'机构评级:'+extrastring('评级')),coloryellow;

}drawtextabs(160,10,'**** 买股票时一定要看看日K线的MACDKDJ的指标状况, ****'),coloryellow;

Mc10:MA(C,10);

partline(c,c>ref(c,1),rgb(255,0,0),c<ref(c,1),rgb(0,255,0),1,rgb(255,0,0)),linethick1;

XG:hhv(h,0),pointdot;

tj1:=filter(cross(h,ref(xg,1)),10);

stickline(tj1,c,c*0.99,4,0),colorred;

drawtext(tj1,c*0.99,'突破'),coloryellow;

PARTLINE(Mc10,Mc10>REF(Mc10,1),RGB(255,0,0),Mc10<REF(Mc10,1),RGB(0,255,0)),LINETHICK2;

{bbi15:"zybbiboll.bbi#min15",colorred,linethick2;

DRAWTEXTABS(450,60,'股价走势死叉15分钟BBI:'+NUMTOSTRN(BBI15,3)+'就应卖出！'),Colorred;

}tlts:="VMACDGJDY.TS#day";

drawtextabs(250,30,'天量出现已过 '+numtostr(tlts)+' 天 !'),colorgreen;

daybbi:"GJ多空线.bbi#day",colorwhite,linethick2;

{tiptext(daybbi>0,daybbi,'+');

}drawtextabs(1050,10,'"GJ多空线" 的BBI: '+numtostr(daybbi)),linethick3,COLORwhite;

{drawtext(daybbi>0,daybbi,'"GJ多空线" 的BBI '),colorgreen;

}dayma2:"GJ多空线.ma2#day",circledot,COLORgreen;

aywyma21:"GJ多空线.wyma21#day",colorblue;

daywyma22:"GJ多空线.wyma22#day",crossdot,COLORyellow;

{if (daywyma32>dayma3, DRAWTEXTABS(100,120,'快卖出')),colorred;

{ ELSEDRAWTEXT('上升通道'),colorgreen;

};