变异MACD通达信指标公式源码.doc

变异MACD通达信指标公式源码.doc:..空孕线空孕线强费盼止损600:000>600趋势指标,提示更明显。大家看图DF:(EMA(CLOSE,12)・EMA(CLOSE,26))/EMA(CLOSE,26)*100;DA:EMA(DF,9);MAD:(DF-DA)*2,COLORSTICK;VAR1A:=EMA(EMA(CLOSE,9),9);控盘:=(VAR1A-REF(VAR1A,1))/REF(VAR1AZ1)*1OOO;VAR2:=100*WINNER(CLOSE*);高度控盘:IF(VAR2>50ANDCOST(85)<CLOSEAND控盘>0,控盘,0),COLORFFOOFF,NODRAW;MM1:=MA(CLOSE,5);Q5:(MM1-REF(MM1,1))/REF(MM1Z1)*1OO,NODRAW;6;OzCOLORYELLOW;-6;STICKLINE(((MAD<REF(MAD,1))AND(MAD>0)),0ZMAD,1,0)HICK2;STICKLINE(((MAD>REF(MAD,1))AND(MAD<0)),0,MAD,l,0)HICK2;STICKLINE(((MAD>REF(MAD,1))AND(MAD>0)),0,MAD,l,0),COLORFF00FF,HICK2;MAD1:=(MAD-REF(MAD,1))*1O;MAD2:=MAD*;STICKLINE(((MAD>REF(MAD,1))AND(DF>=-2)ANDDA<=2ANDMAD1>2),MAD2,MAD,1,0),COLORRED,HICK2;STICKLINE(((MAD>REF(MADZ1))AND(DF<-2)ANDMAD1>2ANDDF>REF(DF,l))zMAD2zMAD,lzO)zCOLORRED,HICK2;STICKLINE((DF>2ANDDF>REF(DF,1)ANDMAD>3ANDMADl>-),MAD2zMAD,lzO),HICK2;STICKLINE(((MAD<REF(MAD,1))AND(DF>=-2)ANDDA<=2ANDMADlv・2),MAD2,MAD,1,0),REEN,HICK2;STICKLINE(((MADvREF(MAD,l))AND(DF>2)ANDMADK-2ANDDFvREF(DF,l)),MAD2,MAD,1,0),REEN,HICK2;STICKLINE((DF<-2ANDDF<REF(DF,1)ANDMAD<-2),MAD2,MAD,1,0),REEN,HICK2;A:=COUNT(CROSS(DF,DA)ZBARSLAST(DA>=0));二次金叉:=CROSS(DF,DA)ANDDA<0ANDCOUNT(A=2,21)=1;DRAWTEXT(二次金叉,,‘二次金叉'),COLORYELLOW;A1:=BARSLAST(REF(CROSS(DF,DA)Z1));底背离:=REF(CLOSE,A1+1)>CLOSEANDDF>REF(DF,A1+1)ANDCROSS(DF,DA);DIF底背:DRAWLINE(A1=O,DA,底背离,DA,0),COLORRED,HICK3;DRA