Решение задач оптимального управления с использованием математической системы MATLAB и пакета имитационного моделирования SIMULINK. Сивохин А.В - 12 стр.

UptoLike

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