Определение и свойство твёрдого тела. Среднее арифметическое отклонение профиля в пределах базовой длины и для исследования шероховатости поверхности. Схема алгоритма, математическая модель и таблица идентификаторов расчётов шероховатости поверхности.
Аннотация к работе
Постановка задачи Математическая модель Схема алгоритма Таблица идентификаторов Текст программы на языке Паскаль Результаты решения задачи Анализ результатов Использование Microsoft Excel XP Использование MathCad 2001 Литература Введение Каждому твердому телу свойственно иметь шероховатость поверхности. Определить среднее арифметическое отклонение профиля Rq на длине l=40 см. Среднее арифметическое отклонение профиля в пределах базовой длины l определяется по формуле: значения полученные в результате эксперимента xi 0 2 4,5 7,2 8,5 10 12 12,9 14 16,5 18 20 22,3 yi 0,1 1,1 -0,65 1,1 0,5 0 -1,2 -0,8 -0,6 1,2 0,2 -0,7 0,8 Схема алгоритма Схема головной программы Процедура Ra тело шероховатость поверхность Таблица идентификаторов i счетчикавая переменная f,f1 переменные для связи с внешними файлами tab массив предназначенный для хранения исходных данных и результата подсчета Текст программы на языке Паскаль uses graph; type tablica=array[1..3,1..25] of real; {===============================} procedure Ra(var tab:tablica); var i:byte; a,b:real; begin a:=0; for i:=1 to 24 do begin b:=a 0.5*(abs(tab[2,i]) abs(tab[2,i 1]))*(tab[1,i 1]-tab[1,i]); a:=b; end; for i:=2 to 25 do tab[3,i]:=b/tab[1,i]; end; {===============================} procedure gr(tab:tablica); var d,e,m:integer; i:byte; begin d:=detect; InitGraph(d,m,); e:=GraphResult; if e