\START92\
\COMMENT=
\NAME=chemislv
\FILE=CHEMISLV.89F
(chemeq,varlist)
Func
\(C)\chemeq,varlist:Func
Local genersol,temp,tmpvar
chemslv(chemeq,varlist)\->\genersol
exp2matr(genersol)\->\genersol
sum(mat\to\list(genersol[2]))\->\temp
getvars(temp)[1]\->\tmpvar
sum(mat\to\list(genersol[2] .* genersol[1]))\->\genersol[1]
genersol|tmpvar=getDenom(temp)\->\genersol
Return matr2exp(genersol)
EndFunc
\STOP92\