Development and Application of Well-Test Model after Injection Biological Nanomaterials

Algorithm 1

    function y=iLaplaceStehfest(fs,t,N)

    n=length(t);

    y=zeros(1,n);

    for j =1:n

     V=0;

     for i=1:N

      v=0;

      for k = floor((i + 1)/2):min(i,N/2)

       v=v+k^(N/2)factorial(2k)/factorial(N/2-k)/factorial(k)...

        /factorial(k-1)/factorial(i-k)/factorial(2k-i);

      end

      v=v(-1)^(N/2+i);

      V=V+vfs(log(2)/t(j)i);

     end

     y(j) = log(2)/t(j)V;

end