Поток сообщений.Одни нули

@Арти7030 · Регистрация: 27.12.2012

Author24 — интернет-сервис помощи студентам

Поток сообщений выдает 600 строк нулей
[0:0]
[0:0]
[0:0]
а надо
[1:3]
[2:1]
[3:3]
[2:4]
Помогите исправить прогу. Спасибо

Matlab M

    types = zeros(1, 3) //количество появлений сообщения типа i
    receivers = zeros(3, 4) // количество отправки сообщения типа i j-му приемнику
    printf('Сообщения:\n');
    y = rand(1, 400, 'uniform');
    i = 1;
    while(i <= 400)
        mType = y(i);
        mReceiver = mType, rand(0, 'uniform');
        printf('\t[%i : %i]\n', mType, mReceiver);
        //types(1, mType) = types(1, mType) + 1;
        //receivers(mType, mReceiver) = receivers(mType, mReceiver) + 1;
        i = i + 1;
    end
 
    if (randomValue <= 0.59) then
        messageType = 1
    else
        if (randomValue <= 0.89) then
            messageType = 2
        else
            messageType = 3
        end
    end
 
    select (messageType)
    case 1
        if randomValue <= 0.48 then
            receiverNumber = 1
        else
            if randomValue <= 0.49 then
                receiverNumber = 2
            else
                if randomValue <= 0.93 then
                    receiverNumber = 3
                else
                    receiverNumber = 4
                end
            end
        end,
    case 2
        if randomValue <= 0.02 then
            receiverNumber = 1
        else
            if randomValue <= 0.18 then
                receiverNumber = 2
            else
                if randomValue <= 0.57 then
                    receiverNumber = 3
                else
                    receiverNumber = 4
                end
            end
        end,
    case 3
        if randomValue <= 0.57 then
            receiverNumber = 1
        else
            if randomValue <= 0.78 then
                receiverNumber = 2
            else
                receiverNumber = 3
            end
        end
    end

@olbond · 07.04.2014, 14:25

Окончание цикла while не в том месте стоит - программа ничего не считает. Дальше - непонятная переменная randomValue?

@Арти7030 · 07.04.2014, 14:31 **[ТС]**

olbond,

Matlab M

funcprot (0)
    types = zeros(1, 3) //количество появлений сообщения типа i
    receivers = zeros(3, 4) // количество отправки сообщения типа i j-му приемнику
    printf('Сообщения:\n');
    randomValue = rand(1, 400, 'uniform');
    getMessageType = type;
    i = 1;
    while(i <= 400)
        mType = getMessageType(randomValue(i));
        mReceiver = mType, rand(0, 'uniform');
        printf('\t[%i : %i]\n', mType, mReceiver);
        //types(1, mType) = types(1, mType) + 1;
        //receivers(mType, mReceiver) = receivers(mType, mReceiver) + 1;
 
    if (randomValue <= 0.59) then
        messageType = 1
    else
        if (randomValue <= 0.89) then
            messageType = 2
        else
            messageType = 3
        end
    end
 
    select (messageType)
    case 1
        if randomValue <= 0.48 then
            receiverNumber = 1
        else
            if randomValue <= 0.49 then
                receiverNumber = 2
            else
                if randomValue <= 0.93 then
                    receiverNumber = 3
                else
                    receiverNumber = 4
                end
            end
        end,
    case 2
        if randomValue <= 0.02 then
            receiverNumber = 1
        else
            if randomValue <= 0.18 then
                receiverNumber = 2
            else
                if randomValue <= 0.57 then
                    receiverNumber = 3
                else
                    receiverNumber = 4
                end
            end
        end,
    case 3
        if randomValue <= 0.57 then
            receiverNumber = 1
        else
            if randomValue <= 0.78 then
                receiverNumber = 2
            else
                receiverNumber = 3
            end
        end
    end
        i = i + 1;
end

Вот исправил. Правда теперь выводит [1:1]

@olbond · 07.04.2014, 15:16

Функция type() идентифицирует тип переменной - во всех случаях будет один. Далее - переменной mReceiver (в строке 10) присваивается значение переменной mType, что также будет один.

У Вас неправильно реализовано if else условие, в результате ничего не сохраняется.

Добавлено через 6 минут

