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

---
 1652/CH4/EX4.1/4_1.sce |  9 +++++++++
 1652/CH4/EX4.2/4_2.sce | 12 ++++++++++++
 1652/CH4/EX4.3/4_3.sce |  9 +++++++++
 1652/CH4/EX4.4/4_4.sce | 10 ++++++++++
 4 files changed, 40 insertions(+)
 create mode 100755 1652/CH4/EX4.1/4_1.sce
 create mode 100755 1652/CH4/EX4.2/4_2.sce
 create mode 100755 1652/CH4/EX4.3/4_3.sce
 create mode 100755 1652/CH4/EX4.4/4_4.sce

(limited to '1652/CH4')

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)
-- 
cgit