p122.m

来自「源代码集合」· M 代码 · 共 13 行

subplot(221), sphere(3), title('N=3')
subplot(222), sphere(6), title('N=6')
subplot(223), sphere, title('N=20')
subplot(224), sphere(50), title('N=50')

t=0:.2:2*pi; R=cos(t); cylinder(R)

R=[5 0];
subplot(221), cylinder(R,3), title('N=3')
subplot(222), cylinder(R,6), title('N=6')
subplot(223), cylinder(R), title('N=20')
subplot(224), cylinder(R,50), title('N=50')