Advertisement
Guest User

Untitled

a guest
May 7th, 2018
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Octave 0.40 KB | None | 0 0
  1. for i = 2:ny
  2.   Vinl = [];
  3.   for j = 2:nx
  4.     vals = [V(i - 1,j-1:j), V(i, j-1:j)];
  5.     datMat = [vals; xDeriv(V, i, j); yDeriv(V, i , j)];
  6.     if(j == 2)
  7.       Vinl = [Vinl, interpolationFunction(datMat, len)];
  8.     else
  9.       Vinl = [Vinl, interpolationFunction(datMat, len)(:, 2:end)];
  10.     end
  11.   end
  12.   if(i == 2)
  13.     Vinter = [Vinter; Vinl];
  14.   else
  15.     Vinter = [Vinter; Vinl(2:end, :)];
  16.   end
  17. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement