summaryrefslogtreecommitdiff
path: root/443/CH8/EX8.2/8_2.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /443/CH8/EX8.2/8_2.sce
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 '443/CH8/EX8.2/8_2.sce')
-rwxr-xr-x443/CH8/EX8.2/8_2.sce18
1 files changed, 18 insertions, 0 deletions
diff --git a/443/CH8/EX8.2/8_2.sce b/443/CH8/EX8.2/8_2.sce
new file mode 100755
index 000000000..d16143d42
--- /dev/null
+++ b/443/CH8/EX8.2/8_2.sce
@@ -0,0 +1,18 @@
+pathname=get_absolute_file_path('8_2.sce')
+filename=pathname+filesep()+'8_2_data.sci'
+exec(filename)
+//swept volume(in m^3)
+Vs=0.25*%pi*D^2*L*10^-6*k
+//Volume sucked per second(m^3/s)
+V=nv*Vs*(N/2)
+//Mass of air sucked in per second(in kg/s)
+ma=V*Pa
+//Since initial temperature and pressure are not given problem has to be solved neglecting compressibility of air
+//Suction at throat(in N/m^2)
+dpa=(1/(2*Pa))*(ma/(Cd*A2))^2
+printf("\n\nRESULTS\n\n")
+printf("\nSwept volume:%f\n",Vs)
+printf("\nVolume sucked in per second:%f\n",V)
+printf("\nMass of air sucked in per second:%f\n",ma)
+printf("\nSuction at throat:%f\n",dpa)
+