summaryrefslogtreecommitdiff
path: root/3831/CH10/EX10.1
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3831/CH10/EX10.1
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3831/CH10/EX10.1')
-rw-r--r--3831/CH10/EX10.1/Ex10_1.sce25
1 files changed, 25 insertions, 0 deletions
diff --git a/3831/CH10/EX10.1/Ex10_1.sce b/3831/CH10/EX10.1/Ex10_1.sce
new file mode 100644
index 000000000..12ee45519
--- /dev/null
+++ b/3831/CH10/EX10.1/Ex10_1.sce
@@ -0,0 +1,25 @@
+// Example 10_1
+clc;funcprot(0);
+// Given data
+p_0=0.101;// MPa
+T=10;// °C
+T_0=20+273;// K
+L=0.150;// m
+D=0.0700;// m
+R=D/2;// m
+rho=1000;// kg/m^3
+Z=0.762;// m
+g=9.81;// m/s^2
+g_c=1;// The gravitational constant
+
+// Calculation
+m=%pi*R^2*((3/4)*L)*rho;// kg
+// From Table C.1b of Thermodynamic Tables to accompany Modern Engineering Thermodynamics
+u=42.0;// kJ/kg
+u_0=83.9;// kJ/kg
+v=0.001000;// m^3/kg
+v_0=0.001002;// m^3/kg
+s=0.1510;// kJ/kg.K
+s_0=0.2965;// kJ/kg.K
+A=m*[(u-u_0)+((p_0*10^3)*(v-v_0))-(T_0*(s-s_0))+0+((g*Z)/g_c)];// kJ
+printf("\nThe total availability of the water in the glass relative to the floor,A=%1.2f kJ",A);