一个不错的股价支撑压力划线指标12

来源:百度文库 编辑:神马文学网 时间:2024/03/28 17:50:35
一个不错的股价支撑压力划线指标

本文来自:股神之路     作者:jshi888     阅读6




INPUT:N(5,1,100),N1(20,0,100);
MA5:MA(C,5),COLORRED,LINETHICK2;
MA10:MA(C,10),COLOR009900,LINETHICK2;
MA20:MA(C,20),LINETHICK0;
MA30:MA(C,30),COLORFF2020,LINETHICK0;
MA60:MA(C,60),LINETHICK0,colorffff00;
MA120:=SMA(C,120,1);
BDGD:=C=HHV(C,N);
GDSJ:=BARSLAST(BDGD);
前高1:IF(GDSJ>0,REF(C,GDSJ),REF(C,GDSJ)),colorffffff,LINETHICK3,POINTDOT;
TP1:=CROSS(C,REF(前高1,1));
突破1:=TP1 AND COUNT(TP1,5)=1;
STICKLINE(突破1,(O+C)/2,(O+C)/2,13,0),COLORFFFFFF;
A1:=ref(h,N)=hhv(h,2*N+1);
B1:=filter(A1,N);
C1:=backset(B1,N+1);
D1:=filter(C1,n);{高点}
A2:=ref(l,N)=llv(l,2*N+1);
B2:=filter(A2,N);
C2:=backset(B2,N+1);
D2:=filter(C2,N);{低点}
E1:=(ref(llv(l,2*N),1)+ref(hhv(h,2*N),1))/2; E2:=(h+l)/2;{高低点出现在同一K线上时可作取舍}
H1:=(D1 AND not(D2 AND E1>=E2)) OR barstatus=2 OR barscount(c)=1;
L1:=(D2 AND not(D1 AND E1=E2);
X1:=ref(barslast(H1),1)+1; F1:=backset(H1 AND count(L1,X1)>0,llvbars
(if(L1,l,10000),X1));
G1:=F1>ref(F1,1); I1:=backset(G1,2); LD:=I1>ref(I1,1);{过滤后低点}
L2:=LD OR barstatus=2 OR barscount(c)=1;
X2:=ref(barslast(L2),1)+1; F2:=backset(L2 AND count(H2,X2)>0,hhvbars
(if(H2,h,0),X2));
G2:=F2>ref(F2,1); I2:=backset(G2,2); HD:=I2>ref(I2,1);{过滤后高点}
DRAWLINE(LD,L,HD,H,0),COLORffffff,LINETHICK1;
DRAWLINE(HD,H,LD,L,0),COLORffffff,LINETHICK1;
J1p:=BACKSET(BARSTATUS=2,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2p:=J1p>REF(J1p,1);
DRAWLINE(J2p,IF(HD,H,L),BARSTATUS=2,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORffffff,LINETHICK1;
R1:=backset(barstatus=2,barslast(HD)+1); S1:=R1>ref(R1,1); {前一高}
T1:=backset(barstatus=2,barslast(LD)+1); U1:=T1>ref(T1,1); {前一低}
R2:=backset(S1,ref(barslast(HD),1)+2); S2:=R2>ref(R2,1); {前二高}
T2:=backset(U1,ref(barslast(LD),1)+2); U2:=T2>ref(T2,1); {前二低}
T3:=backset(U2,ref(barslast(LD),1)+2); U3:=T3>ref(T3,1); {前三低}
T4:=backset(U3,ref(barslast(LD),1)+2); U4:=T4>ref(T4,1); {前四低}
R3:=backset(S2,ref(barslast(HD),1)+2); S3:=R3>ref(R3,1); {前三高}
R4:=backset(S3,ref(barslast(HD),1)+2); S4:=R4>ref(R4,1); {前四高}
短压:drawline(S2,h,S1,h,1),ColorFFB400;
短支:drawline(U2,l,U1,l,1),ColorFF2200,LINETHICK2;
中压:drawline(S3,h,S2,h,1),Colorff99ff;
中支:drawline(U3,l,U2,l,0),ColorFF00FF,LINETHICK2;   
长压:drawline(S4,h,S3,h,1),COLOR00ffff;
长支:drawline(U4,l,U3,l,0),Color0099DD,LINETHICK2;
DRAWICON(S1,H*1.01,13),ALIGN1;
DRAWICON(S2,H*1.01,13),ALIGN1;
DRAWICON(S3,H*1.01,13),ALIGN1;
DRAWICON(S4,H*1.01,13),ALIGN1;
DRAWICON(U1,L,12),ALIGN1;
DRAWICON(U2,L,12),ALIGN1;
DRAWICON(U3,L,12),ALIGN1;
DRAWICON(U4,L,12),ALIGN1;
ZH520:=ABS(MA5-MA20)/MA20*100<=N;
ZH530:=ABS(MA5-MA30)/MA30*100<=N;
QSXS1:=MA5>REF(MA5,1);
QSXS2:=MA20>REF(MA20,1);
QSXS3:=MA30>REF(MA30,1);
DTPL:=MA20>MA30 AND MA30>MA120;
LYT:=DTPL AND QSXS2 AND QSXS3 AND COUNT(QSXS1,4)<=1;
GJHS:=C>MA5 AND ((QSXS1 AND NOT(REF(QSXS1,1))) OR C>REF(C,3));
LYKK:=GJHS AND (ZH520 OR ZH530) AND LYT;
买:=(LYKK AND NOT(REF(LYKK,1)))*50;
优选:=(买 AND COUNT((MA10>MA20),5)=5)*100;
DRAWTEXT(买,L*0.99, '①'),COLORred,ALIGN1;
DRAWTEXT(优选,L*0.99,'●'),ALIGN1,COLOR0099aa;
varC:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100;
DRAWTEXT(CROSS(82,varC),HIGH*1.015,'●'),COLOR009900,ALIGN1;
var6:=REF(C,1);
var7:=SMA(MAX(C-var6,0),6,1)/SMA(ABS(C-var6),6,1)*100;
DRAWTEXT(CROSS(84,var7),H*1.015,'▽'),COLORffff00 ,ALIGN1;
A1aa:=9;
A2aa:=(REF(CLOSE,A1aa+1)DRAWTEXT(FILTER((A2aa>-0.5),84),(HIGH)*(1.01),'小心'),ColorffFF00;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
ZX:=100*EMA(EMA(MTM,12),12)/EMA(EMA(ABS(MTM),12),12);
CX:=100*EMA(EMA(MTM,26),26)/EMA(EMA(ABS(MTM),26),26);
DTPL1:=DX>ZX AND ZX>CX AND CX>0;
QSXS:=DX>REF(DX,1) AND ZX>REF(ZX,1);
TSJC:=CROSS(DX,CX) AND CROSS(ZX,CX);
优选1:=IF(CROSS(DTPL1,0.8) AND (TSJC OR COUNT(QSXS,3)=3) AND CX<40,1,0);
买1:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
卖1:=IF(HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX),1,0);
DRAWTEXT(filter(买1=1,5),low*0.99,'¤'),COLORffffff,ALIGN1;
DRAWTEXT(filter(卖1=1,5),high*1.015,'¤'),COLOR00ff00,ALIGN1;
DRAWICON(优选1,low,1);
x1X:=(C+L+H)/3;
bb13:=atan(ema(x1X,13)-ref(ema(x1X,13),1))*3.1416*10;
ema8:=ema(c,8);
DRAWTEXT(filter(bb13>1 and ema(x1X,13)>ref(ema(x1X,8),1),10),
ema8,'∠45'),colorwhite;
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K1K:=SMA(RSV,3,1);
D1D:=SMA(K1K,3,1);
J1J:=3*K1K-2*D1D;
BDGD1:=HHV(J1J,2)=HHV(J1J,8) AND J1J>80;
BDDD:=LLV(J1J,2)=LLV(J1J,8);
J1向下拐头:=IF(CROSS(REF(J1J-0.01,1),J1J) AND REF(BDGD1,1),1,0);
DRAWTEXT(j1向下拐头 ,high*1.007,'↓J'),COLORffffff;
J1向上拐头:=IF(CROSS(J1J,REF(J1J+0.01,1)) AND BDDD AND J1J<20,1,0);
DRAWTEXT(j1向上拐头,low,'↑J'),COLOR00ffff;
WR2:=100*(HHV(HIGH,6)-CLOSE)/(HHV(HIGH,6)-LLV(LOW,6));
DDSJ:=BARSLAST((1-C/REF(C,1))*100>=2);
XD:=CDF:=(HHV(H,5)/C-1)*100>=5;
跌6:=COUNT(XD,6)>=5 AND XD AND DF AND DDSJ<=1;
跌9:=WR2>80;
底:=跌6 AND 跌9;
TYP := (HIGH + LOW + CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
A:=REF(C,1);
RSI:=SMA(MAX(C-A,0),6,1)/SMA(ABS(C-A),6,1)*100;
A11:=(C/MA(C,5)-1)*100<-10;
A21:=(C/MA(C,13)-1)*100<-10;
A31:=(C/MA(C,34)-1)*100<-15;
A41:=RSI<18;
A51:=CCI<-120;
A61:=COUNT(ABS(C/REF(C,1)-1)*100>=6,30)>=1;
底部:=A11 AND A21 AND A31 AND A41 AND A51 AND A61;
DRAWTEXT(底部,low,'底'),COLOR00FF00;
DRAWTEXT(底>0,low-0.03,'d'),COLORFF9933;
TKQK:=ODFXD:=(C/REF(C,1)-1)*100<=-4;
DRDD:=(C/REF(C,1)-1)*100<=-6;
清澈:=COUNT(TKQK OR DFXD,4)=4 AND COUNT(DRDD,4);
JD1:=C>O AND C>REF(C,1);
JD2:=(MIN(C,O)-L)/ABS(C-O)>=1.5;
见底:=(JD1 OR JD2) AND REF(清澈,1);
QSXS4:=C>=MA60 AND MA60>REF(MA60,1);
优选2:=见底 AND QSXS4;
DRAWTEXT(优选2,L*0.99,'D'),COLOR00FF00,ALIGN1;
AA1:=AMOUNT/V;
BB1:=LCC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=LEE1:=VV,5)*1.5;
老鼠仓:=BB1 AND CC1 AND DD1 AND EE1;
DRAWTEXT(老鼠仓,l*0.99,' 老鼠仓'),COLOR0099ff,ALIGN1;
STICKLINE(老鼠仓,O,C,4,1),COLOR0099ff;
STICKLINE(老鼠仓,O,H,0,0),COLOR0099ff;
STICKLINE(老鼠仓,L,C,0,0),COLOR0099ff;
BIAS2 := (CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
STICKLINE(BIAS2<-6,C,O,4,1),COLORFF00ff;
STICKLINE(BIAS2<-6,O,H,0,0),COLORff00ff;
STICKLINE(BIAS2<-6,L,C,0,0),COLORff00ff;
hzz:=ema(close,13);
短波:=ema(hzz,1);
中波:=ema(hzz,26);
DRAWTEXT(cross ( 中波,短波),low *0.99,'马');
DRAWTEXT(cross ( 短波,中波),low *0.99,'天马');
DRAWTEXT(count(c>ref(c,1),5)=5,h*1.02,'警');
DRAWTEXT(count(c主筹估算:=EMA(WINNER(c)*70,3);
散筹估算:=EMA((WINNER((c)*1.1)-WINNER((c)*0.9))*70,3);
筹码锁定:=散筹估算-主筹估算 ;
动态底部:=EMA(IF(L<= LLV(l,60),SMA(ABS(L-REF(L,1)),60,1)/SMA(MAX(L-REF(l,1),0),99,1),0)*5,3);
涨:=CROSS(主筹估算,筹码锁定);
强:=CROSS(主筹估算,散筹估算);
STICKLINE(涨,O,C,4,1),COLORffffff;
STICKLINE(涨,O,H,0,0),COLORffffff;
STICKLINE(涨,L,C,0,0),COLORffffff;
STICKLINE(强, O,C,4,1),color00ffff;
STICKLINE(强,O,H,0,0),color00ffff;
STICKLINE(强,L,C,0,0),color00ffff;
STICKLINE(筹码锁定<-50,O,C,4,1),COLOR7070ff;
STICKLINE(筹码锁定<-50,O,H,0,0),COLOR7070ff;
STICKLINE(筹码锁定<-50,L,C,0,0),COLOR7070ff;
lhnh:=BARSLAST(SYSPARAM(2)=BARPOS)+1;
nnl:=SYSPARAM(3)=BARPOS;
PS:=BACKSET(nnl,hhvBARS(h,lhnh)+1);
BS:=PS>REF(PS,1);
P2S:=BACKSET(nnl,LLVBARS(L,lhnh)+1);
B2S:=P2S>REF(P2S,1);
高:REF(H,BARSLAST(bS)),COLOR606060,LINETHICK1;
低:REF(L,BARSLAST(B2S)),COLOR606060,LINETHICK1;
F6S:((高-低)*0.236)+低,COLOR606060;
F2S:((高-低)*0.382)+低,COLOR606060;
F3S:((高-低)*0.5)+低,COLOR909090,LINETHICK2;
F4S:((高-低)*0.618)+低,COLOR606060;
F5S:((高-低)*0.764)+低,COLOR606060;
{买入:=STRFIND(Extrastring('评级'),'买入',1)>0;
增持:=STRFIND(Extrastring('评级'),'增持',1)>0;
持有:=STRFIND(Extrastring('评级'),'持有',1)>0;
DRAWTEXTREL(400,970,'评级:'+Extrastring('评级')),colora9a9a9;}
{DRAWTEXTABS(5,360,'板块:'+BKNAME),colora9a9a9;}
流通:=FINANCE(37)/10000;
市盈率:=DYNAINFO(39);
F111:=COST(5 );J111:=COST(95 );
M111:=COST(15 );X111:=COST(85 );
F112:=(J111-F111)/(F111+J111)*100;M112:=(X111-M111)/(X111+M111)*100;
集中度90:=F112;
集中度70:=M112;
获利盘:=WINNER(CLOSE)*100;
套牢盘:=100*(1-WINNER(C));
收益:=FINANCE(3);
浮筹比:=(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100;
Aa3:=SUMBARS(VOL,CAPITAL);
换手成本:=IF(CAPITAL>0,SUM(AMOUNT,Aa3)/SUM(VOL,Aa3)/100,EMA(CLOSE,120));{100%换手平均成本线};  
当日换手率:=sum(100*v/capital,1);
五日换手率:=sum(100*v/capital,5);
十日换手率:=SUM(VOL,10)*100/CAPITAL;
{DRAWTEXT(sysparam(2)=barpos,c,'代码: '+STKLABEL+':'+ '名称:'+STKNAME+':'+'板块:'+BLKNAME+'\n浮筹比:'+NUMTOSTR(浮筹比,0)+'%'+'  总股本:'+NUMTOSTR(FINANCE(1),2)+'万股'+'  流通A股:'+NUMTOSTR(FINANCE(7),0)+' 市盈率:'+NUMTOSTR(市盈率,2)+'\n集中度70:'+NUMTOSTR(集中度70,0)+'  集中度90:'+NUMTOSTR(集中度90,0)+'  获利盘:'+NUMTOSTR(获利盘,2)+'% '+'  套牢盘:'+NUMTOSTR(套牢盘,2)+'%'+'  每股收益:'+NUMTOSTR(FINANCE(33),3)+'元'+'\n每股净资产:'+NUMTOSTR(FINANCE(34),2)+'元'+'  换手成本:'+NUMTOSTR(换手成本,2)+'5日换手率:'+NUMTOSTR(五日换手率,2)+'%'+'  10日换手率:'+NUMTOSTR(十日换手率,2)+'%'),COLORYELLOW,ALIGN4;
GJ:=(C+H+L+O)/4;
明阻:=L+(GJ-L)+(C-L);
明支:=L+(C-GJ);
阻:REF(明阻 , 1),LINETHICK0,COLORRED;
支:REF(明支 , 1),LINETHICK0,COLORFF00FF;
STICKLINE(SYSPARAM(3)=BARPOS  AND C>=阻,阻*1.001,阻*0.999,15,0),COLOR0000FF;
STICKLINE(SYSPARAM(3)=BARPOS  AND C<阻,阻*1.001,阻*0.999,15,0),COLOR00FF00;
STICKLINE(SYSPARAM(3)=BARPOS  AND C>=支,支*1.001,支*0.999,15,0),COLORFF00FF;
STICKLINE(SYSPARAM(3)=BARPOS  AND C<支,支*1.001,支*0.999,15,0),COLORFF8800;
YX:=((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1))));
STICKLINE((YX AND (OPEN > LOW)),OPEN,LOW,0,0),colorFF;
STICKLINE((YX AND (CLOSE < HIGH)),CLOSE,HIGH,0,0),colorFF;
STICKLINE((NOT(YX) AND (CLOSE > LOW)),CLOSE,LOW,0,0),colorFF00;
STICKLINE((NOT(YX) AND (OPEN < HIGH)),OPEN,HIGH,0,0),colorFF00;
STICKLINE(YX,CLOSE,OPEN,8,0),color77;
STICKLINE(YX,CLOSE,OPEN,7,0),color88;
STICKLINE(YX,CLOSE,OPEN,6,0),color99;
STICKLINE(YX,CLOSE,OPEN,5,0),colorAA;
STICKLINE(YX,CLOSE,OPEN,4,0),colorBB;
STICKLINE(YX,CLOSE,OPEN,3,0),colorCC;
STICKLINE(YX,CLOSE,OPEN,2,0),colorDD;
STICKLINE(YX,CLOSE,OPEN,1,0),colorEE;
STICKLINE(YX,CLOSE,OPEN,0,0),colorFF;
STICKLINE(NOT(YX),CLOSE,OPEN,8,0),color8800;
STICKLINE(NOT(YX),CLOSE,OPEN,7,0),color9900;
STICKLINE(NOT(YX),CLOSE,OPEN,6,0),colorAA00;
STICKLINE(NOT(YX),CLOSE,OPEN,5,0),colorBB00;
STICKLINE(NOT(YX),CLOSE,OPEN,4,0),colorCC00;
STICKLINE(NOT(YX),CLOSE,OPEN,3,0),colorDD00;
STICKLINE(NOT(YX),CLOSE,OPEN,2,0),colorEE00;
STICKLINE(NOT(YX),CLOSE,OPEN,1,0),colorFF00;