Программа по расчету поршневых колец
Алгоритм расчета поршневых колец: описание математического способа определения сил упругости, инерции, трения и давления на отдельные поверхности кольца, создание блок-схемы реализации задачи, разработка текста программы, представление результатов.
Рубрика | Программирование, компьютеры и кибернетика |
Вид | курсовая работа |
Язык | русский |
Дата добавления | 28.06.2011 |
Размер файла | 532,3 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Белорусский национальный технический университет
Кафедра ТЭА
ПОЯСНИТЕЛЬНАЯ ЗАПИСКА
к курсовому проекту
по дисциплине "Информатика"
Тема: Расчет поршневых колец
Минск 2008
СОДЕРЖАНИЕ
- Введение
- 1. Постановка задачи
- 2. Математическое описание
- 3. Нормативно-справочные данные
- 4. Блок-схема и программа
- 5. Результаты расчета
- 6. Инструкция пользователя
- 7. Выводы и предложения
- Список использованной литературы
ВВЕДЕНИЕ
В настоящее время ЭВМ широко используется почти во всех отраслях промышленности, а также и в области машиностроения, автомобилестроения и эксплуатации автомобильного транспорта. С помощью ЭВМ производятся проектирование новых моделей автомобилей, улучшение технических характеристик уже существующих моделей и другие операции, связанные с их производством и эксплуатацией. Информационные технологии находят широкое применение при проектировании, отладке, производстве и эксплуатации программных средств, в таких областях, как машиностроение, приборостроение, металлургия, энергетика. Автоматизированные промышленные системы выполняют многочисленные функции управления процессами моделирования и анализа ситуаций, прогнозирования событий, принятия решений и планирования действий в сфере производства.
Применение средств вычислительной техники в области технической эксплуатации автомобилей способствует развитию навыков в моделировании различных технологических, конструкторских и исследовательских задач.
Данная курсовая работа описывает алгоритм расчета поршневых колец.
К ним предъявляют следующие требования: 1) поршневые кольца должны обеспечивать герметичность внутреннего пространства цилиндра; 2) поршневые кольца должны препятствовать проникновению масла из картера внутрь цилиндра; 3) поршневые кольца должны отводить в стенки цилиндра большую часть воспринимаемого днищем поршня тепла.
Материалом для поршневых колец служат перлитовые и легированные чугуны. Для увеличения срока службы (примерно в 3-3,5 раза) и улучшения приработки поршневые кольца в ряде случаев подвергают пористому хромированию, оксидированию и лужению. Пористое хромирование чугунных поршневых колец делает их самосмазывающимися, так как смазка механически удерживается порами.
1. ПОСТАНОВКА ЗАДАЧИ
В данной курсовой работе необходимо составить алгоритм расчета поршневых колец. Это является главной задачей курсовой работы.
Целью расчета поршневого кольца является определение:
- сил давления газов на верхнюю, нижнюю и внутреннюю боковую поверхности кольца (P, P1' , P1);
- силы упругости кольца (РR);
- силы инерции кольца (Рjk);
- силы трения кольца по стенке цилиндра (Т1);
- силы давления кольца на торцевую поверхность кольцевой канавки (Pк);
- силы трения кольца по торцевой поверхности кольцевой канавки (T1');
- среднего удельного давления кольца на стенку цилиндра (py);
- давления в любой точке поверхности кольца (pR);
Также задачей курсовой работы является написание расчетно-пояснительной записки, в которой будут описаны следующие разделы:
введение;
постановка задачи;
математическое описание;
блок схема и программа;
результаты расчета;
инструкция пользователя;
выводы и предложения;
список использованной литературы.
2. МАТЕМАТИЧЕСКОЕ ОПИСАНИЕ
Определяем силы давления газов на верхнюю, нижнюю и внутреннюю боковую поверхности кольца:
P = (d-a) a pz ,
P1' = (d-a ) a p1 , (2.1)
P1 = (d-2a) b p1.
Определяем силу упругости кольца
PR dbpR, (2.2)
где pR - радиальное давление кольца на стенку цилиндра от сил упругости.
Определяем силу инерции кольца:
Pjk = mkj [ (d-a )ab 10-3/g] r2( cos+cos2), (2.3)
где mk - масса кольца; d, a, b - размеры кольца; - удельный вес материала кольца; g - ускорение силы тяжести.
Определяем силу трения кольца по стенке цилиндра:
T1 = (P1+PR)f, (2.4)
где f = 0.100.15 - коэффициент трения.
Определяем силу давления кольца на торцевую поверхность кольцевой канавки:
Pk = P - P1' - T1 Pjk , (2.4)
Определяем силу трения кольца по торцевой поверхности кольцевой канавки:
Tk' = Pk f. (2.5)
Определяем среднее давление кольца на стенку цилиндра:
py = 0.425E(A/a)102/[ (3-)(D/a)(D/a-1)3] , (2.6)
где А - зазор в замке кольца в свободном состоянии;
а - радиальная толщина кольца;
Е - модуль упругости материала;
0,196 - второй коэффициент, зависящий от эпюры давлений кольца;
D - диаметр цилиндра.
Определяем давление кольца на стенку цилиндра в любой точке поверхности кольца:
PR = py, (2.7)
где - коэффициент, зависящий от угла , характеризующего положение данной точки.
3. НОРМАТИВНО СПРАВОЧНЫЕ ДАННЫЕ
0 |
0 |
30 |
60 |
90 |
120 |
150 |
180 |
|
1,051 |
1,047 |
1,137 |
0,896 |
0,454 |
0,676 |
2,861 |
- угол, характеризующий положение данной точки;
- коэффициент, зависящий от угла .
4. БЛОК-СХЕМА И ПРОГРАММА
4.1 Блок-схема основной программы
Размещено на http://www.allbest.ru/
4.2 Процедура расчета
program Ivanov;
uses crt;
const G=9.8;
E=200000;
Kof=0.196;
var Ft:text;
Procedure Titylnik;
Label M1;
var x,j:word; ch:char;
begin
HighVideo;
J:=3; x:=50000;
TextMode(3);
TextColor(j);
Delay(x);
Gotoxy(13,2);
writeln('Белорусский национальный технический университет');
Delay(x);
Gotoxy(33,3);
writeln('Кафедра ТЭА');
Delay(x);
Gotoxy(31,9);
writeln('КУРСОВАЯ РАБОТА');
Delay(x);
Gotoxy(25,10);
writeln('по дисциплине "Информатика"');
Delay(x);
Gotoxy(22,12);
writeln('Тема: Расчет поршневых колец ');
Delay(x);
Gotoxy(12,17);
writeln('Исполнитель Иванов М.В.');
Delay(x);
Gotoxy(12,18);
writeln('Студент 2-го курса группы ХХХХХХХХ ');
Delay(x);
Gotoxy(12,21);
writeln('Руководитель Сай А.С. ');
Delay(x);
Gotoxy(37,24);
writeln('2008');
Delay(x);
Gotoxy(21,25);
write('для продолжения нажмите любую клавишу');
M1:while not KeyPressed=True do
goto M1;
ch:=readkey;
end;
procedure raschet;
Label M1,M2,M3,M5,M6,M7,M8,M9,M10,M11,1,2;
var ftr,Prm,d,Db,am,A,b,Gam,Pr,T1,Pk,py:real;
pz,P1,p1m,r,w,My,P,P1sh,Pjk,T1sh:real; Fi:word;
begin
assign(Ft,'Ivanov.txt');
rewrite(Ft);
randomize;
Prm:=random(2)+2;
ftr:=(random(15)+1)/100;
gotoxy(22,1);
Writeln('ВСЕ значения вводятся в миллиметрах');
M1:Write('Введите диаметр поршня d= ');
readln(d);
if d<=0 then begin Writeln('Неправильный параметр');
Goto M1; end;
M2:Write('Введите ширину поршенвого кольца a= ');
readln(am);
if am<=0 then begin Writeln('Неправильный параметр');
Goto M2; end;
M3:Write('Введите толщину поршневого кольца b= ');
readln(b);
if b<=0 then begin Writeln('Неправильный параметр');
Goto M3; end;
M5:Write('Введите удельный вес материала кольца Gam= ');
readln(Gam);
if gam<=0 then begin Writeln('Неправильный параметр');
Goto M5; end;
M6:Write('Введите максимальную силу давления газов pz= ');
readln(pz);
if pz<=0 then begin Writeln('Неправильный параметр');
Goto M6; end;
M7:Write('Введите максимально давление кольца на стенку цилиндра p1= ');
readln(p1m);
if p1m<=0 then begin Writeln('Неправильный параметр');
Goto M7; end;
M8:Write('Введите внутренний радиус поршневого кольца r= ');
readln(r);
if r<=0 then begin Writeln('Неправильный параметр');
Goto M8; end;
M9:Write('Введите значение угловой скорости w= ');
readln(w);
if w<=0 then begin Writeln('Неправильный параметр');
Goto M9; end;
M10:Write('Введите значение зазора в замке A= ');
readln(A);
if A<=0 then begin Writeln('Неправильный параметр');
Goto M10; end;
M11:Write('Введите внутренний диаметр гильзы цилиндров D= ');
readln(Db);
if Db<=0 then begin Writeln('Неправильный параметр');
Goto M11; end;
1:clrscr;
Writeln('Выбирите угол Фи');
Writeln('0');
writeln('30');
Writeln('60');
Writeln('90');
writeln('120');
Writeln('150');
Writeln('180');
readln(Fi);
case Fi of
0: begin My:=1.051; end;
30: begin My:=1.047; end;
60: begin My:=1.137; end;
90: begin My:=0.896; end;
120: begin My:=0.454; end;
150: begin My:=0.676; end;
180: begin My:=2.861; end
else begin Writeln('Повторите ввод'); delay(50000); goto 1; end;
end;
P:=3.14*(d-a)*a*pz;
P1sh:=3.14*(d-a)*a*p1m;
P1:=3.14*(d-2*a)*b*p1m;
Pr:=3.14*d*b*prm;
Pjk:=(3.14*(d-a)*a*b*Gam*0.001/g)*r*sqr(w)*(cos(Fi)+cos(2*Fi));
T1:=(P1+Pr)*ftr;
Pk:=P-P1sh-T1+Pjk;
T1sh:=Pk*Ftr;
py:=(0.425*E*(A/am)*100)/((3-Kof)*(D-A)*(D/am-1)*(D/am-1)*(D/am-1));
pr:=My*py;
if Pjk<0 then Pjk:=Pjk*(-1);
clrscr;
gotoxy(20,1);
Writeln('РЕЗУЛЬТАТЫ РАСЧЕТА');
Writeln('Коэффициент трения f= ',ftr:1:2);
Writeln('Диаметр поршня d= ',d:4:2);
Writeln('Сила давления газов на верхнюю поверхность кольца P= ',P:5:2);
Writeln('Сила давления газов на нижнюю поверхность кольца P1"= ',P1sh:5:2);
Writeln('Сила давления газов на внутреннюю поверхность кольца P1= ',P1:5:2);
Writeln('Сила упругости кольца Pr= ',Pr:5:2);
Writeln('Сила инерции кольца Pjk= ',Pjk:2:2);
Writeln('Сила трения кольца по стенки цилиндра T1= ',T1:4:1);
Writeln('Сила давления кольца на торцевую поверхность кольцевой канавки Pk= ',Pk:4:2);
Writeln('Сила трения кольца по торцевой поверхности кольцевой канавки T1"= ',T1sh:2:2);
Writeln('Среднее давление кольца на стенку цилиндра ру= ',Py:4:2);
Writeln('Коэффициент M= ',My:2:4);
Writeln('При угле Ф= ',Fi);
Writeln('давление составило = ',pr:2:4);
Writeln(Ft,'РЕЗУЛЬТАТЫ РАСЧЕТА');
Writeln(Ft,'Коэффициент трения f= ',ftr:1:2);
Writeln(Ft,'Диаметр поршня d= ',d:4:2);
Writeln(Ft,'Сила давления газов на верхнюю поверхность кольца P= ',P:5:2);
Writeln(Ft,'Сила давления газов на нижнюю поверхность кольца P1"= ',P1sh:5:2);
Writeln(Ft,'Сила давления газов на внутреннюю поверхность кольца P1= ',P1:5:2);
Writeln(Ft,'Сила упругости кольца Pr= ',Pr:5:2);
Writeln(Ft,'Сила инерции кольца Pjk= ',Pjk:2:2);
Writeln(Ft,'Сила трения кольца по стенки цилиндра T1= ',T1:4:1);
Writeln(Ft,'Сила давления кольца на торцевую поверхность кольцевой канавки Pk= ',Pk:4:2);
Writeln(Ft,'Сила трения кольца по торцевой поверхности кольцевой канавки T1"= ',T1sh:2:2);
Writeln(Ft,'Среднее давление кольца на стенку цилиндра ру= ',Py:4:2);
Writeln(Ft,'Коэффициент M= ',My:2:4);
Writeln(Ft,'При угле Ф= ',Fi);
Writeln(Ft,'давление составило = ',pr:2:4);
close(Ft);
textColor(10);
gotoxy(21,25);
write('для продолжения нажмите любую клавишу');
2:while not KeyPressed=True do
goto 2;
end;
begin
clrscr;
titylnik;
clrscr;
raschet;
end.
5. РЕЗУЛЬТАТЫ РАСЧЕТА
РЕЗУЛЬТАТЫ РАСЧЕТА
Коэффициент трения f= 0.01
Диаметр поршня d= 100.00
Сила давления газов на верхнюю поверхность кольца P= 28260.00
Сила давления газов на нижнюю поверхность кольца P1"= 141300.00
Сила давления газов на внутреннюю поверхность кольца P1= 25120.00
Сила упругости кольца Pr= 0.65
Сила инерции кольца Pjk= 18934726.87
Сила трения кольца по стенки цилиндра T1= 270.0
Сила давления кольца на торцевую поверхность кольцевой канавки Pk= 18821416.83
Сила трения кольца по торцевой поверхности кольцевой канавки T1"= 188214.17
Среднее давление кольца на стенку цилиндра ру= 1.43
Коэффициент M= 0.4540
При угле Ф= 120
давление составило = 0.6499
6. ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЯ
Данная программа предназначена для расчета поршневых колец.
Для запуска программы необходимо загрузить Turbo Pasсal, открыть файл "Ivanov.pas" , и запустить программу.
Здесь нужно ввести необходимые для расчета данные, при этом будут появляться соответствующие запросы. После введения необходимых данных нужно нажать ENTER.
После введения всех данных и нажатия клавиши, результаты расчета будут выведены в текстовый файл.
При нажатии клавиши "ENTER", пользователь может продолжить расчет; при нажатии клавиши "ESC" программа завершит работу и выйдет в Turbo Pasсal.
Программа выполняется столько раз, сколько необходимо пользователю.
Для просмотра результатов необходимо в том же каталоге, где находится сама программа найти файл результатов с введенным ранее именем и нажать "F4".
7. ВЫВОДЫ И ПРЕДЛОЖЕНИЯ
поршневый кольцо алгоритм программа
В ходе выполнения курсовой работы мною было изучено программирование в среде Turbo Pasсal.
Программа предназначена для расчета поршневых колец.
Результаты вычислений программы выводятся в текстовый файл, что позволяет их просмотреть, сохранить, распечатать и использовать для дальнейших расчетов. Использование возможно на автомобилестроительных и машиностроительных предприятиях, связанных с расчетом колец, для снижения трудоемкости этих работ, экономии времени на их выполнение.
СПИСОК ИСПОЛЬЗОВАНОЙ ЛИТЕРАТУРЫ
1. Вальвачев А.Н. Крисевич В.С. Программирование на языке Паскаль для персональных ЭВМ ЕС.- Мн.: Вышэйшая школа,1989
2. Фаронов В.В. Турбо Паскаль 7.0 Учебное пособие.-М.: Нолидж,1999
3. Форсайт Р. Паскаль для всех-М.: Машинострение,1987
4. Попык К.Г., Автомобильные и тракторные двигатели. - М., 1980.
Размещено на Allbest.ru
Подобные документы
Создание приложения, исполняющего трансляцию программы из языка Паскаль в язык Си: разработка алгоритма реализации задачи, описание необходимых констант, переменных, функций и операторов, представление листинга программы и распечатка результатов.
курсовая работа [305,9 K], добавлен 03.07.2011Постановка задачи и алгоритм решения. Листинг программы, иллюстрирующей работу с символами, строками и блоками. Описание возможностей языка С, используемых для реализации алгоритма. Тестирование итоговой программы, анализ полученных результатов расчета.
курсовая работа [63,0 K], добавлен 27.12.2012Программирование игр с использованием визуальных компонентов. Описание операторов, используемых при практической реализации разработанной программы. Работа над созданием программы "Морской бой", постановка задачи, алгоритм реализации работы, блок-схема.
курсовая работа [175,9 K], добавлен 10.05.2010Технические и пользовательские характеристики игры, требования к программному обеспечению и среде разработки C#. Составление блок-схемы алгоритма, uml-диаграммы и текста программы, тестирование корректности компьютерного кода и результатов его работы.
курсовая работа [1,8 M], добавлен 05.03.2013Основные аналитические соотношения. Блок схемы и алгоритм решения задачи. Проверка работоспособности алгоритма вручную. Таблица идентификации переменных. Формы входной и выходной печати. Разработка и отладка программы. Инструкция для работы с программой.
курсовая работа [69,8 K], добавлен 13.02.2012Разработка принципиальной схемы, выбор управляющего микроконтроллера. Общий алгоритм работы программы. Блок анализа и реализации команд, принятых от персонального компьютера. Описание используемых интерфейсов. Формат данных RS-232C, листинг программы.
курсовая работа [1,2 M], добавлен 26.12.2012Описание математической модели определения тока в электрической цепи с помощью решения системы алгебраических уравнений методом Гаусса. Описание и разработка блок-схемы программы. Ввод данных задачи, составление программы и анализ результатов решения.
контрольная работа [231,8 K], добавлен 15.08.2012Преобразование матрицы по заданным правилам. Методика работы с массивами, основанная на классических алгоритмах. Разработка и описание блок-схемы алгоритма. Листинг программы, экраны работы и отладки программы. Инструкция для пользователей программы.
контрольная работа [338,4 K], добавлен 29.01.2013Создание имитационной модели для регистрации транспортных средств. Построение Q-схемы модели. Базовый алгоритм программы в виде блок-схемы. Проектирование программы на языке GPSS. Обработка результатов работы. Планирование модельных экспериментов.
курсовая работа [490,5 K], добавлен 18.12.2013Физическая и математическая модели уравнения движения материальной точки. Блок-схема алгоритма основной программы для решения задачи Коши и получения результатов с фиксированным количеством отрезков разбиения. Разработка программы для ЭВМ, ее листинг.
курсовая работа [212,3 K], добавлен 24.11.2014