matlab画转体_如何用MATLAB画五角星围绕其一对称轴旋转的旋转体？

clear all; clc; close all;

%% 画五角星

A = ones(2,5);

A(:,1) = [0 1]';

theta = 2*2*pi/5;

for i=2:5

A(:,i) = [cos(theta) sin(theta); -sin(theta) cos(theta)]*A(:, i-1);

end

A = [A A(:,1)];

%% 转换到3D空间内

B = [zeros(1,6); A];

plot3(B(1,:), B(2,:), B(3,:), 'linewidth', 3, 'color', 'y');

set(gcf, 'color', 'k')

set(gca,'nextplot','replacechildren');

axis off

axis equal

view(0,0);

%% 开始旋转

N = 100;

agl = linspace(0, 2*pi, N+1);

agl(end) = [];

F = moviein(N);

D = B;

for k = 1:N;

C = [cos(agl(k)) sin(agl(k)) 0;

-sin(agl(k)) cos(agl(k)) 0;

0 0 1];

for m = 1:6

D(:,m) = C*B(:,m);

end