KDJ.MACD.RSI.日.周.月.金叉、死叉同一图[钻心虫老师原码]

{KDJ周叉 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;
周K:MA("KDJ.K#WEEK"(n,m1,m2) ,5),POINTDOT,LINETHICK1,COLORWHITE;
周D:MA("KDJ.D#WEEK"(n,m1,m2) ,5),POINTDOT,LINETHICK1,COLOR33FF99;
周J:MA("KDJ.J#WEEK"(n,m1,m2) ,5),POINTDOT,LINETHICK1,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;
========================================================
{MACD周叉 LONG 26 SHORT 12 MID 9  日线、周线、周&月金叉、死叉同一图}

DIFF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),COLORWHITE;
DEA:EMA(DIFF,MID),COLORYELLOW;
MACD:(DIFF-DEA)*2,COLORSTICK;

周DIFF:MA("MACD.DIFF#WEEK"(LONG,SHORT,MID),5),POINTDOT,LINETHICK1,COLORWHITE;
周DEA:MA("MACD.DEA#WEEK"(LONG,SHORT,MID),5),POINTDOT,LINETHICK1,COLOR33FF99;
周金▲:DRAWTEXT(CROSS("MACD.DIFF#WEEK"(LONG,SHORT,MID) ,"MACD.DEA#WEEK"(LONG,SHORT,MID)),0,'▲'),COLORred;
周死▼:DRAWTEXT(CROSS("MACD.DEA#WEEK"(LONG,SHORT,MID) ,"MACD.DIFF#WEEK"(LONG,SHORT,MID)),0,'▼')COLORgreen;
月金个:DRAWTEXT(CROSS("MACD.DIFF#MONTH"(LONG,SHORT,MID) ,"MACD.DEA#MONTH"(LONG,SHORT,MID)),0,'个'),COLORMAGENTA;
月死丫:DRAWTEXT(CROSS("MACD.DEA#MONTH"(LONG,SHORT,MID) ,"MACD.DIFF#MONTH"(LONG,SHORT,MID)),0,'丫'),COLORYELLOW;
=================================================================
{RSI周叉 n1 6 n2 12 n3 24  日线、周线、周&月金叉、死叉同一图}
REFLINE: 0, 20, 50, 80, 100;
LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;
RSI2:SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100;
RSI3:SMA(MAX(CLOSE-LC,0),N3,1)/SMA(ABS(CLOSE-LC),N3,1)*100;
周rsi1:MA("rsi.rsi1#WEEK"(n1,n2,n3) ,5),POINTDOT,LINETHICK1,COLORWHITE;
周rsi2:MA("rsi.rsi2#WEEK"(n1,n2,n3) ,5),POINTDOT,LINETHICK1,COLOR33FF99;
周rsi3:MA("rsi.rsi3#WEEK"(n1,n2,n3) ,5),POINTDOT,LINETHICK1,COLORMAGENTA;
周金▲:DRAWTEXT(CROSS("rsi.rsi1#WEEK"(n1,n2,n3),"rsi.rsi2#WEEK"(n1,n2,n3)) ,15,'▲'),COLORred;
周死▼:DRAWTEXT(CROSS("rsi.rsi2#WEEK"(n1,n2,n3),"rsi.rsi1#WEEK"(n1,n2,n3)) ,85,'▼'),COLORgreen;
月金▲:DRAWTEXT(CROSS("rsi.rsi1#MONTH"(n1,n2,n3),"rsi.rsi2#MONTH"(n1,n2,n3)) ,10,'▲'),COLORMAGENTA;
月死▼:DRAWTEXT(CROSS("rsi.rsi2#MONTH"(n1,n2,n3),"rsi.rsi1#MONTH"(n1,n2,n3)) ,90,'▼'),COLORYELLOW;
==================================================================
新修改后的!!!

LONG.26

SHORT.12
MID.9

DIFF:指数平滑移动平均(收盘价,SHORT)-指数平滑移动平均(收盘价,LONG),COLORWHITE;
DEA:指数平滑移动平均(DIFF,MID),COLORYELLOW;
MACD:(DIFF-DEA)*2,彩色棒状线;

DEA:= 指数平滑移动平均(DIFF,9),COLORGREEN;
画分段线(DIFF>DEA,DIFF),COLORRED,LINETHICK2;
画分段线(DIFF>DEA AND DIFF<0,DIFF),COLORMAGENTA,LINETHICK2;
画图标(交叉函数(DIFF,DEA),DIFF,10);
画图标(交叉函数(DEA,DIFF),DIFF,11);

