Текст подпрограммы и версий
amz7r_p.zip , amz7e_p.zip 		Тексты тестовых примеров
tamz7r_p.zip , tamz7e_p.zip

Подпрограмма:  AMZ7R (модуль AMZ7R_p)

Назначение

Преобразование симметричной ленточной матрицы, заданной в компактной форме представления для симметричной матрицы, в компактную форму.

Математическое описание

Симметричная ленточная матрица  А порядка  N с NС ко - диагоналями, заданная в компактной форме представления для симметричной матрицы, преобразуется в компактную форму представления. Таким образом, AMZ7R выполняет действие, обратное по отношению к подпрограмме AMZ6R.

Использование 

procedure AMZ7R(var A :Array of Real; N :Integer; NC :Integer;
                var B :Array of Real); 

   Параметры
A - вещественный вектор длины N на (N + 1)/2, в котором задается симметричная ленточная матрица в компактной форме представления для симметричной матрицы;
N - порядок матрицы (тип: целый);
NC - число ко - диагоналей (тип: целый);
B - вещественный двумерный массив размера N на (NС + 1), в котором запоминается исходная симметричная ленточная матрица в компактной форме представления. 
   Версии
AMZ7E - преобразование симметричной ленточной матрицы, заданной с расширенной (Extended) точностью в компактной форме представления для симметричной матрицы, в компактную форму. 
   Вызываемые подпрограммы:  нет. 
   Замечания по использованию
 

Вектор  А и массив  B должны занимать разное место в памяти.

В подпрограмме АМZ7E параметры  А и  B должны иметь тип Extended.

Пример использования 

Unit tamz7r_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, AMZ7R_p;

function tamz7r: String; 

implementation

function tamz7r: String;
var
N,NC,_i :Integer;
B :Array [0..7] of Real;
const
A :Array [0..9] of Real = ( 1.1,2.1,2.2,0.0,3.2,3.3,0.0,0.0,4.3,4.4 );
begin
Result := '';
N := 4;
NC := 1;
AMZ7R(A,N,NC,B);
Result := Result + #$0D#$0A;
for _i:=0 to 7 do
 begin
  Result := Result + Format('%20.16f ',[B[_i]]);
  if ( ((_i+1) mod 2)=0 )
   then Result := Result + #$0D#$0A;
 end;
Result := Result + #$0D#$0A;
UtRes('tamz7r',Result);  { вывод результатов в файл tamz7r.res }
exit;
end;

end.


Результаты:    В = ( 0., 2.1, 3.2, 4.3, 1.1, 2.2, 3.3, 4.4 )