на тему- ldquo;Исследование среднего арифметического отклонения профиляrdquo; вариант 3
Работа добавлена на сайт samzan.net:
Министерство образования Республики Беларусь
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
Кафедра “Теория механизмов и машин”
Курсовая работа
по информатике
на тему: “Исследование среднего арифметического отклонения профиля”
вариант № 3
Выполнил
Ст. гр.103
Руководитель
Минск 2006
СОДЕРЖАНИЕ
|
[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] ЛИТЕРАТУРА |
1. ПОСТАНОВКА ЗАДАЧИ
При анализе шероховатости по длине вала получена таблично заданная зависимость среднего арифметического отклонения профиля Ra(l) вида
|
l |
l1 |
l2 |
… |
ln |
|
Ra |
Ra1 |
Ra2 |
… |
Ran |
Определить значения Ra в точках вала с координатами , используя интерполяционный многочлен Лагранжа. Построить график зависимости Ra(l).
2. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ РЕШЕНИЯ ЗАДАЧИ
Интерполяционный многочлен Лагранжа, построенный по 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 мм.
3. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ
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
- Для j=1, k
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
- CL1=Rai;
- Для p=1, n
Если , то
СL1=
3. CL=CL1
4. СХЕМА АЛГОРИТМА
Схема головной программы
Схема функции CL
5. ТАБЛИЦА ИДЕНТИФИКАТОРОВ
Наименование |
физический смысл |
идентификатор |
|
Длина вала |
l |
l, l1 |
|
Шероховатость поверхности вала |
Ra |
Ra, Ra1 |
6. ТЕКСТ ПРОГРАММЫ
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
8. ГРАФИЧЕСКАЯ ЧАСТЬ
9. АНАЛИЗ РЕЗУЛЬТАТОВ
В результате работы программы была получена табличная зависимость шероховатости поверхности вала от его длины. В различных точках на поверхности вала значение шероховатости принимает различные значения. Это связано, прежде всего, с первоначальным изготовлением детали и последующей её эксплуатацией.
ЛИТЕРАТУРА
- Рапаков Г.Г., РжеуцкаяС.Ю. Тurbo Pascal для студентов и школьников. – СПБ.: БХВ- Петербург, 2004. – 352 с.:ил.
- Анципорович П.П., Алейникова О.И., Булгак Т.И., Луцко Н.Я. Информатика. Учебно-метод. Пособие к лабораторным работам для студ. машиностроит. спец. В 4 ч. – Мн.: БНТУ, 2004.
праааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа
2. Хомяков Дмитрий Алексеевич
3. Административное право Республики Казахстан для специальности 5В030100 Юриспруденция
4. Дипломная работа Подготовка СССР к войне во второй половине 1930х ~ начале 1940х гг
5. В плане указываются- название темы цели задачи предполагаемый результат этапы работы
6. День 29 січня 1918 року
7. ТЕМА РАСПРЕДЕЛЕНИЯ [8
8. тема- {введите название раздела темы с которым связан тест} Название теста- {Государственные расходы и на
9. эн доцент Дарьялова В
10. каркасна технологія.html
11. РЕФЕРАТ дисертації на здобуття наукового ступеня кандидата хімічних наук Київ ~199
12. Томат, как ценная овощная культура
13. Ребенка бьют- к вопросу о происхождении сексуальных извращений Из сборника1
14. 17 Трудовое право
15. Реклама в Кыргызстане
16. ОС Windows Стандартные и служебные программы (Обслуживание дисков, свойства объектов, свойства системы, установка и удаление программ, восстановление системы Программа Калькулятор)
17. доклад 1. Презентация зарубежной страны По заданию 1 необходимо получить номер варианта
18. Стихотворение Бориса Пастернака «Снег идет»
19. Интеллект и механизмы мозга
20. Изучение деятельности КИК