{操盘主图 EPING925提供的源码，公式不错}
{N：5，1，20；}
MA5:MA(C,5),COLORRED,LINETHICK2,PRECIS2;
MA10:MA(C,10),COLOR009900,LINETHICK2,PRECIS2;
MA20:=MA(C,20);
MA30:=MA(C,30);
MA60:MA(C,60),LINETHICK0;
MA120:=SMA(C,120,1);
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)); 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);{过滤后低点}
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);{过滤后高点}
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),Color00FF00;
短支:drawline(U2,l,U1,l,1),ColorFF9933;
中压:drawline(S3,h,S2,h,1),Coloryellow;
中支:drawline(U3,l,U2,l,0),ColorFF00FF;
长压:drawline(S4,h,S3,h,1),COLOR0099cc;
长支:drawline(U4,l,U3,l,0),ColorFFFF00;
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, '○'),COLOR00FFFF,ALIGN1;
DRAWTEXT(优选,L,'●'),ALIGN1,COLORFF00FF;
varC:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100;
DRAWTEXT(CROSS(82,varC),HIGH,'●'),COLORFF6633,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,'○'),COLOR00FF00 ,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);
优选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,'¤'),COLOR00ffff,ALIGN1;
DRAWTEXT(filter(卖1=1,5),high,'¤'),COLOR00ff00,ALIGN1;
DRAWICON(优选1,low,10);
PDAY1 := BARSLAST(CROSS(MA5,MA60));{5日均线上穿60日均线}
PDAY2 := BARSLAST(CROSS(MA10,MA60));{10日均线上穿60日均线，至此形成颈部}
PDAY3 := BARSLAST(HIGH=HHV(HIGH,PDAY2));{形成头部，要下跌}
PDAY4 := BARSLAST(CROSS(MA10,MA5));{下跌后，5日均线和10日均线死叉}
PDAY5 := BARSLAST(CROSS(MA5,MA10));{回落不久，5日均线和10日均线形成金叉，形成D部}
A1A:= PDAY1>PDAY2 AND PDAY2>PDAY3 AND PDAY3>PDAY4 AND PDAY4>PDAY5 AND PDAY5<5;
A2A:= COUNT(CROSS(MA10,MA5),PDAY2)=1;
AA:=IF(A1A AND A2A AND MA(C,5)>=MA(C,10) AND MA(C,10)>MA(C,60),10,0);
BB:=FILTER( A1A AND A2A AND MA(C,5)>=MA(C,10) AND MA(C,10)>MA(C,60),5);
有戏:=IF(AA AND BB,1,0);
DRAWICON(AA AND BB ,LOW*0.99,1),ALIGN1;
bb13:=atan(ema(c,13)-ref(ema(c,13),1))*3.1416*10;
ema8:=ema(c,8);
DRAWTEXT(filter(bb13>1 and ema(c,13)>ref(ema(c,13),1),10),ema8,'∠45'),colorwhite;
BDGD:=C=HHV(C,N);
GDSJ:=BARSLAST(BDGD);
前高1:IF(GDSJ>0,REF(C,GDSJ),REF(C,GDSJ)),colorff8b92,DOTLINE,PRECIS2;
TP1:=CROSS(C,REF(前高1,1));
突破1:=TP1 AND COUNT(TP1,5)=1;
STICKLINE(突破1,(O+C)/2*1.01,(O+C)/2*1.01,13,0),COLORFFFFFF;
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'),COLOR00FF00;
J1向上拐头:=IF(CROSS(J1J,REF(J1J+0.01,1)) AND BDDD AND J1J<20,1,0);
DRAWTEXT(j1向上拐头,low*0.99,'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*0.99,'底'),COLOR00FF00;
DRAWTEXT(底>0,low-0.03,'D'),COLORFFABFF;
AA1:=AMOUNT ;
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;
老鼠仓:=BB1 AND CC1 AND DD1 AND EE1;
DRAWTEXT(老鼠仓,l*0.99,' 老鼠仓'),COLOR0099ff,ALIGN1;
STICKLINE(老鼠仓,O,C,3,1),COLOR0099ff;
STICKLINE(老鼠仓,O,H,0,0),COLOR0099ff;
STICKLINE(老鼠仓,L,C,0,0),COLOR0099ff;
BIAS2 := (CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
STICKLINE(BIAS2<-6,C,O,3,1),COLORFF00ff;
STICKLINE(BIAS2<-6,O,H,0,0),COLORff00ff;
STICKLINE(BIAS2<-6,L,C,0,0),COLORff00ff;
hz:=ema(close,13);
短波:=ema(hz,1);
中波:=ema(hz,26);
DRAWTEXT(cross ( 中波,短波),low *0.99,'←马');
DRAWTEXT(cross ( 短波,中波),low *0.99,'天马');
主筹估算:=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,3,1),COLORffffff;
STICKLINE(涨,O,H,0,0),COLORffffff;
STICKLINE(涨,L,C,0,0),COLORffffff;
STICKLINE(强, O,C,3,1),color00ffff;
STICKLINE(强,O,H,0,0),color00ffff;
STICKLINE(强,L,C,0,0),color00ffff;
STICKLINE(筹码锁定<-50,O,C,3,1),COLOR7070FF;
STICKLINE(筹码锁定<-50,O,H,0,0),COLOR7070FF;
STICKLINE(筹码锁定<-50,L,C,0,0),COLOR7070FF;
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
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)),PRECIS2,COLOR606060,LINETHICK1;
低:REF(L,BARSLAST(B2S)),PRECIS2,COLOR606060,LINETHICK1;
F6S:((高-低)*0.236)+低,PRECIS0,COLOR606060;
F2S:((高-低)*0.382)+低,PRECIS0,COLOR606060;
F3S:((高-低)*0.5)+低,PRECIS0,COLOR808080;
F4S:((高-低)*0.618)+低,PRECIS0,COLOR606060;
F5S:((高-低)*0.764)+低,PRECIS0,COLOR606060;
{买入:=STRF;}; |
