|
本文來(lái)自:股神之路 作者: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);{高點(diǎn)} A2:=ref(l,N)=llv(l,2*N+1); B2:=filter(A2,N); C2:=backset(B2,N+1); D2:=filter(C2,N);{低點(diǎn)} E1:=(ref(llv(l,2*N),1)+ref(hhv(h,2*N),1))/2; E2:=(h+l)/2;{高低點(diǎn)出現(xiàn)在同一K線上時(shí)可作取舍} H1:=(D1 AND not(D2 AND E1>=E2)) OR barstatus=2 OR barscount(c)=1; L1:=(D2 AND not(D1 AND E1<E2)); H2:=D1 AND not(D2 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);{過(guò)濾后低點(diǎn)} 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);{過(guò)濾后高點(diǎn)} 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; 長(zhǎng)壓:drawline(S4,h,S3,h,1),COLOR00ffff; 長(zhǎng)支: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; 買(mǎi):=(LYKK AND NOT(REF(LYKK,1)))*50; 優(yōu)選:=(買(mǎi) AND COUNT((MA10>MA20),5)=5)*100; DRAWTEXT(買(mǎi),L*0.99, '①'),COLORred,ALIGN1; DRAWTEXT(優(yōu)選,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)<CLOSE); 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); 優(yōu)選1:=IF(CROSS(DTPL1,0.8) AND (TSJC OR COUNT(QSXS,3)=3) AND CX<40,1,0); 買(mǎi)1:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0); 賣(mài)1:=IF(HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX),1,0); DRAWTEXT(filter(買(mǎi)1=1,5),low*0.99,'¤'),COLORffffff,ALIGN1; DRAWTEXT(filter(賣(mài)1=1,5),high*1.015,'¤'),COLOR00ff00,ALIGN1; DRAWICON(優(yōu)選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:=C<REF(C,1); DF:=(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:=O<REF(C,1) AND C<REF(C,1); DFXD:=(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; 見(jiàn)底:=(JD1 OR JD2) AND REF(清澈,1); QSXS4:=C>=MA60 AND MA60>REF(MA60,1); 優(yōu)選2:=見(jiàn)底 AND QSXS4; DRAWTEXT(優(yōu)選2,L*0.99,'D'),COLOR00FF00,ALIGN1; AA1:=AMOUNT/V; BB1:=L<AA1*0.9; CC1:=(C-REF(C,1))/REF(C,1)*100>1.2; DD1:=L<MA(C,5)*0.921; EE1:=V<MA(V,5)*1.5; 老鼠倉(cāng):=BB1 AND CC1 AND DD1 AND EE1; DRAWTEXT(老鼠倉(cāng),l*0.99,' 老鼠倉(cāng)'),COLOR0099ff,ALIGN1; STICKLINE(老鼠倉(cāng),O,C,4,1),COLOR0099ff; STICKLINE(老鼠倉(cāng),O,H,0,0),COLOR0099ff; STICKLINE(老鼠倉(cāng),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<ref(c,1),5)=5,l*0.99,'注'); 主籌估算:=EMA(WINNER(c)*70,3); 散籌估算:=EMA((WINNER((c)*1.1)-WINNER((c)*0.9))*70,3); 籌碼鎖定:=散籌估算-主籌估算 ; 動(dòng)態(tài)底部:=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(主籌估算,籌碼鎖定); 強(qiáng):=CROSS(主籌估算,散籌估算); STICKLINE(漲,O,C,4,1),COLORffffff; STICKLINE(漲,O,H,0,0),COLORffffff; STICKLINE(漲,L,C,0,0),COLORffffff; STICKLINE(強(qiáng), O,C,4,1),color00ffff; STICKLINE(強(qiáng),O,H,0,0),color00ffff; STICKLINE(強(qiáng),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; {買(mǎi)入:=STRFIND(Extrastring('評(píng)級(jí)'),'買(mǎi)入',1)>0; 增持:=STRFIND(Extrastring('評(píng)級(jí)'),'增持',1)>0; 持有:=STRFIND(Extrastring('評(píng)級(jí)'),'持有',1)>0; DRAWTEXTREL(400,970,'評(píng)級(jí):'+Extrastring('評(píng)級(jí)')),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; 獲利盤(pán):=WINNER(CLOSE)*100; 套牢盤(pán):=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%換手平均成本線}; 當(dāng)日換手率:=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)+'萬(wàn)股'+' 流通A股:'+NUMTOSTR(FINANCE( 7),0)+' 市盈率: '+NUMTOSTR(市盈率,2)+'\n集中度70:'+NUMTOSTR(集中度70,0)+' 集中度90:'+NUMTOSTR(集中度 90,0)+' 獲利盤(pán):'+NUMTOSTR(獲利盤(pán),2)+'% '+' 套牢盤(pán):'+NUMTOSTR(套牢盤(pán),2)+'% '+' 每股收益:'+NUMTOSTR(FINANCE(33),3)+'元 '+'\n每股凈資產(chǎ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; |
|
|
