diff options
Diffstat (limited to '3526/CH17/EX17.1/EX17_1.sce')
| -rw-r--r-- | 3526/CH17/EX17.1/EX17_1.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/3526/CH17/EX17.1/EX17_1.sce b/3526/CH17/EX17.1/EX17_1.sce new file mode 100644 index 000000000..a86653b48 --- /dev/null +++ b/3526/CH17/EX17.1/EX17_1.sce @@ -0,0 +1,13 @@ +clc;funcprot(0);//EXAMPLE 17.1
+//page 527
+// Initialisation of Variables
+per1=2;.............//Percent weight of ThO2
+per2=98;..............//Percentage weight of Nickle
+rho1=9.69;...........//Density of ThO2 in g/cm^3
+rho2=8.9;............//Density of Nickel in g/cm^3
+r=0.5*10^-5;........//Radius of ThO2 particle in cm
+//calculations
+f=(2/rho1)/((per1/rho1)+(per2/rho2));.........//Volume fraction of ThO2 per cm^3 of composite
+v=(4/3)*(%pi)*r^3;...........//Volume of ech ThO2 sphere in cm^3
+c=f/v;.................//Concentration of ThO2 particles in particles/cm^3
+disp(c,"Concentration of ThO2 in particles/cm^3:")
|