diff options
Diffstat (limited to '2519/CH12/EX12.3/Ex12_3.sce')
| -rwxr-xr-x | 2519/CH12/EX12.3/Ex12_3.sce | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/2519/CH12/EX12.3/Ex12_3.sce b/2519/CH12/EX12.3/Ex12_3.sce new file mode 100755 index 000000000..8ab0d4e29 --- /dev/null +++ b/2519/CH12/EX12.3/Ex12_3.sce @@ -0,0 +1,16 @@ +clc
+clear
+//Initialization of variables
+p1=100 //psia
+p2=10 //psia
+n=1.3
+T1=800 //R
+cv=0.172
+R=1.986/29
+//calculations
+T2=T1*(p2/p1)^((n-1)/n)
+dwir=cv*(T1-T2)
+dwr=R*(T2-T1)/(1-n)
+dq=dwr-dwir
+//results
+printf("The friction of the process per pound of air = %.1f Btu/lbm",dq)
|