%% syntaxe : A B mulm --> AxB (nouvelle matrice)
/mulm {
9 dict begin
/B exch def
/A exch def
B dimmatrix /n' exch def /m' exch def
A dimmatrix /n exch def /m exch def
/M m n' newmatrix def
/i 0 def
m {
/j 0 def
n' {
M i j
A i get_Li B j get_Ci fuz {mul} papply sum
put_ij
/j j 1 add store
} repeat
/i i 1 add store
} repeat
M
end
} def
|