{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;
