%>
界文波浪(大智慧L2版本)
INPUT:N1(21,5,50),N2(34,10,100),N3(8,2,30),N4(5,2,20);
CJ:=(2*CLOSE+HIGH+OPEN+LOW)/5;
DIFF:=EMA(CJ,N1)-EMA(CJ,N2);
DEA:=EMA(DIFF,N3);
MACD:30*(DIFF-DEA),LINETHICK0;
MARD:SMA(MACD,N4,1),LINETHICK0;
G1:=IF(DYNAINFO(8)>0.01,0.01*DYNAINFO(10)/DYNAINFO(8),DYNAINFO(3));
G2:=(DYNAINFO(5)<0.01 OR DYNAINFO(6)<0.01);
G3:=IF(G2,1,(G1<(DYNAINFO(5)+0.01) AND G1>(DYNAINFO(6)-0.01)));
CB:=SMA(IF(G3,DMA(AMOUNT/(100*VOL),100*VOL/FINANCE2(37)),EMA((HIGH+LOW+2*CLOSE)/4,117)),3,1);
J1:=SMA(EMA(CB,2),3,1);J2:=EMA(J1,2);
J3:=EMA(J2,2);J4:=EMA(J3,2);
J5:=EMA(J4,2);J6:=EMA(J5,2);
FILLRGN(macd,mard,macd>mard,rgb(255,0,0),macd<mard,rgb(0,255,0));
STICKLINE(J1>J6,LLV(MARD,117),HHV(MARD,117),8,0),COLOR6F116F,LAYER7;
STICKLINE(J1<J6,LLV(MARD,117),HHV(MARD,117),8,0),COLOR3E3E3E,LAYER7;
W1:=BARSLAST(REF(CROSS(MACD,MARD),1));
底背离:IF(REF(CLOSE,W1+1)>CLOSE AND MACD>REF(MACD,W1+1) AND CROSS(MACD,MARD) AND MACD<0,-1,0),COLORred;
DRAWTEXT(REF(CLOSE,W1+1)>CLOSE AND MACD>REF(MACD,W1+1) AND CROSS(MACD,MARD) AND MACD<0,-1,'底背离'),ALIGN2;
W2:=BARSLAST(REF(CROSS(MARD,MACD),1));
顶背离:REF(CLOSE,W2+1)<CLOSE AND REF(MACD,W2+1)>MACD AND CROSS(MARD,MACD) AND MACD>0,COLORYELLOW;
DRAWTEXT(REF(CLOSE,W2+1)<CLOSE AND REF(MACD,W2+1)>MACD AND CROSS(MARD,MACD) AND MACD>0,1,'顶背离'),ALIGN2;
W3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*10;
W4:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*10;
W5:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*10;
WH:=(W3+2*W4+3*W5)/6;
随波:WH,LINETHICK2;
零线:0,COLOR999999;
地线:LLV(MARD,117);
天线:HHV(MARD,117);
{股票教程网-http://cgjcw.net承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}