summaryrefslogtreecommitdiff
path: root/3557/CH7/EX7.1/Ex7_1.sce
blob: 8d566e9e1bf6afcd887ae108049c7596e21330dc (plain)
1
2
3
4
5
6
7
8
9
10
11
//Example 7.1//

R=8.314;//J/mol.K // Gas constant (From appendix 3)
a=3*R
mprintf("a = %f J/mol K",a)
//for aluminum there are 26.98 g per g-atom
b=1;//mol //
c=26.98;//g //grams // atomic mass of aluminium (From appendix 1)
d=1000;//g/kg
a1=a*(b/c)*d
mprintf("\n a1 = %i J/kg.K",a1)