Matlab M

   
    types = zeros(1, 3) //количество появлений сообщения типа i
    receivers = zeros(3, 4) // количество отправки сообщения типа i j-му приемнику
    printf('Сообщения:\n');
    randomValue = rand(1, 400, 'uniform');
    getMessageType = type;
    i = 1;
    while(i <= 400)
 
    if (randomValue(i) <= 0.59) then
        messageType = 1
    else
        if (randomValue(i) <= 0.89) then
            messageType = 2
        else
            messageType = 3
        end
    end
 
    select (messageType)
    case 1
        if randomValue(i) <= 0.48 then
            receiverNumber = 1
        else
            if randomValue(i) <= 0.49 then
                receiverNumber = 2
            else
                if randomValue(i) <= 0.93 then
                    receiverNumber = 3
                else
                    receiverNumber = 4
                end
            end
        end,
    case 2
        if randomValue(i) <= 0.02 then
            receiverNumber = 1
        else
            if randomValue(i) <= 0.18 then
                receiverNumber = 2
            else
                if randomValue(i) <= 0.57 then
                    receiverNumber = 3
                else
                    receiverNumber = 4
                end
            end
        end,
    case 3
        if randomValue(i) <= 0.57 then
            receiverNumber = 1
        else
            if randomValue(i) <= 0.78 then
                receiverNumber = 2
            else
                receiverNumber = 3
            end
        end
    end
            printf('\t[%i : %i]\n', messageType, receiverNumber);
        i = i + 1;
end

@Арти7030 · 07.04.2014, 15:23 **[ТС]**

olbond, Спасибо огромное. Ещё вопрос: можно реализовать эту программу без условия select-case, а только с if - then - else и если можно то просто заменить select-case на if - then - else.

@olbond · 07.04.2014, 17:23

Сообщение от Арти7030

можно реализовать эту программу без условия select-case, а только с if - then - else

Можно, но не целесообразно - тяжело будет код читаться.

@Арти7030 · 08.04.2014, 10:14 **[ТС]**

olbond, я знаю, что надоел, но вот какая проблема вылезла. В первом варианте программы не правильно заполняется "Количество поступлений", а во втором правильно. Хотя всё тоже самое. Ещё помогите решить одну проблему.

Matlab M

funcprot()
 
types = zeros (1, 3) // количество появлений сообщения типа i
receivers = zeros(3, 4) // количество отправки сообщения типа i j-му приемнику
printf('Сообщения:\n');
randomValue = rand(1, 600, 'uniform');
getMessageType = type;
i = 1;
while (i <= 600)
 
if (randomValue(i) <= 0.79) then
        messageType = 1
    else
if (randomValue(i) <= 0.85) then
        messageType = 2
    else
        messageType = 3
    end
end
 
         if randomValue(i) <= 0.09 then
            receiverNumber = 1
        else
         if randomValue(i) <= 0.67 then
            receiverNumber = 2
        else
         if randomValue(i) <= 0.79 then
            receiverNumber = 3
        else
            receiverNumber = 4
                end
            end
        end,
 
        if randomValue(i) <= 0.34 then
           receiverNumber = 1
       else
        if randomValue(i) <= 0.45 then
           receiverNumber = 2
       else
        if randomValue(i) <= 0.74 then
            receiverNumber = 3
       else
            receiverNumber = 4
                end
            end
        end,
 
        if randomValue(i) <= 0.68 then
           receiverNumber = 1
       else
         if randomValue(i) <= 0.92 then
            receiverNumber = 2
        else
            if randomValue <= 0.94 then
                receiverNumber = 3
            else
                receiverNumber = 4
            end
            end
        end
 
printf('\t[%i : %i]\n', messageType, receiverNumber);
types(1, messageType) = types(1, messageType) + 1;
receivers(messageType, receiverNumber) = receivers(messageType, receiverNumber) + 1;
i = i + 1;
end
    printf('\nКоличество и вероятность сообщений:\n');
    for i = 1:3
        printf('#%i : %i, вероятность: %f\n', i, types(i), types(i)/600);
    end
    printf('\nТеоретические значения:\n#1: 0.79\n#2: 0.06\n#3: 0.15');
    printf('\n');
 
    printf('\nКоличество поступлений:\n');
    for i = 1:3
        printf('#%i\t', i)
        for j = 1:4
            printf('%i (%f)\t', receivers(i, j), receivers(i, j) / types(i))
        end
        printf('\n')
    end
 
    printf('\nТеоретические значения:\n');
    printf('#1\t0,09\t0,58\t0,12\t0,21\n');
    printf('#2\t0,34\t0,11\t0,29\t0,26\n');
    printf('#3\t0,68\t0,24\t0,02\t0,06\n');

