Вычислить скалярное произведение

@qwwweee · Регистрация: 02.11.2018

Author24 — интернет-сервис помощи студентам

Вычислить скалярное произведение s = (Ar+p, p+q)

Исходные данные.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> A=\begin{bmatrix}1 & 2 & 3\\\\ 1 & 2 & 1\\\\ 3 & 2 & 0\end{bmatrix}\ \ \ \ \ B=\begin{bmatrix}4 & 1 & 2\\\\ 0 & 4 & 3\\\\ 1 & 1 & 1\end{bmatrix}\ \ \ \ \ p=\begin{bmatrix}0.1\\\\ 1.7\\\\ -1.5\end{bmatrix}\ \ \ \ \ q=\begin{bmatrix}-1.6\\\\ 0.8\\\\ 1.1\end{bmatrix}\ \ \ \ \ r=\begin{bmatrix}-0.7\\\\ 1.3\\\\ 0.2\end{bmatrix}<br />$

Примечание.
При вычислении выражения вида y=ABx рекомендуется последовательно вычислить z=Bx, y=Az, что, в общем случае, приводит к существенному уменьшению количества арифметических операций (по сравнению с умножением матриц C=AB)

@bormant · 10.12.2018, 22:58

Pascal

const
  n=3;
  a: array [1..n,1..n] of Real = ((1, 2, 3), (1, 2, 1), (3, 2, 0));
  p: array [1..n] of Real = (0.1, 1.7, -1.5);
  q: array [1..n] of Real = (-1.6, 0.8, 1.1);
  r: array [1..n] of Real = (-0.7, 1.3, 0.2);
var
  i, j: Integer;
  t: array [1..n] of Real;
  s: Real;
begin
  for i:=1 to n do begin
    s:=0; for j:=1 to n do s:=s+a[i,j]*r[j]; t[i]:=s;
  end;
  for i:=1 to n do t[i]:=t[i]+p[i];
  for i:=1 to n do p[i]:=p[i]+q[i];
  s:=0; for i:=1 to n do s:=s+t[i]*p[i];
  WriteLn(s:0:2);
end.

@qwwweee 0 / 0 / 0 Регистрация: 02.11.2018 Сообщений: 11
		1
	Вычислить скалярное произведение 10.12.2018, 22:31. Показов 1131. Ответов 1 Метки Вычислить (Все метки) Вычислить скалярное произведение s = (Ar+p, p+q) Исходные данные. $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> A=\begin{bmatrix}1 & 2 & 3\\\\ 1 & 2 & 1\\\\ 3 & 2 & 0\end{bmatrix}\ \ \ \ \ B=\begin{bmatrix}4 & 1 & 2\\\\ 0 & 4 & 3\\\\ 1 & 1 & 1\end{bmatrix}\ \ \ \ \ p=\begin{bmatrix}0.1\\\\ 1.7\\\\ -1.5\end{bmatrix}\ \ \ \ \ q=\begin{bmatrix}-1.6\\\\ 0.8\\\\ 1.1\end{bmatrix}\ \ \ \ \ r=\begin{bmatrix}-0.7\\\\ 1.3\\\\ 0.2\end{bmatrix}<br />$ Примечание. При вычислении выражения вида y=ABx рекомендуется последовательно вычислить z=Bx, y=Az, что, в общем случае, приводит к существенному уменьшению количества арифметических операций (по сравнению с умножением матриц C=AB) 0

	10.12.2018, 22:58

Вычислить скалярное произведение

Решение