分享一个画球体的程序

Allevi

分享一个画球体的程序
clc,clear
t=linspace(0,pi,25);
p=linspace(0,2*pi,25);
[theta,phi]=meshgrid(t,p);
  F. L( N2 l; }& @7 r: px=sin(theta).*sin(phi);
7 f% s5 m9 W' g# ]9 [1 Oy=sin(theta).*cos(phi);
z=cos(theta);
  S8 z' g" @1 Z3 x[m,n]=size(z);
re=[1 0 0];%改数字 改变颜色、数字为0-1
colormap(re)
  Z5 B+ I) @. ]! W* U8 a3 lsuRF(x,y,z);
daspect([1,1,1])
( i- O6 B$ ~4 G6 U7 H6 P6 Lcamlight
grid on
, s9 ]1 Y5 u9 V6 [" @lighting gouraud
shading interp
4 C3 }" @$ ]  d% Z+ u: ~. y: aaxis equal;

, b$ v0 j& h4 a  K

MOTOACE

看看楼主的代码。