Matlab M

// тип сообщения по значению числа
function messageType=getMessageType(randomValue)
    if (randomValue <= 0.79) then
        messageType = 1
    else
        if (randomValue <= 0.85) then
            messageType = 2
        else
            messageType = 3
        end
    end
endfunction
 
// номер приемника по типу сообщения и случайному числу
function receiverNumber=getReceiverNumber(messageType, randomValue)
    select (messageType)
    case 1
        if randomValue <= 0.09 then
            receiverNumber = 1
        else
            if randomValue <= 0.67 then
                receiverNumber = 2
            else
                if randomValue <= 0.79 then
                    receiverNumber = 3
                else
                    receiverNumber = 4
                end
            end
        end,
    case 2
        if randomValue <= 0.34 then
            receiverNumber = 1
        else
            if randomValue <= 0.45 then
                receiverNumber = 2
            else
                if randomValue <= 0.74 then
                    receiverNumber = 3
                else
                    receiverNumber = 4
                end
            end
        end,
    case 3
        if randomValue <= 0.68 then
            receiverNumber = 1
        else
            if randomValue <= 0.92 then
                receiverNumber = 2
            else
                if randomValue <= 0.94 then
                    receiverNumber = 3
                else
                    receiverNumber = 4
                end
            end
        end
    end
endfunction
 
function createMessageFlow()
    types = zeros(1, 3) //количество появлений сообщения типа i
    receivers = zeros(3, 4) // количество отправки сообщения типа i j-му приемнику
    printf('Сообщения:\n');
    y = rand(1, 600, 'uniform');
    i = 1;
    while(i <= 600)
        mType = getMessageType(y(i));
        mReceiver = getReceiverNumber(mType, rand(0, 'uniform'));
        printf('\t[%i : %i]\n', mType, mReceiver);
        types(1, mType) = types(1, mType) + 1;
        receivers(mType, mReceiver) = receivers(mType, mReceiver) + 1;
        i = i + 1;
    end
 
    printf('\nКоличество и вероятность сообщений:\n');
    for i = 1:3
        printf('#%i: %i, частота: %f\n', i, types(i), types(i)/600);
    end
    printf('\nТеоретические значения:\n#1: 0.79\n#2: 0.06\n#3: 0.15');
    printf('\n');
 
    printf('\nКоличество поступлений:\n');
    for i = 1:3
        printf('#%i\t', i)
        for j = 1:4
            printf('%i (%f)\t', receivers(i, j), receivers(i, j) / types(i))
        end
        printf('\n')
    end
 
    printf('\nТеоретические значения:\n');
    printf('#1\t0,09\t0,58\t0,12\t0,21\n');
    printf('#2\t0,34\t0,11\t0,29\t0,26\n');
    printf('#3\t0,68\t0,24\t0,02\t0,06\n');
endfunction
 
createMessageFlow();

@olbond · 10.04.2014, 04:47

Если оба варианта идентичны то и результат должен быть одинаковый. Посмотрите внимательно - в первом варианте убран оператор select-case , в то же время нету никакого условия по типу сообщений. Далее, номер приемника определяется из того же массива случайных величин что и тип сообшения, хотя должно генерироваться новое случайное число для каждого идентифицированного типа сообщения (по крайней мере так реализовано во втором варианте).

@Арти7030 · 13.04.2014, 15:06 **[ТС]**

olbond, select-case убран потому что мне надо использовать if-then-else. Как сделать чтобы номер приемника определялся из другого массива случайных чисел?

@olbond · 14.04.2014, 06:16

Убрав select-case надо добавить условие if-then-else иначе ничего не получиться (потому что для каждого сообщения - свой набор правил определения приемника). чтобы номер приемника определялся из другого массива случайных чисел - после определения типа сообщения, сгенирируйте случайное число (на каждом шаге по i) и используйте его для определения приемника.

@Арти7030 · 20.04.2014, 14:32 **[ТС]**

olbond, всё сделал. Как ещё можно сделать всё с циклом for, а не while?

Matlab M

