diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3547/CH3/EX3.11/Ex3_11.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '3547/CH3/EX3.11/Ex3_11.sce')
| -rw-r--r-- | 3547/CH3/EX3.11/Ex3_11.sce | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/3547/CH3/EX3.11/Ex3_11.sce b/3547/CH3/EX3.11/Ex3_11.sce new file mode 100644 index 000000000..456addb3b --- /dev/null +++ b/3547/CH3/EX3.11/Ex3_11.sce @@ -0,0 +1,33 @@ +// Example no.3.11
+// To calculate (a) the optical gain coefficient Γg required to balance the cavity loss and (b) the threshold electron density Ne
+// Page no.135
+
+clc;
+clear;
+
+// Given data
+L=320*10^-6; // Cavity length
+R1=0.35; // The reflectivity of ligth wave which is reflected at A
+R2=0.35; // The reflectivity of ligth wave which is reflected at B
+aint=10^3; // Internal cavity loss in m^-1
+c=3*10^8; // Speed of ligth in air
+Go=1.73*10^-12; // Gain coefficient in m^3/s
+Neo=3.47*10^23; // The value of the carrier density at which the gain coefficient becomes zero in m^-3
+n=3.3; // Refractive index of medium
+
+// (a) the optical gain coefficient Γg required to balance the cavity loss
+amir=(1/(2*L))*log(1/(R1*R2)); // The loss due to mirrors per m
+acav=amir+aint; // The total cavity loss coefficient
+gammag=acav; // The optical gain coefficient in m^-1
+
+// Displaying the result in command window
+printf('\n The optical gain coefficient = %0.2f X 10^3 m^-1',gammag*10^-3);
+
+//(b) the threshold electron density Ne
+v=c/n; // Velocity of ligth in medium
+Tph=1/(v*acav); // The photon lifetime in sec
+Neth=Neo+1/(Go*Tph); // The threshold electron density Ne
+
+// Displaying the result in command window
+printf('\n The threshold electron density = %0.2f X 10^23 m^-3',Neth*10^-23);
+
|