diff options
Diffstat (limited to '1709/CH10')
-rwxr-xr-x | 1709/CH10/EX10.1/10_1.sce | 14 | ||||
-rwxr-xr-x | 1709/CH10/EX10.2/10_2.sce | 12 | ||||
-rwxr-xr-x | 1709/CH10/EX10.3/10_3.sce | 21 | ||||
-rwxr-xr-x | 1709/CH10/EX10.4/10_4.sce | 12 | ||||
-rwxr-xr-x | 1709/CH10/EX10.5/10_5.sce | 12 | ||||
-rwxr-xr-x | 1709/CH10/EX10.6/10_6.sce | 16 | ||||
-rwxr-xr-x | 1709/CH10/EX10.7/10_7.sce | 8 | ||||
-rwxr-xr-x | 1709/CH10/EX10.8/10_8.sce | 16 |
8 files changed, 111 insertions, 0 deletions
diff --git a/1709/CH10/EX10.1/10_1.sce b/1709/CH10/EX10.1/10_1.sce new file mode 100755 index 000000000..cc50f27f8 --- /dev/null +++ b/1709/CH10/EX10.1/10_1.sce @@ -0,0 +1,14 @@ +clc
+//Initialization of variables
+m=2
+M=28
+M2=32
+PN=300 //psia
+Pt=400 //psia
+//calculations
+nN=m/M
+PO=Pt-PN
+nO=nN*PO/PN
+mO=M2*nO
+//results
+printf("Mass of oxygen added = %.3f lbm",mO)
diff --git a/1709/CH10/EX10.2/10_2.sce b/1709/CH10/EX10.2/10_2.sce new file mode 100755 index 000000000..a97db2a66 --- /dev/null +++ b/1709/CH10/EX10.2/10_2.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+n=0.0714
+R=1545
+T=560 //R
+P=400 //psia
+//clculations
+VN=n*R*T/(P*144)
+VO=(0.0238)*R*T/(P*144)
+V=VN+VO
+//results
+printf("Total volume = %.3f ft^3",V)
diff --git a/1709/CH10/EX10.3/10_3.sce b/1709/CH10/EX10.3/10_3.sce new file mode 100755 index 000000000..ec1dfb3aa --- /dev/null +++ b/1709/CH10/EX10.3/10_3.sce @@ -0,0 +1,21 @@ +clc
+//Initialization of variables
+m1=5
+m2=2
+cp1=0.248
+cp2=0.203
+T11=300 //F
+T12=100 //F
+P=10 //psia
+Pi=20 //psia
+Pf=15 //psia
+//calculations
+T2=(m1*cp1*T11 + m2*cp2*T12)/(m1*cp1+m2*cp2)
+n1=m1/28
+n2=m2/44
+n=n1+n2
+P1=P*n1/n
+P2=P*n2/n
+dS=m2*(cp2*log((T2+460)/(T12+460)) - 35.1/778 *log(P2/Pi)) +m2*(cp2*log((T2+460)/(T12+460)) - 55.2/778 *log(P1/Pf))
+//results
+printf("change in enthalpy = %.2f B/R",dS)
diff --git a/1709/CH10/EX10.4/10_4.sce b/1709/CH10/EX10.4/10_4.sce new file mode 100755 index 000000000..cc63d38a3 --- /dev/null +++ b/1709/CH10/EX10.4/10_4.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+Pg=2.8886 //psia
+P=25 //psia
+phi=0.5
+//calculations
+pv=phi*Pg
+pa=P-pv
+w=0.622*pv/pa
+x=(w)/(1+w)
+//results
+printf("Mass fraction of water vapor in the mixture = %.4f lbm vapor/ lvm mixture",x)
diff --git a/1709/CH10/EX10.5/10_5.sce b/1709/CH10/EX10.5/10_5.sce new file mode 100755 index 000000000..a3d289fe6 --- /dev/null +++ b/1709/CH10/EX10.5/10_5.sce @@ -0,0 +1,12 @@ +clc
+//Initialization of variables
+pgw=0.5069 //psia
+p=14.696 //psia
+Td=100 //F
+Tw=80 //F
+//calculations
+pv= pgw- (p-pgw)*(Td-Tw)/(2800-Tw)
+pg=0.9492 //psia
+phi=pv/pg
+//results
+printf("relative humidity of air stream = %.1f percent",phi*100)
diff --git a/1709/CH10/EX10.6/10_6.sce b/1709/CH10/EX10.6/10_6.sce new file mode 100755 index 000000000..d51e69c94 --- /dev/null +++ b/1709/CH10/EX10.6/10_6.sce @@ -0,0 +1,16 @@ +clc
+//Initialization of variables
+w1=0.0176 //lbm
+w2=0.0093 //lbm
+T2d=73//F
+T2=55 //F
+//calculations
+disp("From steam tables,")
+hv1=1061+0.445*100
+hv2=1061+0.445*55
+hf=23.06
+q1=20
+q2=4.88
+//results
+printf("Heat removed in cooling section = %d Btu/lbm ",q1)
+printf("Heat added in heating section = %.2f Btu/lbm ",q2)
diff --git a/1709/CH10/EX10.7/10_7.sce b/1709/CH10/EX10.7/10_7.sce new file mode 100755 index 000000000..4b0dc46ff --- /dev/null +++ b/1709/CH10/EX10.7/10_7.sce @@ -0,0 +1,8 @@ +clc
+//Initialization of variables
+Tdb=115 //F
+ph=0.05
+
+Twb=67 //F
+//results
+disp("From steam tables, Twb=67 F")
diff --git a/1709/CH10/EX10.8/10_8.sce b/1709/CH10/EX10.8/10_8.sce new file mode 100755 index 000000000..741dac671 --- /dev/null +++ b/1709/CH10/EX10.8/10_8.sce @@ -0,0 +1,16 @@ +clc
+//Initialization of variables
+w1=206
+w2=55
+ma1=2
+ma2=3
+//calculations
+w3= (ma1*w1 + ma2*w2)/(ma1+ma2)
+disp("From psychrometric chart,")
+Tdb3=82 //F
+TWb3=74.55 //F
+phi3=70 //percent
+//results
+printf("relative humidity = %d percent",phi3)
+printf("\n Dry bulb temperature = %d F",Tdb3)
+printf("\n Wet bulb temperature = %.2f F",TWb3)
|