RowBox[{(*This program is SECONDORDER, it describes the thermoluminescence model where the ele ... in*), , Clear[programSECONDORDER, s, E1, E2, E3, k, n0, β, sol, sol2, sol3, n, t]}]}]

[Graphics:HTMLFiles/secondorderwithdocument_3.gif]

[Graphics:HTMLFiles/secondorderwithdocument_4.gif]

Null^5

Created by Mathematica  (April 14, 2004)