... static double e[16] /* was [4][4] */; static int m, n, i__; static double r__[16] /* was [4][4] */, t, r1[16] /* was [4][4] */, r2[16] /* was [4][4] */; t = 1.; m = 4; n = 16; ame1d_c(a, , , , e, r__, r1, r2, ); printf("\n %5i \n", ierr); for (i__ = 0; i ...
4. БЧА НИВЦ МГУ. RSA1R. Статистика временных рядов
... 0.0, 0.0, 0.5, 0.0, 0.0, - 0.5, 0.0, 0.0, * 0.5, 0.5, 0.5, 0.5, 0.5, 0.0, 0.0, 0.0/ N = 16 M = 3 RESP(1) = 0.7 RESP(2) = 0.4 RESP(3) = 0.4 CALL RSA1R (ARRAY, N, RESP, M, ANS, FFT, 1, IFLAG) Результаты: ANS = (- 0.596046E - 7, 0.2, 0.35, 0.2, - 0.2, - 0.35 ...
5. БЧА НИВЦ МГУ. RSA1R_P. Статистика временных рядов
... 0.5,0.0,0.0,0.5,0.5,0.5, 0.5,0.5,0.0,0.0,0.0 ); begin Result := ''; { результат функции } N := 16; M := 3; RESP[0] := 0.7; RESP[1] := 0.4; RESP[2] := 0.4; RSA1R(ARRAY_,N,RESP,M,ANS,FFT,1,IFLAG); Result := Result + Format('%5d ',[IFLAG]) + #$0D#$0A; Result ...
6. БЧА НИВЦ МГУ. AMS1R_C. Умножение матриц и векторов
... 1.f,-1.f,-2.f,0.f,1.f,0.f,0.f,0.f,0.f,0.f,0.f,0.f, 0.f,0.f,0.f,0.f }; /* Local variables */ extern int ams1r_c(int *, int *, float *, float *, float *); static int i__, m, n; static float q; n = 6; m = 16; q = 1.f; ams1r_c( , , , b, x); for (i__ = 1; i ...
7. БЧА НИВЦ МГУ. IA80R_C. Аппроксимация рациональными функциями (равномерная)
... R_fp)phi_c, (R_fp)g_c, , , , , , p, q, rab, ); printf("\n %16.7e %16.7e %16.7e \n",a, b, eps); printf("\n %5i %5i \n",n, m); printf("\n %16.7e %16.7e \n",p[0], p[1]); printf("\n %16.7e %16.7e \n",q[0], q[1]); printf("\n %16.7e %16.7e \n",rab[0], rab[1 ...
8. БЧА НИВЦ МГУ. IP03R_C. Полиномиальная интерполяция
... j, m, n; static float r__, y, x1, x2, ya[150] /* was [15][10] */; static int mp, np; static float dy, ym[15], yn[10], x1a[15], x2a[10]; int i__1, i__2; #define ya_ref(a_1,a_2) ya[(a_2)*15 + a_1 - 16] m = 15; n = 10; r__ = 0.f; i__1 = m; for (i__ = 1; i ...
9. БЧА НИВЦ МГУ. AMS1R_P. Умножение матриц и векторов
... 0.0,0.0,0.0,0.0,0.0, 0.0,0.0,0.0,0.0,0.0 ); label _1; begin Result := ''; N := 6; M := 16; Q := 1.0; AMS1R(N,M,Q,B,X); for I:=1 to N do begin _1: Result := Result + Format(' %20.16f ', [X[I-1]]) + #$0D#$0A; end; UtRes('tams1r',Result); { вывод результатов ...
10. http://num-anal.srcc.msu.ru/list_wrk/ps1/ch3st2.ps
... 96 Mathematical Modeling of Complex Information Processing Systems core 34 0 23 0 105 3 415 8 34 0 415 8 105 3 L = 200 m core 20 0 11 0 78 2 420 9 20 0 420 9 78 2 L = 500 m core 16 0 10 0 70 1.5 480 12 16 0 480 12 70 1.5 L = 750 m Fig. ...