1 files changed, 13 insertions, 0 deletions
diff --git a/1460/CH6/EX6.8/6_8.sce b/1460/CH6/EX6.8/6_8.sce
new file mode 100755
index 000000000..95b9256ae
--- /dev/null
+++ b/1460/CH6/EX6.8/6_8.sce
@@ -0,0 +1,13 @@
+clc
+//Initialization of variables
+P1=15 //lb/in^2
+P2=20 //lb/in^2
+T1=40+460 //R
+T2=540+460 //R
+//calculations
+disp("From table 6 at the two temperatures")
+phi1=0.58233
+phi2=0.75042
+ds=phi2-phi1-53.3*log(P2/P1) /778
+//results
+printf("Entropy change = %.5f B/lbm R",ds)