1、 看盘程序
1、模拟量及黑洞阴沟(安装到技术指标其它类型里,副图,用于换现有的MACD,很好看盘)
DRAWBAND(MA(VOL,5),RGB(155,50,50),MA(VOL,20),RGB(83,123,68));
WOL:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,WOL,0,3,-1),COLORFFFFFF;
VOLUME:VOL,VOLSTICK;
V5:MA(VOLUME,5);
V10:MA(VOLUME,10);
V20:MA(VOLUME,20);
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主买:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSEOPEN,VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSEMACD2 AND MACD1>0,0,MACD1,0.1,0),COLORRED;
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,0.1,0),COLORGREEN;
STICKLINE(MACD1CLOSE AND DIFIF1>REF(DIFIF1,A1+1) AND CROSS(DIFIF1,DEA);
底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORYELLOW,LINETHICK2;
顶背离:=REF(CLOSE,A2+1)DIFIF1 AND CROSS(DEA,DIFIF1);
顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORBLUE,LINETHICK2;
3、好用的OBV(安装到技术指标其它类型里,副图,用于换现有的MACD,很好看盘)
obv:SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE[1.095*REF(C,1),C,O,5,0),COLORYELLOW;
DRAWTEXT(CROSS(REF(ZIG(3,8),1),ZIG(3,8)),HIGH*0.978,'★逃顶') ,LINETHICK2,COLORGREEN;
GX:HHV(C,100),LINETHICK2;
NOTEXT:PLOYLINE(1,CONST(c)),COLOR008888,LINETHICK1;
高抛低吸(源码,副图,贴图)
LC:=REF(CLOSE,1);
RSI5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(ABS((CLOSE - LC)),5,1)) * 100);
TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10);
HD:=(HIGH - REF(HIGH,1));
LD:=(REF(LOW,1) - LOW);
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10);
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10);
PDI:=((DMP * 100) / TR1);
MDI:=((DMM * 100) / TR1);
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5);
AV:=(RSI5 + ADX);
DXR:=(((ADX + REF(ADX,5)) / 2) + RSI5);
0,COLORFF00FF;
WR10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10)));
NEWVOL:=(RSI5 - WR10);
阶段底部:=(AV + NEWVOL);
STICKLINE((阶段底部 < 0),0,-10,0.8,1),LINETHICK6,COLORYELLOW;
趋势线:=LLV(阶段底部,1),COLORWHITE,LINETHICK0;
STICKLINE(CROSS(阶段底部,0),0,-10,0.8,1),LINETHICK6,COLORRED;
STICKLINE((趋势线 >230 ),100,90,0.3,1),LINETHICK6,COLORGREEN;
LOWV:=LLV(LOW,9);
HIGHV:=HHV(HIGH,9);
RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,3);
K:EMA(RSV,3);
D:MA(K,3);
STICKLINE(K>D , K,D ,2.5,0),COLORRED,LINETHICK2;
STICKLINE(D>K,K,D,2.5,0),COLORGREEN,LINETHICK2;
逃顶线:90,COLORGREEN;
中轴线: 50,COLORRED;
抄底线:10,COLORGREEN;
DRAWICON(CROSS(K,D),12,1)COLORRED;
DRAWICON(CROSS(D,K),88,2)COLORGREEN;
警戒:阶段底部 < 0,LINETHICK0,COLORYELLOW;
出击:CROSS(阶段底部,0),LINETHICK0,COLORRED;
二、选股报警程序
1、五线顺上阳线 或 放量过头+OBV创新高+MACD水上金叉(安装到条件选股的其它类型里,用于选股和报警,很好)
MA1:=MA(CLOSE,5);
MA2:=MA(CLOSE,10);
MA3:=MA(CLOSE,20);
MA4:=MA(CLOSE,60);
MA5:=MA(CLOSE,120);
V1:=240/FROMOPEN*DYNAINFO(8);
V2:=V1>2*MA(V,5);
V3:=CROSS(C,REF(HHV(C,M),1));{股价创M天新高,如果你不会设参数可直接把M改成100}
V4:=V2 AND V3;
JDZ:=MAX(MA(C,5),MAX(MAX(MA(C,10),MA(C,20)),MAX(MA(C,60),MA(C,120))));
DYY:=CROSS(C,JDZ);
A1:=COUNT(DYY,10)=1 OR V4;{五线之上第一阳 或 放量过前头}
B:="OBV.OBV";
A2:=B>REF(HHV(B,N),1);{OBV创新高,N(天)你自订,最好用30(天),如果你不会设参数可直接把N改成30}
B2:="MACD.DIF";
B3:="MACD.DEA";
A3:=B2>0 AND B2>B3 AND B2>REF(B2,1);{MACD上穿0轴或0轴上金*或0轴上红柱放大壮态,背离的不要}
A1 AND A2 AND A3 AND MA1>MA2 AND MA2>MA3 AND MA3>MA4 AND MA4>MA5 AND MA1>REF(MA1,1) AND MA2>REF(MA2,1) AND MA3>REF(MA3,1) AND MA4>REF(MA4,1) AND MA5>REF(MA5,1);
2、通达信打拐公式(安装到条件选股的其它类型里,用于选股和报警,很好)
公式内容:
GL:=C/MA(C,20);
A1:=EVERY(GL<1.15,20);
A2:=EVERY(MA(C,10)>MA(C,20),18);
REF(A1 AND A2,1) AND GL>REF(HHV(GL,20),1)+0.03;
3、五榜合一 (安装到条件选股的其它类型里,用于选股和报警,很好)
ZF:=DYNAINFO(14)*100;{涨幅}
LB:=DYNAINFO(17);{量比}
{ZS:=DYNAINFO(24);}{涨速}
HS:=DYNAINFO(37)*100;{换手}
ZJ:=AMOUNT/10000;{资金}
TM:=V-MA(V,10);{量填满}
ZF>=2 AND ZF<=5 AND LB>=2 AND ZJ>=500 AND HS>1 AND TM>0
4、五线之上第一阳 或 放量过头+OBV创新高+MACD水上金叉
V1:=240/FROMOPEN*DYNAINFO(8);
V2:=V1>2*MA(V,5);
V3:=CROSS(C,REF(HHV(C,M),1));{股价创M天新高}
V4:=V2 AND V3;
JDZ:=MAX(MA(C,5),MAX(MAX(MA(C,10),MA(C,20)),MAX(MA(C,60),MA(C,120))));
DYY:=CROSS(C,JDZ);
A1:=COUNT(DYY,10)=1 OR V4;{五线之上第一阳 或 放量过前头}
B:="OBV.OBV";
A2:=B>REF(HHV(B,N),1);{OBV创新高}
B2:="MACD.DIF";
B3:="MACD.DEA";
A3:=B2>0 AND B2>B3 AND B2>REF(B2,1);{MACD上穿0轴或0轴上金*或0轴上红柱放大壮态,背离的不要}
A4:=EXIST(C/REF(C,1)>1.055,60);
A1 AND A2 AND A3 AND A4;
5、快马加鞭(安装到条件选股的其它类型里,用于选股和报警,很好)
A1:=BARSCOUNT(C); H0:=V/CAPITAL*100;H4:=IF(A1>2,SQRT(0.2*H0),0); C0:=(H+L+C)/3; R0:=REF(H,1);R1:=REF(L,1);R2:=MAX(H,R0);R3:=MIN(L,R1);R4:=R2-R3; R5:=IF(C0-R3>R2-C0,C0-R3,C0-R2); R6:=IF(R4>0,R5/R4,0)*H4*150; DN:=EMA(R6,13); A:=(H+L)*V*50;MA1:=MA(VOL,5); N1:=IF(A1<3,1/A1,0.4);N2:=IF(A1<10,1/A1,0.1);N3:=IF(A1<30,1/A1,0.03333); L1:=EMA(DMA(A,N1)/DMA(V,N1)/100,2); L2:=EMA(DMA(A,N2)/DMA(V,N2)/100,2); L3:=EMA(DMA(A,N3)/DMA(V,N3)/100,2); X:=L1>L2 AND (REF(L1,3)<=REF(L2,3) OR REF(L2,21)<=REF(L3,21)) AND C>1.07*REF(C,1) AND DN>40; X AND COUNT(X,10)=1;
☆6、5线顺上第一阳(安装到条件选股的其它类型里,用于选股和报警,很好)
M40:=MA(VOL,40);
A:=MA(C,5);
A1:=MA(C,10);
A2:=MA(C,20);
A3:=MA(C,60);
A30:=MA(CLOSE,30);
A4:=MA(C,120);
A5:=REF(A,1)<=REF(A1,1);
A6:=C>A AND C>A1 AND C>A2 AND C>A3 AND C>A4;
A5 AND A6 AND CLOSE>A1 AND A>A1 AND A1>A2 AND A2>A30 AND A2>A3 AND A3>A4 AND M40>REF(M40,2) AND CLOSE>OPEN;
☆7、放量过前高公式(安装到条件选股的其它类型里,用于选股和报警,很好)
V1:=240/FROMOPEN*DYNAINFO(8);
V2:=V1>2*MA(V,5);
V3:=CROSS(C,REF(HHV(C,M),1));{股价创M天新高}
V2 AND V3;
☆8、放量过前头公式(安装到条件选股的其它类型里,用于选股和报警,很好)
A:=C>REF(HHV(C,N),1);
B:=V>REF(HHV(V,60),1) OR V>REF(HHV(V,120),1);
A AND B;
★9、五线顺上选股公式{在2+3,暖气带基础上的五线顺上}
ma5:=ma(c,5);ma10:=ma(c,10);ma20:=ma(c,20);ma60:=ma(c,60);ma120:=ma(c,120);
ma5s:=ma5>ref(ma5,1);ma10s:=ma10>ref(ma10,1);ma20s:=ma20>ref(ma20,1);ma60s:=ma60>ref(ma60,1);ma120s:=ma120>ref(ma120,1);
五线向上:=ma60>ma120 and ma5s and ma10s and ma20s and ma60s and ma120s;
五线多头:=ma5>ma10 and ma10>ma20 and ma20>ma60 and ma60>ma120;
td:=barscount(c);
a:=ref(vol,td-1)*if(ref(c,td-1)>ref(o,td-1),1,if(ref(c,td-1)][ref(c,1),vol,if(c][o,1,if(cref(obv,1) and obv>ma(obv,30) and (max(obv,max(ref(obv,1),ref(obv,2)))=hhv(obv,89) or obv=hhv(obv,obv_td));
jc60120_td:=barslast(cross(ma60,ma120));
可追区域:=c][9;
★10、五线顺上第一阳,阳线涨幅要有3%,并且没有长上影线的选股公式,去除ST和停牌的
WXSS:=MA(C,5)>REF(MA(C,5),1) AND MA(C,10)>REF(MA(C,10),1) AND
MA(C,20)>REF(MA(C,20),1) AND MA(C,60)>REF(MA(C,60),1) AND
MA(C,120)>REF(MA(C,120),1);
B:=MA(C,5)>MA(C,10) AND MA(C,10)>MA(C,20) AND
MA(C,20)>MA(C,60) AND MA(C,60)>MA(C,120);
五线顺上:=COUNT(WXSS AND B,10)=1;
涨幅:=(C/REF(C,1)-1)*100;
没有长上影:=(C-O)>(H-C);
A4:=EXIST((C/REF(C,1)-1)*100<-5.2,60) OR EXIST((C/REF(C,1)-1)*100>5.2,60);{去ST股}
五线顺上 AND 涨幅>3 AND 没有长上影 AND A4;
★11、五线之上(安装到条件选股的其它类型里,用于选股,很好)
MA1:=MA(CLOSE,5);
MA2:=MA(CLOSE,10);
MA3:=MA(CLOSE,20);
MA4:=MA(CLOSE,60);
MA5:=MA(CLOSE,120);
MA1>MA2 AND MA2>MA3 AND MA3>MA4 AND MA4>MA5 AND MA1>REF(MA1,1) AND MA2>REF(MA2,1) AND MA3>REF(MA3,1) AND MA4>REF(MA4,1) AND MA5>REF(MA5,1);
12、空中加油公式(安装到条件选股的其它类型里,用于选股,很好)
A1:=C>REF(HHV(C,30),1);
A2:=MA(C,10)>MA(C,20) AND MA(C,20)>MA(C,60) AND MA(C,60)>MA(C,120);
GL:=(C/MA(C,60)-1)*100;
A3:=GL>20 AND GL<100;
PT:=(REF(HHV(C,30),1)/LLV(C,5)-1)*100<15;
A4:=MA(C,120)>REF(MA(C,120),1)
AND MA(C,60)>REF(MA(C,60),1)
AND MA(C,20)>REF(MA(C,20),1)
AND MA(C,10)>REF(MA(C,10),1) ;
A5:=EXIST((C/REF(C,1)-1)*100<-5.2,60) OR EXIST((C/REF(C,1)-1)*100>5.2,60);{去ST股}
A1 AND A2 AND A3 AND A4 AND PT AND A5;
13(1)五线顺上 (2)突破平台(3)成交量顶天立地,今天是120日内最高量 (4)、OBV创新高合成一个条件选股公式(安装到条件选股的其它类型里,用于选股,很好)
{五线顺上}
MA5:=IF(C>=MA(C,5),5,-5);
MA10:=IF(C>=MA(C,10),10,-10);
MA20:=IF(C>=MA(C,20),20,-20);
MA60:=IF(C>=MA(C,60),60,-60);
MA120:=IF(C>=MA(C,120),120,-120);
MA240:=IF(C>=MA(C,240),240,-240);
JX:=MA5+MA10+MA20+MA60+MA120+MA240;
M55:=MA(C,5);
MA55:=IF(M55>=REF(M55,1),5,-5);
M11:=MA(C,10);
MA11:=IF(M11>=REF(M11,1),10,-10);
M22:=MA(C,20);
MA22:=IF(M22>=REF(M22,1),20,-20);
M66:=MA(C,60);
MA66:=IF(M66>=REF(M66,1),60,-60);
M12:=MA(C,120);
MA12:=IF(M12>=REF(M12,1),120,-120);
M24:=MA(C,240);
MA24:=IF(M24>=REF(M24,1),240,-240);
JX2:=MA55+MA11+MA22+MA66+MA12+MA24;
NA55:=IF(MA(C,1)>=M55,5,-5);
NA11:=IF(M55>=M11,10,-10);
NA22:=IF(M11>=M22,20,-20);
NA66:=IF(M22>=M66,60,-60);
NA12:=IF(M66>=M12,120,-120);
NA24:=IF(M12>=M24,240,-240);
NX2:=NA55+NA11+NA22+NA66+NA12+NA24;
CS:=JX+JX2+NX2>1364;
NN:=60;
突破平台:=REF(((HHV(H, 30)-LLV(L, 30))/LLV(L, 30)),1)<=( 30/100)
AND C>=REF(HHV(C,NN),1) AND BARSCOUNT(C)>NN AND V>=MA(V,10)*1.5;
成交量顶天立地:=V=HHV(V,120);{成交量顶天立地,今天是120日内最高量}
上市以来OBV最高:=OBV=HHV(OBV,TOTALBARSCOUNT);{OBV 创从上市以来最高}
CS and 突破平台 and 成交量顶天立地 and 上市以来OBV最高;
14、抄底逃顶选股报警
A:= CROSS(ZIG(3,8),REF(ZIG(3,8),1));
B:= CROSS(REF(ZIG(3,8),1),ZIG(3,8));
A OR B;
15、抄底选股报警
A:= CROSS(ZIG(3,8),REF(ZIG(3,8),1));
A ;
16、逃顶选股报警
B:= CROSS(REF(ZIG(3,8),1),ZIG(3,8) );
B;
17、新抄底选股报警
A:= CROSS(ZIG(3,8),REF(ZIG(3,8),1));
B1:=REF(A,1);
B2:=REF(A,2);
B3:=REF(A,3);
B4:=REF(A,4);
B1 OR B2 OR B3 OR B4;
18、新逃顶选股报警
A:= CROSS(REF(ZIG(3,8),1),ZIG(3,8) );
B1:=REF(A,1);
B2:=REF(A,2);
B3:=REF(A,3);
B4:=REF(A,4);
B1 OR B2 OR B3 OR B4;
]