Wikilivres

« Mathc matrices/Fichiers h : vbm » : différence entre les versions

Navigation interactive dans l’historique
← Modification précédenteModification suivante →
Contenu supprimé Contenu ajouté
VisuelWikicode
Aucun résumé des modifications
Aucun résumé des modifications
Ligne 1 :
[[Catégorie:Mathc matrices (livre)]]
 
 
Installer ce fichier dans votre répertoire de travail.
 
Ligne 20 ⟶ 23 :
dif_sizes_mR(A,AplsB,"add_mR();","(AplsB)");
 
for ( r=FIRSTR1; r<A[R_SIZE][C0]; r++)
for ( c=FIRSTC1; c<A[C_SIZE][C0]; c++)
 
AplsB[r][c] = A[r][c] + B[r][c];
Ligne 40 ⟶ 43 :
dif_sizes_mR(A,AmnsB,"sub_mR();","(AmnsB)");
 
for ( r=FIRSTR1; r<A[R_SIZE][C0]; r++)
for ( c=FIRSTC1; c<A[C_SIZE][C0]; c++)
 
AmnsB[r][c] = A[r][c] - B[r][c];
Ligne 60 ⟶ 63 :
canImul_mR(A,B,AB,"mul_mR();","(A or B or AB)");
 
for(k=FIRSTR1; k<A[R_SIZE][C0]; k++) /* Work on the rows k */
 
for(j=FIRSTC1; j<B[C_SIZE][C0]; j++) /* Work on the cols j */
{
AB[k][j] = 0;
 
for(i=FIRSTC1; i<A[C_SIZE][C0]; i++) /* Compute AB(k,j) */
 
AB[k][j] += A[k][i] * B[i][j];
Ligne 85 ⟶ 88 :
dif_sizes_mR(A,sA,"smul_mR();","(A or sA)");
 
for ( r=FIRSTR1; r<A[R_SIZE][C0]; r++)
for ( c=FIRSTC1; c<A[C_SIZE][C0]; c++)
 
sA[r][c] = s * A[r][c];
Ligne 108 ⟶ 111 :
 
if(!n) eye_mR(A_n);
else
for(i = n-1 ; --i ; i--)
{
mul_mR(A_n,A,T);
c_mR(T,A_n);
}
 
f_mR(T);
Récupérée de « https://fr.wikibooks.org/wiki/Mathc_matrices/Fichiers_h_:_vbm »