对涡旋光场光波传输进行仿真

对涡旋光场光波传输进行仿真，对于不同拓普电荷情况仿真输出。

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