Расчет технико-экономических показателей выбора наиболее рационального метода получения заготовок по себестоимости детали’’.

Расчет технико-экономических показателей выбора наиболее рационального метода получения заготовок по себестоимости детали Объектом исследования является метод получения заготовок. Цель работы: 1) разработка алгоритма и составление программы на языке Delphi, предназначенной для выбора наиболее рационального метода получения заготовок по себестоимости детали; 2) выбора наиболее рационального метода получения заготовок по себестоимости с помощью табличного

процессора. В пояснительной записке представлены: - блок-схема и описание алгоритма выбора наиболее рационального метода получения заготовок по себестоимости детали; - текст программы и результаты ее работы; - приведен контрольный расчет в табличном виде; -выполнено сравнение и анализ результатов программы и контрольного расчета. СОДЕРЖАНИЕ Введение 1. Постановка задачи 2. Контрольный пример 3. Блок-схема алгоритма 13 4.

Описание алгоритма 5. Характеристика данных и их условные обозначения 6. Текст программы 7. Описание программы 8. Окно работы программы 9. Описание работы программы 24 Заключение 25 Список литературы 26 ВВЕДЕНИЕ Основными видами заготовок деталей машин являются отливки, поковки, штамповки, заготовки из проката. Экономическая эффективность того или иного способа получения заготовки зависит от многих факторов:

технологических свойств материала, конструктивной формы, размеров детали, годовой программы. Технологические свойства, то есть литейные свойства или способность претерпевать пластический деформации материала, указанного на чертеже детали, предопределяют технологический процесс получения заготовки: литье или обработка давлением. Штамповка. Заготовки, получаемые штамповкой, имеют наименьший припуск на механическую обработку. Форма штамповки максимально приближена к форме детали.

Это обеспечивает минимальные затраты на материал и механическую обработку. Но при этом необходимы затраты на эксплуатацию кузнечного оборудования и затраты на дорогую индивидуальную для каждой детали технологическую оснастку – штампы. Стоимость штампов условно разделяют на всю годовую программу выпуска деталей. Поэтому стоимость получения одной заготовки зависит от этой величины.

Свободная ковка. Заготовки, получаемые свободной ковкой, имеют больший по сравнению со штамповкой припуск на механическую обработку. Поэтому затраты на материал и механическую обработку выше, чем у штамповок. Затраты на эксплуатацию оборудования можно принять одинаковыми с предыдущим методом. Затраты на индивидуальную технологическую оснастку отсутствуют. Поэтому стоимость поковки не зависит от программы выпуска.

Заготовки из проката. Для этого вида заготовок применяются круглый прокат. Форма заготовки при механической обработке уходит в отходы. Поэтому затраты на материалы и механическую обработку максимальные по сравниваемым методам. Другие затраты отсутствуют. Стоимость такой заготовки также не зависит от программы выпуска. 1.ПОСТАНОВКА ЗАДАЧИ Расчет технико-экономических показателей выбора наиболее рационального метода получения

заготовок по себестоимости детали Таблица 1 Наименование Обозначение Единица измерения Значение Длина L¬1, L¬2,L¬3 м 0,05; 0,03; 0,08 Диаметр d¬1, d¬2,d¬3 м 0,05; 0,03; 0,08 Плотность материала  кг/м7800 Методы обработки: базовый новый М3 М10 Заготовку изготовляют различными методами: М3 – ковка свободная; М10 – штамповка на механических прессах.

При сравнении методов один считается базовым, то есть используется в настоящий момент на производстве, а второй новым. Новый метод – это метод, которым предлагают заменить базовый. На первом этапе базовый и новый варианты подвергаются предварительной оценке, с вычислением следующий показателей: Коэффициент использования материала: Ки.м. = Gд/Gз, где Gд, Gз – масса детали и заготовки, кг. Трудоемкость изготовления (или штучное время на выполнение

указанной операции) детали для нового варианта, мин: tН = tб (GН/Gб) где tб – трудоемкость изготовления детали по базовому варианту, нормо-ч. или нормо-штучного времени, мин; GН, Gб – масса заготовки при новом и базовом вариантах кг. Снижение материалоемкости, кг: G = (Gб – GН)Nг¬ где Nг¬ – годовой объем выпуска деталей, шт.

