Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 10.12.2014
Сообщений: 2
1

Моделирование непрерывных истоников сообщений

10.12.2014, 18:24. Просмотров 320. Ответов 3
Метки нет (Все метки)

Добрый день! помогите пожалуйста!

Нужно смоделировать непрерывный источник сообщений и произвести вычисление оценок его основных статистических характеристик: xmax, xmin, M(x), D(x) и σ(х). Закон распределения, ФПВ и случайная величина во вложении.

с=2
n=10
λ(L)=2.5

Не могу понять, как сделать так, чтобы вероятность К считалась с 3 знаками после запятой...И чтобы эти знаки были не нули. У меня получается 1 знак после запятой, либо же например 0.100, т.е. числа ровные какие-то. не думаю, что так должно быть. Подскажите, в где может быть ошибка?

Pascal
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
program laba1;
Type
mas=array[1..1000] of real;
var
c,b,r,L,Mx,Dx,xs,H:real;
n, i:word;
Tmas:mas;
max,min:real;
k1,k2,k3,k4,k5,k6,k7,k8,k9,k10:real;
Procedure Otcenka (const b:mas;n:word; var Mx,Dx:real);
Var
i:integer;
Begin
Mx:=0; Dx:=0;
For i:=1 to N do
Mx:=Mx+b[i];
Mx:=Mx/N;
For i:=1 to N do
Dx:=Dx+Sqr(b[i]-Mx);
Dx:=Dx/N;
End;
 
begin
writeln ('Задайте значение c1:');
read (c);
writeln('Кол-во n: ');
read (n);
writeln('Задайте значение L:');
read(L);
randomize;
for i:=1 to n do
begin
r:=random;
Tmas [i]:=exp(c*(-ln(r)/L)+b);
writeln('x', i:5, '=', Tmas[i]:5:3);
end;
Otcenka(Tmas,n,Mx,Dx);
Writeln('Mx=', Mx,' Dx= ',Dx);
{Максимум и минимум}
min:=Tmas[1];
for i:=2 to n do
if min>Tmas[i] then
begin
min:=Tmas[i];
end;
writeln ('min=', min:5:3);
max:=Tmas[1];
for i:=2 to n do
if max<Tmas[i] then
begin
max:=Tmas[i];
end;
if Tmas[i]>max then
begin
max:=Tmas[i];
end;
writeln ('max=', max:5:3);
{Ё*⥣а*«л}
begin
xs:=max-min;{а*§¬*е}
H:=xs/10; {а*§¬Ґа Ё*вҐаў*«*}
writeln('xs=', xs:5:2);
writeln('H=', H:5:2);
k1:=0;
k2:=0;
k3:=0;
k4:=0;
k5:=0;
k6:=0;
k7:=0;
k8:=0;
k9:=0;
k10:=0;
for i:=1 to n do
begin
if (min<=Tmas[i]) and (Tmas[i]<(min+H)) then
  k1:=k1+1;
 if ((min+H)<=Tmas[i])and (Tmas[i]<(min+2*H)) then
  k2:=k2+1;
 if ((min+2*H)<=Tmas[i])and (Tmas[i]<(min+3*H)) then
  k3:=k3+1;
 if ((min+3*H)<=Tmas[i])and (Tmas[i]<(min+4*H)) then
  k4:=k4+1;
 if ((min+4*H)<=Tmas[i])and (Tmas[i]<(min+5*H)) then
  k5:=k5+1;
 if ((min+5*H)<=Tmas[i])and (Tmas[i]<(min+6*H)) then
  k6:=k6+1;
 if ((min+6*H)<=Tmas[i])and (Tmas[i]<(min+7*H)) then
  k7:=k7+1;
 if ((min+7*H)<=Tmas[i])and (Tmas[i]<(min+8*H)) then
  k8:=k8+1;
 if ((min+8*H)<=Tmas[i])and (Tmas[i]<(min+9*H)) then
  k9:=k9+1;
 if ((min+9*H)<=Tmas[i])and (Tmas[i]<=(min+10*H)) then
  k10:=k10+1;
end;
 writeln ('k1=', k1/n:2);
 writeln ('k2=',k2/n:2);
 writeln ('k3=',k3/n:2);
 writeln ('k4=',k4/n:2);
 writeln ('k5=',k5/n:2);
 writeln ('k6=',k6/n:2);
 writeln ('k7=',k7/n:2);
 writeln ('k8=',k8/n:2);
 writeln ('k9=',k9/n:2);
 writeln('k10=',k10/n:2);
end;
end.
0
Миниатюры
Моделирование непрерывных истоников  сообщений  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.12.2014, 18:24
Ответы с готовыми решениями:

Моделирование непрерывных случайных величин
Доброго времени, нужно исследовать моделирование НСВ и как входные данные мне подсунули только: ...

Моделирование непрерывных случайных величин
помогите пожалуйста) смоделировать непрерывную случайную величину ξ методом обратных...

Моделирование Линейных Непрерывных Систем в Пространстве Состояний
Здравствуйте! Как преобразовать в Матлабе lti-объект из tf-формы и zpk-формы в ss-форму если...

Моделирование узла сообщений GPSS
Ребят срочно нужна помощь! Можете помочь исправить код программы! есть основа, даже 2 варианта....

3
Модератор
60153 / 45303 / 31264
Регистрация: 18.05.2008
Сообщений: 108,816
10.12.2014, 18:37 2
Цитата Сообщение от Andrey9941 Посмотреть сообщение
К считалась с 3 знаками после запятой
Pascal
1
writeln ('k1=', k1/n:0:3);
Добавлено через 51 секунду
Цитата Сообщение от Andrey9941 Посмотреть сообщение
либо же например 0.100
Ну если это 1/10 то так и будет
0
0 / 0 / 0
Регистрация: 10.12.2014
Сообщений: 2
10.12.2014, 19:00  [ТС] 3
очень странные результаты значений К получаются по-моему
0
Миниатюры
Моделирование непрерывных истоников  сообщений  
Модератор
60153 / 45303 / 31264
Регистрация: 18.05.2008
Сообщений: 108,816
10.12.2014, 19:06 4
Цитата Сообщение от Andrey9941 Посмотреть сообщение
очень странные результаты значений К получаются
Ну что написал, то и получил...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2014, 19:06

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

Система личных сообщений. Вывод списка сообщений.
Доброе время суток! Возникла проблема с почтой, а конкретно не могу вывести всю переписку...

Об абсолютно непрерывных функциях
С праздником всех! Очень интересует вопрос- верна ли такая теорема( в Натансоне не нашла): Если...

Графики непрерывных функций
Написать программу, которая строит графики непрерывных функций одной переменной. Мне нужны примеры...

Система непрерывных случайных величин
Помогите решить задачку) Система непрерывных случайных величин имеет постоянную плотность...


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

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

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