summaryrefslogtreecommitdiff
path: root/1979/CH4/EX4.14/Ex4_14.sce
blob: f864aa80306fe6c6b9af692af7c62c8f19057018 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
//chapter-4 page 151 example 4.14
//==============================================================================
clc;
clear;

//For a rectangular waveguide
b=2.5;//Length of Rectangular Waveguide in cm
a=5;//breadth of Rectangular Waveguide in cm
c=3*10^10;//Velocity of Light in cm/sec
w0=4.5;//Free space wavelength in cm

//CALCULATION
disp('For a TE10 mode which is the dominant mode');
wc=2*a;//Cutoff wavelength in cm
wg=(w0/sqrt(1-(w0/wc)^2));//Guide wavelength in cm
Vp=(c/sqrt(1-(w0/wc)^2))/10^10;//Phase Velocity in 10^10 cm/sec
B=((2*(%pi)*sqrt(wc^2-w0^2))/(w0*wc));//Phase constant in radians

//OUTPUT
mprintf('\nGuide wavelength is wg=%1.5f cm \nPhase constant is B=%1.3f radians \nPhase Velocity is Vp=%1.2f *10^10 cm/sec',wg,B,Vp);

//=========================END OF PROGRAM===========================================

//Note: Check the answers once
//Correct answers are
//Guide wavelength is wg=5.03903 cm 
//Phase constant is B=1.247 radians 
//Phase Velocity is Vp=3.36 *10^10 cm/sec