Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 46 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

Программа для
интерполирования «вперед»:
Программа для
интерполирования «назад»:
program newton;
const n=3;
var d:array[0..n,0..n] of real;
x,y:array[0..n] of real;
p:array[1..n] of real;
f1,f2:text; h,x1,s1:real;i,j:integer;
begin
assign(f1,'n1.pas');assign(f2,'nnn.pas');
reset(f1);rewrite(f2);x1:=1.5;h:=1;
for i:=0 to n do read(f1,x[i],y[i]); s1:=y[0];
for i:=0 to n do d[i,0]:=y[i];
for j:=1 to n do for i:=0 to n-j do
d[i,j]:=d[i+1,j-1]-d[i,j-1];
for i:=1 to n do begin p[i]:=1;for j:=1 to i do
p[i]:=p[i]*(x1-x[j-1])/(h*j);
s1:=s1+d[0,i]*p[i]; end;
write(f2,s1:7:4);close(f2);end.
program newton;
const n=3;
var d:array[0..n,0..n] of real;
x,y:array[0..n] of real;
p:array[1..n] of real;
f1,f2:text; h,x1,s1:real;i,j:integer;
begin
assign(f1,'n1.pas');assign(f2,'nn3.pas');
reset(f1);rewrite(f2);x1:=1.5;h:=1;
for i:=0 to n do read(f1,x[i],y[i]);s1:=y[n];
for i:=0 to n do d[i,0]:=y[i];
for j:=1 to n do for i:=0 to n-j do
d[i,j]:=d[i+1,j-1]-d[i,j-1];
for i:=1 to n do begin p[i]:=1;for j:=1 to i do
p[i]:=p[i]*(x1-x[n-j+1])/(h*j);
s1:=s1+d[n-i,i]*p[i]; end;
write(f2,s1:5:2);close(f2);end.
4.2. Итерационные методы решения нелинейных уравнений
Итерационные методы используются для решения нелинейных ал-
гебраических и трансцендентных уравнений.
Уравнения в общем случае можно представить следующим образом:
f(x)=0.
Нелинейные уравнения можно разделить на два класса - алгебраи-
ческие и трансцендентные.
Алгебраическими считаются уравнения, содержащие только алгеб-
раические функции (целые, рациональные, иррациональные).
Алгебраическое уравнение в общем виде можно представить мно-
гочленом n-й степени с действительными коэффициентами:
f(x)=a
0
+a
1
x+...+a
n-1
x
n-1
+a
n
x
n
=0 .
Уравнения, содержащие другие функции (тригонометрические, по-
казательные, логарифмические и др.), называются трансцендентными,
например:
x
3
+x
2
+2e
x
+5=0; 2x-sin3x=0.
46

Страницы