types = zeros (1, 3)
receivers = zeros(3, 4)
printf('Сообщения:\n');
randomValue = rand(1, 600, 'uniform');
getMessageType = type;
i = 1;
while (i <= 600)
 
if (randomValue(i) <= 0.79) then
        messageType = 1
    else
if (randomValue(i) > 0.79)&(randomValue(i)<=0.85) then
        messageType = 2
    else
if (randomValue(i) > 0.85)&(randomValue(i) <= 1) then
        messageType = 3
    end
end
end
 
arrType(i) = messageType;
 
randomVal = rand(0, 'uniform');
arrrandomVal(i) = randomVal;
 
if messageType == 1 then
         if randomVal <= 0.09 then
            receiverNumber = 1
        else
         if (randomVal > 0.09)&(randomVal <= 0.67) then
            receiverNumber = 2
        else
         if (randomVal > 0.67)&(randomVal <= 0.79) then
            receiverNumber = 3
        else
         if (randomVal > 0.79)&(randomVal <= 1) then
            receiverNumber = 4
          end
       end
    end
end,
else
    if messageType == 2 then
        if randomVal <= 0.34 then
           receiverNumber = 1
       else
        if(randomVal > 0.34)&(randomVal <= 0.45) then
           receiverNumber = 2
       else
        if (randomVal > 0.45)&(randomVal <= 0.74) then
            receiverNumber = 3
       else
        if (randomVal > 0.74)&(randomVal <= 1) then
           receiverNumber = 4
          end
       end
    end
end,
else
    if messageType == 3 then
        if randomVal <= 0.68 then
           receiverNumber = 1
       else
         if (randomVal > 0.68)&(randomVal <= 0.92) then
            receiverNumber = 2
        else
            if (randomVal > 0.92)&(randomVal <= 0.94) then
                receiverNumber = 3
            else
             if (randomVal > 0.94)&(randomVal <= 1) then
                receiverNumber = 4
    end
    end
end
end,
end
end
end
        arrAdr(i) = receiverNumber;
printf('\t[%i : %i]\n', messageType, receiverNumber);
types(1, messageType) = types(1, messageType) + 1;
receivers(messageType, receiverNumber) = receivers(messageType, receiverNumber) + 1;
i = i + 1;
end
 
    printf('\nКоличество и вероятность сообщений:\n');
    for i = 1:3
        printf('#%i: %i, вероятность: %1.2f\n', i, types(i), types(i)/600);
    end
    printf('\nТеоретические значения:\n#1: 0.79\n#2: 0.06\n#3: 0.15');
    printf('\n');
 
    printf('\nКоличество поступлений:\n');
    for i = 1:3
        printf('#%i\t', i)
        for j = 1:4
           printf('%i (%1.2f)\t', receivers(i, j), receivers(i, j) / types(i))
        end
        printf('\n')
    end
 
    printf('\nТеоретические значения:\n');
    printf('#1\t0,09\t0,58\t0,12\t0,21\n');
    printf('#2\t0,34\t0,11\t0,29\t0,26\n');
    printf('#3\t0,68\t0,24\t0,02\t0,06\n');

@olbond · 20.04.2014, 15:28

Вместо while пишем:

Matlab M

1	for i = 1:600

@Арти7030 · 24.04.2014, 12:15 **[ТС]**

olbond, Спасибо, но снова возникли вопросы. Помогите.
1) Расширить модель потока сообщений. Использовать случайную величину, распределенную в диапазоне [1, 30]
2) Определить характеристики последовательности длин а) математическое ожидание б) дисперсию в) среденеквадратичное отклонение.
Это сделал, прошу только проверить и если есть ошибки написать.
3) Выполнит проверку качества генерации длин методом. тест проверки независимости.

Прошу объясните 1 и 3 задание и проверьте 2-е.

Matlab M

types = zeros (1, 3)
receivers = zeros(3, 4)
printf('Сообщения:\n');
randomValue = rand(1, 600, 'uniform');
getMessageType = type;
for i = 1:600
 
if (randomValue(i) <= 0.79) then
        messageType = 1
    else
if (randomValue(i) > 0.79)&(randomValue(i)<=0.85) then
        messageType = 2
    else
if (randomValue(i) > 0.85)&(randomValue(i) <= 1) then
        messageType = 3
    end
end
end
 
