diff options
Diffstat (limited to '51/CH11/EX11.2/11_2.sce')
| -rwxr-xr-x | 51/CH11/EX11.2/11_2.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/51/CH11/EX11.2/11_2.sce b/51/CH11/EX11.2/11_2.sce new file mode 100755 index 000000000..bf0f47b03 --- /dev/null +++ b/51/CH11/EX11.2/11_2.sce @@ -0,0 +1,11 @@ +clc;
+clear;
+D=4;//in
+T1=540;//degree R
+p1=100;//psia
+T2=453;//degree R
+p2=18.4;//psia
+
+dratio=(p1/T1)*(T2/p2);
+sdif=(cv*(log(T2/T1)))+(R*(log(dratio)));//ft*lb/lbm*(degree R); change in entropy
+disp("ft*lb/lbm*(degree R)",sdif,"The change in entropy between (1) and (2)=")
|