1

2

3

4

5

6

7

8

9

10

%% =========三角网线和三角曲面图========

figure;

X=6*pi*(rand(20,10)-0.5);Y=6*pi*(rand(20,10)-0.5);

R=sqrt(X.^2+Y.^2)+eps;Z=sin(R)./R;

tri=delaunay(X,Y); % 进行三角剖分

subplot(1,2,1),trimesh(tri,X,Y,Z);

title('三角网线');

subplot(1,2,2),trisurf(tri,X,Y,Z);

title('三角曲面图');

colormap(copper);brighten(0.5) % 增强亮度