通达信MACD副图博览

MACD叫好副图
DIFF:EMA(CLOSE,12)-EMA(CLOSE,27);
 DEA:EMA(DIFF,9);
 MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK2;
 低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
 STICKLINE(低位金叉,0,0.08,6,0),COLORYELLOW;
 DRAWTEXT(低位金叉,0.16,' 低位金叉'),COLORWHITE;
 JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
 二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
 STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF;
 DRAWICON(二次金叉,DEA*0.9,1) ;
 DRAWTEXT(二次金叉,0.2,' 二次金叉'),COLORYELLOW;
 A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
 底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
 STICKLINE(底背离,0,0.03,6,0),COLOR00FF00;
 底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK4;
 DRAWTEXT(底背离,0.12,' 底背离'),COLORFF00FF;
 A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
 顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
 顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN,LINETHICK4;
DRAWTEXT(低位金叉 AND 二次金叉 AND 底背离,0.25,'三全项'),COLOR0000FF,LINETHICK2;
 柱线标志:
 0.3 黄:低金叉
0.2 粉红:二次金叉
0.1 绿:底背离
 

MACD实战
 DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
 DEA : EMA(DIFF,9);
 MACD : 2*(DIFF-DEA), COLORSTICK;
 D1:=EMA(C,3)-EMA(C,8);
 D2:=EMA(O,3)-EMA(O,8);
 D3:=EMA(H,3)-EMA(H,8);
 D4:=EMA(L,3)-EMA(L,8);
 DRAWICON(CROSS(D1,DIFF) AND DIFF<-0.05 ,D4-0.1,1);
 DRAWICON(CROSS(DIFF,D1) AND DIFF>0.1 ,D3+0.1,2);
 STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
 STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
 STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
 STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
 STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
 STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
 STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
 STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00;

MACD背离
 {SHORT:1,500,12; LONG:1,500,26;M:1,500,9;}
DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA : EMA(DIFF,M);
MACD : 2*(DIFF-DEA), COLORSTICK,COLOR5454FF;
DD:=C=HHV(C,180);
EE:=DEA< REF(DEA,1) AND REF(DEA< REF(DEA,1),1)=1;
CC:=C> REF(C,1) AND REF(C> REF(C,1),1)=1;
上升背离:=(CC AND EE)*DEA,COLOR00FFFF;
顶背离:(DD AND EE AND DEA< HHV(DEA,180))*DEA,STICK,LINETHICK3,COLORGREEN;
FF:=C=LLV(C,180);
GG:= DEA> REF(DEA,1) AND REF(DEA> REF(DEA,1),1)=1;
LL:=C< REF(C,1) AND REF(C< REF(C,1),1)=1;
下降背离:=(LL AND GG)*DEA,COLORMAGENTA;
底背离:=(FF AND GG AND DEA> LLV(DEA,180))*DEA,STICK,LINETHICK3,COLORRED;
MM:=IF(MACD< 0,MACD,0);
JJ:=MM> REF(MM,1);
ZZ:=REF(JJ,1)=1;
介入区:(JJ AND ZZ)*DEA,POINTDOT,COLORRED;{MACD蓝柱缩短---指今日比昨天短}
STICKLINE(介入区=DEA,DEA,DIFF,3,0),COLORRED;
 DRAWTEXT(CROSS(DIFF,DEA ),0,'金叉'),COLORYELLOW;
 DRAWTEXT(CROSS(DEA,DIFF ),0,'死叉'),COLORGREEN;
 金叉:CROSS(DIFF,DEA);

统一化MACD
 {SH:1,120,12; LO:1,250,26;M:1,60,9;}
