Fonction : produit matriciel
Bonjour,
je dois créer une fonction effectuant le produit de 2 matrices mais j'avoue que j'ai un peu de mal. Voilà ce que j'ai fait :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| let produit_matriciel A B =
let resultat = make_vect (vect_length A) (make_vect (vect_length B.(0)) 0)
in
let r = ref 0
in
for i=0 to vect_length A
for j=0 to vect_length A.(0)
for k=0 to vect_length A.(0)
do
r:= !r + A.(i).(k)*B.(k).(j)
done;
resultat.(i).(j) <- !r
resultat
;; |
Évidemment ça ne marche pas, caml me met l'erreur suivant :
Code:
1 2 3 4 5
| Entrée interactive:
> for j=0 to vect_length A.(0)
> ^^^
Erreur de syntaxe.
# |
Quel est le problème ?
Merci.