blob: 0b5c4fbef96f27a1b0bf8b2daf2f4a64edfc4bb1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
//Example 6.10//
ap=5*10^-1;//percent per hour
Q=2*10^5;//J/mol //activation energy
R=8.314;//J/mol.K// universal gas constant
T=1273;//K //Kelvin //absolute temperature
T1=873;//given //absolute temperature
C=ap*%e^((Q)/(R*T))
mprintf("C = %e percent per hour",C)
//applying this amount to the service temprature yield
C1=C*%e^-((Q)/(R*T1))
mprintf("\n C1 = %e percent per hour",C1)
|
