14 files changed, 165 insertions, 0 deletions
diff --git a/1286/CH6/EX6.10/6_10.sce b/1286/CH6/EX6.10/6_10.sce
new file mode 100755
index 000000000..f16a42b1e
--- /dev/null
+++ b/1286/CH6/EX6.10/6_10.sce
@@ -0,0 +1,10 @@
+clc
+//initialisations
+r=8.3//j/mol/k
+J=4.2//j/cal
+T=273
+m=2//gm
+//CALCULATIONS
+ke=(3*r*T/(2*m*J))
+//results
+printf(' ke of one gm of hydrogen= % 1f calories',ke)
diff --git a/1286/CH6/EX6.11/6_11.sce b/1286/CH6/EX6.11/6_11.sce
new file mode 100755
index 000000000..40829432e
--- /dev/null
+++ b/1286/CH6/EX6.11/6_11.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation
+p0=0.76*13600*9.81
+m=1.785*10^-4//kg
+v0=0.001/m
+T0=273//k
+g=1.67
+cp=1250
+//CALCULATIONS
+r=p0*v0/T0
+J=r*g/((g-1)*cp)
+//results
+printf(' mechanical equivalent of heat= % 1f joules/cal',J)
diff --git a/1286/CH6/EX6.12/6_12.sce b/1286/CH6/EX6.12/6_12.sce
new file mode 100755
index 000000000..d3f212742
--- /dev/null
+++ b/1286/CH6/EX6.12/6_12.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation
+n=1.7*10^-5//newton/m2/unit vel gradient
+p=10^5//newton//m2
+d=1.2//kg/m3
+//CALCULATIONS
+l=n*sqrt(3/(d*p))
+f=p/n
+//results
+printf('.mean free path= % 1e m',l)
+printf(' \ncollision frequency= % 1f per second',f)
diff --git a/1286/CH6/EX6.13/6_13.sce b/1286/CH6/EX6.13/6_13.sce
new file mode 100755
index 000000000..13529c2f8
--- /dev/null
+++ b/1286/CH6/EX6.13/6_13.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation
+n=166*10^-7//kg/m/sec
+k=2.7*10^25//m^-3
+d=1.25//kg/m^3
+c=450//m/sec
+//CALCULATIONS
+l=3*n/(d*c)
+f=c/l
+di=sqrt(1/(sqrt(2)*%pi*k*l))
+//results
+printf(' mean free path= % 1e m',l)
+printf(' \ncollision frequency= % 1e c',f)
+printf(' \navg velocity= % 1e m',di)
diff --git a/1286/CH6/EX6.14/6_14.sce b/1286/CH6/EX6.14/6_14.sce
new file mode 100755
index 000000000..f20c1b49a
--- /dev/null
+++ b/1286/CH6/EX6.14/6_14.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation
+m=40//kg
+v=22.4//m^-3
+n=2.1*10^-5
+r=8314//j/mol/k
+T=273//k
+//CALCULATIONS
+d=m/v
+c=sqrt(3*r*T/m)
+l=(3*n)/(d*c)
+f=c/l
+//results
+printf(' mean freepath= % 1e m',l)
+printf(' \ncollision frequency= % 1f ',f)
diff --git a/1286/CH6/EX6.15/6_15.sce b/1286/CH6/EX6.15/6_15.sce
new file mode 100755
index 000000000..58541bb06
--- /dev/null
+++ b/1286/CH6/EX6.15/6_15.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation
+l1=23*10^-6
+l0=19*10^-6
+d=0.1785
+p=10^5//n
+//CALCULATIONS
+df=(l1-l0)*sqrt(3/(p*d))/0.4
+//results
+printf(' difference in mean free path= % 1e m',df)
diff --git a/1286/CH6/EX6.19/6_19.sce b/1286/CH6/EX6.19/6_19.sce
new file mode 100755
index 000000000..28c38b4b6
--- /dev/null
+++ b/1286/CH6/EX6.19/6_19.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation
+f=5
+r=2
+//CALCULATIONS
+e=f/2
+g=r/2
+p=g*100/e
+//results
+printf(' fraction used to increase rotational energy= % 1f ',p)
diff --git a/1286/CH6/EX6.2/6_2.sce b/1286/CH6/EX6.2/6_2.sce
new file mode 100755
index 000000000..e009485ae
--- /dev/null
+++ b/1286/CH6/EX6.2/6_2.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation
+n=3
+r=2
+//CALCULATIONS
+i=3*n-3
+v=i-r
+//results
+printf(' vibratory degree of freedom= % 1f ',v)
diff --git a/1286/CH6/EX6.20/6_20.sce b/1286/CH6/EX6.20/6_20.sce
new file mode 100755
index 000000000..18895fca6
--- /dev/null
+++ b/1286/CH6/EX6.20/6_20.sce
@@ -0,0 +1,18 @@
+clc
+//initialisation
+s1=1//m/sec
+s2=2//m/sec
+s3=3//m/sec
+s4=4//m/sec
+s5=5//m/sec
+n1=4
+n2=2
+n3=8
+n4=6
+n5=5
+//CALCULATIONS
+u=(n1*s1+n2*s2+n3*s3+n4*s4+n5*s5)/(n1+n2+n3+n4+n5)
+v=sqrt((n1*s1*s1+n2*s2*s2+n3*s3*s3+n4*s4*s4+n5*s5*s5)/(n1+n2+n3+n4+n5))
+//results
+printf(' mean speed of molecules= % 1f m/sec',u)
+printf(' \nrms speeed of molecules= % 1f m/sec',v)
diff --git a/1286/CH6/EX6.5/6_5.sce b/1286/CH6/EX6.5/6_5.sce
new file mode 100755
index 000000000..6e833d9ef
--- /dev/null
+++ b/1286/CH6/EX6.5/6_5.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation
+T=273//k
+m=35.5//kg
+r=8314.3//j/mol/k
+//CALCULATIONs
+c=sqrt(3*T*r/(2*m))
+//results
+printf(' rms velocity = % 1f m/sec',c)
diff --git a/1286/CH6/EX6.6/6_6.sce b/1286/CH6/EX6.6/6_6.sce
new file mode 100755
index 000000000..3bbc8e794
--- /dev/null
+++ b/1286/CH6/EX6.6/6_6.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation
+m=2//kg
+T=273//k
+r=8314.3//j/mol/k
+//CALCULATIONS
+c=sqrt(3*r*T/m)
+Ti=(4*c*c*m/(3*r))
+C=Ti-273
+//results
+printf(' temperature at which rms speed will double is= % 1f c',C)
diff --git a/1286/CH6/EX6.7/6_7.sce b/1286/CH6/EX6.7/6_7.sce
new file mode 100755
index 000000000..f6a7c8308
--- /dev/null
+++ b/1286/CH6/EX6.7/6_7.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation
+p=1.013*10^5//newton/m2
+d=0.09//kg/m3
+t1=27//c
+T=273
+T1=t1+T//k
+//CALCULATIONS
+c1=sqrt(3*p/d)
+c2=c1*sqrt(T1/T)
+cb=c2*8/(3*%pi)
+cm=c2*sqrt(2/3)
+//results
+printf(' avg velocity= % 1f m/sec',cb)
+printf(' \nmost probable velocity= % 1f m/sec',cm)
diff --git a/1286/CH6/EX6.8/6_8.sce b/1286/CH6/EX6.8/6_8.sce
new file mode 100755
index 000000000..3ceb16a50
--- /dev/null
+++ b/1286/CH6/EX6.8/6_8.sce
@@ -0,0 +1,9 @@
+clc
+//initialisations
+e=4*10^-3//erg
+p=1*13.6*981
+//calculations
+kt=2*e/3//erg
+n=p/kt
+//results
+printf(' number of molecules = % 1f',kt)
diff --git a/1286/CH6/EX6.9/6_9.sce b/1286/CH6/EX6.9/6_9.sce
new file mode 100755
index 000000000..d301ad822
--- /dev/null
+++ b/1286/CH6/EX6.9/6_9.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation
+r=8.32//j/mol/k
+N=6.06*10^23
+t=723
+T=t+273
+//calculations
+ke=(3*r*T)/(2*N)
+ke1=ke*N
+//results
+printf(' mean translational kinetic energy= % 1f J',ke1)