Зміст
Введення
Постановка завдання
Математична модель
Схема алгоритму
Таблиця ідентифікаторів
Текст програми мовою Паскаль
Результати рішення задачі
Аналіз результатів
Використання Microsoft Excel XP
Використання MathCad 2001
Література
Введення
Кожному твердому тілу властиво мати шорсткість поверхні. Визначається вона за профілем, що утворюється в перерізі поверхні тіла площиною, перпендикулярної до нормальної його поверхні. Для дослідження шорсткості необхідно визначити середнє арифметичне відхилення профілю, що і потрібно зробити в цій роботі. br/>
Постановка завдання
При дослідженні шорсткості отримана таблична залежність відхилень профілю від середньої лінії у (х).
Визначити середнє арифметичне відхилення профіля Rq на довжині l = 40 см. Побудувати графіки залежності Rq (x).
Математична модель
Шорсткість поверхні визначають за її профілю, який утворюється перерізі цієї поверхні площиною, перпендикулярної до нормального поверхні. Середнє арифметичне відхилення профілю в межах базової довжини l визначається за формулою:
В В
значення отримані в результаті експерименту
В
xi024, 57,28,5101212,91416,5182022,3 yi0 ,11,1-0 ,651,10,50-1 ,2-0 ,8-0 ,61,20,2-0, 70,8
Схема алгоритму
Схема головний програми
В
Процедура Ra
В
В
тіло шорсткість поверхню
Таблиця ідентифікаторів
iсчетчікавая переменнаяf, f1переменние для зв'язку з зовнішніми файламіtabмассів призначений для зберігання вихідних даних і результату підрахунку
Текст програми мовою Паскаль
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];;
then ('Error: 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 &...
