Разработка имитационной модели фабричных кладовых

Далее сума экономия при второй дисциплине отображается ниже (303 руб.), она вычисляется по средним значениям разницы простоя второй и первой дисциплины и умножением его на простой станка в секунду. При выводе этот результат переводится из копеек в рубли.

Результат моделирования вы можете просмотреть далее:

Рисунок 2 — Результат моделирования

Результаты можно сохранить в таблице Excel, для этого нажимаем на кнопку «Запись результатов», после чего выводится сообщение о сохранении.

Рисунок 3 — Сообщение о сохранении

Работу с программой можно завершить, можно проверить еще другие варианты работы кладовщика, если это необходимо.

Для проверки сохраненной записи необходимо запустит файл rez. csv, открывающийся используя программу MS Excel, где выводятся номера прогона, общее количество простоя в первой и второй дисциплины в секундах, количество обработанных механиков первой и второй дисциплины и вывод сумы экономия в копейках.

Рисунок 4 — Результат в сохраненном фале

Заключение

В заключении хочется подчеркнуть, что главное достоинство идеи анализа процессов предприятия посредством создания его модели — ее универсальность. Во-первых, моделирование процессов это ответ практически на все вопросы, касающиеся совершенствования деятельности предприятия и повышения его конкурентоспособности. Во-вторых, руководитель или руководство предприятия, внедрившие у себя эту методологию, будет иметь информацию, которая позволит самостоятельно совершенствовать свое предприятие и прогнозировать его будущее.

Данная работа помогла изучить построение модели, ее запуск и анализ, используя среду программирования Delphi 7.

Однако, несмотря на полученное различие стоимости, период моделирования, использованный в нашем примере, так мал, что выводы, сделанные на основании полученных результатов, неправдоподобно хороши. Изучая дополнительны возможности, можно проанализировать модель более тщательно.

Список использованных источников

Шеннон Р. Имитационное моделирование систем — искусство и наука: Пер. с анг. М., Наука, 1985, 237с.

Цифровая имитация автоматизированных систем. М., Институт проблем передачи информации АН ССР, 1983, с.139

http://rk6.bmstu.ru/electronic_book/develop/gpss_example.html