arrType(i) = messageType;
 
randomVal = rand(0, 'uniform');
arrrandomVal(i) = randomVal;
 
if messageType == 1 then
         if randomVal <= 0.09 then
            receiverNumber = 1
        else
         if (randomVal > 0.09)&(randomVal <= 0.67) then
            receiverNumber = 2
        else
         if (randomVal > 0.67)&(randomVal <= 0.79) then
            receiverNumber = 3
        else
         if (randomVal > 0.79)&(randomVal <= 1) then
            receiverNumber = 4
          end
       end
    end
end,
else
    if messageType == 2 then
        if randomVal <= 0.34 then
           receiverNumber = 1
       else
        if(randomVal > 0.34)&(randomVal <= 0.45) then
           receiverNumber = 2
       else
        if (randomVal > 0.45)&(randomVal <= 0.74) then
            receiverNumber = 3
       else
        if (randomVal > 0.74)&(randomVal <= 1) then
           receiverNumber = 4
          end
       end
    end
end,
else
    if messageType == 3 then
        if randomVal <= 0.68 then
           receiverNumber = 1
       else
         if (randomVal > 0.68)&(randomVal <= 0.92) then
            receiverNumber = 2
        else
            if (randomVal > 0.92)&(randomVal <= 0.94) then
                receiverNumber = 3
            else
             if (randomVal > 0.94)&(randomVal <= 1) then
                receiverNumber = 4
    end
    end
end
end,
end
end
end
        arrAdr(i) = receiverNumber;
printf('\t[%i : %i]\n', messageType, receiverNumber);
types(1, messageType) = types(1, messageType) + 1;
receivers(messageType, receiverNumber) = receivers(messageType, receiverNumber) + 1;
end
 
    printf('\nКоличество и вероятность сообщений:\n');
    for i = 1:3
        printf('#%i: %i, вероятность: %1.2f\n', i, types(i), types(i)/600);
    end
    printf('\nТеоретические значения:\n#1: 0.79\n#2: 0.06\n#3: 0.15');
    printf('\n');
 
    printf('\nКоличество поступлений:\n');
    for i = 1:3
        printf('#%i\t', i)
        for j = 1:4
           printf('%i (%1.2f)\t', receivers(i, j), receivers(i, j) / types(i))
        end
        printf('\n')
    end
 
    printf('\nТеоретические значения:\n');
    printf('#1\t0,09\t0,58\t0,12\t0,21\n');
    printf('#2\t0,34\t0,11\t0,29\t0,26\n');
    printf('#3\t0,68\t0,24\t0,02\t0,06\n');
    
// Математическое ожидание
mo_n = 0;
mo_t = 0;
 for i = 1:600
        mo_n  = mo_n + randomValue(i);
        mo_t  = mo_t + randomVal();
 end
 printf("Математическое ожидание: длина - %f, время - %f\n", (mo_n/600), (mo_t/600));
mo_n = mo_n / 600;
mo_t = mo_t / 600;
// Дисперсия
d_n = 0;
d_t = 0;
 for i = 1:600
       d_n = d_n + ((randomValue(i) - mo_n)^2);
       d_t = d_t + ((randomVal() - mo_t)^2);
 end
d_n = d_n / 600;
d_t = d_t / 600;
printf("Дисперсия: длина - %f, время - %f\n", d_n, d_t);
printf("СКО: длина - %f, время - %f\n", sqrt(d_n), sqrt(d_t));

@olbond · 24.04.2014, 13:38

По 3 пункту: ничего не могу сказать, непонятна задача.
По 1 пункту: для генерации в диапазоне (1,30) можно использовать команду grand(1, 600, "unf", 1, 30), но возникает вопрос с правилами определения типа сообщения - они определены для диапазона (0,1)?

По 2 пункту: почему бы для суммирования не использовать стандартную комманду sum?
В строках 110 и 120 наверное надо использовать arrrandomVal(i) ? А так вроде все верно.

@Арти7030 · 24.04.2014, 14:32 **[ТС]**

olbond, можно про команду grand, куда её вписать и что она даст?

@olbond · 24.04.2014, 14:48

Про команду grand() можно подробно посмотреть в справке SciLab, а вписать ее нужно там где необходим диапазон (1,30), Я полагаю randomValue = ...

@Арти7030 · 24.04.2014, 19:02 **[ТС]**

