3 files changed, 54 insertions, 0 deletions
diff --git a/2519/CH7/EX7.2/Ex7_2.sce b/2519/CH7/EX7.2/Ex7_2.sce
new file mode 100755
index 000000000..619a71d65
--- /dev/null
+++ b/2519/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,21 @@
+clc
+clear
+//Initialization of variables
+cv=0.175 //Btu/lbm R
+R0=1.986
+M=29
+T2=1040 //R
+T1=520 //R
+//calculations
+cp=cv+R0/M
+sab=cv*log(T2/T1)
+sac=cp*log(T2/T1)
+dqab=cv*(T2-T1)
+dqca=cp*(T1-T2)
+dqrev=T2*(sac-sab)
+eta=(dqab+dqrev+dqca)/(dqab+dqrev)
+//results
+printf("Entropy in ab part = %.4f Btu/lbm R",sab)
+printf("\n Entropy in ac part = %.4f Btu/lbm R",sac)
+printf("\n Efficiency = %.2f percent",eta*100)
+disp("The answers are a bit different due to rounding off error in textbook")
diff --git a/2519/CH7/EX7.3/Ex7_3.sce b/2519/CH7/EX7.3/Ex7_3.sce
new file mode 100755
index 000000000..6b331133a
--- /dev/null
+++ b/2519/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,19 @@
+clc
+clear
+//Initialization of variables
+tc=32 //F
+th=80 //F
+mw=5 //lbm
+mi=1 //lbm
+P=14.7 //psia
+cp=1
+//calculations
+t= (-144*mi+tc*mi+th*mw)/(mw+mi)
+ds1=144/(tc+460)
+ds2=cp*log((460+t)/(460+tc))
+dsice=ds1+ds2
+dswater=mw*cp*log((t+460)/(460+th))
+ds=dsice+dswater
+//results
+printf("Change in entropy of the process = %.4f Btu/R",ds)
+disp("The answer is a bit different due to rounding off error in textbook")
diff --git a/2519/CH7/EX7.4/Ex7_4.sce b/2519/CH7/EX7.4/Ex7_4.sce
new file mode 100755
index 000000000..80e3380a9
--- /dev/null
+++ b/2519/CH7/EX7.4/Ex7_4.sce
@@ -0,0 +1,14 @@
+clc
+clear
+//Initialization of variables
+cp=1
+T2=60 //F
+T1=100 //F
+ta=32 //F
+//calculations
+dq=cp*(T2-T1)
+ds=cp*log((460+T2)/(460+T1))
+dE=dq-ds*(ta+460)
+//results
+printf("Change in available energy = %.1f Btu/lbm",dE)
+disp("The answer is a bit different due to rounding off error in textbook")