Расчет мощности и усилия подачи при сверлении древесины, хз как делать Опции

[PL8Priest]

Рассчитать таблицы зависимостей силы резания, мощности и усилия подачи по оси центрового сверла при сверлении дуба, березы, сосны, пользуясь следующими зависимостями:

c=(1000*V)/(z*n)

где c - подача на оборот, мм;
z - число режущих кромок;
V - скорость подачи, м/мин;
n - скорость вращения сверла, об/мин;

P=(K*d*c)/2

где P - сила резания при сверлении, кГ;
D - диаметр сверла, мм;
K - удельная работа резания при сверлении, кГ/мм2.

Величина K вычисляется по выражениям, приведенным в табл. 2.

Vmax=(PI*D*n)/(60*(10*10*10))

где Vmax - максимальная скорость резания, м/с.

N=P*(Vmax/102)

где N - мощность резания, кВт.

Q=(0.25+0.07*D)*P

где Q - усилие подачи на оси сверла, кГ.

Таблица 2


Найти зависимости силы резания, мощности и усилия подачи по оси сверла от независимых величин D, n и V.

Исходные данные

[PL8Priest]

уже сам разобрался, вроде так

Program t2;
uses crt;
type
   trees = (sosna, bereza, dyb); { sosna, ber, dyb }
   pair=record f,s: real end;

const
   table_2:array[1..5, trees] of pair =
    (
    ((f:15.6; s:6.24), (f:27.00; s:10.5), (f:37.5; s:15.00)), {  5mm }
    ((f: 4.2; s:1.68), (f: 7.10; s:2.85), (f:10.5; s: 4.00)), { 10mm }
    ((f: 2.0; s:0.80), (f: 3.40; s:1.28), (f: 4.8; s: 1.72)), { 15mm }
    ((f: 1.4; s:0.56), (f: 2.33; s:0.95), (f: 3.4; s: 1.30)), { 20mm }
    ((f: 1.0; s:0.40), (f: 1.70; s:0.68), (f: 2.4; s: 0.96))); { 25mm }

var tip:array [1..3] of string;
    d,z:array [1..3] of integer;
    n,v,c,p,KK,q,Vmax,NK:array [1..3] of real;
    i:integer;
    isx,rez:text;

function K (Diam:integer;T:Trees;C:real):real;
 begin
 with table_2[Diam div 5, T] do
 K:=f+s/C;
 end;

Begin
clrscr;
tip[1]:='sosna';
tip[2]:='bereza';
tip[3]:='dyb';
 for i:=1 to 3 do
  begin
   write ('vvedite z dlya ', tip[i], ' ');
   readln (z[i]);
   write ('vvedite D dly ', tip[i], ' ');
   readln (d[i]);
   write ('vvidite n dlya ', tip[i], ' ');
   readln (n[i]);
   write ('vvedite V dlya ', tip[i], ' ');
   readln (v[i]);
   c[i]:=(1000*v[i])/(z[i]*n[i]);
   KK[i]:=K(d[i], trees(i), c[i]);
   p[i]:=(KK[i]*d[i]*c[i])/2;
   Vmax[i]:=(pi*d[i]*n[i])/(60*10*10*10);
   NK[i]:=p[i]*(Vmax[i]/102);
   q[i]:=(0.25+0.07*d[i])*p[i];
 end;
   writeln ('| Tip der | Sila rezaniya, Kg| Moshnost rezaniya, kBt| Ysilie pod rezaniya, kg ');
   writeln ('-------------------------------------------------------------------------------');
  for i:=1 to 3 do
   begin
   writeln ('| ', tip[i],' ':2, ' | ', p[i]3, ' | ', NK[i]3, ' | ', q[i]1, ' |');
  end;
   writeln ('-------------------------------------------------------------------------------');
readkey;
end.