DA:=IF(DATE<1070531,1,0);
 DJ:=MINUTE-REF(MINUTE,1);
 SJ1:=HHV(HOUR-REF(HOUR,1),5);
 SJ2:=LLV(HOUR-REF(HOUR,1),5);
 KJ:=IF(DJ=5 OR DJ=-55 OR DJ=-25 OR DJ=35,5,
 IF(DJ=-15 OR DJ=-45 OR DJ=15 OR DJ=45,15,
 IF(LLV(DJ,80)=0 AND SJ1=0,240,
 IF((DJ=0 OR DJ=-30 OR DJ=30) AND SJ1<3 AND SJ2<=0,30,
 IF(LLV(DJ,3)=1 OR HHV(DJ,3)=1,1,60)))));
 DIF:(EMA(CLOSE,SH)-EMA(CLOSE,LO))/EMA(CLOSE,LO)*1000,COLORGREEN;
 DEA:EMA(DIF,M);
 MACD:(DIF-DEA)*2,COLORSTICK;
 JB:=(LO-SH)*KJ/(14*240);
 BD:=(MACD-LLV(REF(MACD,1),2))/ABS(REF(DIF,1))/2;
 该期增减:IF(BD>10,10,IF(BD<-10,-10,BD)),LINETHICK0;
 L1:IF(DA=1 AND DIF>0,PLOYLINE(DIF>0,DIF),DRAWNULL),COLORWHITE;
 L2:IF(DA=1 AND DIF>10*JB,PLOYLINE(DIF>10*JB,DIF),DRAWNULL),COLORRED;
 L3:IF(DA=1 AND DIF>50*JB,PLOYLINE(DIF>50*JB,DIF),DRAWNULL),COLORMAGENTA;
 MD:=MAX(MAX(DIF,DEA),MACD);
 MX:=MIN(MIN(DIF,DEA),MACD);
 MDC:=HHV(MD,50);
 MXC:=LLV(MX,50);
 DX:=MDC-MXC;
 YS:=IF(DIF>50*JB,'强得发紫',
 IF(DIF>10*JB AND DIF<50*JB,'多头区',
 IF(DIF>0 AND DIF<10*JB,'多头观望',
 IF(DIF<0,'空头区',DRAWNULL))));
 DRAWTEXT(DA=1 AND CURRBARSCOUNT=1 AND DIF>50*JB,MXC+0.6*DX,YS),COLORMAGENTA;
 DRAWTEXT(DA=1 AND CURRBARSCOUNT=1 AND DIF>10*JB AND DIF<50*JB,MXC+0.6*DX,YS),COLORRED;
 DRAWTEXT(DA=1 AND CURRBARSCOUNT=1 AND DIF>0 AND DIF<10*JB,MXC+0.6*DX,YS),COLORWHITE;
 DRAWTEXT(DA=1 AND CURRBARSCOUNT=1 AND DIF<0,MXC+0.6*DX,YS),COLORGREEN;
 DRAWTEXT(DA=1 AND DIF>0 AND DIF>DEA AND CURRBARSCOUNT=1,MXC+0.5*DX,'上升通道持续(参数③周期)');
 DRAWTEXT(DA=1 AND DIF>0 AND DIF<DEA AND CURRBARSCOUNT=1,MXC+0.5*DX,'上升通道趋缓(参数③周期)');
 DRAWTEXT(DA=1 AND DIF<0 AND DIF>DEA AND CURRBARSCOUNT=1,MXC+0.5*DX,'下降通道趋缓(参数③周期)');
 DRAWTEXT(CURRBARSCOUNT=1,MXC+0.8*DX,'MACD庞辉V2.0大众版请阅用法注释'),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=1,MXC+0.4*DX,'SHOP34328852.TAOBAO.COM'),COLORMAGENTA;
 
{DRAWTEXT(CURRBARSCOUNT=1 AND MACD>=LLV(REF(MACD,1),2),MXC+0.6*DX,
 ' 增强'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=1 AND MACD<LLV(REF(MACD,1),2),MXC+0.6*DX,
 ' 减弱'),COLORGREEN;};
 PMACD以MACD为基础作改良，图形形态完全符合MACD，大家可以放心使用
 
PMACD 点破要点 分清主次 交易分析理性化 ；有空有心思我再升级
 
