summaryrefslogtreecommitdiff
path: root/3689/CH8/EX8.4/8_4.sce
blob: 3e9482445c97c25e8bd0e3de7dad7301985766d0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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)