Fichier matrix.jps — Modifié le 11 Mars 2006 à 10 h 54
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