分享一个画球体的程序

Allevi

分享一个画球体的程序
clc,clear
+ F& f8 K. q6 ?, |9 x+ D3 ^t=linspace(0,pi,25);
p=linspace(0,2*pi,25);
[theta,phi]=meshgrid(t,p);
, y% |% c2 [4 x1 }, |: w$ Zx=sin(theta).*sin(phi);
7 g9 x: d. V% Y8 T7 i, E! ~y=sin(theta).*cos(phi);
z=cos(theta);
. W9 N/ p3 i" Z) n+ z/ m  N4 A! U[m,n]=size(z);
re=[1 0 0];%改数字 改变颜色、数字为0-1
) f3 N; D" t- Dcolormap(re)
* F1 S/ ?- H& T6 y" X+ UsuRF(x,y,z);
daspect([1,1,1])
$ z1 C: e0 u$ }8 r6 g, F6 D2 ~camlight
grid on
lighting gouraud
shading interp
; o- I8 b# K2 _% y( laxis equal;

MOTOACE

看看楼主的代码。