Размер экономики разложение QR

Блок Real Partial-Systolic QR Decomposition выполняет первый шаг решения матричного уравнения AX наименьших квадратов = B, который преобразовывает оперативное к R и B оперативный к C = Q'B, затем решает преобразованный системный RX = C, где QR является ортогонально-треугольным разложением A.

Чтобы вычислить автономное разложение QR, этот пример устанавливает B быть единичной матрицей так, чтобы выход блока Real Partial-Systolic QR Decomposition был верхне-треугольным R и C = Q'.

Задайте матричные размерности

Задайте количество строк в матрицах A и B, количество столбцов в матрице А и количество столбцов в матрице B. Этот пример устанавливает B быть единичной матрицей тот же размер как количество строк A.

m = 10; % Number of rows in matrices A and B
n = 3;  % Number of columns in matrix A
p = m;  % Number of columns in matrix B

Сгенерируйте матрицы A и B

Используйте функцию помощника realUniformRandomArray чтобы сгенерировать случайную матрицу А, таким образом, что элементы массива между-1 и +1, и A является полным рангом. Матрица B является единичной матрицей.

rng('default')
A = fixed.example.realUniformRandomArray(-1,1,m,n);
B = eye(m);

Выберите Fixed-Point Data Types

Используйте функцию помощника qrFixedpointTypes чтобы выбрать типы данных с фиксированной точкой для матриц A и B, которые гарантируют, никакое переполнение не произойдет в преобразовании оперативного к R и B оперативный к C = Q'B.

max_abs_A = 1;  % Upper bound on max(abs(A(:))
max_abs_B = 1;  % Upper bound on max(abs(B(:))
precisionBits = 24;  % Number of bits of precision
T = fixed.qrFixedpointTypes(m,max_abs_A,max_abs_B,precisionBits);
A = cast(A,'like',T.A);
B = cast(B,'like',T.B);

Откройте модель

model = 'RealPartialSystolicQRModel';
open_system(model);

Подсистема Обработчика Данных в этой модели берет действительные матрицы A и B как входные параметры. ready порт инициировал Обработчик Данных. После отправки истинного validIn сигнал, перед ready может быть некоторая задержка установлен в ложь. Когда Обработчик Данных обнаруживает передний край ready сигнал, блок устанавливает validIn к истине и отправляет следующую строку A и B. Этот протокол позволяет данным быть отправленными каждый раз, когда передний край ready сигнал обнаруживается, гарантируя, что все данные обрабатываются.

Установите переменные в рабочем пространстве модели

Используйте функцию помощника setModelWorkspace добавить переменные, заданные выше к рабочему пространству модели. Эти переменные соответствуют параметрам блоков для блока Real Partial-Systolic QR Decomposition.

numSamples = 1; % Number of sample matrices
fixed.example.setModelWorkspace(model,'A',A,'B',B,'m',m,'n',n,'p',p,...
    'numSamples',numSamples);

Симулируйте модель

out = sim(model);

Создайте решение из выходных данных

Блок Real Partial-Systolic QR Decomposition выходные матрицы R и C на каждом временном шаге. Когда допустимые матрицы результата выводятся, блок устанавливает validOut к истине.

R = out.R;
C = out.C;

Извлеките размер экономики Q

Блок вычисляет C = Q'B. В этом примере B является единичной матрицей, таким образом, Q = C' является размером экономики ортогональный фактор разложения QR.

Q = C';

Проверьте, что Q является Ортогональным, и R является Верхней треугольной

Q является orothogonal, таким образом, Q'Q является единичной матрицей в рамках округления.

I = Q'*Q

I = 

    1.0000   -0.0000   -0.0000
   -0.0000    1.0000   -0.0000
   -0.0000   -0.0000    1.0000

          DataTypeMode: Fixed-point: binary point scaling
            Signedness: Signed
            WordLength: 60
        FractionLength: 48

R является верхней треугольной матрицей.

R

R = 

    2.2180    0.8559   -0.5607
         0    2.0578   -0.4017
         0         0    1.7117

          DataTypeMode: Fixed-point: binary point scaling
            Signedness: Signed
            WordLength: 28
        FractionLength: 24

isequal(R,triu(R))

ans =

  logical

   1

Проверьте точность Выхода

Чтобы оценить точность блока Real Partial-Systolic QR Decomposition, вычислите относительную погрешность.

relative_error = norm(double(Q*R - A))/norm(double(A))

relative_error =

   1.3415e-06

Подавите mlint предупреждения.

%#ok<*NOPTS>