1 files changed, 45 insertions, 0 deletions
diff --git a/3856/CH19/EX19.1/Ex19_1.sce b/3856/CH19/EX19.1/Ex19_1.sce
new file mode 100644
index 000000000..3ba657ad7
--- /dev/null
+++ b/3856/CH19/EX19.1/Ex19_1.sce
@@ -0,0 +1,45 @@
+//Calculate the number of Einstens absorbed per second and the Total energy absorbed
+
+//Example 19.1
+
+clc;
+
+clear;
+
+A=0.65; //Absorbance of complex ion 
+
+epsilion=1.11*10^4; //Molar absorptivity or Molar extinction coefficient in L mol^-1 cm^-1 
+
+b=1; //Pathlength in cm
+
+c1=A/(epsilion*b); //Concentraton in mol L^-1 or M
+
+m=(c1*35)/1000; //number of moles of Ferrus ion produced in mol
+
+q=0.93; //Quantum yield
+
+fi=m/q; //Number of Einstens absorbed in mol or einstein  
+
+t=30*60;  //Time irradiated with monochromatic light in s
+
+v=fi/t; //Rate of absorption in einstein s^-1
+
+printf("Number of Einstens absorbed per second = %.1f*10^-9 einstein s^-1",v*10^9);
+
+lemda=468*10^-9;  //Wavelength in m
+
+c=3.0*10^8;  //Speed of light in m s^-1
+
+new=c/lemda;  //Frequency of monochromatic light in s^-1
+
+h=6.626*10^-34; //Planck's constant in J s 
+
+NA=6.022*10^23;  //Avogadro's number in mol^-1 
+
+E=fi*NA*h*new; //Energy absorbed in J
+
+printf("\n Total Energy absorbed = %.2f J ",E);
+
+
+
+