summaryrefslogtreecommitdiff
path: root/539/CH4/EX4.3/Example_4_3.sce
blob: 14e42cfb3827ad45e1654f5d2716f7c84cd20aef (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//Composition Conversion- From weight percent to Atom percent

clear;
clc;

printf("\t Example 4.3\n");

//Conversion to Atom percent
function[C]=conc(C1,C2,A1,A2)
    C=C1*A2*100/((C1*A2)+(C2*A1));
    funcprot(0)
endfunction


C_Al=97;       //Aluminium wt%
C_Cu=3;        //Copper wt%
A_Al=26.98;    //Atomic wt of Aluminium
A_Cu=63.55;    //Atomic wt of Copper

CAl=conc(C_Al,C_Cu,A_Al,A_Cu);
CCu=conc(C_Cu,C_Al,A_Cu,A_Al);

printf("\nAtomic %% of Al is %.1f %%",CAl);
printf("\nAtomic %% of Cu is %.1f %%\n",CCu);

//End