In[35]:=

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

[Graphics:HTMLFiles/firstordernodocument_3.gif]

[Graphics:HTMLFiles/firstordernodocument_4.gif]

Created by Mathematica  (April 14, 2004)