olbond, Сделал, но scilab заявляет что в 95 строке "Деление на ноль" ?

Matlab M

types = zeros (1, 3)
receivers = zeros(3, 4)
printf('Сообщения:\n');
randomValue = grand(1, 600, "unf", 1, 30);
getMessageType = type;
for i = 1:600
 
if (randomValue(i) <= 0.79) then
        messageType = 1
    else
if (randomValue(i) > 0.79)&(randomValue(i)<=0.85) then
        messageType = 2
    else
if (randomValue(i) > 0.85)&(randomValue(i) <= 1) then
        messageType = 3
    end
end
end
 
arrType(i) = messageType;
 
randomVal = rand(0, 'uniform');
arrrandomVal(i) = randomVal;
 
if messageType == 1 then
         if randomVal <= 0.09 then
            receiverNumber = 1
        else
         if (randomVal > 0.09)&(randomVal <= 0.67) then
            receiverNumber = 2
        else
         if (randomVal > 0.67)&(randomVal <= 0.79) then
            receiverNumber = 3
        else
         if (randomVal > 0.79)&(randomVal <= 1) then
            receiverNumber = 4
          end
       end
    end
end,
else
    if messageType == 2 then
        if randomVal <= 0.34 then
           receiverNumber = 1
       else
        if(randomVal > 0.34)&(randomVal <= 0.45) then
           receiverNumber = 2
       else
        if (randomVal > 0.45)&(randomVal <= 0.74) then
            receiverNumber = 3
       else
        if (randomVal > 0.74)&(randomVal <= 1) then
           receiverNumber = 4
          end
       end
    end
end,
else
    if messageType == 3 then
        if randomVal <= 0.68 then
           receiverNumber = 1
       else
         if (randomVal > 0.68)&(randomVal <= 0.92) then
            receiverNumber = 2
        else
            if (randomVal > 0.92)&(randomVal <= 0.94) then
                receiverNumber = 3
            else
             if (randomVal > 0.94)&(randomVal <= 1) then
                receiverNumber = 4
    end
    end
end
end,
end
end
end
        arrAdr(i) = receiverNumber;
printf('\t[%i : %i]\n', messageType, receiverNumber);
types(1, messageType) = types(1, messageType) + 1;
receivers(messageType, receiverNumber) = receivers(messageType, receiverNumber) + 1;
end
 
    printf('\nКоличество и вероятность сообщений:\n');
    for i = 1:3
        printf('#%i: %i, вероятность: %1.2f\n', i, types(i), types(i)/600);
    end
    printf('\nТеоретические значения:\n#1: 0.79\n#2: 0.06\n#3: 0.15');
    printf('\n');
 
    printf('\nКоличество поступлений:\n');
    for i = 1:3
        printf('#%i\t', i)
        for j = 1:4
           printf('%i (%1.2f)\t', receivers(i, j), receivers(i, j) / types(i))
        end
        printf('\n')
    end
 
    printf('\nТеоретические значения:\n');
    printf('#1\t0,09\t0,58\t0,12\t0,21\n');
    printf('#2\t0,34\t0,11\t0,29\t0,26\n');
    printf('#3\t0,68\t0,24\t0,02\t0,06\n');
    
// Математическое ожидание
mo_n = 0;
mo_t = 0;
 for i = 1:600
        mo_n  = mo_n + randomValue(i)*10;
        mo_t  = mo_t + arrrandomVal(i)*10;
 end
 printf("\nМатематическое ожидание: длина - %1.2f, время - %1.2f\n", (mo_n/600), (mo_t/600));
mo_n = mo_n / 600;
mo_t = mo_t / 600;
// Дисперсия
d_n = 0;
d_t = 0;
 for i = 1:600
       d_n = d_n + ((randomValue(i) - mo_n)^2);
       d_t = d_t + ((arrrandomVal(i) - mo_t)^2);
 end
d_n = d_n / 600;
d_t = d_t / 600;
printf("Дисперсия: длина - %1.2f, время - %1.2f\n", d_n, d_t);
printf("СКО: длина - %1.2f, время - %1.2f\n", sqrt(d_n), sqrt(d_t));

@olbond · 25.04.2014, 10:20

Сообщение от Арти7030

Сделал, но scilab заявляет что в 95 строке "Деление на ноль"

