3 files changed, 48 insertions, 0 deletions
diff --git a/1460/CH5/EX5.1/5_1.sce b/1460/CH5/EX5.1/5_1.sce
new file mode 100755
index 000000000..5511a1ea9
--- /dev/null
+++ b/1460/CH5/EX5.1/5_1.sce
@@ -0,0 +1,10 @@
+clc
+//Initialization of variables
+Tr=540 //R
+Te=2000 //R
+m=200 //B/lbm
+//calculations
+eta=1-(Tr/Te)
+Qr=m*(1-eta)
+//results
+printf("Heat rejected = %d B/lbm",Qr)
diff --git a/1460/CH5/EX5.2/5_2.sce b/1460/CH5/EX5.2/5_2.sce
new file mode 100755
index 000000000..1ff9e21e9
--- /dev/null
+++ b/1460/CH5/EX5.2/5_2.sce
@@ -0,0 +1,12 @@
+clc
+//Initialization of variables
+cv=0.171  //B/lbm F
+T2=580  //F
+T1=520 //F
+//calculations
+function [cp]=fun(T)
+    cp=cv/T
+endfunction
+ds=intg(T1,T2,fun)
+//results
+printf("Change in entropy = %.4f B/lbm R",ds)
diff --git a/1460/CH5/EX5.3/5_3.sce b/1460/CH5/EX5.3/5_3.sce
new file mode 100755
index 000000000..65ba679ff
--- /dev/null
+++ b/1460/CH5/EX5.3/5_3.sce
@@ -0,0 +1,26 @@
+clc
+//Initialization of variables
+Q=100 //B/lbm
+Cp=0.24 //B/lbm F
+T1=70+460 //R
+T2=550+460 //R
+Ts=50+460 //R
+//calculations
+function [cp]=fun(T)
+    cp=Cp/T
+endfunction
+ds1=intg(T1,T2,fun)
+Tf=Q/Cp +T1
+ds2=intg(T1,Tf,fun)
+Qr=Ts*(ds2)
+Qa=Q-Qr
+Qun=Ts*(ds1)
+Qa2=Q-Qun
+//results
+printf("Case 1")
+printf("\n Change in entropy = %.4f B/lbm R",ds1)
+printf("\n case 2")
+printf("\n Entropy change = %.4f B/lbm R",ds2)
+printf("\n Available energy = %.1f B/lbm",Qa)
+printf("\n case 3")
+printf("\n Available energy = %.1f B//lbm",Qa2)