分享

牛熊短线(附图)

 wygf2009 2013-12-07
{启动金钻}
DIF9:=EMA(C,12)-EMA(C,26);
DEA9:=EMA(DIF9,200);
A:=(DIF9-DEA9)*2.5;
黄金钻信号:IF(A<0,0,A*A),LINETHICK3,,COLORRED;
DIF2:=EMA(C,9)-EMA(C,34);
DEA2:=EMA(DIF2,200);
AA:=(DIF2-DEA2)*2.5;
启动引导线:IF(A<0,0,AA*AA),LINETHICK2,COLOR0055FF;
红码:=MA(C,30)+2*STD(C,30);
DRAWICON(C>红码 AND C>=O ,黄金钻信号,26);
{牛熊短线}
VAR1:=REF(LOW,1);
VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),13,1)*4;
VAR3:=EMA(VAR2,13);
A01:=(3);
A03:=BARSCOUNT(CLOSE);
A04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100);
A05:=IF((A03 > 20),A04,0);
A06:=IF((LOW > A01),0,IF((HIGH < A01),1,(((A01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009))));
A07:=DMA(A06,(VOL / CAPITAL)) * 60;
A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 200)),A07,0);
趋势:=EMA(VAR3,3)-10;
STICKLINE(趋势>80,趋势,80,6,0);
DRAWTEXT(CROSS(趋势,0),0,'▲'),COLOR0000FF;
STICKLINE((A09 > 0 AND (趋势<20 OR 趋势>REF(趋势,1)AND 趋势<50)),0,A09,5,0),COLORFFFF00;
机构建仓区:0,LINETHICK0,COLORFFFF00;
{KKDD大趋势}
LOWV1:=EMA(LLV(LOW,34),3);
HIGHV1:=EMA(HHV(HIGH,34),3);
RSV1:=EMA((CLOSE-LOWV1)/(HIGHV1-LOWV1)*100,3);
KK:=SMA(RSV1,8,1),COLOR4080FF,LINETHICK1;
DD:=SMA(KK,6,1),COLOR008000,LINETHICK1;
DRAWBAND(KK,RGB(200,0,200),DD,RGB(100,100,100));
{一三买入法}
MA10:=MA(CLOSE,10);
MA34:=MA(CLOSE,34);
{倍量表示:今日大于昨日2倍量}
VOLUME:=VOL;
TJ:=(V/REF(V,1)>2) AND MA10<MA34 AND MA10>REF(MA10,1);
三连阴:=LAST(C<O,3,0);
三缩量:=LAST(VOL<REF(VOL,1),3,0);
选股:=REF(三连阴,1)>0 AND REF(三缩量,1)>0 AND O<C AND TJ;
STICKLINE(选股,0,40,1.2,0),COLORRED;
DRAWTEXT(选股>0.9,38,'一三买'),COLORRED,LINETHICK2;
{盘整突破}
突破角度:=(ATAN((MA(CLOSE,5)/REF(MA(CLOSE,5),1)-1)*100)*180/3.14115926)>50;
{>45 数字可调整为你喜欢的任何角度}
去除停牌:=DYNAINFO(17)!=0;
VARR:=(C+H+O+L)/4;
上轨:=EMA(VARR,10)*1.09;
盘整突破:=LAST((H-L)/REF(C,1)<0.1,20,0) AND VOL>REF(VOL,1)*1.5 AND C>REF(C,1)*1.03
AND "DMI.PDI">"DMI.MDI" AND"DMI.ADXR">"DMI.MDI"AND "DMI.PDI">"DMI.ADX"
AND(CROSS("DMI.ADX","DMI.ADXR")OR("DMI.ADX">"DMI.ADXR"))
AND"KDJ.D">REF("KDJ.D",1) AND"KDJ.D"<75 AND C<上轨 AND 突破角度 AND 去除停牌;
STICKLINE(盘整突破,0,45,1.2,0),COLORWHITE;
DRAWTEXT(盘整突破,45,'突破'),COLORWHITE,LINETHICK1;
{财神到}
XXBB:= EMA((CLOSE-LLV(LOW,25))/(HHV(HIGH,25)-LLV(LOW,25))*4,5)*100;
财神到:=REF(XXBB,1)<50 AND XXBB-REF(XXBB,1)>25;
STICKLINE(财神到,33,50,3,0),COLOR2222AA;
STICKLINE(财神到,16.5,33,3,0),COLOR11AA88;
STICKLINE(财神到,0,16.5,3,0),COLORAAAA00;
DRAWTEXT(财神到,44.5,'财'),COLORYELLOW;
DRAWTEXT(财神到,27.5,'神'),COLORYELLOW;
DRAWTEXT(财神到,10.5,'到'),COLORYELLOW;
{买入}
A5:=C-REF(C,1);
A6:=100*EMA(EMA(A5,6),6)/EMA(EMA(ABS(A5),6),6);
RMA1:=EMA(CLOSE,7);
NMA1:=EMA(CLOSE,19);
UP1:=DRAWLINE(L=LLV(L,BARSLAST(CROSS(NMA1,RMA1))+1),LLV(L,BARSLAST(CROSS(NMA1,
RMA1))+1),H
=HHV(H,BARSLAST(CROSS(RMA1,NMA1))+1),HHV(H,BARSLAST(CROSS(RMA1,NMA1))+1),0);
DOWN1:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(RMA1,NMA1))+1),HHV(H,BARSLAST(CROSS(RMA1,
NMA1))+1),L
=LLV(L,BARSLAST(CROSS(NMA1,RMA1))+1),LLV(L,BARSLAST(CROSS(NMA1,RMA1))+1),0);
买入:=(LLV(A6,2)=LLV(A6,7) AND COUNT(A6<0,2) AND CROSS(A6,MA(A6,2))) AND
REF(DOWN1,1)<REF(DOWN1,2) AND UP1>REF(DOWN1,1);
IF(买入,0,35),COLORCYAN,LINETHICK2;
{短线买点选股}
DIFF1:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
短线买点:=CROSS(((DIFF1-EMA(DIFF1,9))*10-REF((DIFF1-EMA(DIFF1,9))*10,1)),1) AND
 (DIFF1-EMA(DIFF1,9))*10>1;
