Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Министерство образования Республики Беларусь
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
Кафедра “Теория механизмов и машин”
Курсовая работа
по информатике
на тему: “Исследование среднего арифметического отклонения профиля”
вариант № 3
Выполнил
Ст. гр.103
Руководитель
[0.0.1] Минск 2006 [1] СОДЕРЖАНИЕ [2] 1. ПОСТАНОВКА ЗАДАЧИ [3] 2. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ РЕШЕНИЯ ЗАДАЧИ
[4] [5] 4. СХЕМА АЛГОРИТМА [6] 5. ТАБЛИЦА ИДЕНТИФИКАТОРОВ [6.0.1] Наименование [7] 6. ТЕКСТ ПРОГРАММЫ [8] РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ [9] 8. ГРАФИЧЕСКАЯ ЧАСТЬ [10] 9. АНАЛИЗ РЕЗУЛЬТАТОВ [11] ЛИТЕРАТУРА |
При анализе шероховатости по длине вала получена таблично заданная зависимость среднего арифметического отклонения профиля Ra(l) вида
l |
l1 |
l2 |
… |
ln |
Ra |
Ra1 |
Ra2 |
… |
Ran |
Определить значения Ra в точках вала с координатами , используя интерполяционный многочлен Лагранжа. Построить график зависимости Ra(l).
Интерполяционный многочлен Лагранжа, построенный по n узлам интерполирования, для поставленной задачи запишется в виде
Для вычисления Raj среднего арифметического отклонения профиля в точке с координатой воспользуемся соотношением
для каждого j=1, 2, …, k.
Значения исходных данных для тестирования
l, мм |
0 |
6 |
10 |
13 |
15 |
18 |
20 |
24 |
27 |
29 |
Ra, мм |
1,9 |
1,92 |
1,94 |
1,96 |
1,98 |
1,99 |
1 |
0,98 |
0,97 |
0,96 |
=3 мм, =16 мм, =22 мм, =28 мм.
1. Вводим исходные данные
Ввод (n);
Для i=1, n
Ввод (li)
Для i=1, n
Ввод (Rai)
Ввод (k);
Для j=1, k
Ввод (l1j)
2. Записываем исходные данные в файл res3. res
Для i=1, n
Вывод (li)
Для i=1, n
Вывод (Rai)
Вычисляем отклонение профиля с использованием функции CL
3.1. Ra1j=0
3.2. Для i=1, n
Ra1j=Ra1j+CL (n, i, j, l1, l, Ra)
4. Записываем результаты работы в файл res3. res
Для j=1, k
Вывод (l1j);
Для j=1, k
Вывод (Ra1j);
Алгоритм функции CL
Если , то
СL1=
3. CL=CL1
Схема головной программы
Схема функции CL
Наименование |
физический смысл |
идентификатор |
Длина вала |
l |
l, l1 |
Шероховатость поверхности вала |
Ra |
Ra, Ra1 |
Program kyrs3;
Uses crt;
TYPE vect=array[1..100] of real;
Var i,j,n,k:integer;
l,l1,Ra,Ra1:vect;
f1,f2:text;
function Cl(n,i,j:integer;l1,l,Ra:vect):real;
Var p:integer;Cl1:real;
begin
CL1:=Ra[i];
for p:=1 to n do
if p<>i then CL1:=CL1*(l1[j]-l[p])/(l[i]-l[p]);
CL:=CL1
end;
begin
ClrScr;
assign(f1,'dan3.txt');reset(f1);
assign(f2,'res3.res');rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,l[i]);
readln(f1);
for i:=1 to n do read(f1,Ra[i]);
readln(f1);
readln(f1,k);
for j:=1 to k do read(f1,l1[j]);
writeln(f2,' Kyrsovoi proekt');
writeln(f2,' Issledovanie srednego arifmeti4eskogo otkloneni9 profil9');
writeln(f2,' Variant 3');
writeln(f2,' Isxodnie dannie');
write(f2,'l ');for i:=1 to n do write(f2,l[i]:2:0,' ');
writeln(f2);
write(f2,'Ra ');for i:=1 to n do write(f2,Ra[i]:4:2,' ');
writeln(f2);
writeln(f2,' Reshenie zada4i');
for j:=1 to k do begin
Ra1[j]:=0;
for i:=1 to n do
Ra1[j]:=Ra1[j]+CL(n,i,j,l1,l,Ra);
end;
write(f2,'l1 ');
for j:=1 to k do write(f2,l1[j]:2:0,' ');
writeln(f2);
write(f2,'Ra ');for j:=1 to k do write(f2,Ra1[j]:4:2,' ');
writeln('Rabota zavershena');
repeat until keypressed
end
Kyrsovoi proekt
Issledovanie srednego arifmeti4eskogo otkloneni9 profil9
Variant 3
Isxodnie dannie
l 0 6 10 13 15 18 20 24 27 29
Ra 1.90 1.92 1.94 1.96 1.98 1.99 1.00 0.98 0.97 0.96
Reshenie zada4i
l1 3 16 22 28
Ra 27.17 2.11 0.19 -0.34
В результате работы программы была получена табличная зависимость шероховатости поверхности вала от его длины. В различных точках на поверхности вала значение шероховатости принимает различные значения. Это связано, прежде всего, с первоначальным изготовлением детали и последующей её эксплуатацией.
праааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа