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

---
 2288/CH3/EX3.21.23/ex3_21_23.sce | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 2288/CH3/EX3.21.23/ex3_21_23.sce

(limited to '2288/CH3/EX3.21.23/ex3_21_23.sce')

diff --git a/2288/CH3/EX3.21.23/ex3_21_23.sce b/2288/CH3/EX3.21.23/ex3_21_23.sce
new file mode 100755
index 000000000..82a1ed2cd
--- /dev/null
+++ b/2288/CH3/EX3.21.23/ex3_21_23.sce
@@ -0,0 +1,21 @@
+// Exa 3.21.23
+clc;
+clear;
+close;
+// Given data
+I_o = 10;// in mW
+e = 1.6 * 10^-19;// in J/eV
+hv = 2;// in eV
+hv1=1.43;// in eV
+alpha = 5 * 10^4;// in cm^-1
+l = 46;// in µm
+l = l * 10^-6;// in m
+I_t = round(I_o * exp(-(alpha) * l));// in mW
+AbsorbedPower= I_o-I_t;// in mW
+AbsorbedPower=AbsorbedPower*10^-3;// in W or J/s
+disp(AbsorbedPower,"The absorbed power in watt or J/s is");
+F= (hv-hv1)/hv;// fraction of each photon energy unit
+EnergyConToHeat= AbsorbedPower*F;// in J/s
+disp(EnergyConToHeat,"The amount of energy converted to heat per second in J/s is : ")
+A= (AbsorbedPower-EnergyConToHeat)/(e*hv1);
+disp(A,"The number of photon per sec given off from recombination events in photons/s is");
-- 
cgit