Jan Kniat - PAKIETY MATEMATYCZNE, Matematyka,,,,
[ Pobierz całość w formacie PDF ]
Jan Kniat
NIF222.3
PAKIETY MATEMATYCZNE
„ W obliczeniach był błąd. ”
•
reprezentacja i przetwarzanie danych
•
pakiet
Octave
•
pakiet
Matematica
•
edytor
Latex
1
Mnożenie macierzy
=
n
ab
*
ik
ij
jk
j
= 1
#include <stdio.h> // język C
#define Aw 2 // liczba wierszy A
#define Ak 3 // liczba kolumn A
#define Bw 3 // liczba wierszy B
#define Bk 2 // liczba kolumn B
void main ()
{
int i, j, m;
double s = 0.0;
double A[Aw][Ak], B[Bw][Bk], C[Aw][Bk];
if (Aw != Bk)
{
printf("Nieprawidłowe rozmiary.\n");
return;
}
2
else
{
for (i=0 ; i<Aw ; i++)
{
for (j=0 ; j<Ak ; j++)
{
printf("A[%d][%d] = ", i,j);
scanf("%lf",&A[i][j]);
}
}
for (i=0 ; i<Bw ; i++)
{
for (j=0 ; j<Bk ; j++)
{
printf("B[%d][%d] = ", i,j);
scanf("%lf",&B[i][j]);
}
}
3
for (i=0 ; i<Aw ; i++)
for(j=0 ; j<Bk ; j++)
{
s = 0.0;
for (m=0 ; m<Ak ; m++)
{
s += (A[i][m] * B[m][j]);
}
C[i][j] = s;
}
for (i=0 ; i<Aw ; i++)
{
for (j=0 ; j<Bk ; j++)
printf("C[%d][%d] =
%5.2lf\n",i,j,C[i][j]);
}
}
}
4
A[0][0] = 1
A[0][1] = 2
A[0][2] = 3
A[1][0] = 10
A[1][1] = 11
A[1][2] = 12
B[0][0] = 5
B[0][1] = 6
B[1][0] = 15
B[1][1] = 16
B[2][0] = 25
B[2][1] = 26
C[0][0] = 110.00
C[0][1] = 116.00
C[1][0] = 515.00
C[1][1] = 548.00
5
[ Pobierz całość w formacie PDF ]