{dzh2 KDJ周叉 N 9 M1 3 M23 日线、周线、周&月金叉、死叉同一图}
n:=9;
m1:=3;
m2:=3;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,M1,1);
D:SMA(K,M2,1);
J:3*K-2*D;
partline(k,k>d ),COLORMAGENTA;
partline(k,k
partline(j,j>d ),colorred,LINETHICK2;
partline(j,j
周K:MA("KDJ.K#WEEK"(n,m1,m2),5),POINTDOT,LINETHICK4,COLORWHITE;
周D:MA("KDJ.D#WEEK"(n,m1,m2),5),POINTDOT,LINETHICK4,COLOR33FF99;
周J:MA("KDJ.J#WEEK"(n,m1,m2),5),POINTDOT,LINETHICK4,COLORMAGENTA;
周金▲:DRAWTEXT(CROSS("KDJ.K#WEEK"(n,m1,m2),"KDJ.D#WEEK"(n,m1,m2)),8,'▲周金'),COLORred;
周死▼:DRAWTEXT(CROSS("KDJ.d#WEEK"(n,m1,m2),"KDJ.k#WEEK"(n,m1,m2)),92,'▼周死'),COLORgreen;
月金▲:DRAWTEXT(CROSS("KDJ.K#MONTH"(n,m1,m2),"KDJ.D#MONTH"(n,m1,m2)),0,'▲月金'),COLORMAGENTA;
月死▼:DRAWTEXT(CROSS("KDJ.D#MONTH"(n,m1,m2),"KDJ.K#MONTH"(n,m1,m2)),100,'▼月死'),COLORYELLOW;
DRAWTEXT(CROSS(ZIG(3,14),REF(ZIG(3,14),1)),J-10,'★底'),colorgreen;
DRAWTEXT(CROSS(REF(ZIG(3,13),1),ZIG(3,13)),J +15,'★逃顶'),colorred;
{绝佳买点}
VARE:=LLV(LOW,30);
DRAWICON(LOW<=VARE,J -10,7);
{dzh2 kdjmacd日金叉周金叉月金叉
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),LINETHICK2,COLORWHITE;
D:SMA(K,3,1),LINETHICK2,COLOR00DDDD;
J:3*K-2*D,LINETHICK2,COLOR800080;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),linethick0,COLOR0099FF;
DEA :EMA(DIFF,9),linethick0,COLORD89837;
MACD:2*(DIFF-DEA),COLORFF9999,linethick0;
{买卖}
rsv1:=(hhv(h,9.8)-c)/(hhv(h,9.8)-llv(l,9.8))*101;
kk:=sma(rsv1,3,1);
dd:=sma(kk,3,1);
jj:=3*kk-2*dd;
买卖:=if(jj>=100,100,if(jj<=0,0,jj));
明天买:=if(买卖=100,0-10,0);
明天卖:=if(买卖=0,90,100);
DRAWTEXT(明天买,LOW*0.97,'★买'),COLOR00FFFF;
{DRAWTEXT(明天卖,80,'★卖'),COLOR0000FF;}
{kdj250}
KX:=250;
KH:=HHV(K,KX);
DH:=HHV(D,KX);
JH:=HHV(J,KX);
KL:=LLV(K,KX);
DL:=LLV(D,KX);
JL:=LLV(J,KX);
HKMAX:=MAX(KH,MAX(DH,JH));
LKMIN:=MIN(KL,MIN(DL,JL));
KHLB:=(HKMAX+LKMIN)/2;
KHLC:=HKMAX-LKMIN;
MHF:=HHV(DIFF,KX);
MHD:=HHV(DEA,KX);
MHM:=HHV(MACD,KX);
MLF:=LLV(DIFF,KX);
MLD:=LLV(DEA,KX);
MLM:=LLV(MACD,KX);
HMAX:=MAX(MHF,MAX(MHD,MHM));
LMIN:=MIN(MLF,MIN(MLD,MLM));
FHLB:=(HMAX-LMIN)/100;
FHLC:=HMAX-LMIN;
SH:=(0-FHLB)*(KHLC/FHLC)+KHLB;
DIFFA:=(DIFF-FHLB)*(KHLC/FHLC)+KHLB;
DEAA:=(DEA-FHLB)*(KHLC/FHLC)+KHLB;
MACDA:=(macd-FHLB)*(KHLC/FHLC)+KHLB;
CDA:=MACD0;
CDB:=MACD>=ref(MACD,1) andMACD>0;
CDC:=MACD>ref(MACD,1) andMACD<0;
CDD:=MACD<=ref(MACD,1) andMACD<0;
STICKLINE(CDA,SH,macda,4,0),COLOR00AAFF;{黄色段}
STICKLINE(CDA,SH,macda,4,0),COLOR00BBFF;
STICKLINE(CDA,SH,macda,4,0),COLOR00CCFF;
STICKLINE(CDA,SH,macda,3.3,0),COLOR00DDFF;
STICKLINE(CDA,SH,macda,2.2,0),COLOR00EEFF;
STICKLINE(CDA,SH,macda,1.1,0),COLOR00FFFF;
STICKLINE(CDB,SH,macda,4,0),COLOR0000AA; {红色段}
STICKLINE(CDB,SH,macda,4,0),COLOR0011BB;
STICKLINE(CDB,SH,macda,3,0),COLOr0022CC;
STICKLINE(CDB,SH,macda,3.3,0),COLOR0033DD;
STICKLINE(CDB,SH,macda,2.2,0),COLOR0044EE;
STICKLINE(CDB,SH,macda,1.1,0),COLOR0055FF;
STICKLINE(CDC,SH,macda,4,0),COLORAA00BB;{向上粉红}
STICKLINE(CDC,SH,macda,4,0),COLORBB11BB;
STICKLINE(CDC,SH,macda,3,0),COLORCC22BB;
STICKLINE(CDC,SH,macda,3.3,0),COLORDD33BB;
STICKLINE(CDC,SH,macda,2.2,0),COLOREE44BB;
STICKLINE(CDC,SH,macda,1.1,0),COLORFF55BB;
STICKLINE(CDD,SH,macda,4,0),COLORFF7700;
STICKLINE(CDD,SH,macda,4,0),COLORFF8811;
STICKLINE(CDD,SH,macda,3,0),COLORFFAA22;
STICKLINE(CDD,SH,macda,3.3,0),COLORFFBB33;
STICKLINE(CDD,SH,macda,2.2,0),COLORFFDD44;
STICKLINE(CDD,SH,macda,1.1,0),COLORFFDD55;
PARTLINE(DIFFA,DIFF>0,RGB(255,0,0),DIFF<0,RGB(0,0,255)),linethick3;
DEAA,colorgreen,linethick3;
{TYP:=(HIGH+LOW+CLOSE)/3;
STICKLINE(diff>ref(diff,1),120,120,2,0),COLORRED,linethick6;
STICKLINE(diff
STICKLINE(diff>ref(diff,1),20,20,2,0),COLORRED,linethick6;
STICKLINE(diff
STICKLINE(K>=ref(K,1) ork>d anddiff>ref(diff,1),80,80,2,1),COLORRED,linethick6;
STICKLINE(K
MACD金叉:=CROSS(MACD,DIFF) ANDMACD>=(0-0.05) AND MACD<=0.02;
DRAWTEXT(MACD金叉,macda*0.82,'MACD金叉'),color00FFFF;
XX:=ema(MA(LOW,3)*0.96,30);
DIFF金叉:=if(CROSS(DIFF,DEA) AND XX-REF(XX,1)>0 ANDMACD>=REF(MACD,1) ANDDIFF<=0,1,0);
DRAWTEXT(DIFF金叉=1,DIFFA*1.68,'DIFF金叉'),colorCDFFBB;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
DRAWTEXT(低位金叉,deaa*0.99,' 低位金叉'),COLOR0099DD;
DIFDEA:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 ANDCOUNT(DIFDEA=2,21)=1;
DRAWTEXT(二次金叉,deaa*0.99-8,' 二次金叉'),ColorFF00FF;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE ANDDIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
DRAWTEXT(底背离,DEAA*0.99-16,' 底背离'),Color0099FF;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A2+1)DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(FILTER(顶背离,5),DEAA*1.02,'顶背离'),COLORDDAAAA;
{周金叉,死叉}
周DIFF:="MACD.DIFF#WEEK";
周DEA:="MACD.DEA#WEEK";
周MACD:="MACD.MACD#WEEK";
DIF周金叉:=CROSS(周DIFF,周DEA);
DRAWTEXT(DIF周金叉,DEAA,'DIFF周金叉'),COLOR0099FF;
DRAWTEXT(CROSS(周DEA,周DIFF),DEAA+4,'DIFF周死叉'),align0,COLORCDFFBB;
MACD周金叉:=CROSS(周MACD,周DIFF) AND 周MACD>=(0-0.05) AND周MACD<=0.02;
DRAWTEXT(MACD周金叉,macda-0.03,'MACD周金叉'),color00FFFF;
{月金叉,死叉}
月DIFF:="MACD.DIFF#MONTH";
月DEA:="MACD.DEA#MONTH";
DIF月金叉:=CROSS(月DIFF,月DEA);
DRAWTEXT(DIF月金叉,DEAA*0.98,'DIF月金叉'),COLOR00FFCC;
DRAWTEXT(CROSS(月DEA,月DIFF),DEAA*1.02,'DIF月死叉'),align0,COLORDDDDDD;
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
周J:="KDJ.J#WEEK"(9,3,3);
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
月J:="KDJ.J#MONTH"(9,3,3);
月金叉:=cross(月K,月D);
周金叉:=cross(周K,周D);
日金叉:=FILTER(cross(K,D) and K<20,4);
drawtext(月金叉,月D-2,'★'),ALIGN0,color0022ee;
DRAWTEXT(月金叉,月D-2,'KD月金叉'),coloryellow;
drawtext(周金叉,周D,'★'),ALIGN2,color0022ee;
DRAWTEXT(周金叉,周D,' KD周金叉'),colorgreen;
DRAWICON(日金叉,K,1),align2;
DRAWTEXT(日金叉,D-6,'低位金叉'),color00CCCC;
DRAWTEXT(CROSS(周D,周K),周D*1.2,'KD周死叉'),COLOR00DDBB;
DRAWTEXT(CROSS(月D,月K),月D,'KD月死叉'),COLORFFFFFF;
KDB:=BARSLAST(ref(cross(k,d),1));
KDDB:=ref(close,KDB+1)>close and ref(k,KDB+1)
K底背:=if(FILTER(KDDB>0,5),1,0);
DRAWTEXT(K底背=1,D*0.98,'底背离'),COLORDDDDDD;
KDD:=BARSLAST(ref(cross(d,k),1));
K顶背:=ref(close,KDD+1)k and cross(d,k);
DRAWTEXT(FILTER(K顶背>0,5),D+8,'顶背离'),COLORFFAA22;
MD1:=MA(CLOSE,80)-MA(CLOSE,13)/3;
MD2:=MA((CLOSE-MD1)/MD1,3);
买点1:=CROSS(MD2,0) AND LOW/REF(HIGH,1)<1.012 ANDJ<75 AND J>REF(J,1);
ma12:=MA(CLOSE,12);
佳点:=if(FILTER(MACD>=REF(MACD,5) ANDopen<=ref(close,1) and XX-REF(XX,1)>0AND MACD<=0 ANDma12-REF(ma12,1)>=0,3) and J<80 andJ>ref(J,1) and D>ref(D,1) and(diff>=ref(diff,1) ordea>=ref(dea,1)),1,0);
DRAWTEXT(佳点=1,macda*0.98,'佳点'),color0099FF;
DX0:=EMA(CLOSE,2)-EMA(OPEN,5);
DX1:=if(CROSS(DX0,MACD) AND LOW<=XX ANDMACD<=(0-0.11) and (J<20 orK<20),1,0);
DRAWTEXT(FILTER(DX1,3),0,'短10%'),color00CC00;{短线}
MA10:=MA(CLOSE,10);
SS:=EMA(MA(HIGH,3)*1.05,30);
LQS:=if(FILTER(0.7*(CROSS(DIFF,DEA) AND CLOSE0 AND CROSS(MACD,0)AND MACD>=0 AND DIFF>0 ANDma10-REF(ma10,1)>0 ANDVOL>REF(VOL,1))>=0.7 AND (CLOSE0),5)AND J<80,1,0);
DRAWTEXT(LQS=1,macda*0.98,'量价齐上'),colorCDFFDD;{量价齐上}
最佳点:=IF(COUNT(MD2>REF(MD2,1),3)=3 ANDCOUNT(MD2<0,10)=10 AND REF(MD2,3)=LLV(MD2,10) andJ<80 and J>ref(J,1),1,0);
DRAWTEXT(最佳点=1,J,'最佳点'),colorFF00CC;
买点2:=REF(MD2,2)=LLV(MD2,20) AND REF(MD2,2)<0.071 ANDREF(MD2,2)
NOT(REF(LOW,1)>REF(HIGH,2) ANDLOW>REF(HIGH,1)) ANDCLOSE>REF(CLOSE,1) AND J<75 ANDJ>REF(J,1);
DRAWTEXT(买点1 or 买点2,D-1,'买'),colorff00CC;
{预涨}
YZ:=(INTPART(SMA(RSV,3,1))+INTPART(SMA(K,3,1)))/2;
预涨:=cross(yz,50) and j<95 anddiff>ref(diff,1) and low
DRAWTEXT(预涨,d*0.6,'预涨'),COLORgreen;
KD金叉:=cross(K,D)and J>20 andJ<80;
选股:if(cross(macd,0) or DX1 or 佳点 or LQS or K底背 or 月金叉 or 周金叉 or 日金叉or 买点1 or 买点2 or 最佳点 or MACD金叉 or DIFF金叉 or 低位金叉 or 二次金叉 or 底背离 orDIF周金叉 or MACD周金叉 or DIF月金叉 or KD金叉,2,0),LINETHICK0;
标签： 金叉死叉指标
