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

[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;

 TextBackGround (1);
 ClrScr;
 Window (20,6,60,16);
 TextBackGround (7);
 ClrScr;
 Window (22,7,58,15);
 textBackGround (1);
 ClrScr;
 TextColor (14);
 GoToXY (1,3);
 WriteLn ('      Kyrsovaya po informatike ');
 WriteLn ('        Vipolnil 1234561231231  ');
 WriteLn ('         stydent 1-go kyrsa    ');
 WriteLn ('       Informacionnie sistemi  ');
 WriteLn ('                2011 god       ');
 Writeln ('');
 Writeln ('                       Press any key');
 ReadKey;
 window (1,1,80,25);
 ClrScr;
 Window (4,2,76,24);
 TextBackGround (7);
 ClrScr;
 Window (6,3,74,23);
 textBackGround (1);
 ClrScr;
 TextColor (14);
 GoToXY (1,3);

assign (isx, 'DATA.TXT');
reset (isx);

 for i:=1 to 3 do
  begin
   readln (isx, tip[i], z[i], d[i], n[i], 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;
close (isx);
 window (1,1,80,25);
 TextBackGround (0);
 TextColor (7);
end.

Сообщение отредактировано: PL8Priest - 13.01.2012 15:57