/*[[
	Name := Bull_Bear
	Author := Copyright © 2005, David W Honeywell
	Link := DavidHon@msn.com
	Separate Window := Yes
	First Color := Yellow
	First Draw Type := Line
	First Symbol := 217
	Use Second Data := Yes
	Second Color := Coral
	Second Draw Type := Line
	Second Symbol := 218
]]*/

Input: BullBearPeriod(5),Shift_Plus(1);

Variable : currentbar(0),bull(0),bear(0),line(0);

SetLoopCount(0);
// loop from first bar to current bar (with shift=0)
For currentbar=Bars-1 Downto 0 Begin

bull = iBullsPower(BullBearPeriod,PRICE_CLOSE,currentbar+Shift_Plus);
bear = iBearsPower(BullBearPeriod,PRICE_CLOSE,currentbar+Shift_Plus);
line = bull + bear;


	SetIndexValue(currentbar, line);
	SetIndexValue2(currentbar, 0.0000001);
End;