summaryrefslogtreecommitdiff
path: root/2309/CH2/EX2.a.6/A_Ex2_6.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2309/CH2/EX2.a.6/A_Ex2_6.sce
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 '2309/CH2/EX2.a.6/A_Ex2_6.sce')
-rwxr-xr-x2309/CH2/EX2.a.6/A_Ex2_6.sce24
1 files changed, 24 insertions, 0 deletions
diff --git a/2309/CH2/EX2.a.6/A_Ex2_6.sce b/2309/CH2/EX2.a.6/A_Ex2_6.sce
new file mode 100755
index 000000000..21cd9551a
--- /dev/null
+++ b/2309/CH2/EX2.a.6/A_Ex2_6.sce
@@ -0,0 +1,24 @@
+// Chapter 2 addl_Example 6
+//==============================================================================
+clc;
+clear;
+
+//input data
+h = 6.625*10^-34; // planck's constant
+c = 3*10^8; // vel. of light in m/s
+lamda = 5000*10^-10; // wavelength for optical region in m
+T = 300 // Temperature in Kelvin
+Kb = 1.38*10^-23 // Boltzmann constant
+
+// Calculations
+// let R = Rsp/Rst
+R = exp((h*c)/(lamda*Kb*T)) - 1; // ratio of spontaneous to stimulated emission
+if R<1 then
+ mprintf('Since the spontaneous emission is lesser than stimulated emission \n hence LASER action is possible at thermal equilibrium' )
+else
+
+ mprintf('Since the spontaneous emission is more predominant than stimulated emission \n hence LASER action is not possible at optical frequencies under thermal equilibrium' )
+end
+
+//==============================================================================
+