感谢MACD原创者：杰拉德·阿佩尔(Gerald Appel)
 PMACD作者：庞辉 SHOP34328852.TAOBAO.COM shop.paipai.com/309951860
 该版本主要修正了如下几点：
 1：对1、5、15、30、60分钟的正确支持
 2：对调整参数变量的正确支持
 3：局部美化，使用舒服点
 使用说明：
 1、MACD最重要的是看处于什么状态，PMACD把其分为空头、多头观望、多头、强得发紫四个阶段，这是你最要看的。
 2、其次，是DIF与DEA的关系，因为DEA是DIF的衍生。
 PMACD分出四中状态，下降通道持续——下降通道趋缓——上升通道趋缓——上升通道持续，这是你次要看的。因为通达信不支持16个以上输出，本人只标出了三种，所以见PMACD无显示时即为 下降通道持续。
 3、再次，看红绿柱MACD数值变化方向，本人给出了“该期增减”，这是个未乘100的数，0.2即增长20％。这是对该周期的判断，第三重要而已。

变色MACD
 DIFIF1:=EMA(CLOSE,12) - EMA(CLOSE,26);
 DEAEA1:=EMA(DIFIF1,9);
 MACD1:=2*(DIFIF1-DEAEA1),STICK;
 MACD2:=EMA(MACD1,3);
 STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1,0),COLORRED;
 STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,1,0),COLORGREEN;
 STICKLINE(MACD1<MACD2,0,MACD1,1,0),COLORCBCBC0;
 STICKLINE(MACD1>=0 OR MACD1<=0,0,0,50,1),COLORWHITE;
 DIFIF1,COLOR33FF33,LINETHICK2;
 DEAEA1,COLORYELLOW,LINETHICK2;
 MACD:MACD1,NODRAW,COLORMAGENTA;
 强:IF(DIFIF1>=DEAEA1,DIFIF1,DRAWNULL),COLORRED,LINETHICK2;
弱:IF(DEAEA1>=DIFIF1,DEAEA1,DRAWNULL),COLORFF9900,LINETHICK2;
DRAWICON(CROSS(DIFIF1,DEAEA1),DIFIF1+0.1,1);
 DRAWICON(CROSS(DEAEA1,DIFIF1),-0.5,2);
 DRAWTEXT(CROSS(DIFIF1,DEAEA1),DIFIF1,'○'),LINETHICK2, COLORYELLOW;

超前MACD
 SQX:=(C-MA(CLOSE,13))*100;
 DIFF:EMA(MA(SQX,7),1),COLOR00FFFF,LINETHICK2;
 DEA:EMA(DIFF,7),COLORFF33FF,LINETHICK2;
 MACD: (DIFF-DEA)*2,COLORSTICK;
 低位金叉:IF(CROSS(DIFF,DEA) AND DIFF<-0.1,0.3,0),COLORYELLOW,POINTDOT;
 STICKLINE(低位金叉,0,15,8,0),COLORYELLOW;
 DRAWICON(低位金叉,0.3,1);
 JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
 二次金叉:IF(CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1,0.2,0),COLORFF00FF,POINTDOT;
 STICKLINE(二次金叉,30,15,8,0),COLORFF00FF;
 A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
 底背离:IF(REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA),0.1,0),COLORRED,POINTDOT;
 STICKLINE(底背离,45,30,8,0),COLORRED;
 DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED;
 A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
 顶背离:REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF),COLORGREEN;
 DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN;
 A3:=CROSS(DIFF,DEA) AND DEA<0;
 零下二次金叉:IF(FILTER(COUNT(A3,21)=2,10),0.05,0),COLORWHITE,POINTDOT;
 STICKLINE(零下二次金叉,45,60,8,0),COLORWHITE;
 

