大智慧神獒系列 星座万通 MACD KDJ 同图叠加修正版副图 源码

指标不是万能，但没俺在万万不能，。 别吐别吐，再吐俺不分享了；别砸别砸，俺不说话了行不。

{MACD KDJ 同图叠加}参数可分开调设，不影响电脑内存缓存，同图使用更方便。搜了很久，没看到个像样地完美结合地 MACD&KDJ 同图叠加

{MACD KDJ 同图叠加}
INPUT:LONG(26,20,100),SHORT(12,5,40),M(9,2,60),N(9,1,100),M1(3,2,40),M2(3,2,40);
DIFF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:=EMA(DIFF,M);MACD:=2*(DIFF-DEA);
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;KX:=BARSSINCE(CLOSE);
HKMAX:=MAX(HHV(K,KX),MAX(HHV(D,KX),HHV(J,KX)));
LKMIN:=MIN(LLV(K,KX),MIN(LLV(D,KX),LLV(J,KX)));
KDBL:=(HKMAX+LKMIN)/2;KDC:=HKMAX-LKMIN;
FDBL:=(MAX(HHV(DIFF,KX),MAX(HHV(DEA,KX),HHV(MACD,KX)))+MIN(LLV(DIFF,KX),MIN(LLV(DEA,KX),LLV(MACD,KX))))/100;
FDC:=MAX(HHV(DIFF,KX),MAX(HHV(DEA,KX),HHV(MACD,KX)))-MIN(LLV(DIFF,KX),MIN(LLV(DEA,KX),LLV(MACD,KX)));
DF:(DIFF-FDBL)*(KDC/FDC)+KDBL,COLOR0099FF,LAYER2,LINETHICK2;
DA:(DEA-FDBL)*(KDC/FDC)+KDBL,COLORD89837,LAYER2,LINETHICK2;
MACDA:=(MACD-FDBL)*(KDC/FDC)+KDBL;SH:=(0-FDBL)*(KDC/FDC)+KDBL;
50,COLORGRAY,DOTLINE; 0,COLORRED,POINTDOT; 100,COLORGREEN,POINTDOT;
STICKLINE(MACD>=REF(MACD,1) AND MACD>0,50,(MACDA-SH)+50,3,0),COLORRED;
STICKLINE(MACD0,50,(MACDA-SH)+50,3,0),COLOR00DDDD;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,50,(MACDA-SH)+50,3,0),COLORCYAN;
STICKLINE(MACD<=REF(MACD,1) AND MACD<0,50,(MACDA-SH)+50,3,0),COLORFF4422;

神獒系列 星座万通 原版

{十二星座 神獒系列 星座万通 副图}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),LINETHICK1,COLORWHITE,LAYER1;
D:SMA(K,3,1),LINETHICK1,COLOR00DDDD,LAYER1;
J:3*K-2*D,LINETHICK1,COLOR800080,LAYER1;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),COLOR0099FF;
DEA:EMA(DIFF,9),COLORD89837;
MACD:2*(DIFF-DEA),COLORFF9999;
YLZC:=if(close=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(vol+0.01)/100);
阻价:=if(close=INDEXC,YLZC+INDEXC-INDEXl,YLZC+(close-low));
支价:=if(close=INDEXC,INDEXl+INDEXC-YLZC,low+(close-YLZC));
今压:REF(阻价,1),LINETHICK0,COLORAA11BB;
今撑:REF(支价,1),LINETHICK0,COLOR009900;
明压:阻价,LINETHICK0;
明撑:支价,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),color00cccc;
明天卖:if(买卖=0,90,100),color00ff00;
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,LINETHICK3,COLOR0099FF,LAYER2;{MACD黄线}
DEAA:(DEA-FHLB)*(KHLC/FHLC)+KHLB,LINETHICK3,COLORD89837,LAYER2;{MACD蓝线}
MACDA:=(macd-FHLB)*(KHLC/FHLC)+KHLB;
CDA:=MACD0;
CDB:=MACD>=ref(MACD,1) and MACD>0;
CDC:=MACD>ref(MACD,1) and MACD<0;
CDD:=MACD<=ref(MACD,1) and MACD<0;
STICKLINE(CDA,SH,macda,6,0),COLOR00AAFF;{黄色段}
STICKLINE(CDB,SH,macda,6,0),COLOR0000AA; {红色段}
STICKLINE(CDC,SH,macda,6,0),COLORAA00BB;{粉红段}
STICKLINE(CDD,SH,macda,6,0),COLORFF7700;{兰色段}
PARTLINE(DIFFA,DIFF>0,RGB(255,153,153),DIFF<0,RGB(255,153,153));
PARTLINE(DEAA,DEA>0,RGB(65,105,225),DEA<0,RGB(65,105,225));
DRAWTEXT(BARSTATUS=2,SH,' 0'),color00aaaa;
TYP:=(HIGH+LOW+CLOSE)/3;
STICKLINE(diff>ref(diff,1),5,10,2,0),COLORRED;{下红色短柱}
STICKLINE(diff STICKLINE(K>=ref(K,1) or k>d and diff>ref(diff,1),85,90,2,1),COLORRED;{上红色短柱}
STICKLINE(K MACD金叉:=CROSS(MACD,DIFF) AND MACD>=(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 AND MACD>=REF(MACD,1) AND DIFF<=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 AND COUNT(DIFDEA=2,21)=1;
DRAWTEXT(二次金叉,deaa*0.99-8,' 二次金叉'),ColorFF00FF;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
DRAWT