回头望月
DRAWBKBMP(c<ma(C,10),'熊1'); //熊市
DRAWBKBMP(C>ma(C,10) andc<ma(C,30),'弱1');//弱市
DRAWBKBMP(C>ma(C,30),'走强1');//走强
DRAWBKBMP(C>ma(C,60) andc<ma(C,120),'牛1');//初牛市
DRAWBKBMP(C>ma(C,120) andc<ma(C,240),'中牛1');//中牛市
DRAWBKBMP(C>ma(C,240),'大牛1');//大牛市
n:=21;
DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'《股海神偷独门暗器指标》:版块:'+BLKNAME),ALIGN4,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'《13日线上持股之下持币》证券代码:'+STKLABEL),ALIGN5,PXUP4,colorFF00;
VARA:=IF(CLOSE>150,91.3,0.913);
箱下沿:=INTPART(CLOSE/VARA)*VARA;
箱上沿:=箱下沿+VARA;
箱中线:=(箱下沿+箱上沿)/2;
走势:=SMA(FORCAST(CLOSE,18),6,1);
VAR1:=(HIGH+LOW+OPEN+CLOSE)/4;
操盘线:=(MA(3*VAR1-2*SMA(VAR1,2,1),10));
十日高:HHV(HIGH,13)*(1-5/100),LINETHICK2,colorFF0000;
EMA(操盘线,500),LINETHICK4,colorBLUE;
VAR0:=EMA(EMA(EMA(CLOSE,2),2),2);
MA13:MA(VAR0,13)*0.99,colorFFFF;
MA(VAR0,13)*0.999,colorFFFF;
M21:EMA(VAR0,21)*0.96,LINETHICK3;
M55:=EMA(VAR0,55)*0.96;
M120:EMA(VAR0,120),LINETHICK4;
M250:EMA(VAR0,250)*0.98,LINETHICK5;
QQ:EMA(EMA(EMA(CLOSE,55),1),250)*0.92;
STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),HIGH,LOW,0.1,0),colorFF;
STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),OPEN,CLOSE,7,1),colorFF;
STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),HIGH,LOW,0.1,0),colorFFFF00;
STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),OPEN,CLOSE,7,0),colorFFFF00;
X1:=(CLOSE+LOW+HIGH)/3;
X2:=EMA(X1,6);
X3:=EMA(X2,5);
STICKLINE(CROSS(X2,X3),OPEN,CLOSE,6,0),colorFFFF;
STICKLINE(CROSS(X3,X2),OPEN,CLOSE,6,0),colorBLUE;
EMA13:=EMA(CLOSE,13);
EMA34:=EMA(CLOSE,34);
FR:=BARSLAST(REF(CROSS(EMA34,EMA13),1)) AND CROSS(EMA13,EMA34);
HZ:=EMA(CLOSE,13);
均线148天:=EMA(CLOSE,148);
成本:=SUM(AMOUNT,0)/SUM(VOL,0)/100;
TR:=MAX(MAX(HIGH-LOW,ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR,13);
VAR1:=REF(CLOSE,1)-REF(ATR,1);
生命线:HHV(VAR1,12),LINETHICK4;
生命线2:HHV(VAR1,7),LINETHICK1;
VAR1:=1;
MID:=MA(CLOSE,N)*VAR1;
YT:=EMA((EMA(CLOSE,4)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24))/4,2)*VAR1;
UPPER:=MID+2*STD(CLOSE,N)*VAR1;
LOWER:=MID-2*STD(CLOSE,N)*VAR1;
选中:=IF((UPPER-CLOSE)/CLOSE>0.3 AND (ABS(CLOSE-LOWER))/CLOSE<0.05 AND CLOSE<YT,LOWER*0.9,UPPER*1.09);
VAR2:=IF(CLOSE<=LOWER,LOWER,0);
VAR3:=IF(FILTER(VAR2=LOWER,0),-2,0);
AAA:=VAR3+LOWER;
HHH:=HHV(HIGH,288);
LLL:=LLV(LOW,288);
ZH:=HHH[DATACOUNT];
ZL:=LLL[DATACOUNT];
Q:=(ZH-ZL)/5;
C90％:=(COST(95)-COST(5))/(COST(95)+COST(5))*100;
集中度:=IF(C90％<=18 AND CLOSE<ZH-4*Q,100,0);
ZCB1:=SUMBARS(VOL,CAPITAL*1);
ZCB2:=SUM(COST(10),ZCB1)/ZCB1;
ZCB3:=SUM(COST(20),ZCB1)/ZCB1;
ZCB4:=SUM(COST(30),ZCB1)/ZCB1;
ZCB5:=SUM(COST(40),ZCB1)/ZCB1;
ZCB6:=SUM(COST(50),ZCB1)/ZCB1;
庄本:(5*ZCB2+4*ZCB3+3*ZCB4+2*ZCB5+ZCB6)/15,LINETHICK3,PRECISION2,color808080;
庄本2:(5*ZCB2+4*ZCB3+3*ZCB4+2*ZCB5+ZCB6)/15*1.01,LINETHICK3,PRECISION2,color808080;
X:=1;
LGL:=IF(EMA(CLOSE,5)/EMA(EMA(CLOSE,9),16)<=0.85 AND CLOSE/REF(CLOSE,1)>0.905 AND CLOSE/REF(CLOSE,1)<1.05 AND VOL/CAPITAL*100<5,50,0);
WR1:=-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34))+100*X;
WR2:=-100*(HHV(HIGH,50)-CLOSE)/(HHV(HIGH,50)-LLV(LOW,50))+100;
WR3:=-100*(HHV(HIGH,70)-CLOSE)/(HHV(HIGH,70)-LLV(LOW,70))+100*X;
BIAS1:=((CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100+10)*5;
BIAS2:=((CLOSE-MA(CLOSE,50))/MA(CLOSE,50)*100+10)*5;
BIAS3:=((CLOSE-MA(CLOSE,70))/MA(CLOSE,70)*100+10)*5;
S1:=(WR1+WR2+WR3+BIAS1+BIAS2+BIAS3)/6*X;
S2:=EMA(S1,3);
S3:=ABS(BIAS1-BIAS3);
SX:=(S1+S3)/2;
XC1:=(-1)*(EMA(100*(1-WINNER(CLOSE)),1)-50)+50;
CCC:=XC1+SX;
ZJZ:=(IF(LGL>0 AND CCC<0,200,0))*X;
LXL:=IF(SX<0 AND CLOSE=LLV(CLOSE,5) AND CLOSE/REF(CLOSE,1)>0.905 AND CLOSE/REF(CLOSE,1)<1.05 AND VOL/CAPITAL*100<5,-50,0);
JBJ:=(IF(CCC<0 AND LXL=-50,100,0))*X;
MA3:=MA(CLOSE,3);
C0:=REF(CLOSE,2)*0.865;
C1:=REF(CLOSE,13)*0.772;
BOT:=MIN(C0,C1);
HSL:=100*VOL/CAPITAL*X;
//MA13:MA(CLOSE,13)*X,colorFFFF;
CXC:=IF((CLOSE-BOT)/CLOSE<12/100 AND SUM(HSL,5)/5<1.8,1,0);
VMC:=IF(CXC>0 AND (LXL<0 OR LGL>0),100,0);
满仓:=VMC;
半:=IF(ZJZ>0 AND JBJ>0 AND SUM(VOL/CAPITAL*100,5)/5<1 OR CXC>0 AND REF(CLOSE,1)/REF(CLOSE,2)>0.902 OR (ZJZ>0 AND JBJ>0 AND SUM(VOL/CAPITAL*100,5)/5<1 OR CXC>0) AND (LXL<0 OR LGL>0) AND VMC<10,50,0);
V93:=(ZJZ>0 AND JBJ>0 AND SUM(VOL/CAPITAL*100,5)/5<1 OR CXC>0) AND (LXL<0 OR LGL>0);
V90:=ZJZ>0 AND JBJ>0 AND SUM(VOL/CAPITAL*100,5)/5<1 OR CXC>0 AND REF(CLOSE,1)/REF(CLOSE,2)>0.902;
半仓:=V93 OR V90;
XMM87:=满仓 OR 半仓;
XMM91:=VMC;
初:=MA(CLOSE,80)-MA(CLOSE,10)/3*X;
初级:=IF(XMM87>0,30,0);
中级:=IF(XMM91>0,91,0);
高级:=IF(VMC>0 AND CLOSE<初,97,0);
终结者:=MAX(MAX(高级,初级),中级);
VAR2Q:=MA(CLOSE,80)-MA(CLOSE,13)/3;
神奇线:=MA((CLOSE-VAR2Q)/VAR2Q,1);
买点一:=IF(CROSS(神奇线,0) AND LOW/REF(HIGH,1)<1.012,0.5,0);
稳赚:=IF(COUNT(神奇线>REF(神奇线,1),3)=3 AND COUNT(神奇线<0,10)=10 AND REF(神奇线,3)=LLV(神奇线,10),0.5,0);
买点二:=IF(REF(神奇线,2)=LLV(神奇线,20) AND REF(神奇线,2)<0.071 AND REF(神奇线,2)<REF(神奇线,1) AND NOT(REF(LOW,1)>REF(HIGH,2) AND LOW>REF(HIGH,1)) AND CLOSE>REF(CLOSE,1),0.5,0);
XA:=EMA(神奇线,12)*0.7;
XB:=EMA(神奇线,3);
底部将成:=IF(LLV(XB-XA,30)>0,0,-30);
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
MACD抄底:=IF(底部将成<0 AND CROSS(MACD,0),100,0);
DRAWICON(MACD抄底>0,生命线2,1);
VAR333:=CLOSE>(REF(HIGH,1)+REF(LOW,1))/2;
VAR55:=BARSLAST(VAR333);
VAR93:=IF(VAR55>3,-2,0);
DRAWICON(REF(VAR93,1)=-2 AND VAR93=0,LOW,1),colorFF;
DRAWICON(REF(VAR93,1)=-2 AND VAR93=0,LOW,8),colorFF;
AA1:=AMOUNT/VOL;
BB1:=LOW<AA1*0.9;
CC1:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>1.2;
DD1:=LOW<MA(CLOSE,5)*0.921;
EE1:=VOL<MA(VOL,5)*1.5;
FF1:=BB1 AND CC1 AND DD1 AND EE1;
DRAWTEXT(FF1,LOW*0.99,'★'),colorFF00;
STICKLINE(FF1,HIGH,LOW,0.5,0),colorFF00;
STICKLINE(FF1,OPEN,CLOSE,6,1),LINETHICK2,colorFF00;
VAR1:=(HIGH+LOW+OPEN+2*CLOSE)/5;
VAR2:=REF(VAR1,1);
VAR3:=(SMA(MAX(VAR1-VAR2,0),10,1))/(SMA(ABS(VAR1-VAR2),10,1))*100;
VAR4:=FILTER(IF(COUNT(VAR3<20,5)>=1 AND COUNT(VAR1=LLV(VAR1,10),10)>=1 AND CLOSE>=OPEN*1.038 AND VOL>MA(VOL,5)*1.2,1,0),5);
DRAWICON(VAR4,LOW/1.03,6);
Y1:=EMA(EMA(CLOSE,5),5);
Y2:=HHV(MA(HIGH,13),13);
VAR5:=FILTER(Y1>REF(Y1,1) AND Y2<REF(Y2,1) AND CLOSE>REF(CLOSE,1),11);
DRAWTEXT(VAR5,LOW/1.02,'追涨 '),colorFF00;
DRAWICON(VAR5,LOW/1.03,12);
X1:=(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;
X2:=EMA(0.667*REF(X1,1)+0.333*X1,5);
DRAWICON(IF(VOL>=1.3*MA(VOL,5) AND COUNT(X1>=X2 AND X1<-17,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW/1.01,4);
VAR1:=1;
MID:=MA(CLOSE,N)*VAR1;
YT:=EMA((EMA(CLOSE,4)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24))/4,2)*VAR1;
UPPER:=MID+2*STD(CLOSE,13)*VAR1;
LOWER:=MID-2*STD(CLOSE,13)*VAR1;
选中:=IF((UPPER-CLOSE)/CLOSE>0.3 AND (ABS(CLOSE-LOWER))/CLOSE<0.05 AND CLOSE<YT,LOWER*0.9,UPPER*1.09);
VAR2:=IF(CLOSE<=LOWER,LOWER,0);
VAR3:=IF(FILTER(VAR2=LOWER,0),-2,0);
AAA:=VAR3+LOWER;
CCCC2:=IF(AAA<LOWER OR 选中<LOWER,80,100);
DRAWTEXT(选中<LOWER,CLOSE*0.92,'●'),PXUP6,color4600FF;
H1:EMA(CLOSE,2),linethick2,colorred;
H2:EMA(H1,13),linethick2,colorGREEN;
DRAWICON(CROSS(H1,H2)AND CLOSE<EMA(CLOSE,60) ,LOW,1);
STICKLINE(H1>H2,H1,H2,1,0.2),COLORRED;
STICKLINE(H1<H2,H1,H2,1,0.2),COLORGREEN;
partline(H1>=ref(H1,1),H1),colorYELLOW,linethick1;
partline(H2>=ref(H2,1),H2),colorYELLOW,linethick1;
DRAWICON(CROSS(H1,H2)AND CLOSE<EMA(CLOSE,60) ,LOW,1);
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(CROSS(84,RSI) , HIGH,'★ 快跑 '),COLORYELLOW;
VarA:=REF(CLOSE,1);
VarB:=SMA(MAX(CLOSE-VarA,0),6,1)/SMA(ABS(CLOSE-VarA),6,1)*100;
DRAWTEXT(CROSS(75,VarB),HIGH,'☆短出'),Color00FF00 ;
var31:=hhvbars(zig(3, 19)>ref(zig(3,19),1) and ref(zig(3,19), 1)<ref(zig(3,19), 2),0);
转折时间:var31+1,pointdot,colorff00ff,LINETHICK0;
时间窗:=0,colorwhite;
stickline(var31=2,l*0.95,l*0.98,8,0),color0000ff;
drawtext(var31=2,l*0.95,'3天'),coloryellow;
stickline(var31=4,h*1.05,h*1.02,8,0),color9966ff;
drawtext(var31=4,h*1.06,'5天'),coloryellow;
stickline(var31=7,l*0.95,l*0.98,8,0),color00ffff;
drawtext(var31=7,l*0.95,'8天'),coloryellow;
stickline(var31=12,h*1.05,h*1.02,8,0),colorff33ff;
drawtext(var31=12,h*1.06,'13天'),coloryellow;
stickline(var31=20,l*0.95,l*0.98,8,0),color0066ff;
drawtext(var31=20,l*0.95,'21天'),coloryellow;
stickline(var31=33,h*1.05,h*1.02,8,0),colorffff00;
drawtext(var31=33,h*1.06,'34天'),coloryellow;
stickline(var31=54,l*0.95,l*0.98,8,0),color006600;
drawtext(var31=54,l*0.95,'55天'),coloryellow;
stickline(var31=88,h*1.05,h*1.02,8,0),color00ff00;
drawtext(var31=88,h*1.06,'89天'),coloryellow;
stickline(var31=143,l*0.95,l*0.98,8,0),colorccffff;
drawtext(var31=143,l*0.95,'144天'),coloryellow;
stickline(var31=232 ,h*1.05,h*1.02,8,0),colorff0033;
drawtext(var31=232,h*1.06,'233天'),coloryellow;
stickline(var31=376,l*0.95,l*0.98,8,0),colorff9966;
drawtext(var31=376,l*0.95,'377天'),coloryellow;
X1:=(C+L+H)/3;
X2:=EMA(X1,6);
X3:=EMA(X2,5);
GR1:=BARSLAST(BETWEEN("BIAS.BIAS2"(6,13,24),0,5));
GR2:=EMA(X1,13)>EMA(X1,21) AND EMA(X1,21)>EMA(X1,34)
AND EMA(X1,13)>REF(EMA(X1,13),1);
GR3:=COUNT("BIAS.BIAS2"(6,13,24)>10 AND H=HHV(H,GR1),GR1);
GR4:=H=HHV(H,GR1);
GR5:="MACD.MACD"(12,26,9)<REF("MACD.MACD"(12,26,9),1);
GR6:=GR2 AND GR3 AND GR4;
GR7:=GR2 AND GR3 AND GR4 AND GR5;
GR8:=GR6 AND GR7;
LC := REF(CLOSE,1);
RSI6:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
BIAS5:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
换手:=100*V/CAPITAL;
BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10;
EMA8:=EMA(C,8);
DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),
EMA8,'∠45上升'),COLORWHITE;
A1:=BARSLAST(ref(cross("macd.diff"(12,26,9),"macd.dea"(12,26,9)),1));
B1:=ref(c,A1+1)>c and ref("macd.diff"(12,26,9),A1+1)<"macd.diff"(12,26,9) and cross("macd.diff"(12,26,9),"macd.dea"(12,26,9));
DRAWTEXT(FILTER(B1>0,5),l-0.01,'M 底背'),COLORGREEN;
A2:=BARSLAST(ref(cross("kdj.k"(9,3,3),"kdj.d"(9,3,3)),1));
B2:=ref(c,A2+1)>c and ref("kdj.k"(9,3,3),A2+1)<"kdj.k"(9,3,3)and cross("kdj.k"(9,3,3),"kdj.d"(9,3,3));
DRAWTEXT(FILTER(B2>0,5),l-0.25,'K 底背'),COLORYELLOW;
A3:=BARSLAST(ref(cross("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=ref(c,A3+1)>c and ref("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) and cross("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
DRAWTEXT(FILTER(B3>0,5),l-0.4,'R 底背'),COLORffff00;
C1:=BARSLAST(ref(cross("macd.dea"(12,26,9),"macd.diff"(12,26,9)),1));
D1:=ref(c,C1+1)<c and ref("macd.diff"(12,26,9),C1+1)>"macd.diff"(12,26,9)and cross("macd.dea"(12,26,9),"macd.diff"(12,26,9));
DRAWTEXT(FILTER(D1>0,5),h+0.01,'M 顶背'),COLORRED;
C2:=BARSLAST(ref(cross("kdj.d"(9,3,3),"kdj.k"(9,3,3)),1));
D2:=ref(c,C2+1)<c and ref("kdj.k"(9,3,3),C2+1)>"kdj.k"(9,3,3)and cross("kdj.d"(9,3,3),"kdj.k"(9,3,3));
DRAWTEXT(FILTER(D2>0,5),h+0.25,'K 顶背'),COLOR0066FF;
C3:=BARSLAST(ref(cross("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
D3:=ref(c,C3+1)<c and ref("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24)and cross("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
DRAWTEXT(FILTER(D3>0,5),h+0.4,'R 顶背'),COLORff00ff;
e1:=BARSCOUNT(c);
ah:=hhv(h,200);
al:=llv(l,200);
b0:=(ah-al)/40;
kb1:=h+b0;
kb2:=l-b0;
stickline((e1+0)/34=FLOOR((e1+0)/34),kb2,kb2-3*b0,2,0),COLOrwhite,LINETHICK3;
drawtext((e1+0)/34=FLOOR((e1+0)/34),kb2-2*b0,'时间窗'),COLORwhite;
TY:=C;
HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
A:=REF(C,BARSLAST(HD));
B:=REF(C,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波浪顶:IF(T1,A,A),COLORFF00FF,POINTDOT,LINETHICK4;
STICKLINE(T1,A,A,9,0),COLORFF00FF;
波浪底:IF(T2,B,B),COLOR80FF00,POINTDOT,LINETHICK4;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
