Курс лекций по основам алгоритмизации и программирования задач машиностроения. Кравченко Д.В. - 73 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

71
Определим
абсолютную
и
относительную
погрешность
точечной
аппрок
-
симации
при
локальном
интерполировании
многочленом
Ньютона
:
001,0373,6372,6R
a
−
=
−
=
∆
мкм
;
%.02,0100
372,6
373,6372,6
a
R
−=⋅
−
=ξ
Таким
образом
,
точечная
аппроксимация
при
локальном
интерполирова
-
нии
многочленом
Ньютона
обеспечивает
при
прочих
равных
условиях
наи
-
меньшую
погрешность
.
В
соответствии
с
постановкой
задачи
(
см
.
пример
11)
разработаем
алго
-
ритм
(
рис
. 4.10)
и
программу
LLI
её
решения
на
языке
TURBO PASCAL.
ПРОГРАММА
LLI
(
постановка
задачи
см
.
пример
11,
алгоритм
см
.
рис
. 4.10)
Program LLI; {LLI –
локальная
линейная
интерполяция
}
Uses Crt;
Var Vz, S, d, ai, bi, Radel, PRa, Raz, Rat: Real;
N, i: Byte; V, Ra: Array[1..50] Of Real;
Begin
Clrscr;
Write(’
Введите
заданную
скорость
резания
в
м
/
мин
:’);
Readln(Vz); {Vz = 15
м
/
мин
}
Write(’
Введите
подачу
в
мм
/
об
:’);
Readln(S); {S = 0,1
мм
/
об
}
Write(’
Введите
диаметр
сверла
в
мм
:’);
Readln(d); {d = 12
мм
}
Write(’
Введите
число
опытов
:’);
Readln(N); {N = 5}
Writeln(’
Ввод
табличных
значений
скорости
резания
.’);
For i:=1 To N Do Begin
Write(’V[’,i,’]=’);
Readln(V[i]); {V1 = 12; V2 = 14; V3 = 16; V4 = 18; V5 = 20
м
/
мин
}
End;
Writeln(’
Ввод
табличных
значений
шероховатости
.’);
For i:=1 To N Do Begin
Write(’Ra[’,i,’]=’);
Readln(Ra[i]); {Ra1 = 6,23; Ra2 = 6,31; Ra3 = 6,45; Ra4 = 6,52; Ra5 = 6,6
мкм
}
End;
i:=0;
Repeat
i:=i+1
Until (Vz>V[i]);
ai:=(Ra[i]-Ra[i-1])/(V[i]-V[i-1]);

Страницы