initial commit / add all books

1 files changed, 21 insertions, 0 deletions

diff --git a/2720/CH3/EX3.21.23/ex3_21_23.sce b/2720/CH3/EX3.21.23/ex3_21_23.sce
new file mode 100755
index 000000000..82a1ed2cd
--- /dev/null
+++ b/2720/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");