Себестоимость изготовления детали, которая на 80% определяется затратами на материалы и заработную плату, то есть: где М0 – затраты на основные материалы, руб.; З0 – заработная плата основных рабочих, руб. Стоимость основных материалов: М0 = СзСмkт.з. – g0C010-3 где Сз – масса заготовки, кг; См – стоимость единицы массы заготовки, руб/кг; kт.з. – коэффициент, учитывающий транспортно-заготовительные

расходы; g0 – масса отходов на одну деталь, кг; С0 – стоимость отходов, руб/т. Заработная плата основных рабочих вычисляется по отношению: З0¬ = 1,25  kв.в. kпр  где kв.в – коэффициент, учитывающий средний процент выполнения норм; kпр – коэффициент, учитывающий премии и другие доплаты; tшi – штучное время на выполнения i-й операции, мин.; Cтi – часовая тарифная ставка работы, выполняемой на i-й операции,

руб. Себестоимость изготовления детали вычисляется по приведенным формулам и для базового варианта Сб, и для нового Сн. Экономия по себестоимости определяется по формуле: С = (Сб – Сн) Nг¬ Выбор метода получения заготовки производится по минимальной себестоимости С. Чем ниже значение С, тем технологичнее метод получения заготовки. Рисунок 1 – Эскиз детали 2.КОНТРОЛЬНЫЙ ПРИМЕР Рабочий лист с исходными данными:

Рисунок 2 – Расчеты в MS Excel Рисунок 3 – Формулы в MS Excel 3.БЛОК-СХЕМА АЛГОРИТМА 4.ОПИСАНИЕ АЛГОРИТМА Представленный алгоритм реализует циклический вычислительный процесс с известным числом повторений по параметру i (кол-во методов сравнения) и включает в себя следующие блоки: 1. Начало алгоритма. 2. Ввод исходных данных. 3. Расчет массы детали, инициализация начальных параметров

цикла 4. Блок организации цикла по параметру i (где i – шаг по припуску Zc3). 5. Расчет начального значения Zd3. 6. Блок организации цикла по параметру j (где j – шаг по припуску Zd3). 7. Расчет начального значения Zc10. 8. Блок организации цикла по параметру l (где j – шаг по припуску Zc10). 9. Расчет начального значения Zd10. 10. Блок организации цикла по параметру f (где j – шаг по припуску Zd10). 11. Расчет массы заготовки G и массы отходов на одну деталь

G0. 12. Расчет штучного времени ti для М3 и М10. 13. Расчет стоимости основных материалов М0 для метода М3. 14. Расчет заработной платы З0 для для метода М3. 15. Расчет себестоимости изготовления детали С для для метода М3. 16. Расчет стоимости основных материалов М0 для метода

М10. 17. Расчет заработной платы З0 для для метода М10. 18. Расчет себестоимости изготовления детали С для для метода М10. 19. Расчет экономии по себестоимости ΔC для метода М10. 20. Вывод результатов. 21-23.формирование цикла для нахождение оптимального метода по себестоимости 24.Увеличение значения Zd10. 25,Увеличение значения Zс10. 26,Увеличение значения

Zd3. 27.Увеличение значения Zс3. 28.Конец алгоритма. 5,ХАРАКТЕРИСТИКА ДАННЫХ И ИХ УСЛОВНЫЕ ОБОЗНАЧЕНИЯ Таблица 2 № п/п Наименование Обозначение в алгоритме Обозначение в программе Тип данных 1 Масса заготовки G G Real 2 Годовой выпуск деталей Nг Ng Real 3 Стоимость единицы массы заготовки

Cm Cm Real 4 Коэффициент, учитывающий транспортно-заготовительные расходы Кт.з k_tz Real 5 Масса отходов на одну деталь G0 G0 Real 6 Стоимость отходов C0 C0 Real 7 Коэффициент, учитывающий средний процент выполнения норм Квв k_vv Real 9 Коэффициент, учитывающий премии и другие доплаты Кпр k_pr Real 10 Штучное время на выполнение операции

