Home

Introduction

Contents

Scripts

FeedBack

Date 06/09/2010
Script S1_2_15.m
Download 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