diff options
Diffstat (limited to '914/CH7/EX7.7')
| -rwxr-xr-x | 914/CH7/EX7.7/ex7_7.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/914/CH7/EX7.7/ex7_7.sce b/914/CH7/EX7.7/ex7_7.sce new file mode 100755 index 000000000..c89951ff7 --- /dev/null +++ b/914/CH7/EX7.7/ex7_7.sce @@ -0,0 +1,15 @@ +clc;
+warning("off");
+printf("\n\n example7.7 - pg293");
+// given
+Uo=1; //[m/sec]
+// using Ux/Uo=y/yo
+// assuming any particular value of yo will not change the answer,therefore
+yo=1;
+Uxavg=integrate('(Uo*y)/yo','y',0,yo);
+Ux3avg=integrate('((Uo*y)/yo)^3','y',0,yo);
+// using the formula alpha=(Uxavg)^3/Ux3avg
+alpha=(Uxavg)^3/Ux3avg;
+disp(alpha,"alpha=");
+printf("\n\n Note that the kinetic correction factor alpha has the same final value for laminar pipe flow as it has for laminar flow between parallel plates.");
+
|