# NEOTICKER DATA BEGIN
ScriptType=Indicator
Description=TASC Inverse Fisher RSI Transform
Name=SVE_InvFisher_RSI
Language=Formula
Links=1
MinBars=0
TimerInterval=100
EarlyBinding=0
MetaStyle=Normal
ValueRange=Same as Source
Placement=Smart
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=2
Param_name_0=RSI Period
Param_inuse_0=1
Param_type_0=integer.gte.1
Param_default_0=4
Param_name_1=Exponential Moving Average Period
Param_inuse_1=1
Param_type_1=integer.gte.1
Param_default_1=4
Explanation_Lines=0
# NEOTICKER DATA END

$RSIper := choose(param1 > 30, 30, param1 < 2, 2, param1);
$EMAper := choose(param2 > 100, 100, param2 < 1, 1, param2);

RainbW :=
 (5*waverage(data1,2) +
  4*waverage(waverage(data1,2),2) +
  3*waverage(waverage(waverage(data1,2),2),2) +
  2*waverage(waverage(
    waverage(waverage(data1,2),2),2),2) +
  waverage(waverage(
    waverage(waverage(
      waverage(data1,2),2),2),2),2) +
  waverage(waverage(
    waverage(waverage(
      waverage(waverage(data1,2),2),2),2),2),2) +
  waverage(waverage(
    waverage(waverage(
      waverage(waverage(
        waverage(data1,2),2),2),2),2),2),2) +
  waverage(waverage(
    waverage(waverage(
      waverage(waverage(
        waverage(waverage(data1,2),2),2),2),2),2),2),2) +
  waverage(waverage(
    waverage(waverage(
      waverage(waverage(
        waverage(waverage(
          waverage(data1,2),2),2),2),2),2),2),2),2) +
  waverage(waverage(
    waverage(waverage(
      waverage(waverage(
        waverage(waverage(
          waverage(waverage(data1,2),2),2),2),2),2),2),2),2),2))/20;
x := 0.1*(rsindex(RainbW, $RSIper)-50);
EMA1 := xaverage(x, $EMAper);
EMA2 := xaverage(EMA1, $EMAper);
$Difference := EMA1-EMA2;
ZlEma := EMA1 + $Difference;
plot1 := ((exp(2*ZlEma)-1)/(exp(2*ZlEma)+1)+1)*50;