huituqm.m

来自「包括MATLAB7.0实用指南（1）书中所有的例子的源代码。」· M 代码 · 共 14 行

k=5;
n=2^k-1;
theta=pi*(-n:2:n)/n;
phi=(pi/2)*(-n:2:n)'/n;
x=cos(phi)*cos(theta);
y=cos(phi)*sin(theta);
z=sin(phi)*ones(size(theta));
colormap([0 0 0;1 1 1])
C=hadamard(2^k);
surf(x,y,z,C)
axis square