Раздел 8.
Соотношения между l,NВПП и суммарными затратами-потерями от простоев ВС и ВПП и расходов на их обслуживание.
Используем программу PROG7.PAS.
PROGRAM prog7;
USES CRT;
CONST nk=4;
VAR
u, T,lam,Q,i,Coj_k,Coj_z,Cob_k:integer;
F,FR:text;
rr:char;
STROKA:string;
Su,m_z,c,tob,m,a,p,Po,m_p,
min, Tp, n_s,P_n,Cc,So,fkt,fak,Pzan,Ls,t_oj,t_s :real;
C_t:array[1..15] of real;
j,Row,k1,k,n:integer;
Procedure CF(VAR T :integer);
Begin
Textcolor(Q);
End;
Procedure Faktorial(var nk:integer;var fkt:real);
Var i,n:integer;
Begin
n:=nk;
fkt:=1;
For i:=1 to n do
fkt:=fkt*i;
End;
Procedure r;
Var
Wax:char;
Begin
If rr='1' then wax:=readkey
else delay(200);
End;
BEGIN
CLRSCR;
Q:=15;CF(Q);WRITELN(' +-------------------- Оптимизация количества каналов ------------------------+');
FOR i:=1 TO 23 DO
WRITELN(' ¦ ¦');
WRITE(' +----------------------------------------------------------------------------+');
WINDOW(5,3,76,24);
Q:=10;CF(Q);WRITELN(' Исходные данные:');
WRITELN;
Q:=7;CF(Q);WRITELN('Кол-во Интенсивность Ср.время Потери от Потери от Эксплутац.');
WRITELN ('ВПП прибытия ВС занятия ВПП простоя простоя расходы ');
WRITELN(' ВС ВПП и бригады ');
writeln(' ОТО');
WRITELN;
rr:='0';
ASSIGN(F,'a:\razd_8\prog7.dan');
RESET(F);
READ(F,N,lam,Tp,Coj_z,Coj_k,Cob_k);
WRITE(N:4,' ',lam:4,' ',Tp:6:2,' ',Coj_z:6,' ', Coj_k:6,' ',Cob_k:6);
READLN(F,STROKA);
WRITELN(STROKA);
WRITELN;
r;
ASSIGN(FR,'a:\razd_8\prog7.rez');
REWRITE(FR);
WRITELN;
writeln(FR,'Исходные данные');
writeln(FR,'Количество ВПП :',N:2,' (шт)');
writeln(FR,'Интенсивность прибытия ВС :',lam:4,' (сам/сут)');
writeln(FR,'Среднее время занятия ВПП :',Tp:5:2,' (ч)');
writeln(FR,'Потери от простоя ВС :',Coj_z:5,' (ден.ед.)');
writeln(FR,'Потери от простоя ВПП и бригады ОТО :',Coj_k:6,' (ден.ед.)');
writeln(FR,'Эксплутационные расходы :',Cob_k:5,' (ден.ед.)');
FOR n:=2 TO nk DO Begin
m:=1/Tp; { Интенсивность обслуживания заявки одним каналом }
tob:=1/m; { Среднее время обслуживания одной заявки }
a:=(lam/m); { Коэффициент загрузки канала }
p:=(lam/(n*m)); { Коэффициент загрузки СМО }
C:=0;
FOR k:=1 TO n-1 DO Begin;
Faktorial(k,fkt);
C:=Exp(k*Ln(a))/fkt; End;
Po:= C + Exp(n * Ln(a)) / ((n-1) * (n-a));
Po:=1/Po; { Вероятность незанятости всех каналов }
k:=n-1;
Faktorial(k,fkt);
Pzan:=Exp(n*Ln(a))*Po/(fkt*(n-a)); { Вероятность занятости всех каналов}
Su:=0;
FOR k:=1 TO n DO Begin
Su:=Su + k*(Exp(k*Ln(a))*Po/(fkt));
End;
m_z:=su - n * Pzan; { Среднее количество занятых каналов }
m_p:=n - m_z; { Среднее количество свободных каналов }
Ls:=pzan*a/(n*sqr(1-a/n)); { Средняя длина очереди }
t_oj:=Pzan*tob/(n-a); { Среднее время простоя заявки }
t_s:=tob+t_oj; { Среднее время нахождения заявки в СМО }
Faktorial(n,fkt);
P_n:=Exp(n*Ln(a))*Po/(fkt);
Su:=0;
FOR k:=1 TO n-1 DO Begin
k1:=k-1;
Faktorial(k1,fkt);
Su:=Su+Exp(k*Ln(a))/fkt; End;
N_s:=Ls+(n*P_n)/(1-(a/n)) + Po * Su; { Среднее количество заявок в СМО }
Su:=0;
FOR k:=0 TO n-1 DO Begin
Faktorial(k,fkt);
Su:=Su+(n-k)*Exp(k*Ln(a))/fkt; End;
So:=Po * Su; { Среднее количество занятых каналов }
C_t[n-1]:=lam*Coj_z + m_p*Coj_k + m_z*Cob_k; { Суммарные затраты-потери }
END;
R;
min:=c_t[1];
for n:=1 to 3 do begin
if min > c_t[n] then begin 31
min :=c_t[n];
u:=n+1;
end;end;
Q:=10;CF(Q);WRITELN('Оптимальное количество каналов Суммарные затраты кол-во ВПП');
writeln(FR,'');
writeln(FR,'_________________________________');
writeln(FR,'Результаты расчетов : ');
writeln(FR,'Суммарные затраты Кол-во ВПП');
FOR n:=1 TO nk-2+1 DO Begin
GOTOXY(45,n+11);
WRITELN(C_t[n]:12:2 ,' ' ,n+1:4 );
{writeln(FR,'Суммарные затраты Кол-во ВПП');}
WRITELN(FR,C_t[n]:12:2,' ',n+1:12 );
End;
gotoxy(10,n+9);
writeln( u:2);
writeln(FR,'оптимальное количество каналов: ', u:2);
writeln('MIN Суммарные затраты ');
WRITELN( MIN:8:2);
writeln(FR,'при минимальных суммарных затратах:' ,MIN:8:2);
READLN;
CLOSE(FR);
END.
Файл исходных данных:
2 180 0.10 2500 20140 7330
Файл результатов :
Исходные данные
Количество ВПП : 2 (шт)
Интенсивность прибытия ВС : 180 (сам/сут)
Среднее время занятия ВПП : 0.10 (ч)
Потери от простоя ВС : 2500 (ден.ед.)
Потери от простоя ВПП и бригады ОТО : 20140 (ден.ед.)
Эксплутационные расходы : 7330 (ден.ед.)
_________________________________
Результаты расчетов :
Суммарные затраты Кол-во ВПП
4053868.00 2
3872606.33 3
726048.92 4
оптимальное количество каналов: 4
при минимальных суммарных затратах: :726048.92
Таким образом,мы получили оптимальное количество ВПП (4),кторое должно быть при интенсивности 180 сам/сут ,чтобы при этом были минимальные затраты-потери (726048.92 ден.ед.)от простоев ВС и ВПП и расходов на их обслуживание.
32
Индивидуальное задание на курсовую работу
по дисциплине
“Бухгалтерский учет и аудит”