{黄金山}
DRAWGBK(DAY>0,COLORRGB(20,5,205),COLORRGB(25,255,0),1);
DIFF周 := EMA(CLOSE,60) - EMA(CLOSE,130);
DEA周  := EMA(DIFF周,45);
金山 : 2*(DIFF周-DEA周), LINETHICK0;{MACD周}
FILLRGN(0>金山, 0,金山),COLORBLUE;
FILLRGN(金山>=0,金山, 0),COLORYELLOW;
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26),LINETHICK0;
DEA : EMA(DIFF,9),LINETHICK0;
FILLRGN(DIFF>DEA,DIFF,DEA),colorred;
FILLRGN(DIFF<DEA,DIFF,DEA),color00ff00;
力:2*(DIFF-DEA);
MACD : 2*(DIFF-DEA), COLORSTICK,LINETHICK2;
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;
DRAWICON(CC AND EE,0.1,11);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=IF(REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA),1.2,0),COLORRED,LINETHICK4,CROSSDOT;
势:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED LINETHICK2;
DRAWICON(DD AND EE AND DEA< HHV(DEA,180),0.1,2);
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF),COLORWHITE;
压:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN LINETHICK2;
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;
DRAWICON(LL AND GG,-0.1,16); 
DRAWICON(FF AND GG AND DEA> LLV(DEA,180),-0.3,9);
MM:=IF(MACD< 0,MACD,0);
JJ:=MM> REF(MM,1);
ZZ:=REF(JJ,1)=1;
介入区:(JJ AND ZZ)*DEA,POINTDOT,COLORFFFFFF;{MACD蓝柱缩短---指今日比昨天短}
STICKLINE(介入区=DEA,DEA,DIFF,0,0),COLORFFFFFF;
选股:if(介入区=dea,1,0),LINETHICK0;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0,0),COLORFF00FF;
STICKLINE(MACD<REF(MACD,1)AND MACD<0,0,MACD,0,0)COLOR00FF00;
STICKLINE(MACD>REF(MACD,1)AND MACD,0,MACD,0,0),COLORYELLOW;
STICKLINE(MACD>REF(MACD,1)AND MACD>0,0,MACD,0,0),COLORRED;
持:PARTLINE(DIFF>=DEA,DIFF),COLORRED; 
观:PARTLINE(DEA>=DIFF,DEA),COLORFF9900;
股:PARTLINE(DIFF>=DEA,DEA),COLOR00FFFF;
望:PARTLINE(DEA>=DIFF,DIFF),COLOR00FF00;
AA:=BARSLAST(REF(CROSS(DIFF,DEA),1));
BB:=REF(CLOSE,AA+1)>CLOSE AND DIFF>REF(DIFF,AA+1) AND CROSS(DIFF,DEA);
进:DRAWLINE(AA=0,DEA,BB,DEA,0),COLOR0000FF;
STICKLINE(BB,0,0.1,0,1),COLORFFFFFF;

火:=BARSLAST(EMA(CLOSE,5)<REF(EMA(CLOSE,5),1)),COLORRED;
山:=COUNT(EMA(CLOSE,5)>REF(EMA(CLOSE,5),1),5),COLORGREEN;
DRAWTEXT(REF(火,3)>0 AND REF(火,2)>0 AND REF(火,1)>0 AND 火=0 AND REF(火,1)>山,DIFF,'●'),COLORRED;
DRAWTEXT(REF(火,3)>0 AND REF(火,2)>0 AND REF(火,1)>0 AND 火=0 AND REF(火,1)>山,DIFF,'¤'),COLORYELLOW;
STICKLINE(REF(山,1)=0 AND 山>0,0,0.1{-1},5,2),COLORRED;
DRAWTEXT(REF("KDJ.J",1)<0 AND "KDJ.J">0,DIFF,'短'),COLORRED ;