0001 function vic(index,x,y,v1,v2,col,num)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011 figure(num),clf
0012 subplot(2,2,1)
0013 trisurf(index,x,y,v1),shading interp, view(2),colorbar
0014 hold on,a=caxis;
0015 title(inputname(4))
0016 subplot(2,2,2)
0017 trisurf(index,x,y,v2),shading interp, view(2),caxis(a),colorbar
0018 title(inputname(5))
0019
0020 hold on
0021 subplot(2,2,3)
0022 trisurf(index,x,y,v2-v1),shading interp, view(2),caxis(col),colorbar
0023 hold on
0024 a=[inputname(5) ' - ' inputname(4)];
0025 title(a)