xref: /petsc/src/snes/tutorials/ex29view.m (revision c4762a1b19cd2af06abeed90e8f9d34fb975dd94)
1*c4762a1bSJed Brownfunction ex29view(v)
2*c4762a1bSJed Brown%
3*c4762a1bSJed Brown%   Matlab script that plots solution from ex29.c
4*c4762a1bSJed Brown%
5*c4762a1bSJed Brown[m,n] = size(v);
6*c4762a1bSJed Brownn     = sqrt(m/4);
7*c4762a1bSJed Brownw     = zeros(n,n);
8*c4762a1bSJed Browncnt   = 1;
9*c4762a1bSJed Brown
10*c4762a1bSJed Brownfor i=1:4
11*c4762a1bSJed Brown  w(:) = v(i:4:m);
12*c4762a1bSJed Brown  figure(i);
13*c4762a1bSJed Brown  surf(w);
14*c4762a1bSJed Brownend
15*c4762a1bSJed Brown
16*c4762a1bSJed Brown
17