2 files changed, 47 insertions, 0 deletions
diff --git a/24/CH40/EX40.1/Example40_1.sce b/24/CH40/EX40.1/Example40_1.sce
new file mode 100755
index 000000000..7f5ec29bd
--- /dev/null
+++ b/24/CH40/EX40.1/Example40_1.sce
@@ -0,0 +1,33 @@
+exec('quantum.sci', -1)
+
+//Given that
+L = 100*10^-12  //in m
+
+//Sample Problem 40-1a
+printf("**Sample Prblem 40-1a**\n")
+n = 1  //for min energy
+Emin = Ediff(n, 0, Me, L)
+printf("The least possible energy is %1.2fev\n", Emin/conv)
+
+//Sample Problem 40-1b
+printf("\n**Sample Prblem 40-1b**\n")
+n2 = 3
+n1 = 1
+deltaE13 = Ediff(n2, n1, Me, L)
+printf("The energy to be transferred is %1.2fev\n", deltaE13/conv)
+
+//Sample Problem 40-1c
+printf("\n**Sample Prblem 40-1c**\n")
+lambda = wavelength(deltaE13)
+printf("The wavelength of photon is %1.2fnm\n", lambda*10^9)
+
+//Sample Problem 40-1d
+printf("\n**Sample Prblem 40-1d**\n")
+deltaE12 = Ediff(2, 1, Me, L)
+lambda1 = wavelength(deltaE12)
+deltaE23 =  Ediff(3, 2, Me, L)
+lambda2 = wavelength(deltaE23)
+printf("The possible wavelength of photon is :\n")
+printf("\t %1.2fnm\n", lambda*10^9)
+printf("\t %1.2fnm\n", lambda1*10^9)
+printf("\t %1.2fnm", lambda2*10^9)
+\ No newline at end of file
diff --git a/24/CH40/EX40.1/Example40_1_result.txt b/24/CH40/EX40.1/Example40_1_result.txt
new file mode 100755
index 000000000..d4635c1c1
--- /dev/null
+++ b/24/CH40/EX40.1/Example40_1_result.txt
@@ -0,0 +1,14 @@
+**Sample Prblem 40-1a**
+The least possible energy is 37.58ev
+
+**Sample Prblem 40-1b**
+The energy to be transferred is 300.66ev
+
+**Sample Prblem 40-1c**
+The wavelength of photon is 4.13nm
+
+**Sample Prblem 40-1d**
+The possible wavelength of photon is :
+	 4.13nm
+	 11.01nm
+	 6.61nm
+\ No newline at end of file