summaryrefslogtreecommitdiff
path: root/1379/CH13/EX13.1.3/example13_3.sce
blob: e35d5903f563e8ec8975af6d464c941a06974ff2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16


//exapple 13.3 
clc; funcprot(0);
// Initialization of Variable
rhos=1425;//density of organic pigment
rho=998;//density of water
pi=3.1428;
omega=360*2*pi/60;
mu=1.25/1000;
t=360;
r=0.165+0.01;
ro=0.165;
//calculation
d=sqrt(18*mu*log(r/ro)/t/(rhos-rho)/omega^2);
printf('the minimum diameter in organic pigment in m: %3.1e\n', d);