clear;clc;close all;
h1 =drawSphere(2.78,0,0,1.2);
hold on;colormap('default')
h2 =drawSphere(3.5,5,0,1.6);colormap('default')
hold on;
h2 =drawSphere(3.5,0,3,1.6);colormap('default')
hold on;
h2 =drawSphere(3.3,5,3,1.2);colormap('default')
hold on
shading interp % 去掉图像上的网格,即使之光滑
grid on
xlabel 时间
ylabel 方位角(°)
zlabel 高低角(°)
function h =drawSphere(r, centerx, centery, centerz, N)if nargin ==5[x,y,z]=sphere(N);else[x,y,z]=sphere(50);
end
h =mesh(r*x+centerx, r*y+centery, r*z+centerz);
shading interp
h.FaceColor =[0.50.50.5]%%mesh(r * a + x0 , r * b + y0 , r * c + z0 );%