{超级KDJ+MACD}
{N;6,1,100 ; P;5,1,10;}
INPUT:N(6),P(5);
MID := MA(CLOSE,20);
MID1:=MA(CLOSE,5);
RSV2:=(CLOSE-MID)/STDDEV(CLOSE,20)*100;
RSV1:=(CLOSE-MID1)/STDDEV(CLOSE,5)*100;
KP:=SMA(RSV2,3,1);
K1:=SMA(RSV1,3,1);
DP:=SMA(KP,3,1);
D1:=SMA(K1,3,1);
JP:=3*KP-2*DP;
J1:3*K1-2*D1,PRECIS1;
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
MA30:=MA(CLOSE,30);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*200;
K:SMA(RSV,3,1),LINETHICK1,COLOR00FF00,{DOTLINE,}PRECIS1,DOTLINE;
D:SMA(K,3,1),LINETHICK1,COLOR00FFFF,{DOTLINE,}PRECIS1,DOTLINE;
J:3*K-2*D,LINETHICK1,COLORFF00FF,{DOTLINE,}PRECIS1;
DIFF:(EMA(CLOSE,12) - EMA(CLOSE,26))*100,COLORRED,PRECIS1,LINETHICK2;
DEA:EMA(DIFF,9),COLORFF0000,LINETHICK2,PRECIS1;
MACD:= 2*(DIFF-DEA);
Q:2*(DEA-DIFF),COLORFF0000,LINETHICK0,PRECIS1,DOTLINE;
MACD超跌:=COUNT((DIFF<DEA),10)=10;
Q1:MACD超跌 * "MACD.MACD"(26,12,9)*100,COLOR0099DD,LINETHICK2,PRECIS1;
MACD金叉:=CROSS(DIFF,DEA);
DTPL:=MA10>MA30 AND MA20>MA30 AND MA30>REF(MA30,1);
关注:=(MACD金叉 AND REF(Q1,1) < 0);
均线:=(DTPL AND MA5>MA30 AND MA5<MA10);
偏离:=(C<MIN(MA20*1.05,MA30*1.1) AND C>MA30);
DRAWTEXT(关注,DIFF,'GZ'),COLORRED,ALIGN1;
BDGD:=C=HHV(C,20);
GDSJ:=BARSLAST(BDGD);
目标:=IF(均线 AND 偏离 AND GDSJ>=P,0.5,0)*100;
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);
STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,2,0),COLOR3030FF;
STICKLINE(MACD>=0 AND MACD< REF(MACD,1),0,MACD,2,0),COLOR4ABEFF{COLOR6058FF};
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,2,0),COLOR009900{COLORFFFF00};
STICKLINE(MACD<0 AND MACD< REF(MACD,1),0,MACD,2,0),COLORFFFF00;
KDJ超跌:=IF(J<0,10,0);
DRAWTEXT(KDJ超跌,MACD*0.8,'J'),COLORFF00FF;
DRAWICON(K<40 AND CROSS(K,D),J,1);
周Ｋ:=MA("KDJ.K#WEEK"(9,3,3) ,5);
周Ｄ:=MA("KDJ.D#WEEK"(9,3,3) ,5);
周Ｊ:=MA("KDJ.J#WEEK"(9,3,3) ,5);
周金:DRAWTEXT(CROSS("KDJ.K#WEEK"(9,3,3),"KDJ.D#WEEK"(9,3,3)) ,J,'▲'),COLORRED,ALIGN1;
周死:DRAWTEXT(CROSS("KDJ.D#WEEK"(9,3,3),"KDJ.K#WEEK"(9,3,3)) ,J*1.1,'▼'),COLORGREEN,ALIGN1;
月金:DRAWTEXT(CROSS("KDJ.K#MONTH"(9,3,3),"KDJ.D#MONTH"(9,3,3)) ,J,'▲'),COLORMAGENTA,ALIGN1;
月死:DRAWTEXT(CROSS("KDJ.D#MONTH"(9,3,3),"KDJ.K#MONTH"(9,3,3)) ,J*1.1,'▼'),COLOR007700,ALIGN1;
A01:=DYNAINFO(7);
A03:=BARSCOUNT(CLOSE);
A04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100);
A05:=IF((A03 > 20),A04,0);
A06:=IF((LOW > A01),0,IF((HIGH < A01),1,(((A01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009))));
A07:=DMA(A06,(VOL / CAPITAL)) * 60;
A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 88)),A07,0);
VAR3:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趋势:=EMA(VAR3,3)-10;
VAR4:=(趋势-REF(趋势,1))/REF(趋势,1)*100;
STICKLINE(趋势<=13,0,30,3,1),COLORFFFF00;
STICKLINE(趋势<=13 AND VAR4>13,0,60,1,0),COLOR0099FF;
VAR7:=LLV(LOW,30);
VAR11:=SMA(ABS(L-REF(L,1)),3,1)/SMA(MAX(L-REF(L,1),0),3,1)*100;
VAR12:=HHV(VAR11,30)*8;
火山:=EMA(IF(LOW<=VAR7 AND 趋势<40,(VAR11+VAR12),0),3)/618;
STICKLINE(火山>0,0 ,火山*1.2,5,0 ),COLORRED;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
