1 files changed, 24 insertions, 0 deletions
diff --git a/2024/CH9/EX9.2/9_2.sce b/2024/CH9/EX9.2/9_2.sce
new file mode 100755
index 000000000..e728b6a32
--- /dev/null
+++ b/2024/CH9/EX9.2/9_2.sce
@@ -0,0 +1,24 @@
+clc
+//Initialization of variables
+n=1.4
+p1=50 //psia
+J=778
+cp=0.24
+T1=520 //R
+k=n
+R=1545/29
+m=1
+p2=10 //psia
+//calculations
+rpt=(2/(n+1))^(n/(n-1))
+pt=p1*rpt
+Vtrev=223.77*sqrt(cp*T1*(1- rpt^((k-1)/k)))
+v1=R*T1/p1/144
+vt=v1*(p1/pt)^(1/k)
+At=m*vt/Vtrev
+V2rev=223.77*sqrt(cp*T1*(1-(p2/p1)^((k-1)/k)))
+v2=v1*(p1/p2)^(1/k)
+A2=m*v2/V2rev
+//results
+printf("Area required = %.5f ft^2",At)
+printf("\n Area in case 2 = %.5f ft^2",A2)