Tб Tн Tb_3 Tb_10 Real 11 Часовая тарифная ставка токаря, руб Cтi Ct Real 12 Снижение материалоемкости ΔG dG Real 13 Стоимость основных материалов M0 M0 Real 14 Заработная плата основных рабочих Зо Zо Real 15 Себестоимость изготовления деталей C C Real 16 Эконом.по себестоимости ΔС dC

Real 17 Длина L1,L2,L3 L1,L2,L3 Real 18 Диаметры D1,D2,D3 D1,D2,D3 Real 19 Плотность ρ po Real 6.ТЕКСТ ПРОГРАММЫ unit KURS; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, ExtCtrls, Math; type TForm1 = class(TForm)

Label1: TLabel; Label3: TLabel; Label6: TLabel; Edit1: TEdit; Label7: TLabel; Edit2: TEdit; Label9: TLabel; StringGrid5: TStringGrid; Button1: TButton; Button2: TButton; Edit7: TEdit; Label16: TLabel; Edit21: TEdit; Label8: TLabel; Edit3: TEdit; Label2: TLabel; Edit4:

TEdit; Edit5: TEdit; Edit6: TEdit; Label4: TLabel; Edit8: TEdit; Edit10: TEdit; Edit13: TEdit; Label17: TLabel; Edit15: TEdit; Label18: TLabel; Label19: TLabel; Edit17: TEdit; Edit18: TEdit; Edit19: TEdit; Label20: TLabel; Edit22: TEdit; Edit23: TEdit; Edit24: TEdit;

Label10: TLabel; Edit25: TEdit; Label11: TLabel; Label12: TLabel; Label13: TLabel; Edit11: TEdit; Edit12: TEdit; Edit14: TEdit; Edit16: TEdit; Edit26: TEdit; Edit27: TEdit; Label14: TLabel; Image1: TImage; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender:

TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; arr = array [1 2] of real; const k_tz=1.06; k_vv=1.18; k_pr=1.3; var Form1: TForm1; Cm : arr; Ng,C0,Ct, l1,l2,l3, d1,d2,d3, po,m,G_3,G0_3,G_10,G0_10, Zcn_3,Zck_3,dZc_3,Zc_3, Zdn_3,Zdk_3,dZd_3,Zd_3, Zcn_10,Zck_10,dZc_10,Zc_10,

Zdn_10,Zdk_10,dZd_10,Zd_10, M0_3,Z0_3,C_3,M0_10,Z0_10,C_10,dC : real; n1,n2,m1,m2,i,j,l,f,k : integer; tb_3,tb_10:real; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i,j,k : integer; begin l1:=strtofloat(edit5.Text); l2:=strtofloat(edit4.Text); l3:=strtofloat(edit6.Text); d1:=strtofloat(edit10.Text); d2:=strtofloat(edit8.Text); d3:=strtofloat(edit13.Text); po:=strtofloat(edit15.Text); m:=pi*po*(sqr(d1/2)*l1+sqr(d2/2)*l2+sqr( d3/2)*l3); edit25.Text:=floattostrf(m,

fffixed,9,3); Zcn_3:=strtofloat(edit18.Text); Zck_3:=strtofloat(edit17.Text); dZc_3:=strtofloat(edit19.Text); Zdn_3:=strtofloat(edit23.Text); Zdk_3:=strtofloat(edit22.Text); dZd_3:=strtofloat(edit24.Text); Zcn_10:=strtofloat(edit12.Text); Zck_10:=strtofloat(edit11.Text); dZc_10:=strtofloat(edit14.Text); Zdn_10:=strtofloat(edit26.Text); Zdk_10:=strtofloat(edit16.Text); dZd_10:=strtofloat(edit27.Text); Cm[1]:=strtofloat(edit7.Text); Cm[2]:=strtofloat(edit21.Text);

