diff options
Diffstat (limited to '1379/CH13/EX13.1.3/example13_3.sce')
| -rwxr-xr-x | 1379/CH13/EX13.1.3/example13_3.sce | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/1379/CH13/EX13.1.3/example13_3.sce b/1379/CH13/EX13.1.3/example13_3.sce new file mode 100755 index 000000000..e35d5903f --- /dev/null +++ b/1379/CH13/EX13.1.3/example13_3.sce @@ -0,0 +1,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);
|