![]() |
||||||
|
| Script S1_2_15.m | |||
|
|||
|
%==============================================
%A wave guide %============================================== % %lambda and h in micron lambda=0.65; h=5; %the max of m N=2*h/lambda %the angles teta varying m m=1:N arg=m*lambda/(2*h); teta=asin(arg); tetag=teta*180/pi %plot of teta in degree varying m plot(m,tetag,'ro-'),grid on title('teta in degree varying m') % %h in meters h_m=5.0e-06 %the speed of light c=3.0e+08; %the first value of teta %in radians tetam=teta(1) %and in degrees tetamg=tetam*180/pi costetam=cos(tetam) %the speed from A to A1 v=c*cos(tetam) %the paths AB and AA1 sentetam=sin(tetam) AB=h_m/sin(tetam) AA1=AB*cos(tetam) %the time from A to B tAB=AB/c %============================================== % |
|||
| Top | |||