TBL平台的使用者自定義公式名額MACD

//------------------------------------------------------------------------
// 簡稱: MACD
// 名稱: MACD（與同花順、通達信采用相同算法）
// 類别: 公式應用
// 類型: 使用者應用
// 注意：調用了自定義函數EMA
//------------------------------------------------------------------------

Params
	Numeric M1(12);
	Numeric M2(26);
	Numeric M3(9);
Vars
	NumericSeries MACD; 
	NumericSeries DIF;
	NumericSeries DEA;
Begin
	DIF = EMA( Close, M1 ) - EMA( Close, M2 ) ;	
	DEA = EMA(DIF,M3);
	MACD = (DIF-DEA)*2;
	PlotNumeric("DIF",DIF);
	PlotNumeric("DEA",DEA);
	If (MACD >= 0)	
		PlotNumeric("MACD",MACD,0,Red); 
	Else
		PlotNumeric("MACD",MACD,0,Green); 
	PlotNumeric("零線",0); 	 
End