summaryrefslogtreecommitdiff
path: root/1979/CH4/EX4.8
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1979/CH4/EX4.8
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1979/CH4/EX4.8')
-rwxr-xr-x1979/CH4/EX4.8/Ex4_8.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/1979/CH4/EX4.8/Ex4_8.sce b/1979/CH4/EX4.8/Ex4_8.sce
new file mode 100755
index 000000000..850d61c5a
--- /dev/null
+++ b/1979/CH4/EX4.8/Ex4_8.sce
@@ -0,0 +1,21 @@
+//chapter-4 page 147 example 4.8
+//==============================================================================
+clc;
+clear;
+
+a=10;//breadth of a rectangular waveguide in cm
+f=2.5*10^9;//Frequency in Hz in TE10 mode
+c=3*10^10;//Velocity of Light in cm/sec
+
+//CALCULATION
+wc=2*a;//Cutoff wavelength for TE10 mode in cm
+w0=(c/f);//Free space wavelength in cm
+x=sqrt(1-(w0/wc)^2);
+wg=(w0/x);//Guide wavelength in cm
+Vp=(c/x)/10^5;//Phase Velocity in Km/sec
+Vg=((c^2)/Vp)/10^10;//Group Velocity in Km/sec
+
+//OUTPUT
+mprintf('\nCutoff wavelength for TE10 mode is wc=%2.0f cm \nGuide wavelength is wg=%2.0f cm \nPhase Velocity is Vp=%7.2f Km/sec \nGroup Velocity is Vg=%6.2f Km/sec',wc,wg,Vp,Vg);
+
+//=========================END OF PROGRAM===============================