Приложение, А Исходный текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class (TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

Label5: TLabel;

Edit5: TEdit;

Label6: TLabel;

Edit6: TEdit;

Label7: TLabel;

Edit7: TEdit;

Button1: TButton;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Edit9: TEdit;

Button2: TButton;

Edit10: TEdit;

Edit11: TEdit;

Label12: TLabel;

Label16: TLabel;

procedure FormCreate (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

f:system.text;

j, k_oll:integer;

Form1: TForm1;

pr2_sr, kol2_sr, kol_sr, pr_sr:array[1.500] of real48;

implementation

{$R *.dfm}

procedure TForm1. FormCreate (Sender: TObject);

begin

edit1.Text:=floattostr (8);

edit2.Text:=inttostr (420);

edit3.Text:=floattostr (300);

edit4.Text:=floattostr (90);

edit5.Text:=inttostr (360);

edit6.Text:=floattostr (100);

edit7.Text:=floattostr (30);

edit9.Text:=inttostr (5);

edit10.Text:=inttostr (360);

edit11.Text:=inttostr (240);

end;

procedure TForm1. Button1Click (Sender: TObject);

Var

Time_false1,Time_false2,Time, Time_end, Time_ps2,Time_ps1,Time_pos11,Time_pos22,Time_pos1,Time_pos2,

pr, kol, pr2, kol2,t1,t2,it1,it2,t11,t22,it11,it22,clch, summa: real48;

p1,p2,n, n1, j, a, kt1,kt2,k_oll:integer;

p1l, p2l: boolean;

Time1,Time2:array[1.500] of real48;

FUNCTION NORM: REAL48;

VAR

I:integer;

s:real;

CHANCE:real48;

BEGIN

S:=0;

FOR I:=1 TO 12 DO

BEGIN

CHANCE:=RANDOM;

S:=S+CHANCE;

END;

NORM:=S-6;

END;

Procedure input;

begin

Time_end:=strtofloat (edit1.Text);

t11:=strtoint (edit2.Text);

t1:=strtofloat (edit3.Text);

it1:=strtofloat (edit4.Text);

t22:=strtoint (edit5.Text);

t2:=strtofloat (edit6.Text);

it2:=strtofloat (edit7.Text);

it11:=strtofloat (edit10.Text);

it22:=strtofloat (edit11.Text);

k_oll:=strtoint (edit9.Text);

end;

Procedure output;

begin

if (kol2>kol) then

Label10.Caption:='Число ожидающих механиков уменьшится для второй дисциплины!'

else Label10. Caption:='Число ожидающих механиков увеличится для второй дисциплины!';

Label11.Caption:='Число обработанных механиков первой дисциплины = '+ floattostr (round (kol))+

' механика (ов)';

Label13.Caption:='Число обработанных механиков второй дисциплины = '+ floattostr (round (kol2))+

' механика (ов)';

if (summa<=0) then Label14. Caption:='Экономия во второй дисциплине — нет'

else Label14. Caption:='Сумма экономия при второй дисциплины = '+ floattostr (round (summa/100))+

' руб.';end;

Procedure init;

var i: integer;

begin

for i:=1 to 500 do

Time1[i]: =0;

for i:=1 to 500 do

Time2[i]: =0;

Time:=0;Time_pos1:=0;Time_pos2:=0;Time_pos11:=0;Time_pos22:=0;

n:=0; n1:=0;Time_false1:=0;

Time_false2:=0;

end;

Procedure comp1;

begin

N1:=N1+1;

Time_pos11:=0;

clch:=trunc (norm*it1+t1);

if clch

if clch>t1+it1 then clch:=t1+it1;

Time_pos11:=clch;

clch:=trunc (norm*it11+t11);

if clch

if clch>t11+it11 then clch:=t11+it11;

Time_ps1:=clch;

Time_pos1:=clch+Time_pos1;

end;

Procedure comp2;

begin

N1:=N1+1;

Time_pos22:=0;

clch:=trunc (norm*it2+t2);

if clch

if clch>t2+it2 then clch:=t2+it2;

Time_pos22:=clch;

clch:=trunc (norm*it22+t22);

if clch

if clch>t22+it22 then clch:=t22+it22;

Time_ps2:=clch;

Time_pos2:=clch+Time_pos2;

end;

Begin

input;

Time_end:=Time_end*60*60;

a:=0;

FOR a:=1 to 500 do begin

init; pr:=0;kol:=0;

RANDOMIZE;

clch:=trunc (norm*it11+t11);

if clch

if clch>t11+it11 then clch:=t11+it11;

Time_pos1:=Time_pos1+clch;

clch:=trunc (norm*it1+t1);

if clch

if clch>t1+it1 then clch:=t1+it1;

Time_pos11:=clch;

clch:=trunc (norm*it2+t2);

if clch

if clch>t2+it2 then clch:=t2+it2;

Time_pos22:=clch;

clch:=trunc (norm*it22+t22);

if clch

if clch>t22+it22 then clch:=t22+it22;

Time_pos2:=Time_pos2+clch;

While Time < Time_end do begin

Time:=Time+1;

if ((Time)>=(Time_pos1)) then begin

Time:=Time+Time_pos11+Time_ps1; n:=n+1;

if (0>=Time_ps1-Time_ps2) then pr:=pr-Time_ps1+Time_ps2;

comp1; end else begin

if ((Time)>=(Time_pos2)) then begin

Time:=Time+Time_pos22+Time_ps2; n:=n+1;

if (0>=Time_ps2-Time_ps1) then pr:=pr-Time_ps2+Time_ps1;

comp2; end; end;

end; pr_sr[a]: =pr;

kol:=n1;kol_sr[a]:=kol; end;

pr:=0;kol:=0;

FOR a:=1 to 500 do begin

pr:=pr+pr_sr[a];

kol:=kol+kol_sr[a];

end;

kol:=kol/a; pr:=pr/a;

Time_end:=8*60*60;

a:=0;

FOR a:=1 to 500 do begin

init; pr2:=0;kol2:=0;

RANDOMIZE;

clch:=trunc (norm*it11+t11);

if clch

if clch>t11+it11 then clch:=t11+it11;

Time_pos1:=Time_pos1+clch;

clch:=trunc (norm*it1+t1);

if clch

if clch>t1+it1 then clch:=t1+it1;

Time_pos11:=clch;

clch:=trunc (norm*it2+t2);

if clch

if clch>t2+it2 then clch:=t2+it2;

Time_pos22:=clch;

clch:=trunc (norm*it22+t22);

if clch

if clch>t22+it22 then clch:=t22+it22;

Time_pos2:=Time_pos2+clch;

Time:=0;

While Time < Time_end do begin

Time:=Time+1;

if ((Time)>=(Time_pos2)) then begin

Time:=Time+Time_pos22+Time_ps2; n:=n+1;

if (0>=Time_ps2-Time_ps1) then pr2:=pr2-Time_ps2+Time_ps1;

comp2; end else begin

if ((Time)>=(Time_pos1)) then begin

Time:=Time+Time_pos11+Time_ps1; n:=n+1;

if (0>=Time_ps1-Time_ps2) then pr2:=pr2-Time_ps1+Time_ps2;

comp1; end; end;

end;

pr2_sr[a]: =pr2; kol2:=n1;

kol2_sr[a]: =kol2; end; pr2:=0;kol2:=0;

FOR a:=1 to 500 do begin

pr2:=pr2+pr2_sr[a];

kol2:=kol2+kol2_sr[a];

end;

kol2:=kol2/a; pr2:=pr2/a;

summa:=(pr2-pr)*k_oll;

output;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

AssignFile (f,'rez.csv');

Rewrite (f);

k_oll:=strtoint (edit9.Text);

writeln (f,';1 дисциплина;;2дисциплина;;;');

writeln (f,'N прогона;

простой;количество обработанных механиков;

простой;количество обработанных механиков;

сумма экономия;');

for j:= 1 to 500 do

begin writeln (f, FloatToStr (j) + ';' +

FloatToStrF (pr_sr[j], ffGeneral, 1,1) + ';' +

FloatToStrF (kol_sr[j], ffGeneral, 1,1) + ';' +

FloatToStrF (pr2_sr[j], ffGeneral, 1,1) + ';'+

FloatToStrF (kol2_sr[j], ffGeneral, 1,1) + ';' +

FloatToStrF ((-pr_sr[j]+pr2_sr[j])*k_oll, ffGeneral, 1,1)); end;

CloseFile (f);

ShowMessage ('Запись данных произведена успешно')

end; end.