分享一个画球体的程序

Allevi

分享一个画球体的程序
clc,clear
# `, a1 S* w5 _) Mt=linspace(0,pi,25);
p=linspace(0,2*pi,25);
1 l% U+ c& v; E( b8 S9 o[theta,phi]=meshgrid(t,p);
x=sin(theta).*sin(phi);
y=sin(theta).*cos(phi);
z=cos(theta);
( f6 i! x6 R& D[m,n]=size(z);
' F: L2 B/ U0 r' t3 Fre=[1 0 0];%改数字 改变颜色、数字为0-1
" s5 j% L" _* l% qcolormap(re)
7 q; C% A( V* e/ ?" ^* n) z5 ~3 U, ?suRF(x,y,z);
daspect([1,1,1])
camlight
grid on
lighting gouraud
  e; c- O3 w# d+ Jshading interp
0 `  B1 F% o, l* r4 }/ naxis equal;

MOTOACE

看看楼主的代码。