From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 623/CH27/EX5.5.1/U5_C5_1.sce | 22 ++++++++++++++++++++++ 623/CH27/EX5.5.10/U5_C5_10.sce | 11 +++++++++++ 623/CH27/EX5.5.11/U5_C5_11.sce | 10 ++++++++++ 623/CH27/EX5.5.12/U5_C5_12.sce | 14 ++++++++++++++ 623/CH27/EX5.5.13/U5_C5_13.sce | 15 +++++++++++++++ 623/CH27/EX5.5.14/U5_C5_14.sce | 14 ++++++++++++++ 623/CH27/EX5.5.15/U5_C5_15.sce | 19 +++++++++++++++++++ 623/CH27/EX5.5.16/U5_C5_16.sce | 16 ++++++++++++++++ 623/CH27/EX5.5.17/U5_C5_17.sce | 12 ++++++++++++ 623/CH27/EX5.5.18/U5_C5_18.sce | 14 ++++++++++++++ 623/CH27/EX5.5.19/U5_C5_19.sce | 12 ++++++++++++ 623/CH27/EX5.5.2/U5_C5_2.sce | 21 +++++++++++++++++++++ 623/CH27/EX5.5.20/U5_C5_20.sce | 11 +++++++++++ 623/CH27/EX5.5.21/U5_C5_21.sce | 18 ++++++++++++++++++ 623/CH27/EX5.5.3/U5_C5_3.sce | 28 ++++++++++++++++++++++++++++ 623/CH27/EX5.5.4/U5_C5_4.sce | 10 ++++++++++ 623/CH27/EX5.5.5/U5_C5_5.sce | 26 ++++++++++++++++++++++++++ 623/CH27/EX5.5.6/U5_C5_6.sce | 9 +++++++++ 623/CH27/EX5.5.7/U5_C5_7.sce | 12 ++++++++++++ 623/CH27/EX5.5.8/U5_C5_8.sce | 29 +++++++++++++++++++++++++++++ 623/CH27/EX5.5.9/U5_C5_9.sce | 10 ++++++++++ 21 files changed, 333 insertions(+) create mode 100755 623/CH27/EX5.5.1/U5_C5_1.sce create mode 100755 623/CH27/EX5.5.10/U5_C5_10.sce create mode 100755 623/CH27/EX5.5.11/U5_C5_11.sce create mode 100755 623/CH27/EX5.5.12/U5_C5_12.sce create mode 100755 623/CH27/EX5.5.13/U5_C5_13.sce create mode 100755 623/CH27/EX5.5.14/U5_C5_14.sce create mode 100755 623/CH27/EX5.5.15/U5_C5_15.sce create mode 100755 623/CH27/EX5.5.16/U5_C5_16.sce create mode 100755 623/CH27/EX5.5.17/U5_C5_17.sce create mode 100755 623/CH27/EX5.5.18/U5_C5_18.sce create mode 100755 623/CH27/EX5.5.19/U5_C5_19.sce create mode 100755 623/CH27/EX5.5.2/U5_C5_2.sce create mode 100755 623/CH27/EX5.5.20/U5_C5_20.sce create mode 100755 623/CH27/EX5.5.21/U5_C5_21.sce create mode 100755 623/CH27/EX5.5.3/U5_C5_3.sce create mode 100755 623/CH27/EX5.5.4/U5_C5_4.sce create mode 100755 623/CH27/EX5.5.5/U5_C5_5.sce create mode 100755 623/CH27/EX5.5.6/U5_C5_6.sce create mode 100755 623/CH27/EX5.5.7/U5_C5_7.sce create mode 100755 623/CH27/EX5.5.8/U5_C5_8.sce create mode 100755 623/CH27/EX5.5.9/U5_C5_9.sce (limited to '623/CH27') diff --git a/623/CH27/EX5.5.1/U5_C5_1.sce b/623/CH27/EX5.5.1/U5_C5_1.sce new file mode 100755 index 000000000..68c846bbb --- /dev/null +++ b/623/CH27/EX5.5.1/U5_C5_1.sce @@ -0,0 +1,22 @@ +//function for calculating the wave number +function[wave]=F(j) + wave=B*j*(j+1); +endfunction + +//variable initialization +r=1.21*10^-10; //internuclear distance (meter) +m=2.7*10^-26; //mass of oxygen atom (kg) +h=6.626*10^-34; //Plank's constant (joule second) +c=3*10^8; //speed of light (meter/second) + +//(a) moment of inertia +mu=m/2; //reduced mass (kg) +I=mu*r^2; //moment of inertia (kg m^2) + +//(b) rotational constant +B=h/(8*%pi^2*I*c); //rotational constant (m-1) + +//(c) wave number +waveno=F(1)-F(0); //wave no. of the line corresponding to the transition J=0 to J=1 (m-1) + +printf("\n(a) I = %.3e kg m^2\n(b) B = %.1f m-1\n(c) wave number = %.0f m-1",I,B,waveno); diff --git a/623/CH27/EX5.5.10/U5_C5_10.sce b/623/CH27/EX5.5.10/U5_C5_10.sce new file mode 100755 index 000000000..373af0166 --- /dev/null +++ b/623/CH27/EX5.5.10/U5_C5_10.sce @@ -0,0 +1,11 @@ +//variable initialization +h=6.6*10^-34; //Plank's constant (joule second) +mu=1.62*10^-27; //reduced mass of HCl molecule (kg) +c=3*10^8; //speed of light (m/s) +v=2.886*10^5; //wave no. of absorption line in infrared spectrum (m-1) + +//calculation of amplitude of vibration +k=4*(%pi*c*v)^2*mu; //force constant of HCl molecule (N/m) +amp=sqrt((h*c*v)/k)*10^10; //amplitude of vibration in the ground state (Å) + +printf("\namplitude of vibration = %.2f Å",amp); diff --git a/623/CH27/EX5.5.11/U5_C5_11.sce b/623/CH27/EX5.5.11/U5_C5_11.sce new file mode 100755 index 000000000..c71463c42 --- /dev/null +++ b/623/CH27/EX5.5.11/U5_C5_11.sce @@ -0,0 +1,10 @@ +//variable initialization +v1=214330 //fundamental band for CO molecule (m-1) +v2=425970 //first overtone for CO molecule (m-1) +A=[1 -2;2 -6]; //coefficient matrix +b=[v1;v2]; //right hand side matrix + +//calculation +x=inv(A)*b; //values of omega and x*omega (m-1) + +printf("\nωe = %.0f m-1\nxe*ωe = %.0f m-1",x(1),x(2)); diff --git a/623/CH27/EX5.5.12/U5_C5_12.sce b/623/CH27/EX5.5.12/U5_C5_12.sce new file mode 100755 index 000000000..0241fe411 --- /dev/null +++ b/623/CH27/EX5.5.12/U5_C5_12.sce @@ -0,0 +1,14 @@ +//variable initialization +v1=288600 //intense absorption (m-1) +v2=566800 //intense absorption (m-1) +v3=834700 //intense absorption (m-1) +A=[1 -2;2 -6]; //coefficient matrix +b=[v1;v2]; //right hand side matrix +mu=1.61*10^-27; //reduced mass (kg) +c=3*10^8; //speed of light (m/s) + +//calculation +x=inv(A)*b; //values of omega and x*omega (m-1) +k=4*(%pi*c*x(1))^2*mu; //force constant (N/m) + +printf("\nωe = %.0f m-1\nxe*ωe = %.0f m-1\nforce constant = %.1f N/m",x(1),x(2),k); diff --git a/623/CH27/EX5.5.13/U5_C5_13.sce b/623/CH27/EX5.5.13/U5_C5_13.sce new file mode 100755 index 000000000..b5b30c979 --- /dev/null +++ b/623/CH27/EX5.5.13/U5_C5_13.sce @@ -0,0 +1,15 @@ +//variable initialization +v1=8.657*10^13; //frequency of rotation absorption spectrum (Hz) +v2=8.483*10^13; //frequency of rotation absorption spectrum (Hz) +h=6.6*10^-34; //Plank's constant (joule second) +mu=1.544*10^-27; //Recuced mass of CH molecule (kg) + +//(i) equilibrium separation +I=h/(2*%pi^2*(v1-v2)); //Moment of inertia (kg m^2) +r=sqrt(I/mu); //equilibrium internuclear distance (m) + +//(ii) force constant of molecule +v0=(v1+v2)/2; //Central frequency (Hz) +k=4*mu*(%pi*v0)^2; //Force constant of CH molecule (N/m) + +printf("\n (i) equilibrium separation = %.2e meter\n (ii) force constant = %.0f N/m",r,k); diff --git a/623/CH27/EX5.5.14/U5_C5_14.sce b/623/CH27/EX5.5.14/U5_C5_14.sce new file mode 100755 index 000000000..ac613b118 --- /dev/null +++ b/623/CH27/EX5.5.14/U5_C5_14.sce @@ -0,0 +1,14 @@ +//variable initialization +k=448 //force constant of CH molecule (N/m) +mu=4.002*10^-27; //reduced mass of CH molecule (kg) +r=0.112*10^-9; //internuclear distance (m) +h=6.6*10^-34; //Plank's constant (joule second) + +//Calculation of peak frequencies +v0=(1/(2*%pi))*sqrt(k/mu); //central frequency (s-1) +I=mu*r^2; //moment of inertia of molecule (kg m^2) +x=h/(4*%pi^2*I); //additional frequency (s-1) +v1=v0+x; //peak frequency (Hz) +v2=v0-x; //peak frequency (Hz) + +printf("\n Peak frequencies = %.3e Hz, %.3e Hz",v1,v2); diff --git a/623/CH27/EX5.5.15/U5_C5_15.sce b/623/CH27/EX5.5.15/U5_C5_15.sce new file mode 100755 index 000000000..1303183a7 --- /dev/null +++ b/623/CH27/EX5.5.15/U5_C5_15.sce @@ -0,0 +1,19 @@ +//variable initialization +v1=2174.07 //peak wave number (cm-1) +v2=2166.35 //peak wave number (cm-1) +h=6.6*10^-34; //Plank's constant (joule second) +c=3*10^8; //Speed of light (m/s) +mu=1.145*10^-26; //Reduced mass of CO molecule (kg) + +//(a) central frequency +B=(v1-v2)/4; //Rotational constant (cm-1) +v0=(v1+v2)/2; //Central frequency (cm-1) + +//(b) internuclear distance +I=h/(8*%pi^2*B*100*c); //moment of inertia of molecule (kg m^2) +r=sqrt(I/mu)*10^10; //equilibrium internuclear distance (Å) + +//(c) force constant +k=4*mu*(%pi*c*v0*100)^2; //force constant (N/m) + +printf("\n(a) central frequency = %.2f cm-1\n(b) internuclear distance = %.2f Å\n(c) force constant = %.0f N/m",v0,r,k); diff --git a/623/CH27/EX5.5.16/U5_C5_16.sce b/623/CH27/EX5.5.16/U5_C5_16.sce new file mode 100755 index 000000000..3b46c5cf0 --- /dev/null +++ b/623/CH27/EX5.5.16/U5_C5_16.sce @@ -0,0 +1,16 @@ +//variable initialization +mu=3.142*10^-27; //reduced mass of the molecule (kg) +r=1.288*10^-10; //internuclear distance (m) +h=6.6*10^-34; //Plank's constant (joule second) +c=3*10^8; //Speed of light (m/s) +v0=201100 //central frequency (m-1) + +//Calculation +I=mu*r^2; //moment of inertia of molecule (kg m^2) +B=h/(8*%pi^2*I*c); //Rotational constant (m-1) +vR0=v0+(2*B); //wave no. of 1st line of R-branch (m-1) +vR1=v0+(4*B); //wave no. of 2nd line of R-branch (m-1) +vP1=v0-(2*B); //wave no. of 1st line of P-branch (m-1) +vP2=v0-(4*B); //wave no. of 2nd line of P-branch (m-1) + +printf("\n V_R(0) = %.0f m-1\n V_R(1) = %.0f m-1\n V_P(1) = %.0f m-1\n V_P(2) = %.0f m-1",vR0,vR1,vP1,vP2); diff --git a/623/CH27/EX5.5.17/U5_C5_17.sce b/623/CH27/EX5.5.17/U5_C5_17.sce new file mode 100755 index 000000000..24ddadff4 --- /dev/null +++ b/623/CH27/EX5.5.17/U5_C5_17.sce @@ -0,0 +1,12 @@ +//variable initialization +mu=1.62*10^-27; //reduced mass of HCl molecule (kg) +r=1.293*10^-10; //internuclear distance (m) +h=6.6*10^-34; //Plank's constant (joule second) +c=3*10^8; //Speed of light (m/s) + +//Calculation of separation between lines R(0) and P(1) of the fundamental band of HCl 35 +I=mu*r^2; //moment of inertia of molecule (kg m^2) +B=h/(8*%pi^2*I*c); //Rotational constant (m-1) +sep=4*B; //separation b/w lines R(0) and P(1) (m-1) + +printf("\nΔν = %.0f m-1",sep); diff --git a/623/CH27/EX5.5.18/U5_C5_18.sce b/623/CH27/EX5.5.18/U5_C5_18.sce new file mode 100755 index 000000000..d9db6f9ad --- /dev/null +++ b/623/CH27/EX5.5.18/U5_C5_18.sce @@ -0,0 +1,14 @@ +//variable initialization +a=214.6*100; //(m-1) +b=0.6*100; //(m-1) +h=6.6*10^-34; //Plank's constant (joule second) +c=3*10^8; //Speed of light (m/s) +no=1/(%e); //number of molecules in state with respect to ground state +k=1.38*10^-23; //Boltzmann constant (J K-1) + +//Calculation +deltaE=h*c*(a-2*b); //difference in the energies of state 0 and state 1 (J) +T1=deltaE/k; //temperature at which number of molecules in state 1 is 1/e times of state 0 (K) +T2=deltaE/(k*log(10)); //temperature at which number of molecules in state 1 is 10% of state 0 (K) + +printf("n(i) T = %.0f K\n(ii) T = %.0f K",T1,T2); diff --git a/623/CH27/EX5.5.19/U5_C5_19.sce b/623/CH27/EX5.5.19/U5_C5_19.sce new file mode 100755 index 000000000..4aa796298 --- /dev/null +++ b/623/CH27/EX5.5.19/U5_C5_19.sce @@ -0,0 +1,12 @@ +//variable initialization +vexc=4358*10^-10; //wavelength of exciting line (m) +vsto=4458*10^-10; //wavelength of Stokes line (m) + +//calculation of wavelength of Anti-stokes line +vbar_exc=1/vexc; //wave number of exciting line (m-1) +vbar_sto=1/vsto; //wave number of Stokes line (m-1) +delta_vbar=vbar_exc-vbar_sto; //Raman shift (m-1) +vbar_antistoke=vbar_exc+delta_vbar; //Wave number of Anti-Stokes line (m-1) +lembda_antistoke=(1/vbar_antistoke)*10^10; //Wavelength of Anti-Stokes line (Å) + +printf("\nwavelength of Anti-stokes line = %.1f Å",lembda_antistoke); diff --git a/623/CH27/EX5.5.2/U5_C5_2.sce b/623/CH27/EX5.5.2/U5_C5_2.sce new file mode 100755 index 000000000..5e712bd26 --- /dev/null +++ b/623/CH27/EX5.5.2/U5_C5_2.sce @@ -0,0 +1,21 @@ +//function for calculating the energy level +function[energy]=F(j) + energy=a*j*(j+1); +endfunction + +//variable initialization +m=1.6738*10^-27; //mass of hydrogen atom (kg) +r=0.74*10^-10; //intermolecular distance of hydrogen molecule (meter) +h=1.054*10^-34; //Planck's constant (joule second) +e=1.6*10^-19; //Charge of electron (coulombs) + +//calculation of rotational energy levels +mu=m/2; //reduced mass of hydrogen atom (kg) +I=mu*r^2; //moment of inertia of molecule (kg meter^2) +a=h^2/(2*I*e); //constant (eV) +E0=F(0); //energy of level 0 (eV) +E1=F(1); //energy of level 1 (eV) +E2=F(2); //energy of level 2 (eV) +E3=F(3); //energy of level 3 (eV) + +printf("\nE0 = %.0f\nE1 = %.2e eV\nE2 = %.2e eV\nE3 = %.2e eV",E0,E1,E2,E3); diff --git a/623/CH27/EX5.5.20/U5_C5_20.sce b/623/CH27/EX5.5.20/U5_C5_20.sce new file mode 100755 index 000000000..9bf6d7c62 --- /dev/null +++ b/623/CH27/EX5.5.20/U5_C5_20.sce @@ -0,0 +1,11 @@ +//variable initialization +h=6.62*10^-34; //Plank's constant (joule second) +c=3*10^8; //Speed of light (m/s) +x=62.4*100; //(m-1) +y=41.6*100; //(m-1) + +//calculation of the moment of inertia of HCl molecule +B=y/4; //Rotational constant of HCl (m-1) +I=h/(8*%pi^2*B*c); //Moment of inertia (kg m^2) + +printf("\n I = %.1e kg m^2",I); diff --git a/623/CH27/EX5.5.21/U5_C5_21.sce b/623/CH27/EX5.5.21/U5_C5_21.sce new file mode 100755 index 000000000..05d4aac6d --- /dev/null +++ b/623/CH27/EX5.5.21/U5_C5_21.sce @@ -0,0 +1,18 @@ +//function for calculating the vibrational energy of O2 molecule +function[energy]=F(v) + energy=(((v+.5)*a)-(((v+.5)^2)*b))*h*c; +endfunction + +//variable initialization +h=6.62*10^-34; //Plank's constant (joule second) +c=3*10^8; //Speed of light (m/s) +a=1580.36*100; //value of ωe (m-1) +b=12.07*100; //value of ωexe (m-1) + +//Calculation of zero point energy +E0=F(0); //Zero point energy of the molecule (J) + +//Calculation of vibrational Raman shift +shift=(F(1)-F(0))/(h*c); //Expected vibrational Raman shift (m-1) + +printf("\nZero point energy = %.3e J\nExpected vibrational Raman shift = %.0f m-1",E0,shift); diff --git a/623/CH27/EX5.5.3/U5_C5_3.sce b/623/CH27/EX5.5.3/U5_C5_3.sce new file mode 100755 index 000000000..b3f1583f5 --- /dev/null +++ b/623/CH27/EX5.5.3/U5_C5_3.sce @@ -0,0 +1,28 @@ +//variable initialization +u=1.68*10^-27; //mass of hydrogen atom (kg) +m1=16; //mass of oxygen atom in terms u +m2=1; //mass of hydrogen atom in terms of u +I=1.48*10^-47; //moment of inertia of OH-radical (kg m^2) +h_bar=1.054*10^-34; //Planck's constant (joule second) +j=5; //energy level of OH-radical +c=3*10^8; //speed of light (meter/second) +h=6.626*10^-34; //Plank's constant (joule second) + +//(a) internuclear distance +mu=((m1*m2)/(m1+m2))*u; //reduced mass of the molecule (kg) +r=(sqrt(I/mu))*10^10; //internuclear distance of molecule (Å) + +//(b) angular momentum +P=h_bar*sqrt(j*(j+1)); //angular momentum of molecule (joule second) + +//(c) angular velocity +omega=P/I; //angular velocity of molecule (radian/second) + +//(d) wave number +B=h/(8*%pi^2*I*c); //rotational constant (m-1) +no=2*B*(j+1); //wave no. of line corresponding to transition j=5 to j=6 (m-1) + +//(e) energy absorbed +E=c*h*no; //energy absorbed in the transition j=6 to j=5 (joule) + +printf("\n(a) r = %.3f Å\n(b) J = %.2e joule second\n(c) ω = %.2e radian/second\n(d) wave number = %.2e m-1\n(e) E = %.1e joule",r,P,omega,no,E); diff --git a/623/CH27/EX5.5.4/U5_C5_4.sce b/623/CH27/EX5.5.4/U5_C5_4.sce new file mode 100755 index 000000000..233af4fe0 --- /dev/null +++ b/623/CH27/EX5.5.4/U5_C5_4.sce @@ -0,0 +1,10 @@ +//variable initialization +h=6.63*10^-34; //Plank's constant (joule second) +v=1.153*10^11; //Frequency of absorption line (Hz) +mu=11.38*10^-27; //Recuced mass of the molecule (kg) + +//Calculation of the internuclear distance +I=h/(4*%pi^2*v); //moment of inertia of CO molecule (kg m^2) +r=sqrt(I/mu)*10^10; //Internuclear distance (Å) + +printf("\n Internuclear distance = %.2f Å",r); diff --git a/623/CH27/EX5.5.5/U5_C5_5.sce b/623/CH27/EX5.5.5/U5_C5_5.sce new file mode 100755 index 000000000..063f671c4 --- /dev/null +++ b/623/CH27/EX5.5.5/U5_C5_5.sce @@ -0,0 +1,26 @@ +//variable initialization +mu=1.62*10^-27; //Reduced mass of HCL (kg) +c=3*10^8; //Velocity of light (m/s) +h=6.62*10^-34; //Plank's constant (joule second) +v1_P=2906.3 //Wave no. of P branch (cm-1) +v2_P=2927.5 //Wave no. of P branch (cm-1) +v3_P=2948.7 //Wave no. of P branch (cm-1) +v4_P=2969.9 //Wave no. of P branch (cm-1) +v1_R=3012.2 //Wave no. of R branch (cm-1) +v2_R=3033.4 //Wave no. of R branch (cm-1) +v3_R=3054.6 //Wave no. of R branch (cm-1) +v4_R=3078.8 //Wave no. of R branch (cm-1) + +//(i) Equilibrium internuclear distance +delta_v=v2_P-v1_P; //Separation of successive line of P and R branch (cm-1) +B=delta_v/2; //rotational constant (cm-1) +I=h/(8*%pi^2*B*10^2*c); //Moment of inertia (kg m^2) +r=sqrt(I/mu)*10^10; //Equilibrium internuclear distance (Å) + +//(ii) Force constant +v0=(v4_P+v1_R)/2; //Equlibrium frequency (cm-1) +k=4*%pi^2*mu*c^2*v0^2*10^4; //Force constant of HCl (N/m) + +printf("\n(i) Equilibrium internuclear distance = %.2f Å\n(ii) Force constant = %.0f N/m",r,k); + +//Note: the answer of (ii) part is wrong in the book diff --git a/623/CH27/EX5.5.6/U5_C5_6.sce b/623/CH27/EX5.5.6/U5_C5_6.sce new file mode 100755 index 000000000..5ed6e1bd6 --- /dev/null +++ b/623/CH27/EX5.5.6/U5_C5_6.sce @@ -0,0 +1,9 @@ +//variable initialization +mu=8.37*10^-28; //Reducec mass of hydrogen molecule (kg) +h=6.58*10^-16; //Plank's constant (eV s) +E0=0.273 //Ground state vibrational energy of hydrogen molecule (eV) + +//calculation of force constant of the molecule +k=mu*((2*E0)/h)^2; //force constant of hydrogen molecule (N/m) + +printf("\n Force constant = %.0f N/m",k); diff --git a/623/CH27/EX5.5.7/U5_C5_7.sce b/623/CH27/EX5.5.7/U5_C5_7.sce new file mode 100755 index 000000000..273cfbc1c --- /dev/null +++ b/623/CH27/EX5.5.7/U5_C5_7.sce @@ -0,0 +1,12 @@ +//variable initialization +m1=1; //molar mass of H atom (amu) +m2=35; //molar mass of Cl atom (amu) +u=1.68*10^-27; //atomic mass unit (kg) +v=2885.9*100; //wave no. of line (m-1) +c=3*10^8; //Velocity of light (m/s) + +//calculation of force constant +mu=((m1*m2)/(m1+m2))*u; //reduced mass of HCl molecule (kg) +k=4*(%pi*c*v)^2*mu; //force constant of HCl molecule (N/m) + +printf("\n force constant = %.2f N/m",k); diff --git a/623/CH27/EX5.5.8/U5_C5_8.sce b/623/CH27/EX5.5.8/U5_C5_8.sce new file mode 100755 index 000000000..4036a404f --- /dev/null +++ b/623/CH27/EX5.5.8/U5_C5_8.sce @@ -0,0 +1,29 @@ +//function for calculating the various vibrational energy levels of CO molecule +function[energy]=F(V) + energy=((V+.5)*h*v)/e; +endfunction + +//function for converting eV to cm-1 +function[energy]=G(V) + energy=((V+.5)*h*v*8065)/e; +endfunction + +//variable initialization +m1=12; //molar mass of C atom (amu) +m2=16; //molar mass of O atom (amu) +u=1.68*10^-27; //atomic mass unit (kg) +k=1870 //force constant of CO molecule (N/m) +h=6.6*10^-34; //Plank's constant (joule second) +e=1.602*10^-19; //charge of electron (Coulomb) + +//calculation of energy levels +mu=((m1*m2)/(m1+m2))*u; //reduced mass of CO molecule (kg) +v=(1/(2*%pi))*sqrt(k/mu); //frequency of vibration of CO molecule (Hz) +e1=F(0); //energy of 1st level of CO molecule (eV) +E1=G(0); //energy of 1st level of CO molecule (cm-1) +e2=F(1); //energy of 2nd level of CO molecule (eV) +E2=G(1); //energy of 2nd level of CO molecule (cm-1) +e3=F(2); //energy of 3rd level of CO molecule (eV) +E3=G(2); //energy of 3rd level of CO molecule (cm-1) + +printf("\nE = %.3f eV, %.3f eV, %.3f eV..........................\n = %.1f cm-1, %.1f cm-1, %.1f cm-1.................",e1,e2,e3,E1,E2,E3); diff --git a/623/CH27/EX5.5.9/U5_C5_9.sce b/623/CH27/EX5.5.9/U5_C5_9.sce new file mode 100755 index 000000000..ccd1e3f5e --- /dev/null +++ b/623/CH27/EX5.5.9/U5_C5_9.sce @@ -0,0 +1,10 @@ +//variable initialization +mu=1.61*10^-27; //reduced mass of HCl molecule (kg) +c=3*10^8; //speed of light (m/s) +lembda=3.465*10^-6; //wavelength of infrared radiation (m) + +//calculation of force constant +v=c/lembda; //frequency of radiation (s-1) +k=4*(%pi*v)^2*mu; //force constant of HCl molecule (N/m) + +printf("\nforce constant = %.1f N/m",k); -- cgit