plottauf

 plot tangent from pre/sfname.mat

0001 function plottauf(pre,sfname,wnr,cnr,pstyle) 
0002 % plot tangent from pre/sfname.mat
0003 ffname=[pre '/' sfname '.mat'];tname=[pre sfname]; 
0004 s=load(ffname,'p'); p=s.p; fprintf('lam=%g\n',p.lam); 
0005 figure(wnr); n0=(cnr-1)*p.np+1; n1=cnr*p.np;
0006 if pstyle==1 pdemesh(p.points,p.edges,p.tria,p.tau(n0:n1)); end 
0007 if pstyle==2 pdeplot(p.points,p.edges,p.tria,'xydata',p.tau(n0:n1)); end 
0008 axis tight; box on; colormap gray; 
0009 if(p.neq>1) title(['\fontsize{16}\tau_' mat2str(cnr) ' at ' tname]); 
0010 else title(['\fontsize{16}\tau at ' fname]); end 
0011 if(p.labelsw) xlabel('x','FontSize',p.fs); ylabel('y','FontSize',p.fs); end;
0012 set(gca,'FontSize',p.fs);