49 lines
2.2 KiB
Matlab
49 lines
2.2 KiB
Matlab
% Программа генерации случайного сообщения в алфавите, содержащем не более 36 символов: 0, ..., 9, A, ..., Z.
|
||
% Автор: Кирилл Владимирович Пушкарёв.
|
||
% Дата: 26 октября 2019 г.
|
||
% Версия: 0.2
|
||
% Параметры:
|
||
% p - вектор, содержащий от 2 до 36 неотрицательных чисел.
|
||
% Вероятности символов алфавита.
|
||
% len - целое число.
|
||
% Длина сообщения.
|
||
function msg = gen_msg(p, len)
|
||
% Создаём вектор символов алфавита 0, ..., 9, A, ..., Z
|
||
alph = ['0':'9' 'A':'Z'];
|
||
% Если p не вектор, ошибка
|
||
if ~isvector(p)
|
||
error('p must be a vector')
|
||
end
|
||
% Если длина вектора p больше длины alph, ошибка
|
||
if length(p) > length(alph)
|
||
% Выводим сообщение об ошибке, подставляя в него целые числа (%d) — длины векторов
|
||
error('p is too long (%d > %d)', length(p), length(alph));
|
||
end
|
||
% Если длина вектора p меньше 2, ошибка
|
||
if length(p) < 2
|
||
error('p is too short (%d < 2)', length(p));
|
||
end
|
||
% Если длина не одно число, ошибка
|
||
if ~isscalar(len)
|
||
error('len must be a scalar')
|
||
end
|
||
% Если длина меньше 1, ошибка
|
||
if len < 1
|
||
error('len is too small (%d < 1)', len)
|
||
end
|
||
% Создаём пустую строку для записи сообщения
|
||
msg = '';
|
||
% Цикл по i от 1 до len
|
||
for i = 1:len
|
||
% Заносим случайно выбранный с заданными вероятностями символ в msg
|
||
msg(i) = alph(rand_discr(p));
|
||
end
|
||
end
|
||
|
||
% Функция генерации целого случайного числа i с вероятностью p(i).
|
||
% Параметры:
|
||
% p - вектор неотрицательных чисел, сумма элементов которого равна 1.
|
||
% Вероятности.
|
||
function r = rand_discr(p)
|
||
r = sum(cumsum(p) < rand()) + 1;
|
||
end
|