diff options
Diffstat (limited to '746/CH8/EX8.04')
| -rwxr-xr-x | 746/CH8/EX8.04/8_04.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/746/CH8/EX8.04/8_04.sce b/746/CH8/EX8.04/8_04.sce new file mode 100755 index 000000000..e65781809 --- /dev/null +++ b/746/CH8/EX8.04/8_04.sce @@ -0,0 +1,12 @@ +//Viscosity of fluid//
+pathname=get_absolute_file_path('8.04.sce')
+filename=pathname+filesep()+'8.04-data.sci'
+exec(filename)
+//Viscosity of the liquid(in N-s/m^2):
+u=%pi/128*p*1000*D^4/Q/L/1000
+//Velocity(in m/sec)
+V=Q/(%pi/4*D^2)/1000
+//Reynolds number:
+Re=d*V*D/u/1000
+printf("\n\nRESULTS\n\n")
+printf("\n\nViscosity of fluid %.3f N-s/m^2\n\n",u)
|