Каталог Рефератов - Построение концептуальной модели - скачать рефераты, бесплатно рефераты

	Информационно-образоательный портал
	Рефераты, курсовые, дипломы, научные работы,



МЕНЮ\|

поиск

Построение концептуальной модели

private

{ Private declarations }

public

{ Public declarations }

procedure Kanal;

procedure Istok;

procedure Kanal_2;

end;

var

Form1: TForm1;

ZKan,zkan_2:boolean;

t1,t2,n,t,tIstok,InSig,VNak,Sboy,OutSig,tkan,SZKan,SZNak,sekanal_2,sboy_2,outsig_2,SZNak_2,szkan_2,tkan_2,vnak_2:integer;

in_k1:byte;

{ var nak_2:byte;{накопитель для канала № 2}

{colnak1-кол-во сигналов, пройденных через накопитель 1}

{in_k1-true-сигнал обслуж-ся каналом № 1, false-сигнал обслуж-ся каналом № 2}

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var j:integer;

begin

VNak:=0; {Накопитель}

Sboy:=0;

sboy_2:=0;

InSig:=0;{подсчет посланных сигналов}

OutSig:=0;{подсчет количества сигналов, покинувших систему обслуженными}

vnak_2:=0;

outsig_2:=0;

SZNak:=0;{подсчет средней занятости накопителя в сигналах}

SZNak_2:=0;{подсчет средней занятости накопителя в сигналах}

SZKan:=0;{подсчет количества единиц времени, которое канал находится в состоянии занятости}

szkan_2:=0;

ZKan:=False; {состояние канала}

ZKan_2:=false;

in_k1:=0;

ListBox1.Items.Clear;

T:=0;

tIstok:=T+7+random(7);

Series1.Clear;

Repeat

Istok;

Kanal;

kanal_2;

SZNak:=SZNak+VNak;

SZNak_2:=SZNak_2+VNak_2;

inc(t);

Series1.Add(vnak); {добавление данных в диаграмму о накопителе №1}

Until T>400;

with ListBox1.Items do

begin { zkan_2:boolean;sekanal_2,sboy_2,outsig_2,szkan_2,tkan_2:integer;}

{ Add('Должно поступить сигналов: '+IntToStr(400 div 10));}

Add('Поступло сигналов: '+IntToStr(InSig));

Add('Обработано сигналов каналом № 1: '+IntToStr(OutSig));

Add('Обработано сигналов каналом № 2: '+IntToStr(OutSig_2));

Add('Сбойных сигналов: '+IntToStr(Sboy+sboy_2));

if ZKan then Inc(VNak);

Add('Учтенных сигналов: '+IntToStr(VNak+vnak_2+Sboy+sboy_2+OutSig+OutSig_2));

if ZKan_2 then Inc(VNak);

if t-t1<3 then Inc(VNak);

if t-t2<3 then Inc(VNak);

Add('Осталось в системе сигналов: '+IntToStr(VNak));

Add('Средняя занятость накопителя № 1 (в сиг.): ' + FloatToStrF(SZNak/400,ffNumber,8,2));

Add('Средняя занятость накопителя № 1 (в %): ' + IntToStr(Round(SZNak/400/seNak.Value*100)));

Add('Средняя занятость накопителя № 2 (в сиг.): ' + FloatToStrF(SZNak_2/400,ffNumber,8,2));

Add('Средняя занятость накопителя № 2 (в %): ' + IntToStr(Round(SZNak_2/400/seNak2.Value*100)));

Add('Средняя занятость канала № 1 (в %): '+ IntToStr(Round(SZKan/400*100)));

Add('Средняя занятость канала № 2 (в %): '+ IntToStr(Round(SZKan_2/400*100)));

end;

procedure TForm1.Kanal;

begin

if ZKan

then

begin

Dec(tKan);

Inc(SZKan);{подсчет количества единиц времени, которое канал находится в состоянии занятости}

if tKan=0 {время, оставшееся до конца обработки сигнала}

then

begin

ZKan:=False;

if in_k1=1 then begin

Inc(OutSig){подсчет количества сигналов, покинувших канал № 1 обслуженными};

t1:=t;

end

else begin

if vnak_2<seNak2.Value then inc(vnak_2)

else inc(sboy_2);

end;

if not ZKan and (VNak>0)

then

begin

Dec(VNak);

if in_k1=1 then in_k1:=0

else in_k1:=1;

ZKan:=True;

if in_k1=1 then tKan:=2+16+random(5){18+/-2:количество единиц времени, отводимое на обработку одного сигнала}

else tKan:=2;

end;

procedure TForm1.Istok;

begin

{ if T mod N=0

then

tIstok:=T+7+random(7); {источник}

if T=tIstok

then

begin

tIstok:=T+7+random(7); {источник}

Inc(InSig); {подсчет посланных сигналов}

if VNak<seNak.Value{ёмкость накопителя}

then begin

Inc(VNak);

end

else Inc(Sboy);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

randomize;

end;

procedure TForm1.Kanal_2;

begin

if ZKan_2

then

begin

Dec(tKan_2);

Inc(SZKan_2);{подсчет количества единиц времени, которое канал находится в состоянии занятости}

if tKan_2=0 {время, оставшееся до конца обработки сигнала}

then

begin

ZKan_2:=False;

Inc(OutSig_2);{подсчет количества сигналов, покинувших систему обслуженными}

t2:=t;

end;

if not ZKan_2 and (VNak_2>0)

then

begin

Dec(VNak_2);

ZKan_2:=True;

tKan_2:=16+random(5);{количество единиц времени, отводимое на обработку одного сигнала}

end;

end.

Приложение Б

(обязательное)

Статистические данные

№ эксп.	Поступило заявок, шт	Необслужено заявок, шт	Вероятность отказа, %	Загрузка накопителя №1, %
1	38	0	0	46
2	39	1	0,004219	57
3	41	3	0,012658	57
4	40	2	0,008439	59
5	40	3	0,012658	50
6	39	2	0,008439	60
7	40	3	0,012658	58
8	38	1	0,004219	40
9	41	3	0,012658	66
10	42	4	0,016878	62
11	40	2	0,008439	52
12	40	3	0,012658	60
13	38	0	0	39
14	41	3	0,012658	58
15	40	2	0,008439	46
16	40	2	0,008439	59
17	40	2	0,008439	68
18	39	1	0,004219	50
19	40	2	0,008439	53
20	39	1	0,004219	32
21	39	2	0,008439	48
22	39	1	0,004219	60
23	37	0	0	26
24	40	0	0	42
25	38	0	0	50
26	38	1	0,004219	52
27	40	2	0,008439	64
28	39	1	0,004219	32
29	40	2	0,008439	59
30	40	3	0,012658	50
31	39	2	0,008439	66
32	38	1	0,004219	50
33	39	3	0,012658	45
34	40	1	0,004219	56
35	37	2	0,008439	65
36	38	3	0,012658	50
37	38	0	0	54
38	37	0	0	53
39	39	1	0,004219	45
40	39	2	0,008439	48
41	39	0	0	48
42	40	1	0,004219	49
43	37	2	0,008439	50
44	38	0	0	59
45	38	1	0,004219	38
46	37	2	0,008439	39
47	40	0	0	40
48	39	0	0	50
49	38	0	0	56
50	40	1	0,004219	53
51	37	2	0,008439	55
52	37	0	0	49
53	39	1	0,004219	66
54	38	2	0,008439	33
55	39	0	0	56
56	39	3	0,012658	65
57	40	0	0	45
58	41	2	0,008439	58
59	41	2	0,008439	56
60	37	2	0,008439	59
61	38	1	0,004219	48
62	38	3	0,012658	59
63	38	3	0,012658	67
64	40	3	0,012658	56
65	39	2	0,008439	65
66	39	0	0	48
67	40	1	0,004219	68
68	41	2	0,008439	59
69	37	3	0,012658	48
70	37	0	0	56
71	38	2	0,008439	45
72	38	3	0,012658	56
73	39	0	0	64
74	40	1	0,004219	56
75	39	2	0,008439	45
76	37	3	0,012658	36
77	38	0	0	42
78	40	1	0,004219	46
79	37	2	0,008439	43
80	40	2	0,008439	48
81	41	2	0,008439	59
82	41	1	0,004219	56
83	37	0	0	55
84	38	3	0,012658	54
85	38	2	0,008439	53
86	39	0	0	52
87	39	3	0,012658	57
88	39	2	0,008439	55
89	40	1	0,004219	42
90	41	0	0	53
91	41	2	0,008439	61
92	38	3	0,012658	56
93	38	2	0,008439	65
94	39	0	0	49
95	37	1	0,004219	65
96	38	2	0,008439	67
97	38	3	0,012658	62
98	39	0	0	53
99	40	1	0,004219	54
100	40	2	0,008439	48
101	40	3	0,012658	50
102	38	3	0,012658	60
103	39	1	0,004219	45
104	39	2	0,008439	46
105	37	0	0	56
106	37	3	0,012658	52
107	40	2	0,008439	38
108	40	1	0,004219	46
109	37	3	0,012658	47
110	38	3	0,012658	42
111	39	2	0,008439	56
112	39	1	0,004219	51
113	40	1	0,004219	60
114	40	0	0	65
115	41	1	0,004219	53
116	41	1	0,004219	57
117	41	2	0,008439	42
118	39	0	0	46
119	38	0	0	56
120	37	0	0	51
121	37	3	0,012658	53
122	39	2	0,008439	59
123	40	1	0,004219	40
124	40	3	0,012658	45
125	41	0	0	47
126	41	1	0,004219	48
127	40	2	0,008439	50
128	38	0	0	56
129	38	1	0,004219	60
130	39	2	0,008439	64
131	38	2	0,008439	49
132	37	1	0,004219	50
133	40	0	0	40
134	37	3	0,012658	48
135	39	3	0,012658	47
136	38	2	0,008439	49
137	40	3	0,012658	43
138	41	3	0,012658	40
139	39	3	0,012658	42
140	38	2	0,008439	41
141	37	1	0,004219	46
142	39	0	0	49
143	39	0	0	56
144	40	0	0	57
145	40	1	0,004219	59
146	41	2	0,008439	58
147	39	0	0	57
148	39	1	0,004219	50
149	38	2	0,008439	50
150	38	2	0,008439	60
151	38	1	0,004219	64
152	37	2	0,008439	67
153	38	1	0,004219	42
154	38	3	0,012658	53
155	39	2	0,008439	62
156	39	1	0,004219	48

Страницы: 1, 2, 3

© 2003-2013
Рефераты бесплатно, курсовые, рефераты биология, большая бибилиотека рефератов, дипломы, научные работы, рефераты право, рефераты, рефераты скачать, рефераты литература, курсовые работы, реферат, доклады, рефераты медицина, рефераты на тему, сочинения, реферат бесплатно, рефераты авиация, рефераты психология, рефераты математика, рефераты кулинария, рефераты логистика, рефераты анатомия, рефераты маркетинг, рефераты релиния, рефераты социология, рефераты менеджемент.