Ну это и не удивительно, Я ж намекнул что случайные числа у Вас теперь в диапазоне (1,30), а тип сообщений определяется из диапазона (0,1), и вообще должно выдавать ошибку "!--error 4 Undefined variable: messageType".

В строках 8-16 нужно задать новые интервалы, в соответствии с диапазоном случайной переменной randomValue.

@Арти7030 · 25.04.2014, 17:25 **[ТС]**

olbond, вот так?

Matlab M

types = zeros (1, 3)
receivers = zeros(3, 4)
printf('Сообщения:\n');
randomValue = grand(1, 600, "unf", 1, 30);
getMessageType = type;
for i = 1:600
 
if (randomValue(i) <= 24) then
        messageType = 1
    else
if (randomValue(i) > 24)&(randomValue(i)<=26) then
        messageType = 2
    else
if (randomValue(i) > 26)&(randomValue(i) <= 30) then
        messageType = 3
    end
end
end
 
arrType(i) = messageType;
 
randomVal = rand(0, 'uniform');
arrrandomVal(i) = randomVal;
 
if messageType == 1 then
         if randomVal <= 0.09 then
            receiverNumber = 1
        else
         if (randomVal > 0.09)&(randomVal <= 0.67) then
            receiverNumber = 2
        else
         if (randomVal > 0.67)&(randomVal <= 0.79) then
            receiverNumber = 3
        else
         if (randomVal > 0.79)&(randomVal <= 1) then
            receiverNumber = 4
          end
       end
    end
end,
else
    if messageType == 2 then
        if randomVal <= 0.34 then
           receiverNumber = 1
       else
        if(randomVal > 0.34)&(randomVal <= 0.45) then
           receiverNumber = 2
       else
        if (randomVal > 0.45)&(randomVal <= 0.74) then
            receiverNumber = 3
       else
        if (randomVal > 0.74)&(randomVal <= 1) then
           receiverNumber = 4
          end
       end
    end
end,
else
    if messageType == 3 then
        if randomVal <= 0.68 then
           receiverNumber = 1
       else
         if (randomVal > 0.68)&(randomVal <= 0.92) then
            receiverNumber = 2
        else
            if (randomVal > 0.92)&(randomVal <= 0.94) then
                receiverNumber = 3
            else
             if (randomVal > 0.94)&(randomVal <= 1) then
                receiverNumber = 4
    end
    end
end
end,
end
end
end
        arrAdr(i) = receiverNumber;
printf('\t[%i : %i]\n', messageType, receiverNumber);
types(1, messageType) = types(1, messageType) + 1;
receivers(messageType, receiverNumber) = receivers(messageType, receiverNumber) + 1;
end
 
    printf('\nКоличество и вероятность сообщений:\n');
    for i = 1:3
        printf('#%i: %i, вероятность: %1.2f\n', i, types(i), types(i)/600);
    end
    printf('\nТеоретические значения:\n#1: 0.79\n#2: 0.06\n#3: 0.15');
    printf('\n');
 
    printf('\nКоличество поступлений:\n');
    for i = 1:3
        printf('#%i\t', i)
        for j = 1:4
           printf('%i (%1.2f)\t', receivers(i, j), receivers(i, j) / types(i))
        end
        printf('\n')
    end
 
    printf('\nТеоретические значения:\n');
    printf('#1\t0,09\t0,58\t0,12\t0,21\n');
    printf('#2\t0,34\t0,11\t0,29\t0,26\n');
    printf('#3\t0,68\t0,24\t0,02\t0,06\n');
    
// Математическое ожидание
mo_n = 0;
mo_t = 0;
 for i = 1:600
        mo_n  = mo_n + randomValue(i)*10;
        mo_t  = mo_t + arrrandomVal(i)*10;
 end
 printf("\nМатематическое ожидание: длина - %1.2f, время - %1.2f\n", (mo_n/600), (mo_t/600));
mo_n = mo_n / 600;
mo_t = mo_t / 600;
// Дисперсия
d_n = 0;
d_t = 0;
 for i = 1:600
       d_n = d_n + ((randomValue(i) - mo_n)^2);
       d_t = d_t + ((arrrandomVal(i) - mo_t)^2);
 end
d_n = d_n / 600;
d_t = d_t / 600;
printf("Дисперсия: длина - %1.2f, время - %1.2f\n", d_n, d_t);
printf("СКО: длина - %1.2f, время - %1.2f\n", sqrt(d_n), sqrt(d_t));

