Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 28.04.2012
Сообщений: 37
1

Как сделать СМО с очередью?С отказами есть

05.03.2013, 18:41. Просмотров 1350. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
var
  Form1: TForm1;
  NN,N,i,Nw:integer;
  t1,t2,w1,w2,dt,dw,t,Wn,Tw,Wotk,K:real;
  Graf:TextFile;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
AssignFile(Graf, 'Grafic.Txt');
ReWrite(Graf);
t1:=StrToFloat(Edit2.Text);
t2:=StrToFloat(Edit4.Text);
w1:=StrToFloat(Edit5.Text);
w2:=StrToFloat(Edit6.Text);
NN:=StrToInt(Edit1.Text);
N:=0;
Wn:=0;
Tw:=0;
Nw:=0;
t:=0;
dt:=0;
dw:=0;
Wotk:=0;
K:=0;
while N<NN do
    begin
    N:=N+1;
    dt:=t1+(t2-t1)*random;
    t:=t+dt;
 
    if (Wn<=t) then
    begin
    dw:=w1+(w2-w1)*random;
    Nw:=Nw+1;
    Wn:=t+dw;
    Tw:=Tw+dw;
    Wotk:=(N-Nw)/N;
    K:=Tw/t;
    WriteLn(Graf, K);
    end;
    end;
 
Wotk:=(N-Nw)/N;
K:=Tw/t;
Edit3.Text:=FloatToStr(Wotk);
Edit7.Text:=FloatToStr(K);
Edit8.Text:=IntToStr(Nw);
CloseFile(Graf);
end;
 
end.
t1,t2 - границы разброса интервала появления заявки.
w1,w2 - границы разброса времени обработки заявки
Nw-число обработанных заявок
Nmax- максимальное значение заявок.
K- коэф. загрузки.
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует поместить его между тегами: [DELPHI] - [/DELPHI]. Или можно выделить код и на панели редактирования сообщения нажать кнопку: "DELPHI".
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2013, 18:41
Ответы с готовыми решениями:

СМО с отказами
Здравствуйте ,помогите пожалуйста. Рассматривается n-канальная система массового обслуживания (СМО)...

моделирование смо с отказами
Добрый вечер. Может кто поправить ошибку... необходимо написать программу которая будет...

Многоканальная СМО с отказами
Имеется многоканальная СМО с отказами λ = 1, μ = 2, количество каналов = 9 Подскажите, как...

Одноканальная СМО с отказами
У нас имеется одноканальная СМО с ограниченой очередью на 3 места с λ = 1, μ = 2 Задача:...

1
0 / 0 / 0
Регистрация: 28.04.2012
Сообщений: 37
07.03.2013, 17:27  [ТС] 2
Неужели ни кто не знает???((((((((((((((((
 Комментарий модератора 
Нужна чёткая формулировка задания. Что такое СМО? Что подразумевается под очередью? И прочее...


Есть 200 автомобилей, генерируется случайное время появления автомобилей(от t1 до t2),поток один, канал обслуживания один, генерируется случайное время обработки заявки каналом(от w1 до w2),необходимо представить эту систему с очередью. То есть сделать проверку освободился канал или нет,если нет то поставить заявку в очередь,то есть ожидать пока канал не освободиться.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2013, 17:27

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Одноканальная СМО с отказами
Здравствуйте. Столкнулся с моделированием в GPSS и не обошлось без проблем. Нужно смоделировать...

Модель СМО с отказами
Нужно построить модель системы массового обслуживания с отказами, описывающую работу системы,...

Многоканальная СМО с отказами и равномерной
Помогите пожалуйста с задачкой. В интернете ничего не могу по этой теме. Тема: Многоканальная СМО...

СМО с однопроцессорными устройствами и отказами
Ребят привет, помогите дописать очень нужно!!!! GENERATE (EXPONENTIAL(1,0,300)) GATE SNF...

Моделирование процесса обслуживания смо с отказами
Здравствуйте, подскажите пожалуйста что не правильно в работе с массивом Т (массив принятых и не...

Многоканальная СМО с отказами ( система массового обслуживания - Delphi)
Составить программу решения задачи в среде программирования Delphi. На промышленном предприятии...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.