6 files changed, 146 insertions, 0 deletions
diff --git a/2024/CH14/EX14.1/14_1.sce b/2024/CH14/EX14.1/14_1.sce
new file mode 100755
index 000000000..2e1ce1280
--- /dev/null
+++ b/2024/CH14/EX14.1/14_1.sce
@@ -0,0 +1,19 @@
+clc
+//Initialization of variables
+Ta=500 //R
+Tr=540 //R
+//calculations
+cop=Ta/(Tr-Ta)
+hp=4.71/cop
+disp("From steam tables,")
+ha=48.02
+hb=46.6
+hc=824.1
+hd=886.9
+Wc=-(hd-hc)
+We=-(hb-ha)
+//results
+printf("Coefficient of performance = %.1f ",cop)
+printf("\n horsepower required per ton of refrigeration = %.3f hp/ton refrigeration",hp)
+printf("\n Work of compression = %.1f Btu/lbm",Wc)
+printf("\n Work of expansion = %.2f Btu/lbm",We)
diff --git a/2024/CH14/EX14.3/14_3.sce b/2024/CH14/EX14.3/14_3.sce
new file mode 100755
index 000000000..b5effb307
--- /dev/null
+++ b/2024/CH14/EX14.3/14_3.sce
@@ -0,0 +1,27 @@
+clc
+//Initialization of variables
+hc=613.3//btu/lbm
+hb=138.9//btu/lbm
+ha=138.9//btu/lbm
+hd=713.4 //btu/lbm
+ta=464.7 //R
+t0=545.7 //R
+v=8.150 //ft^3/lbm
+//calculations
+Qa=hc-hb
+Qr=ha-hd
+Wcd=Qa+Qr
+cop=abs(Qa/Wcd)
+hp=abs(4.71/cop)
+carnot=abs(ta/(t0-ta))
+rel=abs(cop/carnot)
+mass=200/Qa
+C=mass*v
+//results
+printf("Work done = %.1f Btu/lbm",Wcd)
+printf("\n horsepower required per ton of refrigeration = %.3f hp/ton refrigeration",hp)
+printf("\n Coefficient of performance actual = %.2f ",cop)
+printf("\n Ideal cop = %.3f",carnot)
+printf("\n relative efficiency = %.3f",rel)
+printf("\n Mass flow rate = %.3f lbm/min ton",mass)
+printf("\n Compressor capacity = %.2f cfm/ton",C)
diff --git a/2024/CH14/EX14.4/14_4.sce b/2024/CH14/EX14.4/14_4.sce
new file mode 100755
index 000000000..8405f997c
--- /dev/null
+++ b/2024/CH14/EX14.4/14_4.sce
@@ -0,0 +1,13 @@
+clc
+//Initialization of variables
+k=1.29
+R=1.986/17.024
+T1=464.7
+pr=4.94
+//calculations
+Wrev= k*R*T1/(1-k) *(pr^((k-1)/k) -1)
+Wold=-100.1 //Btu/lbm
+err=(Wrev-Wold)/Wrev
+//results
+printf("Work done = %.1f Btu/lbm",Wrev)
+printf("\n error = %.1f percent",err*100)
diff --git a/2024/CH14/EX14.5/14_5.sce b/2024/CH14/EX14.5/14_5.sce
new file mode 100755
index 000000000..08e55884a
--- /dev/null
+++ b/2024/CH14/EX14.5/14_5.sce
@@ -0,0 +1,43 @@
+clc
+//Initialization of variables
+hc=73.5
+hb=26.28
+hd=91.58
+hc2=190.7
+hd2=244.3
+hb2=44.4
+m1=1 //lbm
+m2=0.461 //lbm
+hc1=73.5
+hd1=83.35
+hc2=197.58
+hd2=224
+hb1=12.55
+//Calculations
+w1=hc-hd
+qa1=hc-hb
+cop1=abs(qa1/(w1))
+hp1=4.71/cop1
+w2=hc2-hd2
+qa2=hc2-hb2
+cop2=abs(qa2/(w2))
+hp2=4.71/cop2
+qa3=m1*(hc1-hb1)
+w3=m1*(hc1-hd1) + m2*(hc2-hd2)
+cop3=abs(qa3/w3)
+hp3=4.71/cop3
+//results
+disp("part a")
+printf("Work done = %.2f Btu/lbm",w1)
+printf("\n Heat = %.2f Btu/lbm",qa1)
+printf("\n horsepower required per ton of refrigeration = %.3f hp/ton refrigeration",hp1)
+printf("\n Coefficient of performance actual = %.2f ",cop1)
+printf("\n Work done = %.1f Btu/lbm",w2)
+printf("\n Heat = %.2f Btu/lbm",qa2)
+printf("\n horsepower required per ton of refrigeration = %.3f hp/ton refrigeration",hp2)
+printf("\n Coefficient of performance actual = %.2f ",cop2)
+disp("part b")
+printf("\n Work done = %.1f Btu/lbm",w3)
+printf("\n Heat = %.2f Btu/lbm",qa3)
+printf("\n horsepower required per ton of refrigeration = %.3f hp/ton refrigeration",hp3)
+printf("\n Coefficient of performance actual = %.2f ",cop3)
diff --git a/2024/CH14/EX14.6/14_6.sce b/2024/CH14/EX14.6/14_6.sce
new file mode 100755
index 000000000..6d77328f2
--- /dev/null
+++ b/2024/CH14/EX14.6/14_6.sce
@@ -0,0 +1,19 @@
+clc
+//Initialization of variables
+ha=44.36
+hc=18.04
+hj=197.58
+hh=213.5
+hd=hc
+he=190.66
+hk=241.25
+//calculations
+m=(hc-ha)/(ha-hj)
+hi=(m*hj+hh)/(1+m)
+Qa=he-hd
+W=he-hh + (1+m)*(hi-hk)
+cop=abs(Qa/W)
+hp=4.71/cop
+//results
+printf("\n horsepower required per ton of refrigeration = %.3f hp/ton refrigeration",hp)
+printf("\n Coefficient of performance actual = %.2f ",cop)
diff --git a/2024/CH14/EX14.7/14_7.sce b/2024/CH14/EX14.7/14_7.sce
new file mode 100755
index 000000000..d5f365a26
--- /dev/null
+++ b/2024/CH14/EX14.7/14_7.sce
@@ -0,0 +1,25 @@
+clc
+//Initialization of variables
+pc=0.6982 //psia
+pe=0.1217 //psia
+m=200 //gal/min
+qual=0.98
+h1=23.07 //Btu/lbm
+h2=8.05  //Btu/lbm
+hw=1071.3
+//calculations
+rp=pc/pe
+m2=m/0.01602 *0.1388 //Conversion of units 
+m2=1670
+dh=15.02
+Qa=m2*(h1-h2)
+h3=h2 + qual*hw
+m3=Qa/(h3-h1)
+v=0.016+ qual*2444
+C=m3*v
+//results
+printf("Pressure ratio = %.2f",rp)
+printf("\n Heat = %d Btu/min",Qa)
+printf("\n Water make up required = %.2f lbm/min",m3)
+printf("\n Volume of vapor entering ejector = %d ft^3/min",C)
+//The answers are a bit different due to rounding off error in textbook