... 4.0e0; A[12] := 0.0e0; A[13] := 0.0e0; A[14] := 3.0e0; A[15] := -2.0e0; T := 1.e0; M := 4; N := 16; AME1E(A,T,M,N,E,R,R1,R2,IERR); Result := Result + Format('%s',[' IERR=']); Result := Result + Format('%5d ',[IERR]) + #$0D#$0A; Result := Result + #$0D#$0A ...
13. БЧА НИВЦ МГУ. AET3C_C. Линейная проблема собственных значений для матриц
... select[1] = FALSE_; select[2] = TRUE_; aet3c_c( __3, __3, ar, ai, wr, wi, select, , , zr, zi, rm1, rm2, rv1, rv2, ); printf("\n %5i %5i \n", ierr, m); printf("\n %16.7e %16.7e %16.7e \n", wr[0], wr[1], wr[2]); printf("\n %16.7e %16.7e %16.7e \n", wi[0 ...
14. БЧА НИВЦ МГУ. DE23R. Задача Коши для системы уравнений первого порядка (с
... Y(1)-2.*Y(2) RETURN END DIMENSION RAB(38), Y(2), YN(2), DELTY(2), YPM(2), YP(16) EXTERNAL F M = 2 XN = 0. YN(1) = 2. ... PW(2, 2) = -2. RETURN END DIMENSION RAB(38), Y(2), YN(2), DELTY(2), YPM(2), YP(16) EXTERNAL F, FJ M = 2 XN = 0. YN(1) = 2. ...
15. БЧА НИВЦ МГУ. IIS6R_C. Сплайн-интерполяция
... Для нахождения 16 - ти коэффициентов C R m n , m, n = 1, 2, 3, 4, решается система линейных алгебраических уравнений, полученная по значениям бикубического сплайна в 16 - ти точках заданного прямоугольника. ...
16. БЧА НИВЦ МГУ. ZP37R_C. Операции с полиномами общего вида
... int *, float *, float *, float *); static float b[4]; static int m; static float r__, s; static int np, i__; r__ = 2.f; np = 4; m = 4; zp37r_c( , a, , b, __, ); printf("\n %5i %5i \n", np, m); printf("\n %16.7e %16.7e \n", r__, s); for (i__ = 1; i ...
17. БЧА НИВЦ МГУ. IIS6R_P. Сплайн-интерполяция
... Для нахождения 16 - ти коэффициентов C R m n , m, n = 1, 2, 3, 4, решается система линейных алгебраических уравнений, полученная по значениям бикубического сплайна в 16 - ти точках заданного прямоугольника. ...
18. БЧА НИВЦ МГУ. AIG4R_P. Обращение матриц общего вида
... 2: end; Result := Result + Format('%s',[' A=']); Result := Result + #$0D#$0A; for J:=1 to N do begin for I:=1 to M do begin Result := Result + Format('%16.7f ',[A[(I-1)+(J-1)*4]]) + #$0D#$0A; end; end; Result := Result + #$0D#$0A; AIG4R(A,M,N,NLEAE,Z,IERR ...
19. БЧА НИВЦ МГУ. IIS6R. Сплайн-интерполяция
... Для нахождения 16 - ти коэффициентов C R m n , m, n = 1, 2, 3, 4, решается система линейных алгебраических уравнений, полученная по значениям бикубического сплайна в 16 - ти точках заданного прямоугольника. ...
20. БЧА НИВЦ МГУ. MNB4R_C. Задача безусловной минимизации функции многих переменных
... n %5i \n", limit); printf("\n %16.7e \n", est); printf("\n %16.7e \n", eps); printf("\n %16.7e %16.7e %16.7e \n", x[0], x[1], x[2]); /* l100: */ m = n * (n + 7) / 2; mnb4r_c( , , x, , g, , , , , h__, , (U_fp)func_c, (U_fp)grad_c); printf("\n\n %5i \n ...