... N X2A(I) = R 2 R = R + 0.1 DO 3 I = 1, M DO 3 J = 1, N 3 YA(I, J) = SIN(X1A(I))*SIN(X2A(J)) MP = 5 NP = 4 X1 = 0.55 X2 = 0.65 CALL IP03R (X1A, X2A, YA, M, N, MP, NP, X1, X2, Y, DY, YM, * YN, C, D, IERR) Результаты: Y = 0.316323 DY = 0.616967E-07 IERR = 0 ...
7. БЧА НИВЦ МГУ. IIB8R. Сплайн-интерполяция
... R = R + 0.1 R = 0.0 DO 2 I = 1, N X2A(I) = R 2 R = R + 0.1 DO 4 I = 1, M DO 4 J = 1, N YA(I, J) = SIN(X1A(I))*SIN(X2A(J)) 4 Y2A(I, J) = -YA(I, J) X1 = 0.55 X2 = 0.65 CALL IIB8R (X1A, X2A, YA, Y2A, M, N, X1, X2, Y, YT, Y2T, * YYT, U) Результат: Y=0.321498 ...
8. БЧА НИВЦ МГУ. IIB9R. Сплайн-интерполяция
... I = 1, M DO 4 J = 1, N YA(I, J) = SIN(X1A(I))*SIN(X2A(J)) 4 Y2A(I, J) = -YA(I, J) X1 = 0.55 X2 = 0.65 YP1 = COS(X1A(1))*SIN(X2) YPM = COS(X1A(M))*SIN(X2) CALL IIB9R (X1A, X2A, YA, Y2A, M, N, X1, X2, YP1, YPM, Y, YT, * Y2T, YYT, U) Результат: Y = 0.316370 ...
9. БЧА НИВЦ МГУ. DE29R_C. Задача Коши для системы уравнений первого порядка (с
... случае аварийного выхода из подпрограммы, т.е. со значением ierr = 65 или 66, значение параметра yn будет испорчено. y 1 ' = y ...
10. БЧА НИВЦ МГУ. IIB9R_P. Сплайн-интерполяция
... 1]); _4: Y2A[(I-1)+(J-1)*5] := -YA[(I-1)+(J-1)*5]; end; end; X1 := 0.55; X2 := 0.65; YP1 := Cos(X1A[0])*Sin(X2); YРМ := Cos(X1A[M-1])*Sin(X2); IIB9R(X1A,X2A,YA,Y2A,M,N,X1,X2,YP1,YPM,Y, YT,Y2T,YYT,U); Y1T := Sin(X1)*Sin(X2); Result := Result + Format(' %20 ...