Текст подпрограммы и версий
amz5r_p.zip , amz5e_p.zip 		Тексты тестовых примеров
tamz5r_p.zip , tamz5e_p.zip

Подпрограмма:  AMZ5R (модуль AMZ5R_p)

Назначение

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

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

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

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

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

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

Массив  B может занимать то же место в памяти, что и массив  А (это означает, что первый элемент массива  B может совпадать с первым элементом массива  А).

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

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

Unit tamz5r_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, AMZ5R_p;

function tamz5r: String; 

implementation

function tamz5r: String;
var
NC,N,_i :Integer;
B :Array [0..15] of Real;
const
A :Array [0..7] of Real = ( 0.0,2.1,3.2,4.3,1.1,2.2,3.3,4.4 );
begin
Result := '';
NC := 1;
N := 4;
AMZ5R(A,N,NC,B);
Result := Result + #$0D#$0A;
for _i:=0 to 15 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('tamz5r',Result);  { вывод результатов в файл tamz5r.res }
exit;
end;

end.


Результаты:

       A  =  ( 1.1, 2.1, 0., 0., 2.1, 2.2, 3.2, 0., 0., 3.2, 3.3, 4.3, 0., 0., 
                  4.3, 4.4 )