summaryrefslogtreecommitdiff
path: root/2288/CH3/EX3.21.23/ex3_21_23.sce
diff options
context:
space:
mode:
Diffstat (limited to '2288/CH3/EX3.21.23/ex3_21_23.sce')
-rwxr-xr-x2288/CH3/EX3.21.23/ex3_21_23.sce21
1 files changed, 21 insertions, 0 deletions
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");