JR（成交量精确介入 机构追踪）－－-（副图 源码 贴图）

股票王

看到一个副图指标，看盘还可以，转过来大家分享，有未来，望高手再优化一下。



{成交量精确介入}
VAR2:=LLV(LOW,10);
VAR3:=HHV(HIGH,25);
阶段卖出: 3.3,COLORC6C600;
3.5,COLOR0088FF;
清仓卖出: 3.5,COLORFF75FF;
动力线:= EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4);
STICKLINE(动力线>REF(动力线,1) ,动力线 ,REF(动力线,1),3 ,1),COLORFF00FF;
STICKLINE(动力线<=REF(动力线,1) ,动力线 ,REF(动力线,1),3 ,1),COLOR00FF00;
底部:0.2,COLOR70DB93;
关注:0.55,COLORYELLOW;
强弱分界线:1.75,POINTDOT,LINETHICK2,COLOR70DB93;

{机构追踪}
VARVK:=(2*C+H+L)/4;
VARUK:=LLV(LOW,30);
VARA1K:=HHV(HIGH,30);
BK:=EMA((VARVK-VARUK)/(VARA1K-VARUK)*3.3,8);
B1K:=EMA(BK,5);
STICKLINE(BK-B1K>0,BK,B1K,3,0),COLOR0000AA;
STICKLINE(BK-B1K>0,BK,B1K,2.5,0),COLOR0000BB;
STICKLINE(BK-B1K>0,BK,B1K,1.5,0),COLOR0000CC;
STICKLINE(BK-B1K>0,BK,B1K,1,0),COLOR0000EE;
STICKLINE(BK-B1K>0,BK,B1K,0,0),COLOR0000FF;
STICKLINE(BK-B1K<0,BK,B1K,3,0),COLOR7B7B00;
STICKLINE(BK-B1K<0,BK,B1K,2.5,0),COLOR909000;
STICKLINE(BK-B1K<0,BK,B1K,1.5,0),COLORA8A800;
STICKLINE(BK-B1K<0,BK,B1K,1,0),COLORCECE00;
STICKLINE(BK-B1K<0,BK,B1K,0,0),COLORFFFF00;

{加速黄线}
VARA:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VARB:=SMA(VARA,3,1);
VARC:=SMA(VARB,3,1);
加速: EMA(3*VARB-2*VARC,3)/30.5,COLORYELLOW;

{组合买}
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR2AAA:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);
果断买入:IF(VAR2AAA AND COUNT(VAR2AAA,3)=1,0.5,0),STICK,LINETHICK2,COLORFF00FF;
组合买: (VAR11+VAR13+VAR15+VAR17), , COLORRED,NODRAW;
DRAWTEXT(VAR11+VAR13+VAR15+VAR17,0.3,'组买'),COLORYELLOW;
DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),0.4,'绝佳') ,LINETHICK2,COLORYELLOW;
{黑牛趋势}
A1: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),NODRAW;
黑马线:EMA(A1,5)/24,LINETHICK2,{COLOR6600FF},COLORWHITE;
VAR1S:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*80;
VAR2S:=SMA(VAR1S,10,1);
慢速:SMA(VAR2S,5,1)/21.425,LINETHICK2,COLORRED;

{以下皆为提示信号}
{极品动量顶底先于游资追踪}
VAR2Q:=LLV(LOW,10);
VAR3Q:=HHV(HIGH,25);
动力:= EMA((CLOSE-VAR2Q)/(VAR3Q-VAR2Q)*4,4);
{机构追踪}
VARV:=(2*C+H+L)/4;
VARU:=LLV(LOW,30);
VARA1:=HHV(HIGH,30);
B:=EMA((VARV-VARU)/(VARA1-VARU)*100,8);
B1:=EMA(B,5);
{大户追踪}
MIID := MA(CLOSE,7);
HH:=MIID + 2*AVEDEV(CLOSE,10);
LL:=MIID - 2*AVEDEV(CLOSE,10);
RSVV:=5* (CLOSE-MIID)/AVEDEV(CLOSE,20)*7;
K1:=SMA(RSVV,3,1),COLORWHITE;
D1:=SMA(K1,3,1),COLORYELLOW;
J1:=3*K1-2*D1;
{黑牛趋势}
A11: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),NODRAW;
黑马:EMA(A11,5)/24,NODRAW;
DRAWTEXT(K1>D1 AND D1<-20 AND B>B1 AND 黑马<0.35 AND 动力>REF(动力,1),0,'强5熊60') ;
{主力成交量变化}
VAR5D:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
CC:SMA(VAR5D,135,1),NODRAW;
CC1:SMA(CC,5,1),NODRAW;
DRAWTEXT(CC>CC1+0.3 AND K1>D1 AND K1<25 AND B>B1,0,'B');

{135日大势}
VAR5DD:=(CLOSE-LLV(LOW,135))/(HHV(HIGH,135)-LLV(LOW,135))*100;
CCD:SMA(VAR5DD,34,1),COLORRED,NODRAW;
CC1D:SMA(CCD,5,1),COLORGREEN,NODRAW;
DRAWTEXT(CCD>CC1D,0,'↑'),COLORRED;
DRAWTEXT(CC1D>CCD,0,'↓'),COLORGREEN;
{黄金量坑无未来}
量坑:=MA(VOL,233);
F:=VOL<量坑;
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
DRAWTEXT(F AND CCI<-180,0,'▲'),COLORYELLOW;

JR.rar (4.4 KB, 下载次数: 2)

2011-7-18 09:28 上传

点击文件名下载附件