diff options
Diffstat (limited to '3689/CH8/EX8.4/8_4.sce')
| -rw-r--r-- | 3689/CH8/EX8.4/8_4.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/3689/CH8/EX8.4/8_4.sce b/3689/CH8/EX8.4/8_4.sce new file mode 100644 index 000000000..3e9482445 --- /dev/null +++ b/3689/CH8/EX8.4/8_4.sce @@ -0,0 +1,17 @@ +////
+//Varialble Declaration
+gama = 71.99e-3 //Surface tension of water, N/m
+r = 2e-5 //Radius of xylem, m
+theta = 0.0 //Contact angle, rad
+rho = 997.0 //Density of water, kg/m3
+g = 9.81 //gravitational acceleration, m/s2
+H = 100 //Height at top of redwood tree, m
+
+//Calculations
+h = 2*gama/(rho*g*r*cos(theta))
+
+//Results
+printf("\n Height to which water can rise by capillary action is %3.2f m",h)
+
+printf("\n This is very less than %4.1f n, hence water can not reach top of tree",H)
+
|