|
★分时实战
input:LONG(24,1,100),SHORT(13,1,100),M(6,1,100),N(6,1,100);
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
MA30:=MA(CLOSE,30);
DIF:EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA:EMA(DIF,M);
MACD:=2*(DIF-DEA);
Q:2*(DEA-DIF),COLORFF9933;
MACD超跌:=COUNT((DIF<DEA),10)=10;
Q1:MACD超跌 * "MACD.MACD"(LONG,SHORT,M),COLORFF00FF,LINETHICK2;
{本行中,大智慧版本选择*(-1);飞弧版本选择*(1)}
MACD金叉:=CROSS(DIF,DEA);
DTPL:=MA10>MA30 AND MA20>MA30 AND MA30>REF(MA30,1);
关注:=(MACD金叉 AND REF(Q1,1) < 0)*-0.1;
均线:(DTPL AND MA5>MA30 AND MA5<MA10)*-0.15,colorFF89B2,LINETHICK1,PRECIS2,DOTLINE;
偏离:(C<MIN(MA20*1.05,MA30*1.1) AND C>MA30)*0.15,COLOR009900,LINETHICK1,PRECIS2,DOTLINE;
DRAWTEXT(关注,-0.15,'GZ'),color00ff00,align1;
BDGD:=C=HHV(C,20);
GDSJ:=BARSLAST(BDGD);
目标:IF(均线 AND 偏离 AND GDSJ>=N,0.5,0),COLORffff00,POINTDOT,PRECIS1,LINETHICK3;
MBSJ:=BARSLAST(目标);
MAV5:=EMA(V,5);
MAV10:=EMA(V,10);
LNMACD:=((V-MAV5)/MAV5*2+(V-MAV10)/MAV10)*10;
量坑:=LNMACD<=-10;
优选:=目标 AND COUNT(量坑,3)>=1;
DRAWICON(优选,-0.2,12);
N15HIGH:=REF(HIGH,6);
N1LOW:=REF(LOW,1);
DRAWTEXT((((((CROSS(MA(CLOSE,13),MA(CLOSE,24)) > 0) AND (((N15HIGH - N1LOW) / N1LOW) <
0.15)) AND (OPEN >= MA(CLOSE,13))) AND (CLOSE >= MA(CLOSE,13))) AND (LOW <= MA
(CLOSE,13))),0.5,'^回头望月'),color0099CC;
低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1;
STICKLINE(低位金叉,0,0.26,6,1),COLORwhite;
DRAWTEXT(低位金叉,低位金叉-1.3,' 低金'),COLORWHITE;
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.2,4,0),ColorFF00FF;
DRAWTEXT(二次金叉,0.4,' 二金'),ColorYELLOW;
A4:=BARSLAST(ref(cross(dif,dea),1));
B1:=ref(c,A4+1)>c and ref(dif,A4+1)<dif and cross(dif,dea);
DRAWTEXT(FILTER(B1>0,5),dif+0.2,'背离'),COLORyellow;
STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,3,0),COLORRED{COLOR6058FF};
STICKLINE(MACD>=0 AND MACD< REF(MACD,1),0,MACD,3,0),COLORblue{COLOR6058FF};
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,3,0),COLOR4ABEFF{COLORFFFF00};
STICKLINE(MACD<0 AND MACD< REF(MACD,1),0,MACD,3,0),COLORFFFF00;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
周K:=MA(".K#WEEK"(9,3,3) ,5);
周D:=MA(".D#WEEK"(9,3,3) ,5);
周J:=MA(".J#WEEK"(9,3,3) ,5);
DRAWICON(k<20 and cross(k,d),MACD,1),align2;
周金RAWTEXT(CROSS(".K#WEEK"(9,3,3),".D#WEEK"(9,3,3)) ,MACD,'▲'),align2,COLORred;
周死RAWTEXT(CROSS(".d#WEEK"(9,3,3),".k#WEEK"(9,3,3))
,macd*1.5,'▼'),align2,COLORgreen;
月金RAWTEXT(CROSS(".K#MONTH"(9,3,3),".D#MONTH"(9,3,3))
,MACD,'▲'),align2,COLORMAGENTA;
月死:DRAWTEXT(CROSS(".D#MONTH"(9,3,3),".K#MONTH"(9,3,3))
,macd*1.5,'▼'),align2,COLOR3fbb8b;
if(dif<0,dif,0),coloryellow,linethick2;
if(dif<0,0,dif),colorred,linethick2;
if(dif<dea,dif,dea),COLORWHITE,linethick2;
if(dif>dea,dea,dea),COLORgreen{colorff00ff},linethick2;
HH:=MA(CLOSE,10);
GG:=MA(CLOSE,12);
上:=ema((MA(HIGH,3) * 1.05),30);
下:=ema((MA(LOW,3) * 0.96),30);
决战:STICKLINE((((CROSS(DIF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND
(DIF < 0)),DIF,0.3,1,0),color0000FF;
{DRAWICON((((CROSS(DIF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND (DIF
< 0)),0.4,0);}
DRAWTEXT((((CROSS(DIF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND (DIF
<= 0)),0.3,'DIF金叉'),color0000FF;
STICKLINE(FILTER(((((MACD >= REF(MACD,5)) AND ((下 - REF(下,1)) > 0)) AND (MACD <= 0)) AND
((GG - REF(GG,1)) >= 0)),3),0,0.4,1,0),color00FF00;
{DRAWICON(FILTER(((((MACD >= REF(MACD,5)) AND ((下 - REF(下,1)) > 0)) AND (MACD <= 0)) AND
((GG - REF(GG,1)) >= 0)),3),0.5,0);}
DRAWTEXT(FILTER(((((MACD >= REF(MACD,5)) AND ((下 - REF(下,1)) > 0)) AND (MACD <= 0)) AND
((GG - REF(GG,1)) >= 0)),3),0.4,'绝佳买入'),color00FF00; |
|