[RS]Linear Regression Bull and Bear Power Accumulation V0
EXPERIMENTAL:
Bull and Bear power based on linear regression (this is a non lagging oscillator, the parameter are for the lookup window for the donchian extremes)
this indicator can also be used for convergence/divergence.
(accidentjev2) added option to show as accumulation
added another option to show as remainder of (bull minus bear)
Bull and Bear power based on linear regression (this is a non lagging oscillator, the parameter are for the lookup window for the donchian extremes)
this indicator can also be used for convergence/divergence.
(accidentjev2) added option to show as accumulation
added another option to show as remainder of (bull minus bear)
//@version=2
study(title='[RS]Linear Regression Bull and Bear Power Accumulation V0', shorttitle='BBPa', overlay=false)
SHOW_REM = input(title='Show as (bull-bear)?', type=bool, defval=false)
SHOW_ACC = input(title='Show as accumulation?', type=bool, defval=true)
window = input(title='Lookback Window:', type=integer, defval=10)
smoothing = input(title='Smoothing Length:', type=integer, defval=4)
acc_length = input(title='Accumulation Length:', type=integer, defval=100)
f_exp_lr(_height, _length)=>
_ret = _height + (_height/_length)
h_value = highest(close, window)
l_value = lowest(close, window)
h_bar = n-highestbars(close, window)
l_bar = n-lowestbars(close, window)
bear = 0-f_exp_lr(h_value-close, n-h_bar)
bull = 0+f_exp_lr(close-l_value, n-l_bar)
bear_acc = sum(nz(bear, 0), acc_length)
bull_acc = sum(nz(bull, 0), acc_length)
rem = SHOW_ACC ? bull_acc-abs(bear_acc) : bull - abs(bear)
rem_bull = rem > 0 ? rem : 0
rem_bear = rem < 0 ? rem : 0
plot(title='Bear', series=SHOW_REM?rem_bear:SHOW_ACC?bear_acc:bear, style=columns, color=maroon)
plot(title='Bull', series=SHOW_REM?rem_bull:SHOW_ACC?bull_acc:bull, style=columns, color=green)