initial commit / add all books

4 files changed, 40 insertions, 0 deletions

diff --git a/1652/CH4/EX4.1/4_1.sce b/1652/CH4/EX4.1/4_1.sce
new file mode 100755
index 000000000..423506517
--- /dev/null
+++ b/1652/CH4/EX4.1/4_1.sce
@@ -0,0 +1,9 @@
+clc

+//initialization of variables

+B=10.34 //cm^-1

+c=2.998*10^10 //cm/s

+h=6.625*10^-27 //erg sec

+//calculations

+I=h/(8*%pi^2 *B*c)

+//results

+printf("Moment of inertia = %.2e g cm^2",I)

diff --git a/1652/CH4/EX4.2/4_2.sce b/1652/CH4/EX4.2/4_2.sce
new file mode 100755
index 000000000..573b97ad4
--- /dev/null
+++ b/1652/CH4/EX4.2/4_2.sce
@@ -0,0 +1,12 @@
+clc

+//Initialization of variables

+ma=1.0080

+mb=35.457

+Na=6.0232*10^23

+I=2.707*10^-40 //g cm^2

+//calculations

+mu1=ma*mb/(ma+mb)

+mu2=mu1/Na

+r=sqrt(I/mu2)

+//results

+printf("Bond length = %.2e cm",r)

diff --git a/1652/CH4/EX4.3/4_3.sce b/1652/CH4/EX4.3/4_3.sce
new file mode 100755
index 000000000..1111d67c9
--- /dev/null
+++ b/1652/CH4/EX4.3/4_3.sce
@@ -0,0 +1,9 @@
+clc

+//Initialization of variables

+c=2.998*10^10 //cm/s

+wave=2990 //cm^-1

+mu=1.627*10^-24 //g

+//calculations

+k=mu*(2*%pi*c*wave)^2

+//results

+printf("Force constant = %.2e dynes/cm",k)

diff --git a/1652/CH4/EX4.4/4_4.sce b/1652/CH4/EX4.4/4_4.sce
new file mode 100755
index 000000000..85223bc32
--- /dev/null
+++ b/1652/CH4/EX4.4/4_4.sce
@@ -0,0 +1,10 @@
+clc

+//initialization of variables

+l1=2886 //cm^-1

+l2=5668 //cm^-1

+//calculations

+wave=2*l1-l2 

+wave2= wave+l1

+x=wave/(2*wave2)

+//results

+printf("anharmonicity constant = %.4f ",x)