/*[[
	Name := It_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: Periods(8),phase(0),Show_Bars(300); 

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("It_Plus_Pole",Periods,phase,Show_Bars,MODE_FIRST,It);

It_Minus_Pole=iCustom("It_Minus_Pole",Periods,phase,Show_Bars,MODE_FIRST,It);

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

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

End;