**TI92P*mainÚä/+˜ä6&Ç,´š¿-pû‡5/+ÚäÚä/+î °äV%Ç,ò RsolvemulN¥Zô(eqlist,vlist) func ©Solve multiple equations ©eqlist: list of expressions ©vlist: list of variables ©returns list of solutions in vlist order ©25dec99/dburkett@infinet.com local s,vdim,k,t,vk,vloc,dloc dim(vlist)vdim ©Build expression to solve ""s for k,1,vdim-1 s&string(eqlist[k])&"=0 and "s endfor s&string(eqlist[vdim])&"=0"s ©Solve for unknown variables string(expr("solve("&s&","&string(vlist)&")"))s ©Convert solution string to list newlist(vdim)t strsub(s,"and",":")s ©Change "and" to ":" strsub(s," ","")s ©Strip blanks for k,1,vdim instring(s,string(vlist[k]))vloc instring(s,":",vloc)dloc if dloc=0: dim(s)+1dloc mid(s,vloc+2,dloc-vloc-2)t[k] endfor ©Return coefficient list seq(expr(t[k]),k,1,vdim) Endfunc äåÜé