blob: f00473b3ede5dc7c12640fe7e963fac81e4c67a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
clc;
//Example 3.3
//Page no. 26
printf("Example 3.3 Page no. 26\n\n")
//given at 30 degree temerature
//properties of water from appendix A.2 density(rho),surface tension(sigma)
rho=996
sigma=0.071
printf("rho=%f\kg/m^3\n surface tension (sigma)=%f N/m\n",rho,sigma)
theta=0//negligible angle of contact
g=9.807
h=0.001//less than one milimeter
printf("theta=%f degree \n g=%f m/s^2\n h=%f m\n",theta,g,h)
R=(2*sigma*cos(0))/(rho*g*h)//by capiilary rise equation
D=2*R
printf("R=%f m\n D=%f m\n",R,D)
//if the tube diameter is greater than 0.029075 mm, then the capillary rise will be less than 1mm
|
