diff options
Diffstat (limited to '746/CH8/EX8.01/8_01.sce')
| -rwxr-xr-x | 746/CH8/EX8.01/8_01.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/746/CH8/EX8.01/8_01.sce b/746/CH8/EX8.01/8_01.sce new file mode 100755 index 000000000..cddb2de1f --- /dev/null +++ b/746/CH8/EX8.01/8_01.sce @@ -0,0 +1,15 @@ +//Leakage flow rate//
+pathname=get_absolute_file_path('8.01.sce')
+filename=pathname+filesep()+'8.01-data.sci'
+exec(filename)
+//Leakage flow rate (in mm^3/sec):
+Q=%pi/12*D*a^3*(p1-p2)*10^3/u/L
+//Velocity of flow(in m/sec):
+V=Q/%pi/D/a/1000
+//Specific gravity of SAE 10W oil:
+SG=0.92;
+//Reynolds Number:
+Re=SG*dw*V*a/u/1000
+//As Re<1400, flow is laminar.
+printf("\n\nRESULTS\n\n")
+printf("\n\nLeakage flow rate: %.3f mm^3/sec\n\n",Q)
|