In[17]:=

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

[Graphics:HTMLFiles/secondordernodocument_3.gif]

[Graphics:HTMLFiles/secondordernodocument_4.gif]

Out[17]=

Null^5

Created by Mathematica  (April 14, 2004)