|
{花苍蝇}
MA3:MA(C,3);
带:=EMA(MA3,2);
DRAWBAND(MA3,RGB(250,120,1),带,RGB(100,258,236));
MA21:MA(C,21),LINETHICK2,COLORLICYAN;
IF(MA21>REF(MA21,1),MA21,DRAWNULL),COLORMAGENTA,LINETHICK2;
MA55:MA(C,55),LINETHICK2,COLORLIGREEN;
IF(MA55>REF(MA55,1),MA55,DRAWNULL),COLORYELLOW,LINETHICK2;
VAR100:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);
VAR200:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);
STICKLINE(VAR100,C,O,5,0),COLORGREEN,LINETHICK2;
STICKLINE(VAR100,C,O,3,0),COLORGREEN,LINETHICK2;
STICKLINE(VAR100,H,L,1,0),COLORGREEN,LINETHICK2;
STICKLINE(VAR200,C,O,5,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR200,C,O,3,0),COLORYELLOW,LINETHICK2;
STICKLINE(VAR200,H,L,1,0),COLORYELLOW,LINETHICK2;
{波动性突破}
MA20:=MA(C,20);
VAR1:=(H-L)/L*100;
VAR2:=REF(VAR1,1) ;
VAR3:=REF(VAR1,2);
VAR4:=VAR2-VAR3;
VAR5:=VAR2+VAR4;
DRAWTEXT((C/REF(C,1)-1)>VAR5 AND MA20>REF(MA20,1) AND C>O,L*0.95,'↖波动突破'),COLORRED;
{MACD底背离}
A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1));
B1:=REF(C,A1+1)>C AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA");
DRAWTEXT(B1>0,L-0.06,'M底'),COLOR00FFFF;
{KDJ底背离}
A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
DRAWTEXT(B2,L-0.10,'K底'),COLORFF00FF;
{RSI底背离}
A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
DRAWTEXT(B3>0,L-0.08,'R底'),COLOR0000FF;
{MACD顶背离}
C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));
D1:=REF(C,C1+1)<C AND REF("MACD.DIF",C1+1)>"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF");
DRAWTEXT(D1>0,H+0.10,'M顶'),COLOR00FF00;
{KDJ顶背离}
C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K");
DRAWTEXT(D2>0,H+0.08,'K顶'),COLORFFFFCC;
{RSI顶背离};
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
DRAWTEXT(D3>0,H+0.06,'R顶'),COLORYELLOW;
{黑马抄底}
VAR6:="KDJ.J#WEEK"(9,3,3);
VAR8:="KDJ.J#MONTH"(9,3,3);
DEA7:="MACD.DEA#WEEK";
DIFF7:="MACD.DIF#WEEK";
D7:=DIFF7-DEA7;
DEA8:="MACD.DEA#MONTH";
DIFF8:="MACD.DIF#MONTH";
D8:=DIFF8-DEA8;
黑马抄底:DRAWTEXT(CROSS(VAR6,0) AND D8>0 OR CROSS(VAR8,0) AND D7>0,L,'▋黑马抄底');
{美人如玉剑如虹}
A20:=MA(C,18);
A30:=(C-A20)/A20*100>=-9.9 AND C<A20;
美人如玉剑如虹:DRAWTEXT(A30 AND C/REF(C,1)>1.099,L,'▋美人如玉剑如虹'),COLORBROWN;
{拐点}
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.98),'↖上拐点'),COLOR00FFFF;
DRAWTEXT(CROSS(MA15,FF),(HIGH * 1.02),'↙下拐点'),COLOR00FF00;
DRAWTEXT(CROSS(85,RSI),(HIGH * 1.02),'↙回调！'),COLORFFFFFF;
DIFF1:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA1:=EMA(DIFF1,9);
MACDD:=CROSS(DIFF1,DEA1);
均线1:=CROSS(MA(C,5),MA(C,10));
量线1:=CROSS(MA(V,5),MA(V,10));
三金叉见底:DRAWTEXT(MACDD AND 均线1 AND 量线1,(LOW * 0.98),'↖三金叉见底'),COLOR00FF00;
N:=9;
N1:=6;
M:=14;
TYP := (HIGH + LOW + CLOSE)/3;
CC1:=(TYP-MA(TYP,M))/(0.015*AVEDEV(TYP,M));
C10:=SMA(CC1,3,1);
C20:=SMA(C10,3,1);
C30:=3*C10-2*C20;
CB1:=EMA(C30,5);
CB2:=REF(CB1,1);
LCX := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LCX,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;
RSIX:=(RSI1-50)*5;
R1:=SMA(RSIX,3,1);
D10:=SMA(R1,3,1);
J1:=3*R1-2*D10;
RR1:=EMA(J1,5);
RR2:=REF(RR1,1);
RR:=RR1>RR2;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,3,1);
K1:=(K-50)*5,COLOR00FF00;
K2:=SMA(K1,3,1);
D20:=SMA(K2,3,1);
J2:=3*K2-2*D20;
BB1:=EMA(J2,5);
BB2:=REF(BB1,1);
见底白箭头:DRAWTEXT(RR AND NOT(REF(RR,1)) AND (RR1<-100 AND BB1<-100) AND CB1<-100,LOW * 0.97,'↖见底白箭头'),COLORLIBLUE;
20103282152345713.png
|
