matlab画圆台

%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