/*[[
	Name := ADX_BiPolar
	Separate Window := yes
	First Color := White
	First Draw Type := line
	First Symbol := 233
	Use Second Data := Yes
	Second Color := Silver
	Second Draw Type := Line
	Second Symbol := 218
]]*/

Inputs: DXperiod(14), Pilihan(0), Populasi(-1),Show_Bars(500);

Vars : It(0),
       It_Plus_Pole(0),
       It_Minus_Pole(0),
       It_BiPolar(0);

SetLoopCount(0);

For It=Show_Bars Downto 0 Begin

It_Plus_Pole=iCustom("ADX",DXperiod,Pilihan,Populasi,MODE_FIRST,It);

It_Minus_Pole=iCustom("ADX",DXperiod,Pilihan,Populasi,MODE_SECOND,It);

It_BiPolar=(It_Plus_Pole-It_Minus_Pole)/(It_Plus_Pole+It_Minus_Pole);

SetIndexValue(It,It_BiPolar);
SetIndexValue2(It,0.0000001);

End;