... 0.), (0., 0.)/ N = 4 M = 8 Q = 0. CALL AMS1C (N, M, Q, B, X) Результат: y = ( (2., -12.), (7., ...
5. БЧА НИВЦ МГУ. MLC2R. Задача целочисленного линейного программирования
... A /0, 0, 0, 0, 10, 11, 13, 0, -4, -1, 0, 0, 3, 1, 3, 0, -5, 0, -1, 0, 2, * 4, 3, 0, -1, 0, 0, -1, 0, 0, 1, 0/ DATA M /8/, N /4/, MAX /10/, EPS /0.001/ CALL MLC2R (A, M, N, MR, MAX, EPS, IERR) Результаты: max z = A(1, 1) = 19 x 1 = A(2, 1) = 2 x 2 = A(3, 1 ...
6. БЧА НИВЦ МГУ. AMMGR_P. Умножение матриц
... 3.2,5.6,-4.8,4.2,-1.4,5.7,0.8,-3.2, -8.9,-7.2,3.5,9.3,3.3 ); label _1,_2; begin Result := ''; M := 4; N := M; ММ := M; NN := 8; for I:=1 to 4 do begin for J:=1 to 4 do begin B[(I-1)+(J-1)*4] := A[(I-1)+(J-1)*4]; B[(I-1)+(J+4-1)*4] := A[(I-1)+(J-1)*4]; _1 ...
7. БЧА НИВЦ МГУ. MNR3R_P. Задача целочисленного линейного программирования
... 2,5,6,1,3,5,7,2,3,6,7,1,4,5,8,2,4,6,8,3,4,7,8 ); XS :Array [0..0] of Integer = ( 0 ); label _2; begin Result := ''; { результат функции } M := 8; N := 6; S := 0; EPS := 0.1E-03; MNR3R(X,XS,A,NA,B,C,NC,M,N,Y,Z,ZS,S,NY,NX,DIF,EPS); K := 0; for I:=1 to N do ...
8. БЧА НИВЦ МГУ. IIS4R. Сплайн-интерполяция
... Y(5) - Y(4)) / (X(5) - X(4)) ) CALL IIS3R (X, Y, NX, BPAR, C, IERR) M = 8 CALL IIS4R (X, Y, NX, C, U, S, M, IERR) Результаты: IERR =0 S(1) = -2.125 S(5) = -5.479 S(2) = 10.625 S(6) = 1.000 S(3) = -7.000 S(7) = -7.177 S(4) = 21.709 S(8) = -3.928 ...
9. http://num-anal.srcc.msu.ru/meth_mat/task_mth/ps/zpdf2.pdf
... x G 3F j %F B I F d q h (h ` Y h h h h SR Q Ct ` Y Y ` r h h Ў8 m U h h SR Q Ct ` Y Y ` r h h h Vh ` Y h h 8 h Vh ` h ph i h h ...
10. БЧА НИВЦ МГУ. AMMGR_C. Умножение матриц
... j, m, n, nlead[4]; extern int ammgr_c(float *, int *, int *, int *, float *, int *, int *, int *); static int mm, nn; #define a_ref(a_1,a_2) a[(a_2)*4 + a_1 - 5] #define b_ref(a_1,a_2) b[(a_2)*4 + a_1 - 5] m = 4; n = m; mm = m; nn = 8; for (i__ = 1; i ...