Определение наиболее производительного технологического метода обработки (торцовое фрезерование или строгание) плоских поверхностей
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
а, мин-1Nр паспNrnacreal8.Подача на зуб, мм/зубSzpSzrreal9.Подача на зуб пасп., мм/зубSz паспSzpasreal10.Подача S(мм),обеспечивающая заданную шероховатость поверхности при строганииSScreal11.Врезание фрезы, ммL1L1real12.Длина перегиба фрезы, ммL2L2real13.Длина обрабатываемой поверхности, ммLоLoreal14.Длина рабочей подачи(мм) стола станкаLLreal15.Суммарное поперечное перемещение стола станка при чистовом строгании, ммB1B1real16.Число двойных ходов в минуту, мин-1NxNxreal17.Паспортное, мин-1NxпаспNxpasreal18.Минутная подача, мм/минSmSmreal19.Паспортная, м/минVc паспVcpasreal20.Значение подачи, ммSSreal21.Машинное время фрезерования, мин(С)tмфTmfreal22.Машинное время строгания,мин (С)tмсTmсreal
.Программа решения задачи
program kursovaya;;=160;Vmax=44;Vc=22;z=6;:array[1..12] of real=(10,14.1,28.2,40,56.4,80,112.8,160,225.6,320,451.2,640);:array[1..12] of real=(0.1,0.14,0.28,0.4,0.56,0.8,1.12,1.6,2.25,3.2,4.5,6.4);=3.14;,g,y,i,j:integer;,Sc,Bn,B,Bk,dB,rc,Nxpas,rf,L,t,Ra,Yf,Yc,L0,L0n,L0k,dL0,Nr,Szr,Sm,Szpas,Nrpas,L1,L2,Tmf,Tmc,B1,Nx:real;;('Bn=');read(Bn);write('Bk=');read(Bk);write('dB=');read(dB);('L0n=');read(L0n);write('L0k=');read(L0k);write('dL0=');read(dL0);('rc=');read(rc);('t=');read(t);('Ra=');read(Ra);('Yf=');read(Yf);('rf=');read(rf);('Yc=');read(Yc);:=(1000*Vmax)/(pi*d);:=(0.007*exp(0.59*ln(Ra))*exp(0.73*ln(Vmax))*exp(0.08*ln(rf))*exp(0.27*ln(Yf))/exp(0.09*ln(t)));:=trunc((L0k-L0n)/dL0)+1;:=trunc((Bk-Bn)/dB)+1;;(' BxL Rf Rc Tmf Tmc Tmin');i:=1 to k do:=L0n+(i-1)*dL0;:=1000*Vc/(2.5*L0);y:=1 to 12 don[y]<Nr then Nrpas:=n[y];n[y]<Nx then Nxpas:=n[y];Sz[y]<Szr then Szpas:=Sz[y];;:=Szpas*Z*Nrpas;:=L0+d/2+4;:=L/Sm;:=0.152*exp(0.52*ln(Ra))*exp(0.06*ln(Vc))*exp(0.06*ln(t))*exp(0.31*ln(Rc))/exp(0.14*ln(Yc));j:=1 to g do:=Bn+(j-1)*dB;:=B+4;:=B1/(Sc*Nxpas);Tmc<Tmf then begin:=Tmc;(B:4:1,'x',L:3:1,' ',Rf:3:1,' ',Rc:3:1,' ',Tmf:6:4,' ',Tmc:6:4,' ',Tmin:6:4,' Tmc optimal metod');begin:=Tmf;(B:4:1,'x',L:3:1,' ',Rf:3:1,' ',Rc:3:1,' ',Tmf:6:4,' ',Tmc:6:4,' ',Tmin:6:4,' Tmf optimal metod');;;;;.
6. Программный интерфейс
Рисунок 1 - Вид проекта при введенных начальных данных
Рисунок 2 - Вывод результатов
7.Описание работы программы
алгоритм программа обработка поверхность
Данная программа предназначена для выбора наиболее оптимального метода обработки (фрезерование или строгание). Для запуска программы необходимо:
1.Открыть папку Курсовая;
2.Открыть файл Kursovaya.Pas;
3.Запустить программу с помощью кнопки Run, которая находится на панели инструментов Debug;
4.Появится окно программы, в котором необходимо ввести соответствующие значения: длины, ширины, шероховатости, радиус при вершине резца, передний угол резца, глубина резания;
5.Нажав кнопку Расчет, в таблице выведутся значения;
результатов расчетов при фрезеровании и строгании, а также вывод наиболее оптимального метода обработки;
. Нажав кнопку Очистка - произойдет очистка всех зон
формы и программа будет готова к вводу новых исходных данных
и новых расчетов;
7.Затем, нажав кнопку Выход программа завершит свою работу.
В представленной программе используются следующие компоненты:
Uses, CRT - раздел описания модулей, содержит имена подключаемых модулей (библиотек) как входящих в состав системы Turbo Pascal, так и написанных пользователем. Раздел описания модулей должен быть первым среди разделов описаний;
ClrScr- функция очистки экрана;
Сonst- раздел описания констант позволяющий использовать имена как синонимы констант;
Var - раздел описания переменных, в нем необходимо указать все переменные, используемые в программе, и определить их тип: integer,real;
Begin.......end - раздел операторов представляющий собой составной оператор, который содержит между служебными словами последовательность операторов. Операторы отделяются друг от друга символом ;. Текст программы заканчивается символом точка;
Write, Writeln - список выводимых переменных. Различие двух форм оператора заключается в том, что вторая разновидность после вывода данных переводит курсор на новую строку (line). Оператор writeln может использоваться и без аргументов (и без скобок). Тогда при выводе будет формироваться только пустая строка. В оператор могут включаться не только переменные, но и константы и выражения;
Readln - список вводимых переменных. Встречая такой оператор, компьютер останавливается и ждет вашего ввода. Число вводимых данных по количеству и типу должно соответствовать списку переменных. Если список содержит более одной переменной, действия пользователя зависят от типов, вводимых данных. Числовые значения разделяются нажатием Enter или пробелом, а в конце Enter;
For - реализует приращение счетчика циклов на единицу в заданных пределах и контроль его значения. Цикл завершается в момент, когда переменная цикла становится больше конечного значения цикла;
If - вычисляет значение логического выражения. Eсли значение логического выражения истинно, то выполняется оператор 1, следующий за словом then. Если значение логического выражения ложно, то выполняется оператор 2, следующий за словом else.
Выводы
В данной работе, при помощи вычислительной техники, была решена задача определения наиболее экономически выгодного метода обработки (фрезерование или строгание). После выполнения данной курсовой работы и анализа полученных результатов можно сделать вывод, что результаты, полученные в программе, составленной на языке программирования Turbo Pascal, соответствуют контрольному просчёту.
Данная программа предназначена для расчета себестоимости и выбора наиболее оптимального метода обработки заготовок для сравниваемых методов.
В случае исходных данных, наиболее оптимальным методом является фрезерование.
Список используемой литературы
1.Шпура Г., Штеферлет.: Справочник по технологии резания материалов; Пер. с нем. под ред. С