{ Downloaded From https://www.WiseStockTrader.com }
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)