Bull Power Bear Power Histogram Indicator
Plot this indicator in it's own window, change the style to histogram 

r1:=If(Ref(C,-1)<O,Max(O-Ref(C,-1),H-L),H-L); 
r2:=If(Ref(C,-1)>O,Max(Ref(C,-1)-O,H-L),H-L); 
bull:=If(C=O, 
If(H-C=C-L, 
If(Ref(C,-1)>O, 
Max(H-O,C-L), 
r1), 
If(H-C>C-L, 
If(Ref(C,-1)<O, 
Max(H-Ref(C,-1),C-L), 
H-O), 
r1)), 
If(C<O, 
If(Ref(C,-1)<O, 
Max(H-Ref(C,-1),C-L), 
Max(H-O,C-L)), 
r1)); 
bear:=If(C=O, 
If(H-C=C-L, 
If(Ref(C,-1)<O, 
Max(O-L,H-C), 
r2), 
If(H-C>C-L, 
r2, 
If(Ref(C,-1)>O, 
Max(Ref(C,-1)-L,H-C), 
O-L))), 
If(C<O, 
r2, 
If(Ref(C,-1)>O, 
Max(Ref(C,-1)-L,H-C), 
Max(O-L,H-C)))); 
Mov(bull-bear,30,S)

*****Jose*****
pds:=Input("Smoothing periods",1,260,30); 

r1:=Max(O-Ref(C,-1),H-L); 
r2:=Max(Ref(C,-1)-O,H-L); 

bull:= 
If(C=O, 
 If(H-C=C-L,If(Ref(C,-1)>O,Max(H-O,C-L),r1), 
 If(H-C>C-L, 
  If(Ref(C,-1)<O,Max(H-Ref(C,-1),C-L),H-O),r1)), 
 If(C<O,If(Ref(C,-1)<O,Max(H-Ref(C,-1),C-L), 
  Max(H-O,C-L)),r1)); 

bear:= 
If(C=O, 
 If(H-C=C-L,If(Ref(C,-1)<O,Max(O-L,H-C),r2), 
 If(H-C>C-L,r2, 
  If(Ref(C,-1)>O,Max(Ref(C,-1)-L,H-C),O-L))), 
 If(C<O,r2, 
  If(Ref(C,-1)>O,Max(Ref(C,-1)-L,H-C), 
   Max(O-L,H-C)))); 

HenryOsc:=Mov(bull-bear,pds,S); 
HenryAvg:=Cum(HenryOsc)/Cum(IsDefined(HenryOsc)); 

HenryAvg;HenryOsc