TEXT(Solve For Temperature   
mesg(soltem macro has been loaded
solve(tem1); solutn(tem1,y,y,y,n,n,y); terms(tem1,n,y,y,y,y,y)
solvetem=y