分享一个画球体的程序

Allevi

分享一个画球体的程序
clc,clear
t=linspace(0,pi,25);
8 y  @" g9 u. L2 u; t' L) c) Zp=linspace(0,2*pi,25);
[theta,phi]=meshgrid(t,p);
5 U8 T$ q- ]* tx=sin(theta).*sin(phi);
y=sin(theta).*cos(phi);
( m: ~9 |+ b# S9 cz=cos(theta);
[m,n]=size(z);
re=[1 0 0];%改数字 改变颜色、数字为0-1
colormap(re)
% }( ^2 ^0 X6 ~+ `4 t- ~0 m, vsuRF(x,y,z);
daspect([1,1,1])
( `& Z* M' r2 N& U9 T$ `2 ]camlight
grid on
, O- a' d" {% _, ]! v- _lighting gouraud
shading interp
axis equal;

MOTOACE

看看楼主的代码。