... av17r.zip av17d.zip av17c.zip . ... Пересылка вектора на место другого вектора. Подпрограмма АV17R пересылает компоненты n - мерного вектора x на место компонент n - мерного вектора y : y = ( x 1 , x 2 , ..., x n ) . Векторы x и y не обязательно должны занимать последовательные слова памяти машины и могут располагаться в памяти машины с некоторыми постоянными (для каждого вектора) интервалами, которые называются параметрами приращения. ... SUBROUTINE AV17R (N, SX, INCX, SY, INCY, IERR) . ...
... Пересылка вектора на место другого вектора. ... Unit tAv17r_p; interface uses SysUtils, Math, { Delphi } LStruct, Lfunc, UtRes_p, AV17R_p ; function tAv17r: String; implementation function tAv17r: String; var N,INCX,INCY, IERR ,J :Integer; const SX :Array [0..6] of Real = ( 1.0,2.0,1.0,2.0,1.0,2.0,1.0 ); SY :Array [0..6] of Real = ( 3.0,0.0,3.0,0.0,3.0,0.0,3.0 ); begin Result := ''; N := 4; INСХ := 2; INCY := 2; IERR := 0; AV17R(N,SX,INCX,SY,INCY, IERR ); Result := Result + Format ('%s',['...
... Пересылка вектора на место другого вектора. Подпрограмма av17r_c пересылает компоненты n - мерного вектора x на место компонент n - мерного вектора y : y = ( x 1 , x 2 , ..., x n ) . ... В случае, когда параметры приращения равны 1, используется развернутый цикл с шагом 7. int av17r_c (integer *n, real *sx, integer *incx, real *sy, integer *incy, integer *ierr) . ... incx | ... ierr - . ... пересылает один вещественный вектор в другой, когда оба вектора заданы с удвоенной точностью. av17c_c - . ...
... av16r.zip av16d.zip av16c.zip . ... Вычисление суммы модулей компонент вектора. Функция АV16R вычисляет сумму модулей компонент n - мерного вектора x = ( x 1 , x 2 , ..., x n ) по формуле: N S = | ... Этот параметр может быть меньше нуля, если обработка компонент вектора должна проводиться в обратном порядке. ... FUNCTION AV16R (N, SX, INCX, IERR) . ... вычисление суммы модулей компонент вектора, заданного с удвоенной точностью. ... вычисление суммы модулей компонент комплексного вектора. ...
... Вычисление суммы модулей компонент вектора. Функция av16r_c вычисляет сумму модулей компонент n - мерного вектора x = ( x 1 , x 2 , ..., x n ) по формуле: N S = | ... Вектор x не обязательно должен занимать последовательные слова памяти машины и может располагаться в памяти с некоторыми постоянными интервалами между компонентами, которые называются параметром приращения. Этот параметр может быть меньше нуля, если обработка компонент вектора должна проводиться в обратном порядке. ... ierr - . ...
... Умножение вектора на скаляр. Подпрограмма av15r_c выполняет умножение вектора на скаляр по формуле: A X = ( AX 1 , AX 2 , .. ... В случае, когда параметры приращения равны 1, используется развернутый цикл с шагом 5. int av15r_c (integer *n, real *sa, real *sx, integer *incx, integer *ierr) . ... размерность вектора (тип: целый); . ... параметр приращения, задающий расположение вектора в массиве sx (тип: целый); . ierr - . ... вычисление произведения комплексного вектора на скаляр. utav10_c - . ...
... av14r.zip av14d.zip av14c.zip . ... Перемена местами в памяти ЭВМ двух вещественных векторов. Подпрограмма АV14R меняет местами два вещественных n - мерных вектора: X = ( x 1 , x 2 , ... , x n ) и Y = ( y 1 , y 2 , ... , y n ) . ... Эти параметры могут быть меньше нуля, если обработка компонент вектора должна производиться в обратном порядке. ... SUBROUTINE AV14R (N, SX, INCX, SY, INCY, IERR) . ... INCX = 2 INCY = 2 IERR = 0 N = 6 CALL AV14R (N, SX, INCX, SY, INCY, IERR) Результаты: SX = 2., ...
... av13r.zip av13d.zip av13c.zip . ... Умножение скаляра на вектор и сложение результата с другим вектором. ... SUBROUTINE AV13R (N, SA, SX, INCX, SY, INCY, IERR) . ... размерность векторов (тип: целый); . ... скаляр, который умножается на заданный вектор (тип: вещественный); . ... IERR - . ... подпрограмма выдачи диагностических сообщений при работе подпрограммы АV13D. В подпрограмме АV13D одномерные массивы, содержащие данные векторы и скаляр, обозначены DХ, DY и DА и имеют тип DОUВLЕ РRЕСISIОN. ...
... Умножение скаляра на вектор и сложение результата с другим вектором. Подпрограмма av13r_c выполняет умножение скаляра на n - мерный вектор и прибавление к результату другого n - мерного вектора по формуле: A X + Y = (A x 1 + y 1 , A x 2 + y 2 , .. ... В случае, когда параметры приращения равны 1, используется развернутый цикл с шагом 4. int av13r_c (integer *n, real *sa, real *sx, integer *incx, real *sy, integer *incy, integer *ierr) . ... размерность векторов (тип: целый); . ...
... av11r.zip av11d.zip av11c.zip . ... av11r_p.zip av11e_p.zip av11c_p.zip . ... Вычисление скалярного произведения двух вещественных векторов. АV11R вычисляет скалярное произведение двух n - мерных вещественных векторов ( X , Y ) = x 1 y 1 + x 2 y 2 +...+ x n y n . ... FUNCTION AV11R (N, SX, INCX, SY, INCY, IERR) . ... IERR - . ... вычисление скалярного произведения вещественных векторов, заданных с удвоенной точностью; . ... вычисление скалярного произведения комплексных векторов по формуле: . ...
... Вычисление скалярного произведения двух вещественных векторов. av11r_c вычисляет скалярное произведение двух n - мерных вещественных векторов ( X , Y ) = x 1 y 1 + x 2 y 2 +...+ x n y n . ... содержащие заданные векторы, обозначены cx и cy и имеют тип complex. int main(void) { /* Initialized data */ static float sx[11] = { 1.f, 2.f , 2.f , 2.f ,3.f, 2.f ,4.f, 2.f ,5.f, 2.f ,6.f }; static float sy[11] = { 1.f, 2.f , 2.f , 2.f ,3.f, 2.f ,4.f, 2.f ,5.f, 2.f ,6.f }; /* Local variables */ extern float ...