# Вторая пачка часть 111

§ 1 и 2 в гл. 2). Однако их при¬ме-ня¬ют в прак¬ти¬ческих рас¬че¬тах до¬ста¬¬точ¬но час¬то, так как они удобны, прос¬ты, не требуют спе¬¬¬ци¬аль¬-ных про¬грамм. И, что осо¬бен¬но важ¬но, позволяют бы¬стро сделать пред¬ва¬ри¬тель¬ные (при¬¬¬¬ки¬доч¬¬ные) расчеты. Процедуры NEW1, NEW2, NEWTON из § 1 и 2 (гл.2) впол¬¬не пригодны для вычисления про-из¬вод¬ных. Но с уче¬том ре¬шаемой задачи они должны быть не¬сколь¬ко мо¬¬ди¬фи¬¬ци¬¬ро¬ва¬ны, хотя формальные па¬ра¬мет¬ры ос¬та¬ют¬ся у про¬¬це¬дур без изменений. {***ПЕРВАЯ ИНТЕРПОЛЯЦИОННАЯ ФОРМУЛА НЬЮТОНА**} FUNCTION NEW1 (KEY:INTEGER;X,Y,R1,R2,R3,R4: MAS; X1:REAL):REAL; LABEL 30; VAR I,J,K : INTEGER; Q : REAL; BEGIN I := 1; J := 14; IF X1 < X[I] THEN GOTO 30; { ****МЕТОД ДВОИЧНОГО ПОИСКА ИНТЕРВАЛА****} REPEAT K := (I+J) DIV 2; IF X1< X[K] THEN J := K; IF X1>=X[K] THEN I := K; UNTIL J <= I+1; 30: Q := (X1 - X[I]) / (X[2]-X[1]); { ****ВЫБОР ТИПА РАБОТЫ ПРОЦЕДУРЫ****} CASE KEY OF 0:NEW1:=Y[I]+Q*(R1[I]+(Q-1)*(R2[I]/2.0+ (Q-2)*R3[I]/6.0)); 1: NEW1 := R1[I] + 0.5*(2*Q-1)*R2[I] + ((3*Q-6)*Q+2)*R3[I]/6+ Окончание таблицы 2.1 № Вариант А Вариант Б № Вариант А Вариант Б Параметр i Х Y X Y Параметр i Х Y X Y 1 0.11000 9.00000 0.10000 2.00000 Расчетные 14 0.26708 3.71492 0.37083 5.27809 2 0.12208 8.13717 0.12083 2.60852 точки, 15 0.27917 3.54559 0.39167 5.23644 3 0.13417 7.40129 0.14167 3.08333 через 16 0.29125 3.38354 0.41250 5.12278 Расчетные 4 0.14625 6.77476 0.16250 3.46364 которые 17 0.30333 3.22789 0.43333 4.93141 точки, 5 0.15833 6.24154 0.18333 3.77930 проходит 18 0.31542 3.07873 0.45417 4.66007 через 6 0.17042 5.78712 0.20417 4.05183 интерполя- 19 0.32750 2.93704 0.47500 4.31085 которые 7 0.18250 5.39849 0.22500 4.29535 ционная 20 0.33958 2.804663 0.49583 3.89127 проходит 8 0.19458 5.06405 0.24583 4.51758 кривая 21 0.35167 2.68421 0.51667 3.41516 интерполя- 9 0.20667 4.77360 0.26667 4.72085 22 0.36375 2.57910 0

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа
видеонаблюдение москва установка