分享一个画球体的程序

Allevi

分享一个画球体的程序
clc,clear
t=linspace(0,pi,25);
p=linspace(0,2*pi,25);
) A4 q9 B# U0 {9 y; U[theta,phi]=meshgrid(t,p);
x=sin(theta).*sin(phi);
y=sin(theta).*cos(phi);
* h' i( ~) O5 G+ {3 `z=cos(theta);
[m,n]=size(z);
0 f( J' }) ^9 @  b' ure=[1 0 0];%改数字 改变颜色、数字为0-1
* P: b' Q7 T: L/ H) Tcolormap(re)
2 v  O3 P* }) E' k: BsuRF(x,y,z);
daspect([1,1,1])
camlight
grid on
lighting gouraud
+ T% _' V6 r2 m" O' y* R9 Wshading interp
axis equal;

MOTOACE

看看楼主的代码。