@olbond · 25.04.2014, 17:30

Если результат соответствует ожиданиям, значит так.

@olbond 143 / 133 / 42 Регистрация: 11.03.2013 Сообщений: 274
	07.04.2014, 14:25	2
	Окончание цикла while не в том месте стоит - программа ничего не считает. Дальше - непонятная переменная randomValue? 0

@Арти7030 1 / 1 / 3 Регистрация: 27.12.2012 Сообщений: 192
	07.04.2014, 15:23 [ТС]	5
	olbond, Спасибо огромное. Ещё вопрос: можно реализовать эту программу без условия select-case, а только с if - then - else и если можно то просто заменить select-case на if - then - else. 0

@olbond 143 / 133 / 42 Регистрация: 11.03.2013 Сообщений: 274
	07.04.2014, 17:23	6
	Сообщение от Арти7030 можно реализовать эту программу без условия select-case, а только с if - then - else Можно, но не целесообразно - тяжело будет код читаться. 0

@olbond 143 / 133 / 42 Регистрация: 11.03.2013 Сообщений: 274
	10.04.2014, 04:47	8
	Если оба варианта идентичны то и результат должен быть одинаковый. Посмотрите внимательно - в первом варианте убран оператор select-case , в то же время нету никакого условия по типу сообщений. Далее, номер приемника определяется из того же массива случайных величин что и тип сообшения, хотя должно генерироваться новое случайное число для каждого идентифицированного типа сообщения (по крайней мере так реализовано во втором варианте). 0

@Арти7030 1 / 1 / 3 Регистрация: 27.12.2012 Сообщений: 192
	13.04.2014, 15:06 [ТС]	9
	olbond, select-case убран потому что мне надо использовать if-then-else. Как сделать чтобы номер приемника определялся из другого массива случайных чисел? 0

@olbond 143 / 133 / 42 Регистрация: 11.03.2013 Сообщений: 274
	14.04.2014, 06:16	10
	Убрав select-case надо добавить условие if-then-else иначе ничего не получиться (потому что для каждого сообщения - свой набор правил определения приемника). чтобы номер приемника определялся из другого массива случайных чисел - после определения типа сообщения, сгенирируйте случайное число (на каждом шаге по i) и используйте его для определения приемника. 0

@olbond 143 / 133 / 42 Регистрация: 11.03.2013 Сообщений: 274
	24.04.2014, 13:38	14
	По 3 пункту: ничего не могу сказать, непонятна задача. По 1 пункту: для генерации в диапазоне (1,30) можно использовать команду grand(1, 600, "unf", 1, 30), но возникает вопрос с правилами определения типа сообщения - они определены для диапазона (0,1)? По 2 пункту: почему бы для суммирования не использовать стандартную комманду sum? В строках 110 и 120 наверное надо использовать arrrandomVal(i) ? А так вроде все верно. 0

@Арти7030 1 / 1 / 3 Регистрация: 27.12.2012 Сообщений: 192
	24.04.2014, 14:32 [ТС]	15
	olbond, можно про команду grand, куда её вписать и что она даст? 0

@olbond 143 / 133 / 42 Регистрация: 11.03.2013 Сообщений: 274
	24.04.2014, 14:48	16
	Про команду grand() можно подробно посмотреть в справке SciLab, а вписать ее нужно там где необходим диапазон (1,30), Я полагаю randomValue = ... 0

@olbond 143 / 133 / 42 Регистрация: 11.03.2013 Сообщений: 274
	25.04.2014, 10:20	18
	Сообщение от Арти7030 Сделал, но scilab заявляет что в 95 строке "Деление на ноль" Ну это и не удивительно, Я ж намекнул что случайные числа у Вас теперь в диапазоне (1,30), а тип сообщений определяется из диапазона (0,1), и вообще должно выдавать ошибку "!--error 4 Undefined variable: messageType". В строках 8-16 нужно задать новые интервалы, в соответствии с диапазоном случайной переменной randomValue. 0

@olbond 143 / 133 / 42 Регистрация: 11.03.2013 Сообщений: 274
	25.04.2014, 17:30	20
	Если результат соответствует ожиданиям, значит так. 0

Поток сообщений.Одни нули

Решение