... Значения r k задаются в M первых элементах одномерного вещественного массива RESP длины N следующим образом: RESP(1) = r 0 RESP( I ) = r k , I = 2, 3, .. ... M-1)/2 RESP( I ) = r k , I = (M+3)/2, .. ... N): N (r*s) L = ARRAY_(L - J) RESP( J ) j =1 . ... Прикладной анализ временных рядов. Изд - во "Мир", 1982. procedure RSA1R(var ARRAY_ :Array of Real; var N :Integer; var RESP :Array of Real; M :Integer; var ANS :Array of Complex; var FFT :Array of Complex; IREG :Integer; var IFLAG :Integer); . ...
... Вычисление второй частной производной функции двух переменных, заданной на прямоугольной неравномерной сетке, по второй переменной методом одномерных натуральных кубических сплайнов. ... Подпрограмма idb9r_c вычисляет вторые частные производные 2 f (x (1) , x (2) ) / x (2) 2 . ... Изд - во "Наука", 1973. int idb9r_c (real *x1a, real *x2a, real *ya, integer *m, integer *n, real *y2a, real *yt, real *y2t, real *rab) . ...
... X1A - . ... ; используются в подпрограммах IDB9R и IDB9E. Unit TIDB9R_p; interface uses SysUtils, Math, { Delphi } Lstruct, Lfunc, UtRes_p, IDB9R_p ; function TIDB9R: String; implementation function TIDB9R: String; var M,N,I,J,_i :Integer; R : Real ; X1A : Array [0..4] of Real ; X2A : Array [0..3] of Real ; YA : Array [0..19] of Real ; Y2A : Array [0..19] of Real ; YT : Array [0..3] of Real ; Y2T : Array [0..3] of ... 0.0 0.0 0.0 0.0 | 0.0 -0.80066E-02 -0.27724E-01 0.0 Y2A = | ...
... Вычисление значения разложения функции на заданном отрезке в ряд по многочленам Чебышева в заданной точке этого отрезка. ... FUNC - . ... вычисление коэффициентов ряда по многочленам Чебышева, аппроксимирующего заданную функцию, в режиме одинарной и удвоенной точности; используются в подпрограммах IAH2R и IAH2D соответственно DIMENSION C(10), RF(10) EXTERNAL FUNC N = 10 A = -2.0 B = 3.0 X = 2.1 CALL IAH2R (A, B, C, N, FUNC, X, RES, RF) FUNCTION FUNC(X) FUNC = ATAN(X) RETURN END Результаты: RES=1...
... Вычисление значения разложения функции на заданном отрезке в ряд по многочленам Чебышева в заданной точке этого отрезка. ... Тогда подпрограмма iah2r_c вычисляет коэффициенты c j (j = 1, 2, .. ... Изд - во "Наука", 1973. int iah2r_c (real *a, real *b, real *c, integer *n, real *func, real *x, real *res, real *rf) . ... вещественный вектор длины n, содержащий вычисляемые в подпрограмме значения коэффициентов ряда по многочленам Чебышева, аппроксимирующего функцию f (x); . ... float func(float *x), . ...
... Пусть на отрезке [A, B] задана функция f (x). ... Unit tiah2r_p; interface uses SysUtils, Math, { Delphi } Lstruct, Lfunc, UtRes_p, FIAH2R_p, IAH2R_p ; function tiah2r: String; implementation function tiah2r: String; var N,_i :Integer; A,B,X,RES : Real ; C :Array [0..9] of Real ; RF :Array [0..9] of Real ; begin Result := ''; { результат функции } N := 10; A := -2.0; B := 3.0; X := 2.1; IAH2R(A,B,C,N,FIAH2R,X,RES,RF); Result := Result + #$0D#$0A; for _i:=0 to 9 do begin Result := ...
... ip03r.zip , ip03d.zip . ... Полиномиальная интерполяция функции двух переменных, заданной на прямоугольной сетке, по модифицированной схеме Невилла. Пусть заданы узлы неравномерной прямоугольной сетки: X1A = { x 1 (1) , x 2 (1) , ..., x M (1) } ; X2A = { x 1 (2) , x 2 (2) , ..., x N (2) } и значения функции f (x (1) , x (2) ) в узлах этой сетки: YA (I, J) = f (X1A(I), X2A(J)) , I = 1, 2, .. ... SUBROUTINE IP03R (X1A, X2A, YA, M, N, MP, NP, X1, X2, Y, DY, YM, YN, C, D, IERR) . X1A - . X2A . ...
... Полиномиальная интерполяция функции двух переменных, заданной на прямоугольной сетке, по модифицированной схеме Невилла. ... Изд - во "Наука", 1973. procedure IP03R(var X1A :Array of Real; var X2A :Array of Real; var YA :Array of Real; M :Integer; N :Integer; MP :Integer; NP :Integer; X1 :Real; X2 :Real; var Y :Real; var DY :Real; var YM :Array of Real; var YN :Array of Real; var C :Array of Real; var D :Array of Real; var IERR :Integer); . X1A - . ...
... bs03r_c.zip , bs03d_c.zip . ... Подпрограмма упорядочивает его компоненты по возрастанию и вычисляет выборочное значение медианы XMED: XMED = x (N + 1)/2 для нечетных N, XMED = 0.5(x N/2 + x (N/2)+1 ) для четных N . ... Прикладная статистика: основы моделирования и первичная обработка данных. М.,"Финансы и статистика", 1983 г. int bs03r_c (real *x, integer *n, real *xmed) . ... xmed - . ...
... Подпрограмма упорядочивает его компоненты по возрастанию и вычисляет выборочное значение медианы XMED: XMED = x (N + 1)/2 для нечетных N, XMED = 0.5(x N/2 + x (N/2)+1 ) для четных N . ... Прикладная статистика: основы моделирования и первичная обработка данных. М.,"Финансы и статистика", 1983 г. procedure BS03R(var X :Array of Real; var N :Integer; var XMED :Real); . ... XMED - . ... Результаты: XMED = 2.5 ...
... bs01r_c.zip , bs01d_c.zip . ... Прикладная статистика: основы моделирования и первичная обработка данных. М.,"Финансы и статистика", 1983 г. int bs01r_c (real *x, integer *n, real *xm, real *xd, real *d, real *s) . ...
Текст подпрограммы и версий ( Фортран ) . bk05r.zip . Тексты тестовых примеров ( Фортран ) . ... Хи - квадрат тест совпадения распределения вероятностей двух группированных выборок. ... По векторам KX и KY вычисляется Хи - квадрат статистика и по ее значению определяется уровень значимости критерия ALFA. ... SUBROUTINE BK05R (KX, KY, N, ALFA) . ... ALFA - . ... INTEGER KX(4), KY(4) DATA KX /1, 2, 2, 5/ DATA KY /5, 2, 2, 1/ N = 4 CALL BK05R (KX, KY, N, ALFA) Результат: ALFA = 0.1489540 ...
... bk06r_c.zip . ... По заданным выборке X и функции распределения FUNC вычисляется статистика Колмогорова - Смирнова и по ее значению определяется уровень значимости критерия ALFA. Чем меньше уровень значимости ALFA, тем больше оснований утверждать, что выборка X имеет распределение вероятностей, отличное от распределения, заданного функцией FUNC. ... М., "Финансы и статистика", 1983. int bk06r_c (real *x, integer *n, R_fp func, real *alfa) . ... func - . ... alfa - . ...
... bk04r.zip . ... Пусть область значений случайной величины X разбита на N интервалов, целый вектор K = (k 1 , k 2 ,..., k N ) содержит группированную выборку (количество реализаций случайной величины X, попавших в первый, второй, .. ... Подпрограмма BK04R по векторам K и P вычисляет Хи - квадрат статистику и по ее значению определяет уровень значимости критерия ALFA. ... INTEGER K(4) REAL P(4) DATA K /3, 2, 2, 5/ DATA P /0.1, 0.2, 0.2, 0.5/ N = 4 CALL BK04R (K, P, N, ALFA) Результат: ALFA = 0.3916252...
... Подпрограмма BK04R по векторам K и P вычисляет Хи - квадрат статистику и по ее значению определяет уровень значимости критерия ALFA. ... М., "Финансы и статистика", 1983. procedure BK04R(var K :Array of Integer; var P :Array of Real; N :Integer; var ALFA :Real); . ... ALFA - . ... Результат: ALFA = 0.3916252 ...