matrix.jps [ retour — édition — source ]
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