4 files changed, 94 insertions, 0 deletions
diff --git a/1979/CH5/EX5.1/Ex5_1.sce b/1979/CH5/EX5.1/Ex5_1.sce
new file mode 100755
index 000000000..f08cac594
--- /dev/null
+++ b/1979/CH5/EX5.1/Ex5_1.sce
@@ -0,0 +1,23 @@
+//chapter-5 page 174 example 5.1
+//==============================================================================
+clc;
+clear;
+
+//For a circular waveguide 
+a=3;//radius in cm
+f0=10*10^9;//resonant frequency of a circular resonator in Hz
+disp('Given the mode of operator is TM011 so here n=0,m=1,p=1');
+c=3*10^10;//Velocity of light in cm/sec
+m=1;
+n=0;
+p=1;
+Pnm=2.405;//dominant mode value[TM01]
+
+//CALCULATION
+d=((p*(%pi))/(sqrt((2*(%pi)*f0/c)^2-(Pnm/a)^2)));//The minimum distance between the two end plates in cms
+
+//OUTPUT
+mprintf('\nThe minimum distance between the two end plates of a circular waveguide is d=%1.2f cms',d);
+
+//=========================END OF PROGRAM===============================
+
diff --git a/1979/CH5/EX5.2/Ex5_2.sce b/1979/CH5/EX5.2/Ex5_2.sce
new file mode 100755
index 000000000..ace8ad6c1
--- /dev/null
+++ b/1979/CH5/EX5.2/Ex5_2.sce
@@ -0,0 +1,24 @@
+//chapter-5 page 174 example 5.2
+//==============================================================================
+clc;
+clear;
+
+//For a rectangular cavity resonator 
+a=2;//breadth in cm
+b=1;//height in cm
+l=3;//length of rectangular waveguide in cm
+disp('Lowest resonant frequency is obtained for the dominant mode TE10[f=c/w where w increases as f decreases. In dominant mode wc is maximum]');
+disp('So the dominant mode is TE101 so here m=1,n=0,p=1');
+c=3*10^10;//Velocity of light in cm/sec
+m=1;
+n=0;
+p=1;
+
+//CALCULATION
+f0=((c/2)*sqrt((m/a)^2+(n/b)^2+(p/l)^2))/10^9;//The resonant frequency of a rectangular cavity resonator in GHz
+
+//OUTPUT
+mprintf('\nThe resonant frequency of a rectangular cavity resonator is f0=%1.0f GHz',f0);
+
+//=========================END OF PROGRAM===============================
+
diff --git a/1979/CH5/EX5.3/Ex5_3.sce b/1979/CH5/EX5.3/Ex5_3.sce
new file mode 100755
index 000000000..6d64c7c4a
--- /dev/null
+++ b/1979/CH5/EX5.3/Ex5_3.sce
@@ -0,0 +1,24 @@
+//chapter-5 page 175 example 5.3
+//==============================================================================
+clc;
+clear;
+
+//For a circular resonator 
+D=12.5;//diameter in cm
+l=5;//length of circular waveguide in cm
+disp('Given the mode of operator is TM012 so here n=0,m=1,p=2');
+c=3*10^10;//Velocity of light in cm/sec
+m=1;
+n=0;
+p=2;
+Pnm=2.405;//dominant mode value[TM01]
+
+//CALCULATION
+a=D/2;//radius in cm
+f0=((c/(2*(%pi)))*sqrt((Pnm/a)^2+((p*(%pi))/l)^2))/10^9;//The resonant frequency of a circular resonator in GHz
+
+//OUTPUT
+mprintf('\nThe resonant frequency of a circular resonator is f0=%1.2f GHz',f0);
+
+//=========================END OF PROGRAM===============================
+
diff --git a/1979/CH5/EX5.4/Ex5_4.sce b/1979/CH5/EX5.4/Ex5_4.sce
new file mode 100755
index 000000000..6a4fe44a4
--- /dev/null
+++ b/1979/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,23 @@
+//chapter-5 page 175 example 5.4
+//==============================================================================
+clc;
+clear;
+
+//For a circular resonator 
+a=3;//radius in cm
+b=2;//dimension in cm
+l=4;//length of circular waveguide in cm
+disp('Given the mode of operator is TE101 so here m=1,n=0,p=1');
+c=3*10^10;//Velocity of light in cm/sec
+m=1;
+n=0;
+p=1;
+
+//CALCULATION
+f0=((c/2)*sqrt((m/a)^2+(n/b)^2+(p/l)^2))/10^9;//The resonant frequency of a circular resonator in GHz
+
+//OUTPUT
+mprintf('\nThe resonant frequency of a circular resonator is f0=%1.2f GHz',f0);
+
+//=========================END OF PROGRAM===============================
+