summaryrefslogtreecommitdiff
path: root/63/CH10/EX10.3/Exa10_3.sci
blob: 3e8a35eafe465cbb2605d847fc035b7d0691fde8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//Determine (a) The cutoff wavelength for the dominant mode (b) The wavelength in a waveguide, also for the dominant mode (c) The corresponding ground and phase velocities

a = 3;
m = 1;
vc = 3e+10;
f = 6e+9;

lambda0 = (2*a)/m;
lambda = vc/f;

rho = sqrt(1 - (lambda/lambda0)^2);

lambdap = lambda/rho;

vg = vc*rho;
vp = vc/rho;

disp(lambda0, 'Cutoff wavelength for the dominant mode is (in cm) ')
disp(lambdap, 'Wavelength in a waveguide for the dominant mode (in cm) ')
disp(vg, 'Group Velocities (in m/s) ')
disp(vp, 'Phase Velocities (in m/s) ')