1
function [stk,txt,top]=sci_qz()
5
if m=='?' then m=stk(top-1)(3),end
7
stk=list('gschur('+stk(top-1)(1)+','+stk(top)(1)+')','0',m,m,'1')
9
s=list('gschur('+stk(top-1)(1)+','+stk(top)(1)+')','-1',m,m,'1')
11
[AA, BB, Q, Z, V]=lhsvarsnames()
12
txt=[txt;lhsargs([AA, BB, Q, Z, V])+' = mtlb_qz'+..
13
rhsargs([stk(top-1)(1),stk(top)(1)])]
14
s=list(' ','-2','m','m','0')