Ng:=strtofloat(edit1.Text); C0:=strtofloat(edit2.Text); Ct:=strtofloat(edit3.Text); n1:=round((Zck_3-Zcn_3)/dZc_3)+1; n2:=round((Zdk_3-Zdn_3)/dZd_3)+1; m1:=round((Zck_10-Zcn_10)/dZc_10); m2:=round((Zdk_10-Zdn_10)/dZd_10); StringGrid5.Cells[0,0]:='#'; StringGrid5.Cells[1,0]:='Zc3'; StringGrid5.Cells[2,0]:='Zd3'; StringGrid5.Cells[3,0]:='Масса заготоки'; StringGrid5.Cells[4,0]:='Масса отходов';

StringGrid5.Cells[5,0]:='Zc10'; StringGrid5.Cells[6,0]:='Zd10'; StringGrid5.Cells[7,0]:='Масса заготоки'; StringGrid5.Cells[8,0]:='Масса отходов'; StringGrid5.Cells[9,0]:='M3'; StringGrid5.Cells[10,0]:='M10'; StringGrid5.Cells[11,0]:='Разница'; StringGrid5.Cells[12,0] := 'Выгоднее'; Zc_3:=Zcn_3; k:=1; for i:=1 to n1 do begin Zd_3:=Zdn_3; for j:=1 to n2 do begin

Zc_10:=Zcn_10; for l:=1 to m1 do begin Zd_10:=Zdn_10; for f:=1 to m2 do begin G_3:=pi*po*(sqr(d1/2+Zc_3)*(l1+Zd_3)+sqr (d2/2+Zc_3)*l2+sqr(d3/2+Zc_3)*(l3+Zd_3)) ; G0_3:=G_3-m; G_10:=pi*po*(sqr(d1/2+Zc_10)*(l1+Zd_10)+ sqr(d2/2+Zc_10)*l2+sqr(d3/2+Zc_10)*(l3+Z d_10)); G0_10:=G_10-m; tb_3:=5.4*power(G_3, 2/3)/60; tb_10:=G_10/G_3*tb_3; M0_3:=G_3*Cm[1]*k_tz-G0_3*C0/1000; Z0_3:=1.25*k_vv*k_pr*tb_3*Ct;

C_3:=80/100*(M0_3+Z0_3); M0_10:=G_10*Cm[2]*k_tz-G0_10*C0/1000; Z0_10:=1.25*k_vv*k_pr*tb_10*Ct; C_10:=80/100*(M0_10+Z0_10); dC:=(C_3-C_10)*Ng; StringGrid5.Cells[0,k]:=inttostr(k); StringGrid5.Cells[1,k]:=floattostrf(Zc_3 ,fffixed,9,4);r StringGrid5.Cells[2,k]:=floattostrf(Zd_3 ,fffixed,9,5); StringGrid5.Cells[3,k]:=floattostrf(G_3, fffixed,9,3);

StringGrid5.Cells[4,k]:=floattostrf(G0_3 ,fffixed,9,3); StringGrid5.Cells[5,k]:=floattostrf(Zc_1 0,fffixed,9,4); StringGrid5.Cells[6,k]:=floattostrf(Zd_1 0,fffixed,9,5); StringGrid5.Cells[7,k]:=floattostrf(G_10 ,fffixed,9,3); StringGrid5.Cells[8,k]:=floattostrf(G0_1 0,fffixed,9,3);

StringGrid5.Cells[9,k]:=floattostrf(C_3, fffixed,9,3); StringGrid5.Cells[10,k]:=floattostrf(C_1 0,fffixed,9,3); StringGrid5.Cells[11,k]:=floattostrf(dC, fffixed,9,0); if C_3 < C_10 then StringGrid5.Cells[12,k] := 'M3 выгоднее' else StringGrid5.Cells[12,k] := 'M10 выгоднее'; k:=k+1;

Zd_10:=Zd_10+dZd_10; end; Zc_10:=Zc_10+dZc_10; end; Zd_3:=Zd_3+dZd_3; end; Zc_3:=Zc_3+dZc_3; end; end; procedure TForm1.Button2Click(Sender: TObject); var i:integer; begin Edit1.Text:= ; Edit2.Text:= ; Edit3.Text:= ; Edit4.Text:= ; Edit5.Text:= ; Edit6.Text:= ; Edit7.Text:= ; Edit8.Text:= ;

