From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 401/CH3/EX3.12/Example3_12.sce | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 401/CH3/EX3.12/Example3_12.sce

(limited to '401/CH3/EX3.12')

diff --git a/401/CH3/EX3.12/Example3_12.sce b/401/CH3/EX3.12/Example3_12.sce
new file mode 100755
index 000000000..e892d49c0
--- /dev/null
+++ b/401/CH3/EX3.12/Example3_12.sce
@@ -0,0 +1,26 @@
+//Example 3.12
+//Program to determine modal birefringence, coherence length and difference between propagation constants for the two orthogonal modes 
+
+clear;
+clc ;
+close ;
+
+//Given data
+lambda=0.9*10^(-6);   //metre - PEAK WAVELENGTH 
+Lb=9*10^(-2);         //metre - BEAT LENGTH
+del_lambda=1*10^(-9); //metre - SPECTRAL LINE WIDTH
+
+//Modal Birefringence
+Bf=lambda/Lb;
+
+//Coherence Length
+Lbc=lambda^2/(Bf*del_lambda);
+
+//Difference between propagation constants for the two orthogonal 
+//modes 
+Bx_minus_By=2*%pi/Lb;
+
+//Displaying the Results in Command Window
+printf("\n\n\t The Modal birefringence  is %1.0f X 10^(-5) .",Bf/10^(-5));
+printf("\n\n\t The Coherence Length is %d m.",round(Lbc));
+printf("\n\n\t The difference between propagation constants for the two orthogonal modes is %0.1f .",Bx_minus_By);
\ No newline at end of file
-- 
cgit