软件名称:[B]背离王副图[/B]
软件类型:国产软件
运行环境:Win9X/Win2000/WinXP/Win2003/Win7/
软件语言:简体中文
授权方式:免费版
软件大小:8.00 KB
官方主页:Home Page
更新时间:2015-10-21 07:20:31
软件简介:
源代码根据“背离王副图、背离出黑马”修改,仅供学习交流,不做任何交易。其中,参数HC:代表红柱子的高度,当红柱子逐渐变小将面临回档;当绿柱子逐渐变小将逐渐企稳。KC是HC的差值,即KC>0,则红柱子变长或者绿柱子变短。
N:=9;
A1:=FORCAST(EMA(CLOSE,5),6);
A2:=FORCAST(EMA(CLOSE,8),6);
A3:=FORCAST(EMA(CLOSE,11),6);
A4:=FORCAST(EMA(CLOSE,14),6);
A5:=FORCAST(EMA(CLOSE,17),6);
B:=A1+A2+A3+A4-4*A5;
TOWERC:=EMA(B,2);
B1:=FORCAST(EMA(B,3),6),POINTDOT,colorgreen;
B2:=FORCAST(EMA(B,4),6),POINTDOT,colorgreen;
B3:=FORCAST(EMA(B,5),6),POINTDOT,colorgreen;
B4:=FORCAST(EMA(B,6),6),POINTDOT,colorgreen;
B5:=FORCAST(EMA(B,7),6),POINTDOT,colorgreen;
B6:=FORCAST(EMA(B,8),6),POINTDOT,colorgreen;
B7:=FORCAST(EMA(B,9),6),POINTDOT,colorgreen;
B8:=FORCAST(EMA(B,10),6),POINTDOT,colorgreen;
B9:=FORCAST(EMA(B,11),6),POINTDOT,colorgreen;
B10:=FORCAST(EMA(B,12),6),POINTDOT,colorgreen;
B11:=FORCAST(EMA(B,13),6),POINTDOT,colorgreen;
B12:=FORCAST(EMA(B,14),6),POINTDOT,colorgreen;
B13:=FORCAST(EMA(B,15),6),POINTDOT,colorgreen;
B14:=FORCAST(EMA(B,16),6),POINTDOT,colorgreen;
B15:=FORCAST(EMA(B,17),6),POINTDOT,colorgreen;
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),colorred;
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),colorgreen;
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),colorred;
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),colorred;
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),colorred;
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),colorgreen;
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),colorgreen;
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),colorgreen;
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),colorgreen;
BSUM:=(B1+B2+B3+B4+B5+B6+B7+B8+B9+B10+B11+B12+B13+B14+B15)/15;
BMAX1:=MAX(MAX(B1,B2),MAX(B3,B4));
BMAX2:=MAX(MAX(B5,B6),MAX(B7,B8));
BMAX3:=MAX(MAX(B9,B10),MAX(B11,B12));
BMAX4:=MAX(MAX(B13,B14),B15);
BMAX:=MAX(MAX(BMAX1,BMAX2),MAX(BMAX3,BMAX4));
BMIN1:=MIN(MIN(B1,B2),MIN(B3,B4));
BMIN2:=MIN(MIN(B5,B6),MIN(B7,B8));
BMIN3:=MIN(MIN(B9,B10),MIN(B11,B12));
BMIN4:=MIN(MIN(B13,B14),B15);
BMIN:=MIN(MIN(BMIN1,BMIN2),MIN(BMIN3,BMIN4));
BAX:=ABS(BMAX-(TOWERC+REF(TOWERC,1))/2);
BAN:=ABS(BMIN-(TOWERC+REF(TOWERC,1))/2);
BFIN:=IF(BAX>BAN,BMAX,BMIN);
C1:=BFIN-BMAX=0 AND REF(BFIN,1)-REF(BMIN,1)=0;
C2:=BFIN-BMIN=0 AND REF(BFIN,1)-REF(BMAX,1)=0;
BFINAL:=IF(C1 OR C2,(BMAX+BMIN)/2,BFIN),NODRAW;
HC:TOWERC-REF(TOWERC,1),NODRAW;
KC:HC-REF(HC,1),NODRAW;
绿柱变大:IF(HC<=0 AND KC<=0,BFINAL,DRAWNULL),POINTDOT,colorgreen,LINETHICK3;
绿柱变小:IF(HC<0 AND KC>0,BFINAL,DRAWNULL),POINTDOT,colormagenta,LINETHICK3;
红柱变大:IF(HC>0 AND KC>=0,BFINAL,DRAWNULL),POINTDOT,colorred,LINETHICK3;
红柱变小:IF(HC>0 AND KC<0,BFINAL,DRAWNULL),POINTDOT,colorliblue,LINETHICK3;
DRAWTEXT_FIX(ISLASTBAR AND HC<=0 AND KC<0,1,0,1,'绿柱变大 '),colorwhite;
DRAWTEXT_FIX(ISLASTBAR AND HC<=0 AND KC>0,1,0,1,'绿柱变小 '),colorwhite;
DRAWTEXT_FIX(ISLASTBAR AND HC>=0 AND KC>0,1,0,1,'红柱变大 '),colorwhite;
DRAWTEXT_FIX(ISLASTBAR AND HC>=0 AND KC<0,1,0,1,'红柱变小 '),colorwhite;
//{背离出黑马}
平均线:=BFINAL;
A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1);
黑马线:=EMA(A51,5);
A54:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
趋势线:=(MA(3*SMA(A54,6,1)-2*SMA(SMA(A54,5,1),5,1),2));
DRAWTEXT(CROSS(趋势线,0)AND 黑马线<40,(平均线* 0.97),'▲大黑马'),coloryellow;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
DRAWTEXT(CROSS(FF,MA15),(平均线 * 0.99),'底背离'),COLORA6E500;
DRAWTEXT(CROSS(88,RSI),(平均线 * 1.02),'顶背离'),COLOR1880FF;
VAR2:=LLV(LOW,27);
VAR3:=HHV(HIGH,34);
VAR4:=EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4)*25;
注意买:=IF((VAR4<10),80,100);
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
超跌:=IF(J<0,10,0);
BDDD:=LLV(J,2)=LLV(J,8);
买入:=IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND J<20,30,0);
DRAWTEXT(买入 AND 注意买=100 AND 超跌=0,平均线,'短线'),colorwhite;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
DRAWTEXT(FILTER(买=1,5),平均线,'拉升'),colorwhite;
[url=http://www.70822.com/soft/sort013/sort036/down-90128.html]背离王副图[/url]