Edit11.Text:= ; Edit12.Text:= ; Edit13.Text:= ; Edit14.Text:= ; Edit15.Text:= ; Edit16.Text:= ; Edit17.Text:= ; Edit18.Text:= ; Edit19.Text:= ; Edit10.Text:= ; Edit21.Text:= ; Edit22.Text:= ; Edit23.Text:= ;Edit24.Text:= ;Edit25.Text:= ;Edit26.Text:= ;Edit27.Text:= ; StringGrid5.RowCount := 2; for i:= 1 to 12 do

StringGrid5.cells[i,1]:= ; procedure TForm1.Button3Click(Sender: TObject); begin Form1.Close; end; end; end. 7.ОПИСАНИЕ ПРОГРАММЫ Программа состоит из 3 процедур: 1) Procedure Button1Click(Sender: TObject) – предназначена для выполнения вычислений , 2) Procedure Button2Click(Sender: TObject) – предназначена для очистки окон вывода результатов расчетов.

3) Procedure Button3Click(Sender: TObject) – предназначена для завершения работы приложения Программа реализует алгоритм, состоящий из элементов циклической структуры. Ввод исходных данных выполняется с помощью элементов Edit, вывод выполняется на экран в таблицах StringGrid. В разделе описания констант заданы значения постоянных параметров, приведенные в постановке задачи,

а также табличные значения, приведенные в приложениях. Перед запуском решения задачи возможно изменение исходных данных, решение запускается с помощью кнопки «РЕШЕНИЕ». После получения решения возможна очистка с помощью кнопки «ОЧИСТИТЬ» и ввести новые исходные данные и пересчитать задачу. Выход из программы осуществляется с помощью одноименной кнопки «ВЫХОД». StringGrid-таблица для создания массива. Begin-начало операции;

End-конец операции; Var-Раздел переменных; Integer - целочисленное значение. Real-дробное значение. For-оператор повтора,реализует алгоритм циклической структуры с заданым числом повторений. If-оператор проверки условия Round-фунция округляет вещественное число до ближайшего целого 8.ОКНО РАБОТЫ ПРОГРАММЫ Рисунок 4 – Окно работы программы 9.ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ Программа работает следующим образом.

После запуска программы на экране в текстовом режиме предлагается ввести параметры вала, параметры формирования отходов и остальные исходные данные. На основе введенных значений выполняется расчет соответствующих искомых параметров. Полученные значения в текстовом режиме выводятся в результирующую таблицу. Ознакомившись с результатами расчетов, можно ввести новые исходные данные, нажать кнопку «Решение» и получить новые данные. Рисунок 5-Вывод значений в таблицу

ЗАКЛЮЧЕНИЕ На основании выполненных расчетов можно сделать вывод: наиболее рациональным методом получения заготовок по себестоимости детали является метод М3 (ковка свободная). Себестоимость изготовления детали при этом равна 1,040 руб. Лучший метод является базовым. Экономия по себестоимости при его использовании по сравнению с новым составляет -10838 руб. Результаты расчетов с помощью программы и в табличном процессоре совпадают.

В результате выполнения курсовой работы получены следующие результаты: - разработан алгоритм и составлена программа для расчета технико-экономических показателей выбора наиболее рационального метода по себестоимости детали; - рассчитана себестоимость использования методов с помощью табличного процессора; - выполнено сравнение и анализ результатов программы и контрольного расчета. Были закреплены теоретические значения и практические навыки по основам алгоритмизации и проведению

инженерных расчетов на компьютере. СПИСОК ЛИТЕРАТУРЫ 1. Руденко В.Д. Курс информатики. – К.: Феникс, 2000. – 368 с. 2. Г.И. Светозарова, Е.В. Сигитов. Практикум по программированию на алгоритмических языках. М, 1980. 3. Марченко А.И Марченко Л.А. Программирование, 1999. 4. DelphiHelp http://www.delphihelp.ogr