Question

Задание 1. Решить матричное уравнение АХ=В, где матрица А имеет размерность 6*6 и задается по правилу

1, i>j
aij=
2*sin(i+cos(j)), i<=j

а столбец свободных членов В имеет размерность 6х1 и задается по правилу
bi = 6*ln(1+i). X=A-1*B

Answer 1

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

uses NumLibABC;

begin
  Writeln('Матрица А');
  var A:=new Matrix(MatrGen(6,6,(i,j)->i>j?1.0:2*Sin(i+1+Cos(j+1))));
  A.Println(12,8);
  Writeln('Матрица B');
  var B:=new Matrix(MatrGen(6,1,(i,j)->6*Ln(2+i)));
  B.Println(12,8);
  Writeln('Матрица X'); // X:=A^(-1)xB
  var X:=A.Inv*B;
  X.Println(12,8)
end.