1 files changed, 21 insertions, 0 deletions
diff --git a/2024/CH9/EX9.16/9_16.sce b/2024/CH9/EX9.16/9_16.sce
new file mode 100755
index 000000000..e2acc3321
--- /dev/null
+++ b/2024/CH9/EX9.16/9_16.sce
@@ -0,0 +1,21 @@
+clc
+//Initialization of variables
+p1=100 //psia
+p2=14.7 //psia
+k=1.4
+T1=700 //R
+R=10.73/29
+V=50
+cv=0.171
+cp=0.24
+R2=1.986/29
+//calculations
+T2=T1/ (p1/p2)^((k-1)/k)
+T2=358 //R
+m1=p1*V/(R*T1)
+m2=p2*V/(R*T2)
+Wrev= cv*(m1*T1 - m2*T2) - (m1-m2)*(T2)*cp
+Wrev2=m1*cv*(T1-T2) - m1*R2*(T2-p2/p1*T1)
+//results
+printf("Work done in case 1 = %d Btu",Wrev)
+printf("\n Work done in case 2 = %d Btu",Wrev2)