const n = 10; m = 12; p = 15; -- noeud a iterer pour calculer un produit scalaire -- a : somme partielle, de 0 a i-1 (accumulateur du red) -- v : ieme element du premier vecteur -- w : ieme element du second vecteur node prod_sum (a,v,w: real) returns (aa:real) let aa = a + v*w; tel -- produit scalaire de deux vecteurs: V . W node ScalProd (V,W:real^n) returns (sp:real) let sp = fold<>(0.0, V, W); tel -- produit matrice vecteur : A * u node MatVectProd (A:real^m^n; u:real^n) returns (w:real^m) let w = map<> (transp (A; 1 ;2), u^m); tel