plotsol

 plot component cnr of solution p.u in struct p to window wnr

0001 function plotsol(p,wnr,cnr,pstyle)
0002 % plot component cnr of solution p.u in struct p to window wnr
0003 figure(wnr); n0=(cnr-1)*p.np+1; n1=cnr*p.np; clf(wnr);
0004 if pstyle==1; pdemesh(p.points,p.edges,p.tria,p.u(n0:n1)); end 
0005 if pstyle==2; pdeplot(p.points,p.edges,p.tria,'xydata',p.u(n0:n1)); end 
0006 if pstyle==3; h=pdesurf(p.points,p.tria,p.u(n0:n1));view(10,40);
0007    light('Position',p.lpos,'Style','local','Color',[1 1 0]);
0008    lighting phong; 
0009    set(h,'FaceLighting','flat','FaceColor','interp','AmbientStrength',0.8); 
0010 end
0011 try colormap(p.cm); catch, colormap gray; end; % cool, jet, autumn, lines
0012 if pstyle==4; pdemesh(p.points,p.edges,p.tria); end 
0013 axis(p.axis); box on; 
0014 if p.labelsw xlabel('x','FontSize',p.fs); ylabel('y','FontSize',p.fs); end;
0015 set(gca,'FontSize',p.fs);