diff options
Diffstat (limited to '3689/CH2')
| -rw-r--r-- | 3689/CH2/EX2.1/2_1.sce | 47 | ||||
| -rw-r--r-- | 3689/CH2/EX2.2/2_2.sce | 21 | ||||
| -rw-r--r-- | 3689/CH2/EX2.3/2_3.sce | 11 | ||||
| -rw-r--r-- | 3689/CH2/EX2.4/2_4.sce | 38 | ||||
| -rw-r--r-- | 3689/CH2/EX2.5/2_5.sce | 52 | ||||
| -rw-r--r-- | 3689/CH2/EX2.6/2_6.sce | 27 | ||||
| -rw-r--r-- | 3689/CH2/EX2.7/2_7.sce | 15 |
7 files changed, 211 insertions, 0 deletions
diff --git a/3689/CH2/EX2.1/2_1.sce b/3689/CH2/EX2.1/2_1.sce new file mode 100644 index 000000000..efcd69f77 --- /dev/null +++ b/3689/CH2/EX2.1/2_1.sce @@ -0,0 +1,47 @@ +////
+//Variable Declaration Part a
+vi = 20.0 //Initial volume of ideal gas, L
+vf = 85.0 //final volume of ideal gas, L
+Pext = 2.5 //External Pressure against which work is done, bar
+
+//Calculations
+w = -Pext*1e5*(vf-vi)*1e-3
+
+//Results
+printf("\n Part a: Work done in expansion is %6.1f kJ",w/1000)
+
+
+//Variable Declaration Part b
+ri = 1.00 //Initial diameter of bubble, cm
+rf = 3.25 //final diameter of bubble, cm
+sigm = 71.99 //Surface tension, N/m
+
+//Calculations
+w = -2*sigm*4*%pi*(rf**2-ri**2)*1e-4
+
+//Results
+printf("\n Part b: Work done in expansion of bubble is %4.2f J",w)
+
+
+//Variable Declaration Part c
+i = 3.20 //Current through heating coil, A
+v = 14.5 //fVoltage applied across coil, volts
+t = 30.0 //time for which current is applied,s
+
+////Calculations
+w = v*i*t
+
+//Results
+printf("\n Part c: Work done in paasing the cuurent through coil is %4.2f kJ",w/1000)
+
+
+//Variable Declaration Part d
+k = 100.0 //Constant in F = -kx, N/cm
+dl = -0.15 //stretch , cm
+
+////Calculations
+w = -k*(dl**2-0)/2
+
+//Results
+printf("\n Part d: Work done stretching th fiber is %4.2f J",w)
+
diff --git a/3689/CH2/EX2.2/2_2.sce b/3689/CH2/EX2.2/2_2.sce new file mode 100644 index 000000000..9ff1cb0b8 --- /dev/null +++ b/3689/CH2/EX2.2/2_2.sce @@ -0,0 +1,21 @@ +////Variable Declaration
+m = 100.0 //Mass of water, g
+T = 100.0 //Temperature of water, °C
+Pext = 1.0 //External Pressure on assembly, bar
+x = 10.0 //percent of water vaporised at 1 bar,-
+i = 2.00 //current through heating coil, A
+v = 12.0 //Voltage applied, v
+t = 1.0e3 //time for which current applied, s
+rhol = 997 //Density of liquid, kg/m3
+rhog = 0.59 //Density of vapor, kg/m3
+
+//Calculations
+q = i*v*t
+vi = m/(rhol*100)*1e-3
+vf = m*(100-x)*1e-3/(rhol*100) + m*x*1e-3/(rhog*100)
+w = -Pext*(vf-vi)*1e5
+//Results
+printf("\n Heat added to the water %4.2f kJ",q/1000)
+
+printf("\n Work done in vaporizing liquid is %4.2f J",w)
+
diff --git a/3689/CH2/EX2.3/2_3.sce b/3689/CH2/EX2.3/2_3.sce new file mode 100644 index 000000000..71cefee96 --- /dev/null +++ b/3689/CH2/EX2.3/2_3.sce @@ -0,0 +1,11 @@ +////Variable Declaration Part d
+m = 1.5
+dT = 14.2 //Change in temperature of water, °C or K
+cp = 4.18 //Specific heat of water at constant pressure, J/(g.K)
+
+//Calculations
+qp = m*cp*dT
+
+//Results
+printf("\n Heat removed by water at constant pressure %4.2f kJ",qp)
+
diff --git a/3689/CH2/EX2.4/2_4.sce b/3689/CH2/EX2.4/2_4.sce new file mode 100644 index 000000000..933bce944 --- /dev/null +++ b/3689/CH2/EX2.4/2_4.sce @@ -0,0 +1,38 @@ +////
+//Variable declaration
+n = 2.0 //moles of ideal gas
+R = 8.314 //Ideal gas constant, bar.L/(mol.K)
+//For reverssible Isothermal expansion
+Pi1 = 25.0 //Initial Pressure of ideal gas, bar
+Vi1 = 4.50 //Initial volume of ideal gas, L
+Pf1 = 4.50 //Fianl Pressure of ideal gas, bar
+Pext = 4.50 //External pressure, bar
+Pint = 11.0 //Intermediate pressure, bar
+
+//Calcualtions reverssible Isothermal expansion
+T1 = Pi1*Vi1/(n*R)
+Vf1 = n*R*T1/Pf1
+w = -n*R*T1*log(Vf1/Vi1)
+
+//Results
+printf("\n For reverssible Isothermal expansion')
+printf("\n Work done = %4.2e J",w)
+
+
+//Calcualtions Single step irreverssible expansion
+
+w = -Pext*1e5*(Vf1-Vi1)*1e-3
+
+//Results
+printf("\n For Single step reverssible expansion')
+printf("\n Work done = %4.2e J",w)
+
+
+//Calcualtions Two step irreverssible expansion
+Vint = n*R*T1/(Pint)
+w = -Pint*1e5*(Vint-Vi1)*1e-3 - Pf1*1e5*(Vf1-Vint)*1e-3
+
+//Results
+printf("\n For Two step reverssible expansion')
+printf("\n Work done = %4.2e J",w)
+
diff --git a/3689/CH2/EX2.5/2_5.sce b/3689/CH2/EX2.5/2_5.sce new file mode 100644 index 000000000..1e2549155 --- /dev/null +++ b/3689/CH2/EX2.5/2_5.sce @@ -0,0 +1,52 @@ +////
+//Variable declaration
+n = 2.5 //moles of ideal gas
+R = 0.08314 //Ideal gas constant, bar.L/(mol.K)
+cvm = 20.79 //Heat Capacity at constant volume, J/(mol.K)
+
+p1 = 16.6 //Pressure at point 1, bar
+v1 = 1.00 //Volume at point 1, L
+p2 = 16.6 //Pressure at point 2, bar
+v2 = 25.0 //Volume at point 2, L
+v3 = 25.0 //Volume at point 3, L
+
+//Calculations
+T1 = p1*v1/(n*R)
+T2 = p2*v2/(n*R)
+T3 = T1 //from problem statement
+ //for path 1-2
+DU12 = n*cvm*(T2-T1)
+w12 = -p1*1e5*(v2-v1)*1e-3
+q12 = DU12 - w12
+DH12 = DU12 + n*R*(T2-T1)*1e2
+
+ //for path 2-3
+w23 = 0.0
+DU23=n*cvm*(T3-T2)
+;q23=n*cvm*(T3-T2)
+;
+DH23 = -DH12
+
+
+ //for path 3-1
+DU31 = 0.0 //Isothemal process
+DH31 = 0.0
+w31 = -n*R*1e2*T1*log(v1/v3)
+q31 = -w31
+
+DU = DU12+DU23+DU31
+w = w12+w23+w31
+q = q12+q23+q31
+DH = DH12+DH23+DH31
+
+//Results
+printf("\n For Path q w DU DH ')
+printf("\n 1-2 %7.2f %7.2f %7.2f %7.2f",q12,w12,DU12,DH12)
+
+printf("\n 2-3 %7.2f %7.2f %7.2f %7.2f",q23,w23,DU23,DH23)
+
+printf("\n 3-1 %7.2f %7.2f %7.2f %7.2f",q31,w31,DU31,DH31)
+
+printf("\n Overall %7.2f %7.2f %7.2f %7.2f",q,w,DU,DH)
+
+printf("\n all values are in J')
diff --git a/3689/CH2/EX2.6/2_6.sce b/3689/CH2/EX2.6/2_6.sce new file mode 100644 index 000000000..bef642742 --- /dev/null +++ b/3689/CH2/EX2.6/2_6.sce @@ -0,0 +1,27 @@ +////Variable Declaration Part d
+n = 2.5 //moles of ideal gas
+R = 8.314 //Ideal gas constant, J/(mol.K)
+cvm = 12.47 //Heat Capacity at constant volume, J/(mol.K)
+
+pext = 1.00 //External Pressure, bar
+Ti = 325. //Initial Temeprature, K
+pi = 2.50 //Initial Pressure, bar
+pf = 1.25 //Final pressure, bar
+
+//Calculations Adiabatic process q = 0; DU = w
+q = 0.0
+Tf = Ti*(cvm + R*pext/pi)/(cvm + R*pext/pf )
+DU=n*cvm*(Tf-Ti)
+;w=n*cvm*(Tf-Ti)
+;
+DH = DU + n*R*(Tf-Ti)
+
+//Results
+printf("\n The final temperature at end of adiabatic procees is %4.1f K",Tf)
+
+printf("\n The enthalpy change of adiabatic procees is %4.1f J",DH)
+
+printf("\n The Internal energy change of adiabatic procees is %4.1f J",DU)
+
+printf("\n The work done in expansion of adiabatic procees is %4.1f J",w)
+
diff --git a/3689/CH2/EX2.7/2_7.sce b/3689/CH2/EX2.7/2_7.sce new file mode 100644 index 000000000..7fe090746 --- /dev/null +++ b/3689/CH2/EX2.7/2_7.sce @@ -0,0 +1,15 @@ +////
+//Variable Declaration Part d
+h1 = 1000.0 //initial Altitude of cloud, m
+hf = 3500.0 //Final Altitude of cloud, m
+p1 = 0.802 //Pressure at h1, atm
+pf = 0.602 //Pressure at hf, atm
+T1 = 288.0 //Initial temperature of cloud, K
+cp = 28.86 //Specific heat of air, J/mol.K
+R = 8.314 //Gas constant, J/mol.K
+
+//Calculations
+Tf = exp(-(cp/(cp-R)-1)/(cp/(cp-R))*log(p1/pf))*T1
+//Results
+printf("\n Final temperature of cloud %4.1f K",Tf)
+
|