// Traders Dynamic Index untuk AmiBroker
// -------------------------------------
// Oleh Edy Tanto (edytanto.et@gmail.com)
//
// Untuk jenis MA, tidak ada yang terbaik namun versi asli TDI menggunakan jenis Simple MA
// Silahkan memilih yang paling cocok dengan gaya trading Anda.
//
// Parameter default adalah sbb:
//
// RSI Dasar			: 13 periode
// RSI Price Line		:  2 periode
// RSI Signal Line	:  7 periode
// Market Base Line	: 34 periode
// Pita Bollinger		: 34 periode
//
// System Trading:
//
// Indicator:
//   1. Candle Heikin-Ashi
//   2. Price Action Channel (PAC)
//   3. Traders Dynamic Index (TDI)
//
// Semua indicator di atas sudah saya programkan. Anda tinggal memakainya saja.
//
//
// Happy trading!
// ----------------------------------------------------------------------------

SetChartBkColor(colorBlack);

_SECTION_BEGIN("Pilih Jenis MA (Default: Simple)");
Jenis = ParamList("Jenis MA", "Simple,Exponential,Wilders,Weighted");
TPL = 0;
TSL = 0;
MDL = 0;

if ( Jenis == "Simple")			TPL = MA(RSIa(Close, 13), 2);
							 		TSL = MA(RSIa(Close, 13), 7); 	
									MDL = MA(RSIa(Close, 13), 34);
		
if ( Jenis == "Exponential")	TPL = EMA(RSIa(Close, 13), 2);
							 		TSL = EMA(RSIa(Close, 13), 7); 	
									MDL = EMA(RSIa(Close, 13), 34);

if ( Jenis == "Wilders")		TPL = Wilders(RSIa(Close, 13), 2);
							 		TSL = Wilders(RSIa(Close, 13), 7); 	
									MDL = Wilders(RSIa(Close, 13), 34);

if ( Jenis == "Weighted")		TPL = WMA(RSIa(Close, 13), 2);
							 		TSL = WMA(RSIa(Close, 13), 7); 	
									MDL = WMA(RSIa(Close, 13), 34);

_SECTION_END();

_SECTION_BEGIN("Garis Harga");
ColorTDIPL = ParamColor("Color",colorLime);
StyleTDIPL = ParamStyle("Style",styleLine);
TDIHijau = TPL;
Plot(TDIHijau, _DEFAULT_NAME(), ColorTDIPL, StyleTDIPL ); 
_SECTION_END();

_SECTION_BEGIN("Garis Signal");
ColorTDISL = ParamColor("Warna",colorRed);
StyleTDISL = ParamStyle("Style",styleLine); 
TDIMerah = TSL;
Plot(TDIMerah, _DEFAULT_NAME(), ColorTDISL, StyleTDISL ); 
_SECTION_END();

_SECTION_BEGIN("Garis Median");
ColorTDIPL = ParamColor("Warna",colorGold);
StyleTDIPL = ParamStyle("Style",styleLine);
Plot(MDL, _DEFAULT_NAME(), ColorTDIPL, StyleTDIPL ); 
_SECTION_END();

_SECTION_BEGIN("Pita Volatilitas");
Width = Param("Lebar", 2, 0, 10, 0.05 );
Color = ParamColor("Warna", ColorRGB(0,128,255));
Style = ParamStyle("Style", styleLine);
Plot( BBandTop( RSIa(Close, 13), 34, 2 ), "VB Atas", Color, Style ); 
Plot( BBandBot( RSIa(Close, 13), 34, 2 ), "VB Bawah", Color, Style ); 
_SECTION_END();

_SECTION_BEGIN("TDI Level");
Color = ParamColor("Warna", ColorRGB(63,63,63));
Style = ParamStyle("Style", styleDashed | styleNoLabel);
Plot(32,"", Color, Style);
Plot(50,"", Color, Style);
Plot(68,"", Color, Style);
_SECTION_END();