周DIFF:简单移动平均("MACD.DIFF#WEEK"(LONG,SHORT,MID),5),点状线,LINETHICK1,COLORWHITE;
周DEA:简单移动平均("MACD.DEA#WEEK"(LONG,SHORT,MID),5),点状线,LINETHICK1,COLOR33FF99;
周金▲:显示文字(交叉函数("MACD.DIFF#WEEK"(LONG,SHORT,MID) ,"MACD.DEA#WEEK"(LONG,SHORT,MID)),0,'▲'),COLORred;
周死▼:显示文字(交叉函数("MACD.DEA#WEEK"(LONG,SHORT,MID) ,"MACD.DIFF#WEEK"(LONG,SHORT,MID)),0,'▼')COLORgreen;
月金个:显示文字(交叉函数("MACD.DIFF#MONTH"(LONG,SHORT,MID) ,"MACD.DEA#MONTH"(LONG,SHORT,MID)),0,'个'),COLORMAGENTA;
月死丫:显示文字(交叉函数("MACD.DEA#MONTH"(LONG,SHORT,MID) ,"MACD.DIFF#MONTH"(LONG,SHORT,MID)),0,'丫'),Color00FFFF;

====================================================================
{KDJ周叉 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>d,k),COLORMAGENTA;
partline(k<d,k),COLORCYAN;
partline(j>d,j),colorred,LINETHICK2;
partline(j<d,j),colorgreen,LINETHICK2;



周K:MA("KDJ.K#WEEK"(n,m1,m2) ,5),POINTDOT,LINETHICK1,COLORWHITE;
周D:MA("KDJ.D#WEEK"(n,m1,m2) ,5),POINTDOT,LINETHICK1,COLOR33FF99;
周J:MA("KDJ.J#WEEK"(n,m1,m2) ,5),POINTDOT,LINETHICK1,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;

==========================================================================
修改后的!



LONG.26

SHORT.12
MID.9

DIFF:指数平滑移动平均(收盘价,SHORT)-指数平滑移动平均(收盘价,LONG),COLORWHITE;
DEA:指数平滑移动平均(DIFF,MID),COLORYELLOW;
MACD:(DIFF-DEA)*2,彩色棒状线;

DEA:= 指数平滑移动平均(DIFF,9),COLORGREEN;
画分段线(DIFF>DEA,DIFF),COLORRED,LINETHICK2;
画分段线(DIFF>DEA AND DIFF<0,DIFF),COLORMAGENTA,LINETHICK2;
画图标(交叉函数(DIFF,DEA),DIFF,10);
画图标(交叉函数(DEA,DIFF),DIFF,11);

周DIFF:简单移动平均("MACD.DIFF#WEEK"(LONG,SHORT,MID),5),点状线,LINETHICK1,COLORWHITE;
周DEA:简单移动平均("MACD.DEA#WEEK"(LONG,SHORT,MID),5),点状线,LINETHICK1,COLOR33FF99;
周金▲:显示文字(交叉函数("MACD.DIFF#WEEK"(LONG,SHORT,MID) ,"MACD.DEA#WEEK"(LONG,SHORT,MID)),0,'▲'),COLORred;
周死▼:显示文字(交叉函数("MACD.DEA#WEEK"(LONG,SHORT,MID) ,"MACD.DIFF#WEEK"(LONG,SHORT,MID)),0,'▼')COLORgreen;
月金个:显示文字(交叉函数("MACD.DIFF#MONTH"(LONG,SHORT,MID) ,"MACD.DEA#MONTH"(LONG,SHORT,MID)),0,'个'),COLORMAGENTA;
月死丫:显示文字(交叉函数("MACD.DEA#MONTH"(LONG,SHORT,MID) ,"MACD.DIFF#MONTH"(LONG,SHORT,MID)),0,'丫'),Color00FFFF;

=======================================================
{KDJ周叉 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>d,k),COLORMAGENTA;
partline(k<d,k),COLORCYAN;
partline(j>d,j),colorred,LINETHICK2;
partline(j<d,j),colorgreen,LINETHICK2;



周K:MA("KDJ.K#WEEK"(n,m1,m2) ,5),POINTDOT,LINETHICK1,COLORWHITE;
周D:MA("KDJ.D#WEEK"(n,m1,m2) ,5),POINTDOT,LINETHICK1,COLOR33FF99;
周J:MA("KDJ.J#WEEK"(n,m1,m2) ,5),POINTDOT,LINETHICK1,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;
==========================================================
{W&R周月 n 14  日线、周线、月线同一图}
日:100*(HHV(HIGH,N)-CLOSE)/(HHV(HIGH,N)-LLV(LOW,N));
周:ma("w&r#WEEK"(n),5),LINETHICK1,COLORred;
月:MA("w&r#month"(n) ,20),LINETHICK1,COLORMAGENTA;