diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1652 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '1652')
98 files changed, 1106 insertions, 0 deletions
diff --git a/1652/CH1/EX1.1/1_1.sce b/1652/CH1/EX1.1/1_1.sce new file mode 100755 index 000000000..ce314d2da --- /dev/null +++ b/1652/CH1/EX1.1/1_1.sce @@ -0,0 +1,11 @@ +clc
+//Initialization of variables
+l=0.71 *10^-8 //cm
+n=200 //lines/cm
+v=0.00145 //radian
+//calculations
+d=1/n
+phi2=2*l/d +v^2
+phi=sqrt(phi2)
+//results
+printf('Angle required = %.2e radian',phi)
diff --git a/1652/CH1/EX1.10/1_10.sce b/1652/CH1/EX1.10/1_10.sce new file mode 100755 index 000000000..6c25366f6 --- /dev/null +++ b/1652/CH1/EX1.10/1_10.sce @@ -0,0 +1,11 @@ +clc
+//Initialization of variables
+A=[-1 -1 -1 ]
+B=[1 1 -1]
+//calculations
+Ad=sqrt(1+1+1)
+Bd=sqrt(1+1+1)
+dot=A.*B /(Ad*Bd)
+theta=acosd(dot)
+//results
+printf("Angle = %.2f degrees",theta(1,1))
diff --git a/1652/CH1/EX1.2/1_2.sce b/1652/CH1/EX1.2/1_2.sce new file mode 100755 index 000000000..9f651f045 --- /dev/null +++ b/1652/CH1/EX1.2/1_2.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+angle=37.25 //degrees
+l=1.539 //A
+n=1 //order
+//calculations
+d=n*l/(2*sind(angle))
+//results
+printf("Interplanar distance = %.3f A",d)
diff --git a/1652/CH1/EX1.5/1_5.sce b/1652/CH1/EX1.5/1_5.sce new file mode 100755 index 000000000..ad1bec504 --- /dev/null +++ b/1652/CH1/EX1.5/1_5.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+r1=sqrt(3)
+r2=1
+//calculations
+ratio=r1-r2
+//results
+printf('Ratio of radii = %.3f',ratio)
diff --git a/1652/CH1/EX1.6/1_6.sce b/1652/CH1/EX1.6/1_6.sce new file mode 100755 index 000000000..2aba5e645 --- /dev/null +++ b/1652/CH1/EX1.6/1_6.sce @@ -0,0 +1,11 @@ +clc
+//Initialization of variables
+d=2.64 //g/cc
+l=4.016*10^-8 //cm
+n=4
+M=25.94 //g/mol
+//calculations
+m=d*l^3 /n
+N0=M/m
+//results
+printf("Avagadro number = %.3e molecule/mol",N0)
diff --git a/1652/CH10/EX10.1/10_1.sce b/1652/CH10/EX10.1/10_1.sce new file mode 100755 index 000000000..8da48107f --- /dev/null +++ b/1652/CH10/EX10.1/10_1.sce @@ -0,0 +1,10 @@ +clc
+//Initialization of variables
+T2=100+273.2 //K
+T1=50+273.2 //K
+n=1 //mol
+R=1.987 //cal/deg mol
+//calculations
+dS=5/2 *n*R*2.303*log10(T2/T1)
+//results
+printf("Change in entropy = %.3f eu",dS)
diff --git a/1652/CH10/EX10.3/10_3.sce b/1652/CH10/EX10.3/10_3.sce new file mode 100755 index 000000000..eca542e68 --- /dev/null +++ b/1652/CH10/EX10.3/10_3.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+H=380 //cal
+T=273.2+32.1 //K
+//calculations
+dS=H/T
+//results
+printf("Entropy change = %.2f eu",dS)
diff --git a/1652/CH10/EX10.5/10_5.sce b/1652/CH10/EX10.5/10_5.sce new file mode 100755 index 000000000..05ebebac8 --- /dev/null +++ b/1652/CH10/EX10.5/10_5.sce @@ -0,0 +1,11 @@ +clc
+//Initialization of variables
+Ha=0
+Hb=0
+//calculations
+H=Ha+Hb
+q=H
+U=0
+w=q-H
+//results
+printf("Work done = %d",w)
diff --git a/1652/CH10/EX10.6/10_6.sce b/1652/CH10/EX10.6/10_6.sce new file mode 100755 index 000000000..ebff1168c --- /dev/null +++ b/1652/CH10/EX10.6/10_6.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+prob=0.001
+R=1
+N=6.023*10^23
+//calculations
+dS=1.987*2.303*log10(prob) /N
+//results
+printf("change in entropy = %.1e eu",dS)
diff --git a/1652/CH10/EX10.7/10_7.sce b/1652/CH10/EX10.7/10_7.sce new file mode 100755 index 000000000..f3cf26989 --- /dev/null +++ b/1652/CH10/EX10.7/10_7.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+T=373.2 //K
+c=1.987 //cal/deg
+//calculations
+w=c*T
+A=-w
+//results
+printf("Change in A = %d cal",A)
diff --git a/1652/CH11/EX11.1/11_1.sce b/1652/CH11/EX11.1/11_1.sce new file mode 100755 index 000000000..8774b287b --- /dev/null +++ b/1652/CH11/EX11.1/11_1.sce @@ -0,0 +1,10 @@ +clc
+//Initialization of variables
+A=7.6546
+B=1686.8
+T=60+273.2
+//calculations
+logP=A-B/T
+P=10^logP
+//results
+printf("Vapor Pressure = %d mm",P+1)
diff --git a/1652/CH11/EX11.2/11_2.sce b/1652/CH11/EX11.2/11_2.sce new file mode 100755 index 000000000..fd864daf1 --- /dev/null +++ b/1652/CH11/EX11.2/11_2.sce @@ -0,0 +1,10 @@ +clc
+//Initialization of variables
+alpha=4.92*10^-5 //deg^-1
+beta=7.85*10^-7 //atm^-1
+d=8.93 //g/cm^3
+T=298.15 //K
+//calculations
+dC=63.54*T*alpha^2 *1.987/(d*beta*82.06)
+//results
+printf("Change in c values = %.3f cal/deg mol",dC)
diff --git a/1652/CH12/EX12.1/12_1.sce b/1652/CH12/EX12.1/12_1.sce new file mode 100755 index 000000000..5e9b0dde8 --- /dev/null +++ b/1652/CH12/EX12.1/12_1.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+p=3
+c=2
+//calculations
+f=2-p+c
+//results
+printf("no. of degrees of freedom = %d ",f)
diff --git a/1652/CH12/EX12.2/12_2.sce b/1652/CH12/EX12.2/12_2.sce new file mode 100755 index 000000000..37ba405cd --- /dev/null +++ b/1652/CH12/EX12.2/12_2.sce @@ -0,0 +1,13 @@ +clc
+//Initialization of variables
+T=273.2 //K
+vw=1.0001 //cm^3 /g
+vi=1.0907 //cm^3 /g
+hf=79.7 //cal/g
+P1=76 //cm
+P2=4.6 //cm
+//calculations
+dT=T*(vw-vi)*(P2-P1)*13.6*980.7/(hf*4.184*10^7)
+//results
+printf("change in temperature = %.4f deg",dT)
+
diff --git a/1652/CH12/EX12.3/12_3.sce b/1652/CH12/EX12.3/12_3.sce new file mode 100755 index 000000000..0f412c1e9 --- /dev/null +++ b/1652/CH12/EX12.3/12_3.sce @@ -0,0 +1,7 @@ +clc
+//Initialization of variables
+V=6.84 //cm^3 /g
+//calculations
+dPbydT=-1.7*4.184*10^7 /(2.19*V*0.06*1.01*10^6)
+//results
+printf("dPbydT = %d atm/deg",dPbydT)
diff --git a/1652/CH12/EX12.4/12_4.sce b/1652/CH12/EX12.4/12_4.sce new file mode 100755 index 000000000..6565559d0 --- /dev/null +++ b/1652/CH12/EX12.4/12_4.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+P=6 //atm
+T=273.2+25 //K
+P=23.8 //mm
+V=0.018 //lt/mol
+R=0.08206 //lt am/deg mol
+//calculations
+dPa=V*P*4536/(R*T*760)
+Pa=dPa+P
+//results
+printf("Pressure = %.1f mm",Pa)
diff --git a/1652/CH12/EX12.5/12_5.sce b/1652/CH12/EX12.5/12_5.sce new file mode 100755 index 000000000..abed6800e --- /dev/null +++ b/1652/CH12/EX12.5/12_5.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+x=0.25
+Ps1=96 //mm
+Ps2=43.9 //mm
+//calculations
+P1=x*Ps1
+P2=(1-x)*Ps2
+P=P1+P2
+Xdash=P1/P
+//results
+printf("mole fraction of methanol in vapor = %.3f ",Xdash)
diff --git a/1652/CH12/EX12.6/12_6.sce b/1652/CH12/EX12.6/12_6.sce new file mode 100755 index 000000000..b239969ed --- /dev/null +++ b/1652/CH12/EX12.6/12_6.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+Hv=539.6 //cal/g
+T=273.2+100 //K
+//calculations
+Kb=1.987*T^2 /(1000*Hv)
+//results
+printf("Molal elevation constant = %.3f deg /mole /kg",Kb)
diff --git a/1652/CH12/EX12.7/12_7.sce b/1652/CH12/EX12.7/12_7.sce new file mode 100755 index 000000000..26245195a --- /dev/null +++ b/1652/CH12/EX12.7/12_7.sce @@ -0,0 +1,10 @@ +clc
+//Initialization of variables
+ms=0.5 //mol/kg
+m=5 //g
+mw=100 //g
+Ws=1000 //g/kg
+//calculations
+Ma=m*Ws/(ms*mw)
+//results
+printf("Molecular weight of solute = %d g/mol ",Ma)
diff --git a/1652/CH12/EX12.8/12_8.sce b/1652/CH12/EX12.8/12_8.sce new file mode 100755 index 000000000..5d783a17c --- /dev/null +++ b/1652/CH12/EX12.8/12_8.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+dT=0.23 //C
+Kb=1.86 //deg/mol/kg
+//calculations
+m=dT/Kb
+//results
+printf("molality of solution = %.2f m",m)
diff --git a/1652/CH12/EX12.9/12_9.sce b/1652/CH12/EX12.9/12_9.sce new file mode 100755 index 000000000..670aa3965 --- /dev/null +++ b/1652/CH12/EX12.9/12_9.sce @@ -0,0 +1,13 @@ +clc
+//Initialization of variables
+p=0.1 //m
+T=30+273.2 //K
+R=0.08206 //lt atm /deg/mol
+P1=1 //atm
+//calculations
+w=1000/p
+V=w/1000
+dP=R*T/V
+P=dP+P1
+//results
+printf("Osmotic Pressure =%.2f atm ",P)
diff --git a/1652/CH13/EX13.1/13_1.sce b/1652/CH13/EX13.1/13_1.sce new file mode 100755 index 000000000..d588e21ab --- /dev/null +++ b/1652/CH13/EX13.1/13_1.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+n1=10 //mol
+n2=12 //mol
+//calculations
+dn=n1-n2
+//results
+printf("dHp = dEv- %d *RT",dn)
diff --git a/1652/CH13/EX13.10/13_10.sce b/1652/CH13/EX13.10/13_10.sce new file mode 100755 index 000000000..7e4df4d01 --- /dev/null +++ b/1652/CH13/EX13.10/13_10.sce @@ -0,0 +1,10 @@ +clc
+//Initialization of variables
+x=0.5
+P=0.468 //atm
+//calculations
+P1=x*P
+P2=x*P
+Kp=P1*P2
+//results
+printf("Final pressure after quilibrium = %.4f atm^2",Kp)
diff --git a/1652/CH13/EX13.2/13_2.sce b/1652/CH13/EX13.2/13_2.sce new file mode 100755 index 000000000..5e2e41710 --- /dev/null +++ b/1652/CH13/EX13.2/13_2.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+Ht1=-22063 //cal
+T=298.15 //K
+//calculations
+H=Ht1 +0.5293*T + 0.3398*10^-3 *T^2 - 2.039*10^-7 *T^3
+//results
+printf("Enthalpy = %d cal",H)
diff --git a/1652/CH13/EX13.3/13_3.sce b/1652/CH13/EX13.3/13_3.sce new file mode 100755 index 000000000..a31a5211b --- /dev/null +++ b/1652/CH13/EX13.3/13_3.sce @@ -0,0 +1,7 @@ +clc
+//Initialization of variables
+Cp=0.797 //cal/deg/mol
+//calculations
+S=Cp/3
+//results
+printf("Entropy = %.3f eu/mol",S)
diff --git a/1652/CH13/EX13.4/13_4.sce b/1652/CH13/EX13.4/13_4.sce new file mode 100755 index 000000000..1478c4661 --- /dev/null +++ b/1652/CH13/EX13.4/13_4.sce @@ -0,0 +1,10 @@ +clc
+//Initialization of variables
+T1=77.32 //K
+P=1 //atm
+T2=126 //K
+Pc=33.5 //atm
+//calculations
+dS=27/32 *1.987*P/Pc *(T2/T1)^3
+//results
+printf("Change in entropy = %.2f eu/mol",dS)
diff --git a/1652/CH13/EX13.5/13_5.sce b/1652/CH13/EX13.5/13_5.sce new file mode 100755 index 000000000..e36ef4fc0 --- /dev/null +++ b/1652/CH13/EX13.5/13_5.sce @@ -0,0 +1,19 @@ +clc
+//Initialization of variables
+S1=57.47
+S2=50.34
+S3=49
+H1=8.09
+H2=21.06
+H3=0
+F1=12.39
+F2=20.72
+F3=0
+//calculations
+dS=S1-S2-0.5*S3
+dH=H1-H2-0.5*H3
+dF=F1-F2-0.5*F3
+//results
+printf("Change in entropy = %.2f eu",dS)
+printf("\n Change in enthalpy = %.2f kcal",dH)
+printf("\n Change in free energy = %.2f kcal",dF)
diff --git a/1652/CH13/EX13.6/13_6.sce b/1652/CH13/EX13.6/13_6.sce new file mode 100755 index 000000000..4bb5de92e --- /dev/null +++ b/1652/CH13/EX13.6/13_6.sce @@ -0,0 +1,13 @@ +clc
+//Initialization of variables
+P1=0.01
+P2=0.1
+P3=0.01
+dF0=-54640 //cal
+T=298.15 //K
+R=1.987 //cal/deg
+//calculations
+Qp=P1/(P2*P3^0.5)
+dF=dF0+R*T*log(Qp)
+//results
+printf("change in free energy = %d cal",dF)
diff --git a/1652/CH13/EX13.7/13_7.sce b/1652/CH13/EX13.7/13_7.sce new file mode 100755 index 000000000..fb8d80aac --- /dev/null +++ b/1652/CH13/EX13.7/13_7.sce @@ -0,0 +1,11 @@ +clc
+//Initialization of variables
+disp("From table 13.4 ")
+logKfwater=40.04724
+logKfH2=0
+logKfO2=0
+//calculations
+logK=logKfwater-logKfH2-0.5*logKfO2
+K=10^logK
+//results
+printf("Equilibrium constant = %.4e",K)
diff --git a/1652/CH13/EX13.8/13_8.sce b/1652/CH13/EX13.8/13_8.sce new file mode 100755 index 000000000..5cfd955d9 --- /dev/null +++ b/1652/CH13/EX13.8/13_8.sce @@ -0,0 +1,10 @@ +clc
+//Initialization of variables
+Kp=1.1*10^40 //atm^-0.5
+dn=-0.5
+R=0.08206 //lt atm/deg mol
+T=298.15 //K
+//calculations
+Kc=Kp*(R*T)^(-dn)
+//results
+printf("Kc = %.1e (mol/lt)^-0.5",Kc)
diff --git a/1652/CH13/EX13.9/13_9.sce b/1652/CH13/EX13.9/13_9.sce new file mode 100755 index 000000000..607bf83fe --- /dev/null +++ b/1652/CH13/EX13.9/13_9.sce @@ -0,0 +1,16 @@ +clc
+//Initialization of variables
+Kp=0.141 //atm
+P=1 //atm
+nu=2
+R=0.08206 //lt atm/deg mol
+T=298.15 //K
+M=92.02 //g/mol
+//calculations
+a=poly(0,"a");
+p=Kp*a^2 +4*a^2*P -Kp
+z=roots(p)
+alpha=z(1)
+wbyV=P*M/(R*T*(1+(nu-1)*alpha))
+//results
+printf("Density of the equilibrium mixture = %.2f g/lt",wbyV)
diff --git a/1652/CH14/EX14.1/14_1.sce b/1652/CH14/EX14.1/14_1.sce new file mode 100755 index 000000000..8cfdfdff6 --- /dev/null +++ b/1652/CH14/EX14.1/14_1.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+x1=0.0200
+Kx=812
+//calculations
+disp("Neglecting 2x in comparision with x1,")
+x=x1/Kx
+//results
+printf("Moles of Iodine present = %.2e mole",x)
diff --git a/1652/CH14/EX14.10/14_10.sce b/1652/CH14/EX14.10/14_10.sce new file mode 100755 index 000000000..b6641529b --- /dev/null +++ b/1652/CH14/EX14.10/14_10.sce @@ -0,0 +1,19 @@ +clc
+//Initialization of variables
+m1=0.1 //m
+m2=0.1 //m
+K=1.754*10^-5 //m
+//calculations
+mu=0.5*(m1*1^2 + m2*1^2)
+disp("From table 14.5,")
+aH=9 //A
+aA=4.5 //A
+disp("From table 14.6")
+gH=0.825
+gA=0.775
+gHA=1
+x1=gHA*K/(gH*gA)
+disp("Assuming x to be small w.r.t m1,")
+x=sqrt(x1*m1)
+//results
+printf("Concentration of H plus ions = %.2e m",x)
diff --git a/1652/CH14/EX14.11/14_11.sce b/1652/CH14/EX14.11/14_11.sce new file mode 100755 index 000000000..47406d360 --- /dev/null +++ b/1652/CH14/EX14.11/14_11.sce @@ -0,0 +1,19 @@ +clc
+//Initialization of variables
+K=1.754*10^-5 //m
+c=0.1
+//calculations
+disp("Neglecting x w.r.t c,")
+x2=K
+x=sqrt(K)
+mu=x
+disp("From tables 14-5 and 14-6,")
+gH=0.963
+gA=0.960
+x22=K/(gH*gA)
+a=poly(0,"a");
+p=a^2 +a*x22 -c*x22
+z=roots(p)
+alpha=z(2)
+//results
+printf("concentration of H plus ions = %.2e m",alpha)
diff --git a/1652/CH14/EX14.12/14_12.sce b/1652/CH14/EX14.12/14_12.sce new file mode 100755 index 000000000..b3f9d9df6 --- /dev/null +++ b/1652/CH14/EX14.12/14_12.sce @@ -0,0 +1,18 @@ +clc
+//Initialization of variables
+disp("From table 14.3")
+K1=-13.5089
+K2=-22.9792
+K3=19.2218
+c=0.1 //m
+//calculations
+logK=K1-K2-K3
+K=10^logK
+mu=0.5*(c*1^2 + c*1^2)
+disp("From tables 14-5 and 14-6,")
+gAg=0.745
+gCl=0.755
+x2=K/(gAg*gCl)
+x=sqrt(x2)
+//results
+printf("Solubility of Agcl = %.2e m",x)
diff --git a/1652/CH14/EX14.13/14_13.sce b/1652/CH14/EX14.13/14_13.sce new file mode 100755 index 000000000..fc792b33e --- /dev/null +++ b/1652/CH14/EX14.13/14_13.sce @@ -0,0 +1,16 @@ +clc
+//Initialization of variables
+Cna=0.11
+Ccl=0.1
+//calculations
+x=poly(0,"x");
+p=99*x^2 - 2.1*x+Cna*Ccl
+z=roots(p)
+alpha=z(2)
+Na1=Cna-10*alpha
+Cl1=Ccl-10*alpha
+//results
+printf(" Concentration of Na in 1 = %.4f M",Na1)
+printf("\n Concentration of Cl in 1 = %.4f M",Cl1)
+printf("\n Concentration of Na in 2 = %.4f M",alpha)
+printf("\n Concentration of Cl in 2 = %.4f M",alpha)
diff --git a/1652/CH14/EX14.2/14_2.sce b/1652/CH14/EX14.2/14_2.sce new file mode 100755 index 000000000..9da48f51a --- /dev/null +++ b/1652/CH14/EX14.2/14_2.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+Kc=1.749*10^-5 //M
+n1=0.1 //mole
+n2=0.01 //mole
+//calculations
+c=n1/n2 *Kc
+//results
+printf("Concentration of Hplus ions = %.1e M",c)
diff --git a/1652/CH14/EX14.3/14_3.sce b/1652/CH14/EX14.3/14_3.sce new file mode 100755 index 000000000..418a1400c --- /dev/null +++ b/1652/CH14/EX14.3/14_3.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+c=0.01 //M
+kc=1.749*10^-5 //M
+//calculations
+x2=c*kc
+x=sqrt(x2)
+//results
+printf("Concentraton of Hplus ions = %.1e M",x)
diff --git a/1652/CH14/EX14.4/14_4.sce b/1652/CH14/EX14.4/14_4.sce new file mode 100755 index 000000000..38401cdfd --- /dev/null +++ b/1652/CH14/EX14.4/14_4.sce @@ -0,0 +1,11 @@ +clc
+//Initialization of variables
+K2=1.0008*10^-14 //m^2
+K1=1.754*10^-5 //m
+c=0.1
+//calculations
+disp("Neglecting x w.r.t c,")
+x2=c*K2/K1
+x=sqrt(x2)
+//results
+printf("Concentration of OH minus ions = %.1e m",x)
diff --git a/1652/CH14/EX14.5/14_5.sce b/1652/CH14/EX14.5/14_5.sce new file mode 100755 index 000000000..04fd4a7d7 --- /dev/null +++ b/1652/CH14/EX14.5/14_5.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+disp("from table 14.1,")
+r1=7.47*10^-5 //m
+r2=4.57*10^-3 //m
+mp=1.008*10^-14 //m^2
+//calculations
+r3=r2/r1
+mH2=r3*mp
+mH=sqrt(mH2)
+//results
+printf("Concentraton of Hplus ions = %.2e M",mH)
diff --git a/1652/CH14/EX14.6/14_6.sce b/1652/CH14/EX14.6/14_6.sce new file mode 100755 index 000000000..b1af37d42 --- /dev/null +++ b/1652/CH14/EX14.6/14_6.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+disp("from table 14.1,")
+r1=1.75*10^-5 //m
+r2=1.772*10^-4 //m
+mp=1.008*10^-14 //m^2
+//calculations
+r3=r2/r1
+mH2=r3*mp
+mH=sqrt(mH2)
+//results
+printf("Concentraton of Hplus ions = %.1e M",mH)
diff --git a/1652/CH14/EX14.7/14_7.sce b/1652/CH14/EX14.7/14_7.sce new file mode 100755 index 000000000..220b10f3c --- /dev/null +++ b/1652/CH14/EX14.7/14_7.sce @@ -0,0 +1,32 @@ +clc
+//Initialization of variables
+c=1*10^-6 //m
+K=1.754*10^-5 //m
+Kp=1.008*10^-14 //m^2
+//calculations
+mH=c
+//Iteration 1
+mOH=Kp/mH
+mA=mH-mOH
+mHA=mH*mA/K
+mH2=mH-mHA+mOH
+//Iteration 2
+mOH2=Kp/mH2
+mA2=mH2-mOH2
+mHA2=mH2*mA2/K
+mH3=mH2-mHA2+mOH2
+//From x2
+x2=sqrt(Kp)
+x1=c
+mOH3=Kp/x2
+y2=x1
+//From x1
+mOH4=Kp/c
+mA4=mH-mOH4
+mHA4=mH*mA4/K
+y1=c-mHA4-mA4
+//upon further iterations, we get
+mHplus=mH3
+//results
+printf("Concentration of H plus ions = %.2e m",mHplus)
+//The answer is a bit different due to rounding off error.
diff --git a/1652/CH14/EX14.8/14_8.sce b/1652/CH14/EX14.8/14_8.sce new file mode 100755 index 000000000..244984d5d --- /dev/null +++ b/1652/CH14/EX14.8/14_8.sce @@ -0,0 +1,22 @@ +clc
+//Initialization of variableH
+disp("From table 14-3,")
+HH=0
+HHcoo=-98
+HHcooh=-98
+SH=0
+SHcoo=21.9
+SHcooh=39.1
+KH=0
+KHcoo=58.64
+KHcooh=62.38
+//calculationH
+dH=HH+HHcoo-HHcooh
+dS=SH+SHcoo-SHcooh
+dK=KH+KHcoo-KHcooh
+K=10^dK
+//results
+printf(" dS0 = %.1f eu",dS)
+printf("\n dH0 = %.1f kcal",dH)
+printf("\n log Krm = %.2f ",dK)
+printf("\n Krm = %.1e m",K)
diff --git a/1652/CH14/EX14.9/14_9.sce b/1652/CH14/EX14.9/14_9.sce new file mode 100755 index 000000000..0551848cb --- /dev/null +++ b/1652/CH14/EX14.9/14_9.sce @@ -0,0 +1,17 @@ +clc
+//Initialization of variables
+mca=0.01 //m
+mcl=0.02 //m
+//calculations
+Mu=0.5*(mca*4 + mcl*1)
+disp("From table 14-5,")
+aca=6 //A
+acl=3 //A
+disp("From table 14-6,")
+gaca=0.555
+gacl=0.843
+Aca=gaca*mca
+Acl=gacl*mcl
+//results
+printf("Activity of cl = %.4f ",Acl)
+printf("\n Activity of ca = %.4f ",Aca)
diff --git a/1652/CH15/EX15.1/15_1.sce b/1652/CH15/EX15.1/15_1.sce new file mode 100755 index 000000000..3482943a1 --- /dev/null +++ b/1652/CH15/EX15.1/15_1.sce @@ -0,0 +1,11 @@ +clc
+//Initialization of variables
+I=0.5 //amp
+t=55 //min
+we=31.77
+//calculations
+Q=I*t*60
+n=Q/96496
+w=n*we
+//results
+printf("Weight of copper leaving = %.3f g",w)
diff --git a/1652/CH15/EX15.2/15_2.sce b/1652/CH15/EX15.2/15_2.sce new file mode 100755 index 000000000..b3e64caec --- /dev/null +++ b/1652/CH15/EX15.2/15_2.sce @@ -0,0 +1,16 @@ +clc
+//Initialization of variables
+w1=0.7532 //g
+w2=0.9972 //g
+wdep=0.4 //g
+we=31.77 //g
+//calculations
+dn=w2/we - w1/we
+t=dn/(wdep/we)
+dne=wdep/we
+dnmig=dn-dne
+tplus=-dnmig/dne
+tminus=1-tplus
+//results
+printf("tplus = %.3f",tplus)
+printf("\n tminus= %.3f",tminus)
diff --git a/1652/CH15/EX15.3/15_3.sce b/1652/CH15/EX15.3/15_3.sce new file mode 100755 index 000000000..1b5de5bd4 --- /dev/null +++ b/1652/CH15/EX15.3/15_3.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+R1=312 //ohms
+R2=1043 //ohms
+c=0.01 //N
+kdash=0.002768 //ohm^-1cm^-1
+//calculations
+k=kdash*R1
+kdash2=k/R2
+lambda=kdash2/(c/1000)
+//results
+printf("Equivalent conductance = %.1f ohm^-1 cm^2 equiv^-1",lambda)
diff --git a/1652/CH15/EX15.4/15_4.sce b/1652/CH15/EX15.4/15_4.sce new file mode 100755 index 000000000..76d7f9bf9 --- /dev/null +++ b/1652/CH15/EX15.4/15_4.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+l1=349.8
+l2=40.9
+//calculations
+l=l1+l2
+//results
+printf("Conductance for acetic acid = %.1f ohm^-1 cm^2",l)
diff --git a/1652/CH15/EX15.5/15_5.sce b/1652/CH15/EX15.5/15_5.sce new file mode 100755 index 000000000..6b5dc73a2 --- /dev/null +++ b/1652/CH15/EX15.5/15_5.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+l1=63.6
+l2=79.8
+n=1 //mg/lt
+we=116.7 //g/equiv
+//calculations
+l=l1+l2
+c=n*10^-3 /we
+k=c*l/1000
+//results
+printf("Specific conductance = %.2e ohm^-1 cm^-1",k)
diff --git a/1652/CH15/EX15.6/15_6.sce b/1652/CH15/EX15.6/15_6.sce new file mode 100755 index 000000000..f752ca0a1 --- /dev/null +++ b/1652/CH15/EX15.6/15_6.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+e1=0.763 //volt
+e2=0.337 //volt
+//calculations
+e0=e1+e2
+//results
+printf("Standard electrode potential of the cell = %.3f volts",e0)
diff --git a/1652/CH15/EX15.7/15_7.sce b/1652/CH15/EX15.7/15_7.sce new file mode 100755 index 000000000..d21aae072 --- /dev/null +++ b/1652/CH15/EX15.7/15_7.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+aZn=0.1
+aCu=0.01
+e1=0.763 //volt
+e2=0.337 //volt
+//calculations
+e0=e1+e2
+Q=aZn/aCu
+E=e0- 0.05915*log10(Q) /2
+//results
+printf("Emf of the cell = %.3f volts",E)
diff --git a/1652/CH16/EX16.1/16_1.sce b/1652/CH16/EX16.1/16_1.sce new file mode 100755 index 000000000..8c6d8b3af --- /dev/null +++ b/1652/CH16/EX16.1/16_1.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+P1=69.2 //mm
+P2=39.8//mm
+t=20 //min
+//calculations
+k=2.303*log10(P1/P2) /(t*60)
+//results
+printf("Rate constant = %.2e sec^-1",k)
diff --git a/1652/CH16/EX16.2/16_2.sce b/1652/CH16/EX16.2/16_2.sce new file mode 100755 index 000000000..0811e78e6 --- /dev/null +++ b/1652/CH16/EX16.2/16_2.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+t=10 //min
+x=90
+//calculations
+k=2.303*log10(100/(100-x)) /t
+//results
+printf("Rate constant = %.3f min^-1",k)
diff --git a/1652/CH16/EX16.3/16_3.sce b/1652/CH16/EX16.3/16_3.sce new file mode 100755 index 000000000..8111a02af --- /dev/null +++ b/1652/CH16/EX16.3/16_3.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+t=242 //sec
+P=229 //mm
+P0=363 //mm
+//calculations
+k=(1/P -1/P0)/t
+//results
+printf("rate constant= %.2e sec^-1 mm^-1",k)
diff --git a/1652/CH17/EX17.1/17_1.sce b/1652/CH17/EX17.1/17_1.sce new file mode 100755 index 000000000..ffd39bfbb --- /dev/null +++ b/1652/CH17/EX17.1/17_1.sce @@ -0,0 +1,10 @@ +clc
+//Initialization of variablesx1=5
+x2=20
+x1=5
+n1=7.49
+n2=5.14
+//calculations
+n=(log(n1)-log(n2))/(log(100-x1) - log(100-x2))
+//results
+printf("Order of the reaction = %.2f",n)
diff --git a/1652/CH17/EX17.2/17_2.sce b/1652/CH17/EX17.2/17_2.sce new file mode 100755 index 000000000..1af7568d4 --- /dev/null +++ b/1652/CH17/EX17.2/17_2.sce @@ -0,0 +1,11 @@ +clc
+//Initialization of variables
+p2=169
+p1=363
+t1=410
+t2=880
+//calculations
+ndash=(log(t2) - log(t1))/(log(p1) - log(p2))
+n=ndash+1
+//results
+printf("Order of the reaction = %.2f",n)
diff --git a/1652/CH17/EX17.3/17_3.sce b/1652/CH17/EX17.3/17_3.sce new file mode 100755 index 000000000..d14b96cb0 --- /dev/null +++ b/1652/CH17/EX17.3/17_3.sce @@ -0,0 +1,14 @@ +clc
+//Initialization of variables
+R=1.987 //cal/deg/mol
+k1=4.45*10^-5
+k2=2.52*10^-6
+T1=283+273.2 //K
+T2=356+273.2 //K
+//calculations
+Ea=2.303*R*1.7530 /(1/T1 - 1/T2)
+logZ= log10(k1) +Ea/(2.303*R*T1)
+Z=10^logZ
+//results
+printf("Activation energy = %d cal/mol",Ea)
+printf("\n Z = %.1e lt /mol sec",Z)
diff --git a/1652/CH17/EX17.5/17_5.sce b/1652/CH17/EX17.5/17_5.sce new file mode 100755 index 000000000..f66cc6340 --- /dev/null +++ b/1652/CH17/EX17.5/17_5.sce @@ -0,0 +1,14 @@ +clc
+//Initialization of variables
+g1=0.661
+g2=0.899
+g3=0.405
+g4=0.803
+g5=0.946
+g6=0.614
+k=1.33
+//calculations
+k0=k*g3/(g1*g2)
+k2=k0*g4*g5/g6
+//results
+printf("Equlibrium constant = %.2f lt/mol min",k2)
diff --git a/1652/CH18/EX18.1/18_1.sce b/1652/CH18/EX18.1/18_1.sce new file mode 100755 index 000000000..8f3895fe8 --- /dev/null +++ b/1652/CH18/EX18.1/18_1.sce @@ -0,0 +1,13 @@ +clc
+//Initialization of variables
+V1=0.284 //cm^3 /g
+V2=1.43 //cm^3 /g
+P1=142.4 //mm
+P2=760 //mm
+//calculations
+z=(1/V1 - 1/V2)/(1/P1 - 1/P2)
+invVm=1/V2 - z/P2
+Vm=1/invVm
+//results
+printf("Volume = %.1f cm^3/g",Vm)
+//The answer in the textbook is a bit different due to rounding off error.
diff --git a/1652/CH18/EX18.2/18_2.sce b/1652/CH18/EX18.2/18_2.sce new file mode 100755 index 000000000..ec48db17b --- /dev/null +++ b/1652/CH18/EX18.2/18_2.sce @@ -0,0 +1,13 @@ +clc
+//Initialization of variables
+Vm=2.86 //cc/g
+P=1 //atm
+R=82.06 //cm^3 atm/deg mol
+T=273.2 //deg
+N=6.023*10^23
+sigma=16.2*10^-16 //cm^2 /molecule
+//calculations
+n=P*Vm/(R*T)
+A=N*n*sigma
+//results
+printf("total area = %.2e cm^2 (g catalyst)^-1",A)
diff --git a/1652/CH19/EX19.1/19_1.sce b/1652/CH19/EX19.1/19_1.sce new file mode 100755 index 000000000..dd092bd31 --- /dev/null +++ b/1652/CH19/EX19.1/19_1.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+r1=0.727
+r2=0.407
+//calculations
+r3=r1*r2
+//results
+printf("Overall transmittance = %.3f",r3)
diff --git a/1652/CH19/EX19.2/19_2.sce b/1652/CH19/EX19.2/19_2.sce new file mode 100755 index 000000000..92e8aa069 --- /dev/null +++ b/1652/CH19/EX19.2/19_2.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+r=0.450
+c=0.02 //M
+l=4 //cm
+//calculations
+e=-log10(r) /(c*l)
+//results
+printf("Extinction coefficient = %.2f litres mole^-1 cm^-1",e)
diff --git a/1652/CH19/EX19.3/19_3.sce b/1652/CH19/EX19.3/19_3.sce new file mode 100755 index 000000000..4a7eedb08 --- /dev/null +++ b/1652/CH19/EX19.3/19_3.sce @@ -0,0 +1,11 @@ +clc
+//Initialization of variables
+r1=0.850
+r2=0.50
+//calculations
+Da=-log10(r1)
+Db=-log10(r2)
+D=Da+Db
+r3=10^(-D)
+//results
+printf("Transmittance of solution = %.3f ",r3)
diff --git a/1652/CH19/EX19.4/19_4.sce b/1652/CH19/EX19.4/19_4.sce new file mode 100755 index 000000000..33e303ec2 --- /dev/null +++ b/1652/CH19/EX19.4/19_4.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+c=0.000025 //M
+l=2 //cm
+D=0.417
+//calculations
+e=D/(c*l)
+//result
+printf("Extinction coefficient = %d liters mole^-1 cm^-1",e)
diff --git a/1652/CH19/EX19.5/19_5.sce b/1652/CH19/EX19.5/19_5.sce new file mode 100755 index 000000000..2a62fb5b7 --- /dev/null +++ b/1652/CH19/EX19.5/19_5.sce @@ -0,0 +1,13 @@ +clc
+//Initialization of variables
+c=0.5 //M
+c1=0.000025 //M
+D2=0.280
+D1=0.417
+//calculations
+c2=D2*c1/(D1)
+dC=c1-c2
+SCN=c- 6*c2 -4*dC
+K=dC*SCN^2 /c2
+//results
+printf("Kc for dissociation = %.2f M^2",K)
diff --git a/1652/CH19/EX19.6/19_6.sce b/1652/CH19/EX19.6/19_6.sce new file mode 100755 index 000000000..0ed4f4b00 --- /dev/null +++ b/1652/CH19/EX19.6/19_6.sce @@ -0,0 +1,10 @@ +clc
+//Initialization of variables
+D2=0.249
+D1=0.172
+a2=0.00752
+a1=0.00527
+//calculations
+m=(log(D2) -log(D1))/(log(a2) - log(a1))
+//results
+printf("m = %.2f ",m)
diff --git a/1652/CH19/EX19.7/19_7.sce b/1652/CH19/EX19.7/19_7.sce new file mode 100755 index 000000000..886ed0763 --- /dev/null +++ b/1652/CH19/EX19.7/19_7.sce @@ -0,0 +1,17 @@ +clc
+//Initialization of variables
+c=0.1 //M
+V=100 //ml
+v1=25 //ml
+D=0.980
+d1=0.090
+d2=0.150
+//calculations
+a=v1*c/V
+b=(V-v1)*c/V
+Da=a*d1/c
+Db=b*d2/c
+Ddash=Da+Db
+dD=D-Ddash
+//results
+printf("Increase in optical density = %.3f",dD)
diff --git a/1652/CH19/EX19.8/19_8.sce b/1652/CH19/EX19.8/19_8.sce new file mode 100755 index 000000000..6e18b991f --- /dev/null +++ b/1652/CH19/EX19.8/19_8.sce @@ -0,0 +1,7 @@ +clc
+//Initialization of variables
+E=50000 //cal/mol
+//calculations
+lam=2.8593/E
+//results
+printf("For the reaction to occur lambda < %d A",lam*10^8)
diff --git a/1652/CH19/EX19.9/19_9.sce b/1652/CH19/EX19.9/19_9.sce new file mode 100755 index 000000000..e7b856ef8 --- /dev/null +++ b/1652/CH19/EX19.9/19_9.sce @@ -0,0 +1,10 @@ +clc
+//Initialization of variables
+lam=3000*10^-8 //cm
+yield=0.420
+Et=70000 //cal
+//calculations
+E=2.8593/lam
+n=yield*Et/E
+//results
+printf("Amount of reactant disappeared = %.3f mol",n)
diff --git a/1652/CH2/EX2.2/2_2.sce b/1652/CH2/EX2.2/2_2.sce new file mode 100755 index 000000000..8e0479a2e --- /dev/null +++ b/1652/CH2/EX2.2/2_2.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+m1=1.008142
+m2=1.008982
+//calculations
+dm=m1-m2
+dt=abs(dm) *931
+//results
+printf("Increase in kinetic energy = %.3f Mev",dt)
diff --git a/1652/CH2/EX2.3/2_3.sce b/1652/CH2/EX2.3/2_3.sce new file mode 100755 index 000000000..9f541c270 --- /dev/null +++ b/1652/CH2/EX2.3/2_3.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+d=8.642 //g/cc
+M=112.41 //g/mol
+ratio=0.01/100
+nb=2400
+//calculations
+n=d*6.02*10^23 /M
+sigma=nb*10^-24
+x=-2.303*log10(ratio) /(sigma*n)
+//results
+printf("Thickness = %.3f cm",x)
diff --git a/1652/CH2/EX2.4/2_4.sce b/1652/CH2/EX2.4/2_4.sce new file mode 100755 index 000000000..959fba240 --- /dev/null +++ b/1652/CH2/EX2.4/2_4.sce @@ -0,0 +1,13 @@ +clc
+//Initialization of variables
+M1=4
+M2=14
+E=-1.2 //Mev
+//calculations
+R1=1.5*10^-13 *(M1)^(1/3)
+R2=1.5*10^-13 *(M2)^(1/3)
+V1=2*7*(4.8*10^-10)^2 /(R1+R2)
+V2=V1/(1.6*10^-6)
+x=(M1+M2)*V2/M2
+//results
+printf("Threshold = %.1f Mev",x)
diff --git a/1652/CH2/EX2.6/2_6.sce b/1652/CH2/EX2.6/2_6.sce new file mode 100755 index 000000000..e10e892bd --- /dev/null +++ b/1652/CH2/EX2.6/2_6.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+t=1622 //years
+per=1 //percent
+//calculations
+Nratio=1-per/100
+x=t*log10(Nratio) / log10(0.5)
+//results
+printf("Time taken = %.1f years",x)
diff --git a/1652/CH3/EX3.9/3_9.sce b/1652/CH3/EX3.9/3_9.sce new file mode 100755 index 000000000..077837c3a --- /dev/null +++ b/1652/CH3/EX3.9/3_9.sce @@ -0,0 +1,8 @@ +clc
+//initialization of variables
+atoms=5
+//calculations
+f=3*atoms
+fvib=f-3-3
+//results
+printf("Vibrational degrees of freedom = %d",fvib)
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)
diff --git a/1652/CH6/EX6.1/6_1.sce b/1652/CH6/EX6.1/6_1.sce new file mode 100755 index 000000000..26b3901f1 --- /dev/null +++ b/1652/CH6/EX6.1/6_1.sce @@ -0,0 +1,9 @@ +clc
+//initialization of variables
+a2=1/8
+//calculations
+b2=1-a2
+a1=sqrt(a2)
+b1=sqrt(b2)
+//results
+printf(" Wave function is %.2f phi1 +%.2f phi2",a1,b1)
diff --git a/1652/CH6/EX6.10/6_10.sce b/1652/CH6/EX6.10/6_10.sce new file mode 100755 index 000000000..d9000d714 --- /dev/null +++ b/1652/CH6/EX6.10/6_10.sce @@ -0,0 +1,7 @@ +clc
+//initialization of variables
+DHH=42 //kcal/mol
+//calculations
+DHHp=0.5*(DHH)
+//results
+printf("Exchange energy = %.1f kcal/mol",DHHp)
diff --git a/1652/CH6/EX6.3/6_3.sce b/1652/CH6/EX6.3/6_3.sce new file mode 100755 index 000000000..7b8eec018 --- /dev/null +++ b/1652/CH6/EX6.3/6_3.sce @@ -0,0 +1,9 @@ +clc
+//initialization of variables
+sinu=2/sqrt(3)
+cosu=sqrt(2/3)
+//calculations
+tanu=sinu/cosu
+u=atand(sinu/cosu)
+//results
+printf("Bond anagle = %.2f degrees",2*u)
diff --git a/1652/CH6/EX6.4/6_4.sce b/1652/CH6/EX6.4/6_4.sce new file mode 100755 index 000000000..cea9c626b --- /dev/null +++ b/1652/CH6/EX6.4/6_4.sce @@ -0,0 +1,8 @@ +clc
+//initialization of variables
+cosu=1/sqrt(3)
+sinu=sqrt(2/3)
+//calculations
+f=1/2 + sqrt(3) /2 *cosu + sqrt(3/2) *sinu
+//results
+printf("Pauling strength = %d ",f)
diff --git a/1652/CH6/EX6.5/6_5.sce b/1652/CH6/EX6.5/6_5.sce new file mode 100755 index 000000000..cfa7a5eb2 --- /dev/null +++ b/1652/CH6/EX6.5/6_5.sce @@ -0,0 +1,8 @@ +clc
+//initialization of variables
+alpha=60
+//calculations
+cosa=cosd(alpha)
+sina=sind(alpha)
+//results
+printf("Wave function = %.2f s + %.2f pz",cosa,sina)
diff --git a/1652/CH6/EX6.9/6_9.sce b/1652/CH6/EX6.9/6_9.sce new file mode 100755 index 000000000..91b744b57 --- /dev/null +++ b/1652/CH6/EX6.9/6_9.sce @@ -0,0 +1,7 @@ +clc
+//initialization of variables
+DHH=103 //kcal/mol
+//calculations
+DHHp=0.5*(DHH)
+//results
+printf("Bond energy = %.1f kcal/mol",DHHp)
diff --git a/1652/CH7/EX7.2/7_2.sce b/1652/CH7/EX7.2/7_2.sce new file mode 100755 index 000000000..5caaa0c3c --- /dev/null +++ b/1652/CH7/EX7.2/7_2.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+h=76 //cm
+d=13.5951 //g/cc
+g=980.655 //cm/s^2
+T=273.15 //K
+v=22414.6 //cm^3 /mol
+//calculations
+P=h*d*g
+R=P*v/(T)
+//results
+printf("Gas constant = %.3e ergs/deg. mol",R)
diff --git a/1652/CH7/EX7.3/7_3.sce b/1652/CH7/EX7.3/7_3.sce new file mode 100755 index 000000000..3e5c90110 --- /dev/null +++ b/1652/CH7/EX7.3/7_3.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+cal=4.184*10^7 //ergs
+R=8.315*10^7 //ergs/deg/mol
+//calculations
+Rdash=R/cal
+//results
+printf("R in calories = %.3f cal/ deg mol",Rdash)
diff --git a/1652/CH7/EX7.4/7_4.sce b/1652/CH7/EX7.4/7_4.sce new file mode 100755 index 000000000..6f37d7909 --- /dev/null +++ b/1652/CH7/EX7.4/7_4.sce @@ -0,0 +1,10 @@ +clc
+//Initialization of variables
+R=8.315*10^7 //ergs/deg/mol
+T=273.2 //deg
+M=4 //g/mol
+//calculations
+u2=3*T*R/M
+u=sqrt(u2)
+//results
+printf("root mean square velocity = %.2e cm/sec",u)
diff --git a/1652/CH7/EX7.5/7_5.sce b/1652/CH7/EX7.5/7_5.sce new file mode 100755 index 000000000..193387bda --- /dev/null +++ b/1652/CH7/EX7.5/7_5.sce @@ -0,0 +1,18 @@ +clc
+//Initialization of variables
+n1=2
+n2=10
+n3=3
+P=720 //mm of Hg
+//calculations
+n=n1+n2+n3
+x1=n1/n
+P1=x1*P
+x2=n2/n
+P2=x2*P
+x3=n3/n
+P3=x3*P
+//results
+printf("\n Partial pressure of N2 = %d mm",P1)
+printf("\n Partial pressure of O2 = %d mm",P2)
+printf("\n Partial pressure of CO2 = %d mm",P3)
diff --git a/1652/CH7/EX7.6/7_6.sce b/1652/CH7/EX7.6/7_6.sce new file mode 100755 index 000000000..b1a0c7a9a --- /dev/null +++ b/1652/CH7/EX7.6/7_6.sce @@ -0,0 +1,13 @@ +clc
+//Initialization of variables
+T=273.2+25 //K
+n=1 //mol
+R=1.987 //cal/deg mol
+//calculations
+Etr=1.5*n*R*T
+Erot=1.5*n*R*T
+Evib=0
+Eel=0
+Etot=Etr+Erot+Evib+Eel
+//results
+printf("Total energy = %d cal",Etot)
diff --git a/1652/CH7/EX7.7/7_7.sce b/1652/CH7/EX7.7/7_7.sce new file mode 100755 index 000000000..a0a8a8b92 --- /dev/null +++ b/1652/CH7/EX7.7/7_7.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+b=24.1 //cm^2/mol
+N=6.023*10^23 //mole^-1
+//calculations
+d=(3*b/(2*%pi*N))^(1/3)
+//results
+printf("Molecular diameter of He = %.2e cm",d)
diff --git a/1652/CH7/EX7.8/7_8.sce b/1652/CH7/EX7.8/7_8.sce new file mode 100755 index 000000000..fcb12be49 --- /dev/null +++ b/1652/CH7/EX7.8/7_8.sce @@ -0,0 +1,17 @@ +clc
+//Initialization of variables
+P=100 //atm
+T=200 //K
+n=1 //mole
+R=0.08206 //l atm/deg mol
+disp("From psychrometric charts,")
+Tc=126.2 //K
+Pc=33.5 //K
+//calculations
+Pr=P/Pc
+Tr=T/Tc
+disp("From z charts,")
+z=0.83
+V=z*n*R*T/P
+//results
+printf("Volume = %.3f liter",V)
diff --git a/1652/CH8/EX8.1/8_1.sce b/1652/CH8/EX8.1/8_1.sce new file mode 100755 index 000000000..b3999fae4 --- /dev/null +++ b/1652/CH8/EX8.1/8_1.sce @@ -0,0 +1,9 @@ +clc
+//Initialization of variables
+P=1.0132*10^6 //dynes/cm^2
+A=100 //cm^2
+z=10 //cm
+//calculations
+w=P*A*z*10^-7
+//results
+printf("Joules = %.4e J",w)
diff --git a/1652/CH8/EX8.2/8_2.sce b/1652/CH8/EX8.2/8_2.sce new file mode 100755 index 000000000..9d68c7a17 --- /dev/null +++ b/1652/CH8/EX8.2/8_2.sce @@ -0,0 +1,10 @@ +clc
+//Initialization of variables
+P=1.0132*10^6 //dynes/cm^2
+A=100 //cm^2
+z=10 //cm
+//calculations
+w=P*A*z*10^-7
+cal=w/4.184
+//results
+printf("Calories = %.3f cal",cal)
diff --git a/1652/CH8/EX8.3/8_3.sce b/1652/CH8/EX8.3/8_3.sce new file mode 100755 index 000000000..42eb3d16c --- /dev/null +++ b/1652/CH8/EX8.3/8_3.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+T=373.2 //K
+n=1 //mol
+qp=9720 //cal/mol
+//calculations
+q=n*qp
+w=1.987*T
+dE=q-w
+//results
+printf("Heat of vaporization = %d cal",q)
+printf("\n Change in energy = %d cal",dE)
diff --git a/1652/CH8/EX8.4/8_4.sce b/1652/CH8/EX8.4/8_4.sce new file mode 100755 index 000000000..c5a8bbdda --- /dev/null +++ b/1652/CH8/EX8.4/8_4.sce @@ -0,0 +1,13 @@ +clc
+//Initialization of variables
+T1=25+273 //K
+T2=25+273 //K
+//calculations
+disp("Since, T2=T1, dE=0")
+dE=0
+w=0
+q=dE+w
+//results
+printf("\n Work done = %d ",w)
+printf("\n Heat transferred = %d ",q)
+printf("\n Change in energy = %d",dE)
diff --git a/1652/CH8/EX8.5/8_5.sce b/1652/CH8/EX8.5/8_5.sce new file mode 100755 index 000000000..d091d76c2 --- /dev/null +++ b/1652/CH8/EX8.5/8_5.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+R=1.987 //cal/deg mol
+//calculations
+Cvtr=1.5*R
+Cvrot=1.5*R
+Cvt=Cvtr+Cvrot
+disp("Observed Cv= 6.43")
+Cvobs=6.43
+Cvvib=Cvobs-Cvt
+//results
+printf("Vibrational = %.2f cal/deg mol",Cvvib)
diff --git a/1652/CH9/EX9.1/9_1.sce b/1652/CH9/EX9.1/9_1.sce new file mode 100755 index 000000000..e6a308677 --- /dev/null +++ b/1652/CH9/EX9.1/9_1.sce @@ -0,0 +1,15 @@ +clc
+//Initialization of variables
+r=2.1*10^-6 //cm
+n=889
+x=0.1 //cm
+T=298.2 //K
+//calculations
+V=4/3 *%pi *r^3
+rho=19.3-1
+ffd=rho*V*980.7
+eps=ffd*x
+logN=-6.96*10^-14 /(2.303*1.38*10^-16 *T)
+N=10^logN *n
+//results
+printf("No. of particles = %d ",N+1)
diff --git a/1652/CH9/EX9.2/9_2.sce b/1652/CH9/EX9.2/9_2.sce new file mode 100755 index 000000000..354568f4c --- /dev/null +++ b/1652/CH9/EX9.2/9_2.sce @@ -0,0 +1,11 @@ +clc
+//Initialization of variables
+x=1 //percent
+wave=1595 //cm^-1
+//calculations
+E=2.8593*wave
+Nratio=(100-x)/x
+logN=log10(Nratio)
+T=E/(2.303*1.987*logN)
+//results
+printf("Temperature = %d K",T)
|