diff options
Diffstat (limited to '3831/CH14/EX14.13/Ex14_13.sce')
| -rw-r--r-- | 3831/CH14/EX14.13/Ex14_13.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/3831/CH14/EX14.13/Ex14_13.sce b/3831/CH14/EX14.13/Ex14_13.sce new file mode 100644 index 000000000..20152442c --- /dev/null +++ b/3831/CH14/EX14.13/Ex14_13.sce @@ -0,0 +1,15 @@ +// Example 14_13
+clc;funcprot(0);
+// Given data
+mu_j=0.0300;// °F/psi
+p_1=300;// psia
+p_2=14.7;// psia
+T_1=70.0;// °F
+n_s_c=90.0/100;// The isentropic efficiency of the air compressor
+k=1.40;// The specific heat ratio
+
+// Calculation
+dT=mu_j*(p_2-p_1);// °F
+T_2=T_1+dT;// °F
+COP_RAC=(mu_j*(p_2-p_1))/(((T_1+459.67)*[((p_2/p_1)^((k-1)/k))-1])/n_s_c);// The coefficient of performance
+printf("\nThe outlet temperature,T_2=%2.1f°F \nCOP of a Joule-Thomson expansion throttling device,COP=%0.4f",T_2,COP_RAC);
|