1 files changed, 20 insertions, 0 deletions
diff --git a/1979/CH6/EX6.13/Ex6_13.sce b/1979/CH6/EX6.13/Ex6_13.sce
new file mode 100755
index 000000000..3d866e2a0
--- /dev/null
+++ b/1979/CH6/EX6.13/Ex6_13.sce
@@ -0,0 +1,20 @@
+//chapter-6 page 244 example 6.13
+//==============================================================================
+clc;
+clear;
+
+wg=7.2;//guide wavelength in cm
+x=10.5;//Position of reference null without the waveguide component in cm
+y=9.3;//Position of reference null with the waveguide component in cm
+
+//CALCULATION
+z=x-y;//Path difference introduced due to the component in cm
+p=(2*(%pi)*(z/wg));//Phase difference introduced in rad
+Pd=(p*180)/(%pi);//Phase shift introduced in deg
+
+//OUTPUT
+mprintf('\nPhase shift introduced is Pd=%2.0f deg',Pd);
+
+//=========================END OF PROGRAM===============================
+
+