MACD实战解盘
 DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26));
 DEA:=EMA(DIFF,9);
 MACD2:=(2 * (DIFF - DEA));
 DU0:=CROSS(DIFF,0);
 UD0:=CROSS(0,DIFF);
 TDU0:=BARSLAST(DU0);
 TUD0:=BARSLAST(UD0);
 DU3:=REF(DU0,1);
 UD3:=REF(UD0,1);
 TDU3:=BARSLAST(DU3);
 TUD3:=BARSLAST(UD3);
 UDGLINE:=IF((TDU3 < TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3));
 JDU0:=(((REF(CLOSE,1) <= REF(UDGLINE,1)) AND (CLOSE > UDGLINE)) AND (TDU0 < TUD0));
 JUD0:=(((REF(CLOSE,1) >= REF(UDGLINE,1)) AND (CLOSE < UDGLINE)) AND (TUD0 < TDU0));
 JDU1:=(JDU0 AND (COUNT(JDU0,TDU0) = 1));
 JUD1:=(JUD0 AND (COUNT(JUD0,TUD0) = 1));
 JDU2:=(JDU1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));
 JUD2:=(JUD1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));
 JDU3:=(JDU1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));
 JUD3:=(JUD1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));
 BSLINE:=IF((BARSLAST(JDU2) < BARSLAST(JUD2)),IF(REF(CROSS(0,MACD2),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD2),1)))),IF(REF(CROSS(MACD2,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD2,0),1)))));
 DRAWICON((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),0,10);
 STICKLINE((MACD2>=0),0,MACD2,3,1),COLOR0000FF;
 STICKLINE(((MACD2>=0) AND (MACD2 < REF(MACD2,1))),0,MACD2,3,0),COLORCYAN;
 STICKLINE((MACD2<0),0,MACD2,3,0),COLORFFFF00;
 STICKLINE(((MACD2<0) AND (MACD2 > REF(MACD2,1))),0,MACD2,3,1),COLORRED;
 DIF:DIFF,LINETHICK2,COLOR00FFFF;
 DEF:DEA,COLOR00FF00;
 MACD:MACD2,LINETHICK0,COLORFFFF00;
 DEFUT:=BARSLAST(CROSS(MACD2,0));
 DEFDT:=BARSLAST(CROSS(0,MACD2));
 DEFUL:=IF((MACD2 >= 0),HHV(MACD2,(DEFUT + 1)),REF(HHV(MACD2,(DEFUT + 1)),(DEFDT + 1)));
 DEFDL:=IF((MACD2 < 0),LLV(MACD2,(DEFDT + 1)),REF(LLV(MACD2,(DEFDT + 1)),(DEFUT + 1)));
 DEFU2L:=REF(DEFUL,(DEFUT + 1));
 DEFD2L:=REF(DEFDL,(DEFDT + 1));
 DRAWICON(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),MACD2,5);
 DRAWICON(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),MACD2,4);
 DRAWICON(((((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (MACD2 >= 0)) AND (REF(MACD2,1) < REF(DEFU2L,1))) AND (MACD2 > DEFU2L)),MACD2,12);
 DRAWICON(((((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (MACD2 < 0)) AND (REF(MACD2,1) > REF(DEFD2L,1))) AND (MACD2 < DEFD2L)),MACD2,12);
 

龙行MACD
 DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:=EMA(DIFF,9);
 STICKLINE(DIFF>DEA,DIFF,DEA,6,0),COLORRED;
 STICKLINE(DIFF<DEA,DIFF,DEA,6,0),COLORGREEN;
 

{短线MACD}
 VAR1:=EMA(CLOSE,12)-EMA(CLOSE,26);
 VAR2:=EMA(VAR1,50);
 VAR3:=2*(VAR1-VAR2);
 STICKLINE(VAR3<REF(VAR3,1) AND VAR3>0,0,VAR3,4,1),COLORYELLOW;
 STICKLINE(VAR3>=REF(VAR3,1)AND VAR3>0,0,VAR3,4,1),COLORRED;
STICKLINE(VAR3>REF(VAR3,1)AND VAR3<0,0,VAR3,4,1),COLORFFC8FF;
 STICKLINE(VAR3<=REF(VAR3,1)AND VAR3<0,0,VAR3,4,1),COLORFFCC66;
 趋势一:EMA(CLOSE,12)-EMA(CLOSE,26),COLORWHITE;
 趋势二:EMA(VAR1,50),COLORYELLOW;
 该指标既能使用于短线操作，又是一个能预测顶底的指标，简单实用，还可以做足一次行情的波段，用好用活能做到少赔多赚，在变幻莫测的股市能达到这个目标就已经不错了！
 使用方法及要领：
 1、0轴线是强弱的分水岭，0轴以上为强势区，0轴以下为弱势区；
 2、0轴以上的红拄表示股票由弱开始转强，此时介入相对安全，只要红柱一根比一根长，应该耐心持股；当红柱比前一根缩短时应该警惕，出现黄柱时卖出。也就是红买黄卖。
 3、当股票完成一波上涨后回落到0轴以下开始转弱出现兰色柱，此时应该持币观望，当兰色柱收敛出现粉色柱时表示股价超跌反弹，但不能表示下跌趋势的改变，有看盘经验的可以做短线，不可恋战。
 4、当兰色柱线不断缩短向0轴线运行时，表明股价即将脱离弱势区有趋势向好的迹象，可以重点关注。当在0轴线上收出红柱线时，应该结合大盘趋势选择时机果断介入。
 5、按照上述方法反复轮做应该有较好的收获
 

MACD顶底背离
 DIFF:EMA(CLOSE,12) - EMA(CLOSE,26);
 DEA:EMA(DIFF,9);
 MACD:2*(DIFF-DEA),COLORSTICK;
 A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
 B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
 A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
 B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
 A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
 B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
 C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
 D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
 C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
 D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
 C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
 D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
 MACD底背:IF(B1>0,-0.1,0),COLORRED,POINTDOT;
 KDJ底背:IF(B2>0,-0.1,0),COLORFF00FF,POINTDOT;
 RSI底背:IF(B3>0,-0.1,0),COLORYELLOW,POINTDOT;
 MACD顶背:IF(D1>0,0.1,0),COLOR00FF00,POINTDOT;
 KDJ顶背:IF(D2>0,0.1,0),COLORFFCC66,POINTDOT;
 RSI顶背:IF(D3>0,0.1,0),COLORWHITE,POINTDOT;
 STICKLINE(B1>0,-0.1,0,2,0),COLORRED;
 STICKLINE(B2>0,-0.1,0,2,0),COLORFF00FF;
 STICKLINE(B3>0,-0.1,0,2,0),COLORYELLOW;
 STICKLINE(D1>0,0.1,0,2,0),COLOR00FF00;
 STICKLINE(D2>0,0.1,0,2,0),COLORFFCC66;
 STICKLINE(D3>0,0.1,0,2,0),COLORWHITE;
 以MACD指标作为参照图，显示MACD、RSI、DMI、KDJ顶底背离柱形线
 

迷糊MACD
DIFF:=EMA(C,5)-EMA(C,20);
 DEA:=EMA(DIFF,10);
 DIFF*3+EMA(C,20)*0.95;
DEA*3 +EMA(C,20)*0.95;
 STICKLINE(C>=O,C,O,6,0) COLORRED;
 STICKLINE(C>=O,H,L,0,0) COLORRED;
 STICKLINE(C<O,C,O,6,0) COLORGREEN;
 STICKLINE(C<O,H,L,0,0) COLORGREEN;
 

 
 
迷糊MACD1副图
 {m:1,100,26; m1:1,100,3;M2:1,100,3;}
VAR1:=(CLOSE-LLV(LOW,M))/(HHV(HIGH,M)-LLV(LOW,M))*100-50;
 K: SMA(VAR1,M1,1),,COLORFFFF00;
 D: SMA(K,M2,1),,COLORFF0000;
 MACD: 2*(K-D), COLORSTICK;
 VAR2:=(CLOSE-LLV(LOW,85))/(HHV(HIGH,85)-LLV(LOW,85))*100-50;
 

MACD顶底
 
DIFF:EMA(CLOSE,12) - EMA(CLOSE,26);
 DEA:EMA(DIFF,9);
 MACD:2*(DIFF-DEA),COLORSTICK;
 A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
 B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
 A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
 B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
 A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
 B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
 C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
 D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
 C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
 D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
 C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
 D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
 MACD底背:IF(B1>0,-0.1,0),COLORRED,POINTDOT;
 KDJ底背:IF(B2>0,-0.1,0),COLORFF00FF,POINTDOT;
 RSI底背:IF(B3>0,-0.1,0),COLORYELLOW,POINTDOT;
 MACD顶背:IF(D1>0,0.1,0),COLOR00FF00,POINTDOT;
 KDJ顶背:IF(D2>0,0.1,0),COLORFFCC66,POINTDOT;
 RSI顶背:IF(D3>0,0.1,0),COLORWHITE,POINTDOT;
 STICKLINE(B1>0,-0.1,0,2,0),COLORRED;
 STICKLINE(B2>0,-0.1,0,2,0),COLORFF00FF;
 STICKLINE(B3>0,-0.1,0,2,0),COLORYELLOW;
 STICKLINE(D1>0,0.1,0,2,0),COLOR00FF00;
 STICKLINE(D2>0,0.1,0,2,0),COLORFFCC66;
 STICKLINE(D3>0,0.1,0,2,0),COLORWHITE;
 底: SMA(VAR2,5,1), ,COLOR00FF00;
 上: 40;
 中: 0;
 下: -40;

MACD金/死叉
 {SHORT:1,500,12; LONG:1,500,26;M:1,500,9;}
DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA : EMA(DIFF,M);
MACD : 2*(DIFF-DEA), COLORSTICK,COLOR5454FF;
DD:=C=HHV(C,180);
EE:=DEA< REF(DEA,1) AND REF(DEA< REF(DEA,1),1)=1;
CC:=C> REF(C,1) AND REF(C> REF(C,1),1)=1;
上升背离:(CC AND EE)*DEA,COLOR00FFFF;
顶背离:(DD AND EE AND DEA< HHV(DEA,180))*DEA,STICK,LINETHICK3,COLORGREEN;
FF:=C=LLV(C,180);
GG:= DEA> REF(DEA,1) AND REF(DEA> REF(DEA,1),1)=1;
LL:=C< REF(C,1) AND REF(C< REF(C,1),1)=1;
下降背离:(LL AND GG)*DEA,COLORMAGENTA;
底背离:(FF AND GG AND DEA> LLV(DEA,180))*DEA,STICK,LINETHICK3,COLORRED;
MM:=IF(MACD< 0,MACD,0);
JJ:=MM> REF(MM,1);
ZZ:=REF(JJ,1)=1;
介入区:(JJ AND ZZ)*DEA,POINTDOT,COLORYELLOW;{MACD蓝柱缩短---指今日比昨天短}
STICKLINE(介入区=DEA,DEA,DIFF,0.5,1),COLORYELLOW;
 DRAWTEXT(CROSS(DIFF,DEA ),0,'金↗'),COLORYELLOW;
 DRAWTEXT(CROSS(DEA,DIFF ),0,'死↘'),COLORFFFF00;
 

MACD底背副图
 SQX:=(C-MA(CLOSE,13))*100;
 DIFF:EMA(MA(SQX,7),1),COLOR00FFFF;
 DEA:EMA(DIFF,7),COLORFF33FF;MACD:(DIFF-DEA)*2,COLORSTICK;
 低位金叉:IF(CROSS(DIFF,DEA) AND DIFF<-0.1,0.3,0),COLORYELLOW,POINTDOT;
 STICKLINE(低位金叉,0,15,8,0),COLORYELLOW;DRAWICON(低位金叉,0.3,1);
 JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
 二次金叉:IF(CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1,0.2,0),COLORFF00FF,POINTDOT;
 STICKLINE(二次金叉,30,15,8,0),COLORFF00FF;
 A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
 底背离:IF(REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA),0.1,0),COLORRED,POINTDOT;
 STICKLINE(底背离,45,30,8,0),COLORRED;DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED;
 A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
 顶背离:REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF),COLORGREEN;
 DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN;
 A3:=CROSS(DIFF,DEA) AND DEA<0;
 零下二次金叉:IF(FILTER(COUNT(A3,21)=2,10),0.05,0),COLORWHITE,POINTDOT;
 STICKLINE(零下二次金叉,45,60,8,0),COLORWHITE;