summaryrefslogtreecommitdiff
path: root/1100/CH16/EX16.1
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1100/CH16/EX16.1
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1100/CH16/EX16.1')
-rwxr-xr-x1100/CH16/EX16.1/16_1.sce19
1 files changed, 19 insertions, 0 deletions
diff --git a/1100/CH16/EX16.1/16_1.sce b/1100/CH16/EX16.1/16_1.sce
new file mode 100755
index 000000000..c31630a22
--- /dev/null
+++ b/1100/CH16/EX16.1/16_1.sce
@@ -0,0 +1,19 @@
+clc
+//initialisation of variables
+h1=1279.1 //Btu/lb
+s1=1.7085 //Btu/lb R
+p1= 100 //psia
+p2=10 //psia
+h2=1091.7 //Btu/lb
+s2=s1
+V1=100 //fps
+v2=36.41 //cu ft/lb
+w=1 //lb/sec
+//Calculations
+a2=w*v2/(sqrt(V1*V1 + 2*24956.243*(h1-h2)))
+printf ('Exit area = %.5f sq. ft',a2)
+pt=0.55*p1
+ht=1221.5 //Btu/lb
+vt=8.841 //cu ft/lb
+at=w*vt/(sqrt(V1*V1 + 2*24956.243*(h1-ht)))
+printf ('\n Exit area in case 2 = %.5f sq. ft',at)