summaryrefslogtreecommitdiff
path: root/797/CH2/EX2.6.s/2_06_solution.sce
blob: 50bbda490ec249bbbb71dc7542c5b0d6a7dcc6ff (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Solution 2-6
WD=get_absolute_file_path('2_06_solution.sce')
datafile=WD+filesep()+'2_06_example.sci'
clc;
exec(datafile)
//conversion
D = D / 1000; //from [mm] to [m]
phi = phi * %pi /180; //from [degree] to [radians]

R = D / 2;
h = 2 * sigma_s * cos(phi) / (rho * g * R); //from capilary rise equation
h = h * 100; //conversion from [m] to [cm]
printf("Water rises in the tube %1.0f cm above the liquid level in the cup", h);