Определение оптимального режима работы молотковой дробилки с218-А

 

 
 

 

 
 

 
 

 

 
 
 
 
 
 
 
 
 
 
 
 

Пример выполнения программы:

vvedite ishodnye dannie dlya rascheta molotkovoy drobilki

vvedite diametr rotora (0.6-2), m

0.6

vvedite dlinu rotora(0.4-3), m

0.4

vvedite chastotu vraschenia rotora(21-33),ob/c

21

vvedite razmer do izmelcheniya (40-150)

150

vvedite razmer posle izmelcheniya (2-30)

30

m1=5

Q=31,752t/ch

P=37,8kVt 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение 2.

Метод золотого сечения.

program piq1; 

{$APPTYPE CONSOLE} 

uses

  SysUtils;

  Function funct (z:real):real;

Const

  L=0.6; D=0.4;

begin 

  { TODO -oUser -cConsole Main : Insert code here }

  funct:= 7.5*D*L*(z/60);

end;

const tay=1.61803; e=0.000001;

var

xmin, x1, x2, x3, x4, L1, L2:real;

Pmin,z:real;

begin

x1:=1134;

x2:= 1386;

repeat

  L1:=x3-x1;

L2:=L1/tay;

x2:=x1+L2;

x4:=x3-L2;

if funct (x2)> funct (x4) then

begin

  if x2>x4 then x1:=x4 else

  begin

    x3:=x4;

  end;

end

else if x4>x2 then

begin

 x1:=x2

end

else

begin x3:=x2;

end;

until (x3-x1)/2<=e;

  xmin:=(x1+x3)/2;

 z:=xmin;

Pmin:=funct(z);

writeln ('z(gold)= ' , z:3:10, 'ob/c');

writeln ('Pmin=' , Pmin:3:15, 'kBt');

readln;

end. 

Пример вывода:

z(gold)= 917,426135485745ob/c

Pmin=27,5227840645723kBt 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Блок схема программы  для нахождения минимума методом  золотого сечения.

 

 

 
 
 
 
 
 
 

 

 
 
 

 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 
 

Приложение 3.

Метод фибоначи.

    program Fibonachchi;

      {$APPTYPE CONSOLE}

  uses

  SysUtils; 

Function funct (z: real): real;

   const L=0.6; D=0.4; m1=5; k1=2;

begin

funct:=(L*sqr(D)*sqr(z)*k1)/(3600*(m1-1));

end;

const n=10; e=0.001;

var

xmax, x1, x2, x3, x4, count, L1, L2:real;

Qmax, z:real;

i, k:integer;

f: array [0..100] of integer;

begin

F[0]:=1;

F[1]:=1;

for i:= 2 to n do

F[i]:= F[i-1]+F[i-2];

x1:=1134;

x2:= 1386;

L1:=x3-x1;

for i:= 2 to n do

  begin

    if i mod 2=0 then k:=1 else k:=-1;

  L2:=(((F[i-1]/F[i])*L1)+k/F[i])*e;

  x2:=x1+L2;

  x4:=x3+x1-x2;

  if funct (x2)>funct (x4) then

  begin

    if x1>x2 then x3:=x2

    else

    begin

      x1:=x2;

  x3:=x4;

  end;

  end

  else if x4<x3 then x1:=x4 else begin x1:=x3; x3:=x4; end;

       end;

xmax:=(x1+x3)/2;

z:=xmax;

       Qmax:=funct(z);

       writeln ('z(fibo)=', z:2:3, 'ob/min');

       writeln ('Qmax=', Qmax:3:15, 't/h');

       readln;

       end.

Пример работы программы:

z(fibo)=1138.731ob/min

Qmax=17.28943t/h 

Блок-схема  программы для нахождения максимума функции методом Фибоначчи.