ВУЗ:
Составители:
pause
Символьный вектор:
sv='abcdefgh'
whos
pause
Символьная матрица:
sm=['abcdefgh';'12345678']
whos
pause
1.1.4 Определение и обработка числовых матриц
Файл-функция для заполнения матрицы:
function A=exam(n)
A=zeros(n);
for i=1:n
for j=1:n
A(i,j)=1/(i^2+j^2);
end
end
Процедура перемножения матриц:
subroutine multmtr(n1, n2, n3, X, Y, Z)
C Вычисление Z=X*Y, где X - n1xn2, Y - n2xn3, Z - n1Xn3
integer n1, n2, n3, i, j, k
real*8 X(n1,n2), Y(n2,n3), Z(n1,n3)
do 30 i=1,n1
do 20 j=1,n3
Z(i,j)=0.0d0
do 10 k=1,n2
Z(i,j)=Z(i,j)+X(i,k)*Y(k,j)
10 continue
20 continue
30 continue
end
pause Символьный вектор: sv='abcdefgh' whos pause Символьная матрица: sm=['abcdefgh';'12345678'] whos pause 1.1.4 Определение и обработка числовых матриц Файл-функция для заполнения матрицы: function A=exam(n) A=zeros(n); for i=1:n for j=1:n A(i,j)=1/(i^2+j^2); end end Процедура перемножения матриц: subroutine multmtr(n1, n2, n3, X, Y, Z) C Вычисление Z=X*Y, где X - n1xn2, Y - n2xn3, Z - n1Xn3 integer n1, n2, n3, i, j, k real*8 X(n1,n2), Y(n2,n3), Z(n1,n3) do 30 i=1,n1 do 20 j=1,n3 Z(i,j)=0.0d0 do 10 k=1,n2 Z(i,j)=Z(i,j)+X(i,k)*Y(k,j) 10 continue 20 continue 30 continue end
Страницы
- « первая
- ‹ предыдущая
- …
- 10
- 11
- 12
- 13
- 14
- …
- следующая ›
- последняя »