Составление блок схемы

Практическая часть

2.1 Методика расчётов режимов резания

1. Группа материалов:

1.1 Сталь

Диаметр заготовки [мм]

D=20

Подача для сверления [мм/об]

S=0.4

Определяю осевую силу [Н]

Cp=68; qp=1; yp=0.5; kp=0.88

Скорость резания

Частота вращения шпинделя [об/мин]

Крутящий момент от сил сопротивления при сверлении [Н*м]

См=0.0345; qм=2; yм=0.8

Мощность затрачиваемая на резание [кВт]

1.2 Чугун

Диаметр заготовки [мм]

D=20

Подача для сверления [мм/об]

S=0.6

Определяю осевую силу [Н]

Cp42; qp=0.25; yp=0.25; kmp=0.88

Скорость резания [м/мин]

Определяю крутящий момент Mkp [Н*м]

Определяю частоту вращения шпинделя, соответствующую найденной скорости [об/мин]

Определяю мощность [кВт]

1. Алгоритм программы

Program Sverlenie;

Var

t, D, S, V, Mat, Cv, Tm, Kv, q, m, y, Mkp, Cm, Kp, q1, x1, y1, Po, Cp, q2, y2, n, Pi, Ne: real;

begin

write ('Введите обрабатываемый материал 1 - сталь, 2 - Чугун Mat = ');

readln (Mat);

Write ('Введите диаметр отверстия D = ');

readln (D);

t:=D/2;

if Mat=1 then if (D=20) then S:=0.4;

if Mat=2 then if (D=20) then S:=0.6;

Tm:=25;

Kv:=0.82;

Kp:=0.88;

Pi:=3.14;

if Mat=1 then Cv:=9.8; q:=0.4; y:=0.5; m:=0.2; Cm:=0.345; q1:=2; x1:=1; y1:=0.8; Cp:=68; q2:=2; y2:=0.8;

if mat=2 then Cv:=14.7; q:=0.25; y:=0.55; m:=0.125; Cm:=0.012; q1:=2.2; x1:=1; y1:=0.8; Cp:=42; q2:=1.2; y2:=0.75;

V:=(Cv*(exp(ln(D)*q))*Kv/(exp(ln(Tm)*m))*(exp(ln(S)*y)))/1000;

Mkp:=10*Cm*(exp(ln(D)*q1))*(exp(ln(t)*x1))*(exp(ln(S)*y1))*Kp;

Po:=10*Cp*(exp(ln(D)*q2))*(exp(ln(S)*y2))*Kp;

n:=1000*V/Pi*D;

Ne:=Mkp*n/9750;

write ('Скорость резанья V = ');

writeln (V);

write ('Крутящий момент Mkp = ');

writeln (Mkp);

write ('Осевая сила Po = ');

writeln (Po);

write ('Количество оборотов n = ');

writeln (n);

write ('Мощность Ne = ');

writeln (Ne);

readln;

end.

2. Блок схема

Дата добавления: 2015-08-31