Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( vector-fold + 0 ( vector-map * v1 v2 ))))
A soma de matrizes com escalares ou com outras matrizes é semelhante às operações
análogas para vetores.
( define matrix + scalar
( lambda (k m)
( matrix-map ( lambda (x) (+ x k) m ))))
( define matrix + matrix
( lambda (a b)
( matrix-map + a b )))
O procedimento a seguir realiza multiplicação de matrizes.
( define matrix * matrix
( lambda (a b)
( let ((m ( matrix-rows a))
(o ( matrix-cols a))
(n ( matrix-cols b )))
( let ((c ( make-matrix m n )))
(do ((i 0 (+ 1 i )))
((= i m) c)
(do ((j 0 (+ 1 j )))
((= j n))
( set ! val 0)
(do ((k 0 (+ 1 k )))
((= k o))
( set ! val (+ val (* ( matrix-ref a i k)
( matrix-set ! c i j val ))))))))
4.3 criando imagens gráficas
( matrix-ref b k j ))))
Versão Preliminar
(esta seção está incompleta)
Usaremos nossa implementação de matriz para armazenar imagens como matrizes
de pixels.
[ 27 de outubro de 2010 at 15:47 ]
119