Code: Select all

study("Recursive Stochastic")
      length = input(200),alpha = input(0.1,minval=0,maxval=1)
      //
      src = input(close)
      s(x) =>
          s = stoch(x,x,x,length)
      st = s(src)
      k = s(alpha*st+(1-alpha)*nz(k[1]))