exm07419_1.m

这是本人收集的一些程序源代码

%exm07419_1.m
clf;shg
clear;
[X,Y,Z]=peaks(40);					%获得peaks图形数据
n=4;										%等高线分级数
subplot(1,2,1),pcolor(X,Y,Z)		%伪彩图
colormap jet,shading interp
hold on,C=contour(X,Y,Z,n,'k:');	%用黑虚线画等位线，并给出标识数据。
clabel(C)								%随机标识法
zmax=max(max(Z));zmin=min(min(Z));
caxis([zmin,zmax])					%决定色标尺的范围
colorbar									%画垂直色标尺
hold off,subplot(1,2,2)
[C,h,CF]=contourf(X,Y,Z,n,'k:');	%用黑虚线画填色等位线，并给出标识数据。
clabel(C,h)								%沿线标识法