out aa98;
%off nat;
%on rounded;


matrix RM(2,2);
for tt:=1:2 do Rm(tt,tt):=r(tt);


matrix NM(2,2);
for tt:=1:2 do for pp:=1:2 do nm(tt,pp):=n(tt,pp);


matrix RnM(2,2);
for tt:=1:2 do for pp:=1:2 do Rnm(tt,pp):=rn(tt,pp);


matrix sM(2,2);
for tt:=1:2 do sm(tt,tt):=s(tt);


rm;
nm;
rnm;
sm;
%-----------------
sm*rm*sm**-1;
sm*rnm*sm**-1;

sm*rnm*sm**-1 - rnm;
sm*rnm;
%-----------------

eqq:=rnm - rm - nm;
eqqs:=sm*(eqq)*sm**-1;

eqqs - eqq;
shut aa98;
bye;
end;