# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=TASC Asymmetrical RSI
Name=tasc_arsi
Language=Formula
Links=1
MinBars=0
TimerInterval=100
EarlyBinding=0
MetaStyle=Normal
ValueRange=Same as Source
Placement=New Pane
Multiplot_num_plots=1
Multiplot_color_0=255
Multiplot_style_0=Line
Multiplot_width_0=1
Multiplot_enabled_0=1
Multiplot_breakstyle_0=0
UpdateByTick=0
FloatMarker=1
DepthData=0
TradingSystemUI=0
PrimaryLinkOnly=0
NotifyOnRemoval=0
Param_count=1
Param_name_0=period
Param_inuse_0=1
Param_type_0=integer.gte.0
Param_default_0=14
Explanation_Lines=0
# NEOTICKER DATA END

UpBar := data1-data1(1) >= 0;

$upcount := summation(UpBar, param1);
$dncount := param1-$upcount;

$upfactor := 1/($upcount*2-1);
$dnfactor := 1/($dncount*2-1);

Upmove := Upmove*(1-$upfactor)+
          if(UpBar>0, (data1-data1(1))*$upfactor, 0);
Dnmove := Dnmove*(1-$dnfactor)+
          if(UpBar=0, absvalue(data1-data1(1))*$dnfactor, 0);
$RS := Upmove/Dnmove;

plot1 := 100-(100/(1+$RS));