{机构分时;分时专用}
成交额:=V*C/100,NODRAW;{万元}
A2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
A3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
A4:=SUM((IF(((成交额/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
A5:=SUM((IF(((成交额/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
A6:=((A2+A3)+A4)+A5;
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
A9:=IF((ISLASTBAR),((100*A4)/A6),0);
A10:=IF((ISLASTBAR),((100*A5)/A6),0);
机构买:(A2),LINETHICK6,COLORRED;
机构卖:(A3),LINETHICK6,COLORFFFF55;
机构进出:=机构买-机构卖,NODRAW;
散户买:(A4),COLOR5555FF;{细红线}
散户卖:(A5),COLOR55FF55;{细绿线}
强势:=((100*A2)/A6>50);
STICKLINE(强势,机构买*1.02,机构买*1.1,1,0),COLORYELLOW;
拉升:=((100*A2)/A6-(100*A3)/A6)>18 AND (100*A2)/A6-(100*A5)/A6>18;
STICKLINE(拉升,机构买*1.1,机构买*1.2,1,0),COLORFF00FF;
DRAWTEXT(ISLASTBAR=1,机构买*0.95,'●机构买'),LINETHICK2,COLORRED;
DRAWTEXT(ISLASTBAR=1,机构卖*0.95,'○机构卖'),LINETHICK2,COLORFFFF55;
DRAWTEXT(机构进出>0 AND REF(机构进出,1)<=0,机构买*1.02,'●机买'),COLORRED;
DRAWTEXT(机构进出<0 AND REF(机构进出,1)>=0,机构买*0.98,'○机卖'),COLORFFFF55;DD1:=1;
AAA1:=STRCAT(STRCAT('机构买',CON2STR((100*A2)/A6,0)),'%%');
AAA2:=STRCAT(STRCAT('机构卖',CON2STR((100*A3)/A6,0)),'%%');
AAA3:=STRCAT(STRCAT('散户买',CON2STR((100*A4)/A6,0)),'%%');
AAA4:=STRCAT(STRCAT('散户卖',CON2STR((100*A5)/A6,0)),'%%');
DRAWTEXT_FIX(DD1=1,0,0.02,0,AAA1),COLORRED;
DRAWTEXT_FIX(DD1=1,0,0.13,0,AAA2),COLORFFFF55;
DRAWTEXT_FIX(DD1=1,0,0.24,0,AAA3),COLOR5555FF;
DRAWTEXT_FIX(DD1=1,0,0.35,0,AAA4),COLOR55FF55;
脉冲抓涨停
一直以来，总希望能找到一个抓脉冲涨停的指标，但一直未找到，我自己编写了一个分时指标，用于抓脉冲式涨停的股票，效果不错，供股友下载，好用就顶。
大智慧、通达信通用，其他股软没有测试过。
拉升:=close/ref(close,2)>1.02 and between(ref(close,1),ref(close,2),close);
拉升时间:=barslast(拉升);
拉升价格:=ref(close,拉升时间);
均价:=IF(C>0,SUM(AMOUNT,0)/SUM(VOL*100,0),DYNAINFO(3));
选股:cross(close,拉升价格) {二次拉升}
AND between(拉升时间,1,5) {回调时间5分钟内}
and count(c>均价,拉升时间)=拉升时间 {回调期间不破均线}
and v=hhv(v,0) {量创新高}
and c=hhv(c,0) {价创新高};
{风度涨停－大智慧新一代免费版－分时预警－1分钟周期}
VAR0:=V/3;
A1:=LN(FINANCE2(37)/4030)*ATAN(FINANCE2(37))*100;
A2:=IF((A1<100),100,A1);
VAR1:=SUM(IF(VAR0>A2 AND C>REF(C,1),VAR0,0),0);
VAR2:=SUM(IF(VAR0>A2 AND C<REF(C,1),VAR0,0),0);
VAR3:=SUM(IF(VAR0<=A2 AND C>REF(C,1),VAR0,0),0);
VAR4:=SUM(IF(VAR0<=A2 AND C<REF(C,1),VAR0,0),0);
BBD:=(VAR1-VAR2);
通吃:=BBD/(VAR1+VAR2+VAR3+VAR4)*100;
净流:=(VAR1-VAR2+VAR3-VAR4);
增仓:=净流/CAPITAL*100;
量比:=V*240/DYNAINFO(38);
买比:=(VAR1+VAR3)/(VAR1+VAR2+VAR3+VAR4)*100;
均价:=SUM(AMOUNT,0)/SUM(V,0)/100;
涨幅:=C/DYNAINFO(3)<1.05 AND C<均价*1.02 AND C<"MA.MA3#DAY"*1.08 AND C<REF(C,2)*1.02;
TJ0:=通吃>30 AND 通吃>REF(通吃,1) AND 增仓>0.1 AND 增仓>REF(增仓,1) AND 量比>5 AND 量比>REF(量比,1) AND (SUM(V,0)/BARSCOUNT(C)*240)/DYNAINFO(38)>2 AND 买比>70 AND 买比>REF(买比,1) AND 涨幅;
TJ1:=REF(TJ0,1);
涨停:FILTER(TJ1,60);
量:=VOL;
五日量:=MA(量,5);
TT:=BARSCOUNT(C);{取得有效收盘价}
均价黄:=SUM(C*V,TT)/SUM(V,TT);{分时均线的取值}
量两步:=MA(V,5)>REF(MA(V,5),1) AND REF(MA(V,5),1)>REF(MA(V,5),2);
价两步:= C>=REF(C,1) AND REF(C,1)>REF(C,2);
价上岗量破5:=C>均价黄 AND V>MA(V,5);
量起爆:=V>=REF(V,1)*2 ;
价创新高:=C>=HHV(C,0);
量创新高:=V>=HHV(V,0);
对昨日涨幅:=C/DYNAINFO(3)<=1.02;{涨幅控制2个点以内}
每日一点:量两步 AND 价两步 AND 价上岗量破5 AND 量起爆
AND 价创新高 AND 量创新高 AND 对昨日涨幅;
增加过滤一支股一天内只出现一次信号
input:p1(10,1,999),p2(1.3,0,99);
HH:=IF(TIME0/60-570<=130,TIME0/60-570,TIME0/60-660);
baa:=vol=hhv(vol,hh+1);
caa:=ma(vol,p1);
cab:=vol/ref(caa,1)>=p2 and hh>=p1;
daa:=close>=ref(hhv(high,hh+1),1);
outx:FILTER(baa and cab and daa and dynainfo(17)>0 and DYNAINFO(14)<=0.3,0);
分笔平台突破
LB:=SUM(VOL,0)*240/DYNAINFO(38)/BARSCOUNT(C); {量比公式}
PK:=IF(TIME>=93100,BUYVOL,0); {去掉集合竞价}
A1:=C>=REF(HHV(H,200),1); {当前价大于或等于前200笔成交中的最高价}
A2:=BUYVOL>150; {主动性买盘大于N手}
A3:=TIME>94500 AND TIME<144500; {时间在9:45-14:45}
A4:=C/REF(LLV(L,1200),1)<=1.08 AND C>=O; {涨幅控制，阳线}
A5:=BUYVOL>REF(HHV(PK,200),1); {突破时买量大于前200笔成交中的最大量}
平台突破:LB<3 AND A1 AND A2 AND A3 AND A4 AND A5;
AA:=BARSLAST(TIME=100000);
CC:=REF(HHV(C,0),AA+1);
VV:=REF(HHV(V,0),AA+1);
ZF:=CC/DYNAINFO(3)<1.05;
XG10:=CROSS(C,CC) AND V>VV AND ZF;
AA1:=BARSLAST(TIME=110000);
CC1:=REF(HHV(C,0),AA1+1);
VV1:=REF(HHV(V,0),AA1+1);
ZF1:=CC1/DYNAINFO(3)<1.05;
XG11:=CROSS(C,CC1) AND V>VV1 AND ZF1;
XG:=XG10 AND XG11;
涨吧: XG11 OR XG;
|
