summaryrefslogtreecommitdiff
path: root/1586/CH17/EX17.3/EX17_3.sce
blob: 9ecc54af444741f4286eb8c02294ce4010f6c780 (plain)
1
2
3
4
5
6
7
8
9
clc;funcprot(0);//EXAMPLE 17.3
// 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:")