IF(短线买点,60,0),LINETHICK2,COLOR00FFFF;
DRAWTEXT(短线买点>0,50,'* 短买'),LINETHICK1,COLOR00FFFF;
{横盘启动突破}
LOWV:=LLV(LOW,15); {15天内的最低价}
HIGHV:=HHV(HIGH,15); {15天内的最高价}
HIGHVV:=HHV(HIGH,40); {40天内的最高价}
V0:=V; {当天的成交量}
V1:=REF(V,1); {一天前的成交量}
V2:=REF(V,2); {两天前的成交量}
V3:=REF(V,3); {三天前的成交量}
HV22:=HHV(V,35); {35天内的最大成交量}
D0U:=C>O; {今天是阳线}
D1U:=REF(C,1)>=REF(C,2); {昨天是阳线}
横盘:=((HIGHV-LOWV)/HIGHV)<0.15; {半个月内价格波动小于15%}
放量1:=V0>=(1.8*((V1+V2+V3)/3)); {今天量是前三天均量的1.8倍}
放量2:=V0<=(3.8*V1); { 今天的量在昨天量的四倍范围内}
今天阳线:=D0U; {今天是阳线}
昨天阳线:=D1U; {昨天是阳线}
今天中阳:=(C-REF(C,1))/REF(C,1)>=0.018; {今天涨幅大于1.8%}
开盘非最高价:=C<=HIGHVV; {收盘非40天内最高价}
收盘非最高价:=O<=HIGHVV; {开盘非40天内最高价}
非最大成交量:=V0<HV22; {非一个月内最高成交量}
启动突破:=(横盘 AND 放量1 AND 放量2 AND 今天阳线 AND 昨天阳线 AND 今天中阳 AND
开盘非最高价 AND 收盘非最高价 AND
非最大成交量) AND 盘整突破;
IF(启动突破>0,40,0),COLORWHITE,LINETHICK2;
DRAWTEXT(启动突破>0,30,'启动'),COLORFFFFFF;
{中顶大顶}
X:=MA(AMOUNT,5)/MA(V,5)/100;
VAR9:=(X-MA(AMOUNT,125)/MA(V,125)/100)/X;
VAR11:=MA((LLV(L,45)-C)/(HHV(H,45)-LLV(L,45))*100,3);
VAR12:=C/MA(C,60)-1;
中顶:IF(CROSS(VAR11,-95) AND VAR12<0.35 AND VAR12>=0.2,-60,0),COLORMAGENTA,LINETHICK2;
DRAWTEXT(中顶<0,-30,'中顶'),COLORMAGENTA,LINETHICK1;
大顶:IF(CROSS(VAR11,-95) AND VAR12>=0.35,-60,0),COLORFF7F00,LINETHICK2;
DRAWTEXT(大顶<0,-30,' '),COLORFF7F00,LINETHICK1;
0,COLORRED,LINETHICK2;
DIF:(EMA(CLOSE,5)-EMA(CLOSE,27))/((EMA(CLOSE,5)+EMA(CLOSE,27))/2)*1000,COLOR00FFFF;
DEA1:=EMA(DIF,9),COLORWHITE;
MACD:2*(DIF-DEA1),NODRAW,COLORRED;
{红绿箭头}
DRAWICON(CROSS(DIF,DEA1),DEA1,1);
{DRAWICON(CROSS(DEA1,DIF),DEA1,2);}
{DIF变色线没有未来函数}
DEA:EMA(DIF,9),COLORWHITE,LINETHICK2;
{自动射线}
OBV:=DIF;
P:=12;
A1:=REF(OBV,P)=HHV(OBV,2*P+1);
B1:=FILTER(A1,P);
C1:=BACKSET(B1,P+1);
D1:=FILTER(C1,P);{高点1}
R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
S11:=R11>REF(R11,1);
蓝:DRAWLINE(D1,OBV,S11,OBV,1),COLORFF7F00,LINETHICK1;
A2:=REF(OBV,P)=LLV(OBV,2*P+1);
B2:=FILTER(A2,P);
C2:=BACKSET(B2,P+1);
D2:=FILTER(C2,P);{低点1}
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
U11:=T11>REF(T11,1);
粉:DRAWLINE(D2,OBV,U11,OBV,1),COLORLIRED,LINETHICK1;
Q2:=INTPART(3*8/18);
A22:=REF(OBV,Q2)=LLV(OBV,2*Q2+1);
B22:=FILTER(A22,Q2);
C22:=BACKSET(B22,Q2+1);
D22:=FILTER(C22,Q2);{低点2}
T112:=BACKSET(ISLASTBAR,BARSLAST(D22)+1);
U112:=T112>REF(T112,1);
红:DRAWLINE(U11,OBV,U112,OBV,1),COLORRED,LINETHICK1;
HHV(IF(U11,OBV,DRAWNULL),0),COLOR00FFFF,LINETHICK1;
DIF,IF(DEA,DIF,DRAWNULL),COLOR00FFFF,LINETHICK2;
IF(DIF<REF(DIF,1),DIF,DRAWNULL),COLORGREEN,LINETHICK2;
IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLORRED,LINETHICK2;
8,COLOR00FFFF,POINTDOT,LINETHICK2;
80,COLOR008000,POINTDOT,LINETHICK2;
{庄家吸筹}
VAR81:=IF(YEAR>=2038 AND MONTH>=1,0,1);
VAR82:=REF(LOW,1)*VAR81;
VAR83:=SMA(ABS(LOW-VAR82),3,1)/SMA(MAX(LOW-VAR82,0),3,1)*100*VAR81;
VAR84:=EMA(IF(CLOSE*1.3,VAR83*10,VAR83/10),3)*VAR81;
VAR85:=LLV(LOW,30)*VAR81;
VAR86:=HHV(VAR84,30)*VAR81;
VAR87:=IF(MA(CLOSE,58),1,0)*VAR81;
VAR88:=EMA(IF(LOW<=VAR85,(VAR84+VAR86*2)/2,0),3)/618*VAR87*VAR81;
吸筹:IF(VAR88>100,100,VAR88)*VAR81,COLORGREEN;
庄家吸筹:STICKLINE(吸筹>-150,0,吸筹,8,0),COLORRED;
{见底逃命}
VAR71:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR72:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR73:=BARSCOUNT(CLOSE);
VAR74:=VAR71<20 AND VAR72<23 AND VAR73>35;
VAR75:=VAR74 AND COUNT(VAR74,1)=1;
VAR76:=EMA(CLOSE,21)-EMA(CLOSE,8);
VAR77:=EMA(VAR76,5);
VAR78:=TROUGHBARS(3,6,1)<4 AND CROSS(VAR76,VAR77);
VAR79:=(HIGH+LOW+CLOSE)/3;
VAR710:=IF(TROUGHBARS(3,18,1)=0 AND HIGH>LOW+0.04,100,0);
VAR711:=(VAR79-MA(VAR79,14))/(0.015*AVEDEV(VAR79,14));
见底: VAR710,COLORYELLOW,LINETHICK3;
DRAWTEXT(VAR711<-110 AND 见底>0,90,'*见底'), ,COLORYELLOW;
DRAWTEXT(见底 AND VAR711<-110 AND VAR78 AND VAR75>0,4.1,'★组合5分钟线选股思路获利5%以上'), , COLORRED;
DRAWICON(见底>0,100,1);
VAR712:=PEAKBARS(3,15,1)<10;
VAR713:=IF(VAR712=1,2,0);
顶:= IF(VAR713=2,2,0);
逃命:IF(顶>REF(顶,1),60,0),COLORRED,LINETHICK3;
DRAWTEXT(逃命=60,60,'* 逃'),COLORRED;
{顶底背离}
DIFF:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
DEAA:=EMA(DIFF,9),COLORFFFF00;
MACD1:=(DIFF-DEAA)*2;
A61:=BARSLAST(REF(CROSS(DIFF,DEAA),1));
A62:=BARSLAST(REF(CROSS(DEAA,DIFF),1));
底背离:=REF(CLOSE,A61+1)>CLOSE AND DIFF>REF(DIFF,A61+1) AND CROSS(DIFF,DEAA);
顶背离:=REF(CLOSE,A62+1)<CLOSE AND REF(DIFF,A62+1)>DIFF AND CROSS(DEAA,DIFF);
¥④:IF(底背离,57,0),LINETHICK3,COLORBROWN;
DRAWTEXT(底背离,60,' MACD底背离'),COLORRED;

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多