ex4_18.m

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

X=0:.2:pi; R=exp(-X.^2/2).*sin(X);
plot(R,X), axis('square')
figure; [x,y,z]=cylinder(R,20);
surf(x,y,z*pi), axis([-0.6,0.6,-0.6,0.6,0,pi])