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

[Graphics:HTMLFiles/firstorderwithdocument_3.gif]

[Graphics:HTMLFiles/firstorderwithdocument_4.gif]

Created by Mathematica  (April 14, 2004)