好用新程序

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(CLOSE1.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(co,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)); 可追区域:=c9; ★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;