Texas Instruments TI-89

res[3]→yl[3]
endif
©Extract row 1 z-variables
util\rq3v(zz1)→res
if res="ERR" then
errdisp("z row 1")
if ok=0 then
return
else
goto in1
endif
else
res[1]→zmat[1,1]
res[2]→zmat[1,2]
res[3]→zmat[1,3]
endif
©Extract row 2 z-variables
util\rq3v(zz2)→res
if res="ERR" then
errdisp("z row 2")
if ok=0 then
return
else
goto in1
endif
else
res[1]→zmat[2,1]
res[2]→zmat[2,2]
res[3]→zmat[2,3]
endif
©Extract row 3 z-variables
util\rq3v(zz3)→res
if res="ERR" then
errdisp("z row 3")
if ok=0 then
return
else
goto in1
endif
else
res[1]→zmat[3,1]
res[2]→zmat[3,2]
res[3]→zmat[3,3]
endif
©Extract x,y variables
util\rq2v(xy)→res
if res="ERR" then
errdisp("x,y")
if ok=0 then
return
else
goto in1
endif
else
res[1]→x
res[2]→y
endif
6 - 53