以下是通达信原创：KMR日周月副图公式（无源码的请下载附件导入）

通达信原创：KMR日周月副图公式

说明：
KDJ,MACD,RSI 日,周,月期，KDJ,MACD第一个红箭头为金叉，第一个绿箭头为死叉，RSI为上下穿50
 

{KDJ日金}
日K:="KDJ.K#DAY"(9,3,3);
日D:="KDJ.D#DAY"(9,3,3);
DRAWICON(日K>日D,1,1);
DRAWICON(日K<日D,1,2);
DRAWTEXT(ISLASTBAR=1,1,'日K'),COLORFFFFFF;

{MACD日金}
日DIF:="MACD.DIF#DAY"(12,26,9);
日DEA:="MACD.DEA#DAY"(12,26,9);
DRAWICON(日DIF>日DEA,1.1,1);
DRAWICON(日DIF<日DEA,1.1,2);
DRAWTEXT(ISLASTBAR=1,1.1,'日M'),COLORFFFFFF;

{RSI日}
日RSI:="RSI.RSI1#DAY"(9);
DRAWICON(日RSI>50,1.2,1);
DRAWICON(日RSI<50,1.2,2);
DRAWTEXT(ISLASTBAR=1,1.2,'日R'),COLORFFFFFF;

{KDJ周金}
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
DRAWICON(周K>周D,1.3,1);
DRAWICON(周K<周D,1.3,2);
DRAWTEXT(ISLASTBAR=1,1.3,'周K'),COLORFFFFFF;

{MACD周金}
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
DRAWICON(周DIF>周DEA,1.4,1);
DRAWICON(周DIF<周DEA,1.4,2);
DRAWTEXT(ISLASTBAR=1,1.4,'周M'),COLORFFFFFF;

{RSI周}
周RSI:="RSI.RSI1#WEEK"(9);
DRAWICON(周RSI>50,1.5,1);
DRAWICON(周RSI<50,1.5,2);
DRAWTEXT(ISLASTBAR=1,1.5,'周R'),COLORFFFFFF;

{KDJ月金}
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
DRAWICON(月K>月D,1.6,1);
DRAWICON(月K<月D,1.6,2);
DRAWTEXT(ISLASTBAR=1,1.6,'月K'),COLORFFFFFF;

{MACD月金}
月DIF:="MACD.DIF#MONTH"(12,26,9);
月DEA:="MACD.DEA#MONTH"(12,26,9);
DRAWICON(月DIF>月DEA,1.7,1);
DRAWICON(月DIF<月DEA,1.7,2);
DRAWTEXT(ISLASTBAR=1,1.7,'月M'),COLORFFFFFF;

{RSI月}
月RSI:="RSI.RSI1#MONTH"(9);
DRAWICON(月RSI>50,1.8,1);
DRAWICON(月RSI<50,1.8,2);
DRAWTEXT(ISLASTBAR=1,1.8,'月R'),COLORFFFFFF;