initial commit / add all books

1 files changed, 13 insertions, 0 deletions

diff --git a/623/CH21/EX4.4.9/U4_C4_9.sce b/623/CH21/EX4.4.9/U4_C4_9.sce
new file mode 100755
index 000000000..142501d27
--- /dev/null
+++ b/623/CH21/EX4.4.9/U4_C4_9.sce
@@ -0,0 +1,13 @@
+//variable initialization

+m=9.1*10^-31;                                                                   //mass of electron (Kg)

+h=1.054*10^-34;                                                                 //Plank's constant (Js)

+B=5                                                                             //magnetic field (T)

+lembda=1210                                                                     //wavelength of spectral line (Å)

+M=[1 0 -1 1 0 -1];                                                              //value of Ml+2*Ms

+ch=12400                                                                        //product of speed of light and Plank's constant (eV*Å)

+

+//calculation

+dE=(h/(2*m))*B*M;                                                               //value of dE(upper)-dE(lower) (eV)

+dlembda=(lembda^2/ch)*dE;                                                       //wavelengths of the spectral lines in the pattern (Å)

+

+printf("\nwavelengths of the line = %.0f+%.3f, %.0f+%.0f, %.0f%.3f Å",lembda,dlembda(1),lembda,dlembda(2),lembda,dlembda(3));