Определение шероховатости поверхности твердого тела

Содержание

Введение

Постановка задачи

Математическая модель

Схема алгоритма

Таблица идентификаторов

Текст программы на языке Паскаль

Результаты решения задачи

Анализ результатов

Использование Microsoft Excel XP

Использование MathCad 2001

Литература

Введение

Каждому твердому телу свойственно иметь шероховатость поверхности. Определяется она по профилю, образующемуся в сечении поверхности тела плоскостью, перпендикулярной к нормальной его поверхности. Для исследования шероховатости необходимо определить среднее арифметическое отклонение профиля, что и нужно сделать в этой работе.

Постановка задачи

При исследовании шероховатости получена табличная зависимость отклонений профиля от средней линии у(х).

Определить среднее арифметическое отклонение профиля Rq на длине l=40 см. Построить графики зависимости Rq(x).

Математическая модель

Шероховатость поверхности определяют по ее профилю, который образуется сечении этой поверхности плоскостью, перпендикулярной к нормальной поверхности. Среднее арифметическое отклонение профиля в пределах базовой длины l определяется по формуле:

значения полученные в результате эксперимента

Схема алгоритма

Схема головной программы

Процедура Ra

тело шероховатость поверхность

Таблица идентификаторов

Текст программы на языке Паскаль

graph;

type tablica=array[1..3,1..25] of real;

{===============================}Ra(var tab:tablica);i:byte;,b:real;:=0;i:=1 to 24 do:=a+0.5*(abs(tab[2,i])+abs(tab[2,i+1]))*(tab[1,i+1]-tab[1,i]);:=b;;i:=2 to 25 do[3,i]:=b/tab[1,i];;

{===============================}gr(tab:tablica);d,e,m:integer;:byte;:=detect;(d,m,'');:=GraphResult;e<>grOK then('Error: ',GraphErrorMsg(e));;else(10,10,10,470);(10,470,620,470);(620,470,613,467);(613,467,613,473);(613,473,620,470);(10,10,7,17);(7,17,13,17);(13,17,10,10);i:=2 to 24 do(round(15*tab[1,i])+10, abs(round(40*tab[3,i])-470), round(15*tab[1,i+1])+10,abs(round(40*tab[3,i+1])-470));;;;;

{============================}tab:tablica;:byte;,f1:text;(f,'Dano.txt');(f);i:=1 to 25 do(f,tab[1,i],tab[2,i]);(f);(tab);(f1,'Ra.txt');(f1);i:=1 to 25 do(f1,tab[3,i]:3:4);(tab[3,i]:3:4);(f1);

gr(tab);.

Результаты решения задачи

Распечатка файла с результатами - Ra.txt

.7000

.5333

.0833

.4588

.9400

.4500

.2791

.1000

.7818

.6333

.4700

.3184

.2511

.1136

.0576

.0138

.9800

.9363

.9046

.8750

.8547

.8167

.7882

.7350

Анализ результатов

Среднее арифметическое отклонение профиля Rq уменьшается с увеличением длины.

Использование Microsoft Excel XP

Использование MathCad 2001

Литература

1.       Алексеев В.Е., Ваулин А.С., Петрова Г.Б. : «Вычислительная техника программирования : Практикум по программированию». Москва 1991

2.      Анципорович П.П., Олейникова О.И., Булгак Т.И., Луцко Н.Я. : «Учебно-методической пособие к лабораторным работам для студентов машиностроительных специальностей часть первая». Минск, БНТУ, 2009 г.