diff options
Diffstat (limited to '3526/CH17/EX17.3/EX17_3.sce')
| -rw-r--r-- | 3526/CH17/EX17.3/EX17_3.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/3526/CH17/EX17.3/EX17_3.sce b/3526/CH17/EX17.3/EX17_3.sce new file mode 100644 index 000000000..b5bb51ba9 --- /dev/null +++ b/3526/CH17/EX17.3/EX17_3.sce @@ -0,0 +1,10 @@ +clc;funcprot(0);//EXAMPLE 17.3
+//page 530
+// Initialisation of Variables
+rho1=19.3;...........//Density of pure Tungsten in g/cm^3
+rho2=10.49;............//Density of pure Silver in g/cm^3
+f1=0.75;..............//Volume fraction of Tungsten
+f2=0.25;...........//Volume fraction of Silver and pores
+//Calculations
+per=((f2*rho2)/((f2*rho2)+(f1*rho1)))*100;.........//Percentage weight of silver
+disp(per,"Percentage Weight of Silver:")
|