clc
clear?all
close?all

R1=20;
theta=0;
h=90;
l=15;

r=linspace（0R1）;
fai=linspace（02*pi）;
[RT]=meshgrid（rfai）;
x=cos（fai‘）*r;
y=sin（fai‘）*r;
z=h*T/（2*pi）-R*tan（theta*pi/180）;
surf（xyz）;
shading?interp
hold?on
axis?off
ll=2:l;
for?n=1:length（ll）
????
???????l2=ll（n）;
??????r=linspace（0R1）;
??????fai_l=linspace（2*n*pi/l（2+2*n/l）*pi）;
??????[RT]=meshgrid（rfai_l）;
??????x=cos（fai_l‘）*r;
??????y=sin（fai_l‘）*r;
??????zn=h*T/（2*pi）-R*tan（theta*pi/180）-n*h/l;
??????surf（xyzn）;
??????hold?on
?????shading?interp
?????axis?off
end
hold?on

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件?????????547??2016-04-19?12:04??OAM1184.m
?????目錄???????????0??2016-04-19?16:01??__MACOSX\
?????文件?????????120??2016-04-19?12:04??__MACOSX\._OAM1184.m