autocrop
15 setxunit
%% multiplication de matrices

%% les lignes de la matrice M
/L1 [1 2] def 
/L2 [4 5] def 
/L3 [3 6] def
%% les matrices M et N
/M [L1 L2 L3] def
/N [[1 -1 2] [0 1 2]] def
%% On definit Q = M x N
/Q M N mulm def
%% l'affichage
setCourierBold
(mulm) -1 1 crtext
setTimes
-4.5 0     1 -1 M printmatrix
(x)  -2.25 -1 cctext
-1   -.5   1 -1 N printmatrix
(=) 2.25 -1 cctext
3.5  0     1 -1 Q printmatrix