blob: d1e59f89d09278da1228b76385f44890ab7d9af7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
//Example 4.6//
a=3.98;//in.^2 // area of region
b=100;//grain density
c=300;//grain density
A100=a*(b/c)^2
mprintf("A100 = %f in^2",A100)
//Then the grain density becomes
d=32;//grains
N=d/A100
mprintf("\nN = %f grains/in^2",N)
i=2;//from the equation
e=log(N);
f=log(i);
j=1;//from the equation
G=(e/f)+j
mprintf("\nG = %f \nor \n G=7+",G)
|
