Будь умным!


У вас вопросы?
У нас ответы:) SamZan.net

на тему- ldquo;Исследование среднего арифметического отклонения профиляrdquo; вариант 3

Работа добавлена на сайт samzan.net:

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 9.11.2024

Министерство образования Республики Беларусь

БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

Кафедра “Теория механизмов и машин”

Курсовая работа

по информатике

на тему: “Исследование среднего арифметического отклонения профиля”

вариант № 3

Выполнил                                                                                                     

                                                                                                                         Ст. гр.103

Руководитель                                                                                                   

 

Минск 2006

СОДЕРЖАНИЕ

[0.0.1] Минск 2006

[1] СОДЕРЖАНИЕ

[2] 1. ПОСТАНОВКА ЗАДАЧИ

[3] 2. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ РЕШЕНИЯ ЗАДАЧИ

[4]
3. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ

[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

  1.  Для 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

  1.  CL1=Rai;
  2.  Для 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

  1.  РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ

  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. АНАЛИЗ РЕЗУЛЬТАТОВ

В результате работы программы была получена табличная зависимость шероховатости поверхности вала от его длины. В различных точках на поверхности вала значение шероховатости принимает различные значения. Это связано, прежде всего, с первоначальным изготовлением детали и последующей её эксплуатацией.

ЛИТЕРАТУРА

  1.  Рапаков Г.Г., РжеуцкаяС.Ю. Тurbo Pascal для студентов и школьников. – СПБ.: БХВ- Петербург, 2004. – 352 с.:ил.

  1.  Анципорович П.П., Алейникова О.И., Булгак Т.И., Луцко Н.Я. Информатика. Учебно-метод. Пособие к лабораторным работам для студ. машиностроит. спец. В 4 ч. – Мн.: БНТУ, 2004.

                                                      

           праааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа




1. план БИЗНЕСПЛАН Школьной компании Город
2. На тему- Токсическое действие никотина на организм
3. Полупроводниковый диод
4. реферат дисертації на здобуття наукового ступеня кандидата хімічних наук Дніпропетров.html
5. representtion of person plce or thing performing trditionlly humn ctivities or functions in work of fiction Protgonist The chrcter the story revolves round
6. на тему- Этика ненасилия- возвышенность перспектив и проблема реализации Оглавление
7. Реферат- Общественное мнение, как предмет изучения социальной психологии
8. коллегами но и в отдельных случаях их превосходят
9. Topics or words from the rticle re most interesting nd which re most boring
10. ТЕМАТИКА КОНТРОЛЬНЫХ РАБОТ по дисциплине История отечественного государства и права ООП бакалавриата
11. ЛЕКЦІЯ 7 ВИНИКНЕННЯ СОЦІАЛЬНОЇ ПЕДАГОГІКИ ЯК ОКРЕМОЇ ГАЛУЗІ ЗНАНЬ
12. Тема1- Внешнеторговая политика государства Вопросы- Внешнеторговая политика ВТП сущность тенденции
13. Государственная социальная политика
14. Юриспруденция Издательство НОРМА Издательская группа НОРМА~ИНФРА М Москва 2001
15. і Довільна увага своїм головним компонентом має волю
16. Утверждаю 27 ноября 2012г
17. Понятие коммуникации
18. задание Частота вращения вала двигателя ; Частота вращения выходного вала ; Вращающий момент на вы
19. .4 ТЕОРІЯ I МЕТОДИ ВИЗНАЧЕННЯ I МОДЕЛЮВАННЯ ДИНАМІКИ РЕЛЬЄФУ МОРСЬКОГО ДНА
20. Test growing softwre pplictions in the world