%circular truncated cone
clc,clear
%Create ’xyz‘ coordinate value
t = 2*pi:-pi/10:pi;
[x,y,z]=cylinder(20*t,35);
%Set color
colormap([0.77 0.61 0.4]);
surf(x,y,z)
%Title, etc.
title('circular truncated cone')
set(gca,'xticklabel',[])
set(gca,'yticklabel',[])
set(gca,'zticklabel',[])
m=ones(400,3);
for ii=11:11:400
%Convert to double type and assign to m
m(ii,1)=str2num(num2str(x(ii)));
m(ii,2)=str2num(num2str(y(ii)));
end
%Top circle coordinates
n=ones(36,3);
for k=1:1:36
n(k,1)=m(k*11,1);
n(k,2)=m(k*11,2);
end
% Top circle fill color
F = { [1:36] };
for i = 1 : length(F)
fac = F{i};
patch('vertices', n, 'faces', fac, 'facecolor', [0.77 0.61 0.4]);
end
matlab画圆台
猜你喜欢
转载自blog.csdn.net/qq_43625266/article/details/104832174
今日推荐
周排行