diff options
Diffstat (limited to '1268/CH7/EX7.4/7_4.sce')
| -rw-r--r-- | 1268/CH7/EX7.4/7_4.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/1268/CH7/EX7.4/7_4.sce b/1268/CH7/EX7.4/7_4.sce new file mode 100644 index 000000000..2594534ff --- /dev/null +++ b/1268/CH7/EX7.4/7_4.sce @@ -0,0 +1,14 @@ +clear;
+disp("Example 7.4")
+d=0.0025 // in m
+G=50000/3600 // in kg/m^2/s
+mew=0.1 // in kg/ms
+Re= d*G/mew
+density=1250
+U=G/density
+P=250000
+y=P*d*d/(150*U*mew)
+//we need to solve equation y*x^3+x^2-1=0
+p=[y,-1,2,-1]
+z=roots(p)
+disp(z(3,1),"Porosity is ")
|