УТС 6 семестр / ПР4 / lab_4

clear all,clc
L = 1.7; %% Интенсивность входного потока
M = 0.67+2; %% Интенсивность обслуживания
%% Функции экспоненциального распределения
x = 0 : 0.2 : 20;
F = 1 - exp(-L*x);
F2 = 1 - exp(-M*x);
%%% Запись в текстовый файл input.txt
fid = fopen('input.txt', 'w');
%% Для блока generate
fprintf(fid, 'puas function RN1,C50\r\n');
for J = 1 : length(x)
if J <= 50
if mod(J, 5)
fprintf(fid, '%g,%g/', F(J), x(J));

else
fprintf(fid, '\r\n');
fprintf(fid, '%g,%g/', F(J), x(J));
end
end
end
fprintf(fid, '\r\n;-----------------------------------\r\n');
%% Для блоков advance
fprintf(fid, '\r\nexpM function RN2,C50\r\n');
for J = 1 : length(x)
if J <= 50
if mod(J, 5)
fprintf(fid, '%g,%g/', F2(J), x(J));

else
fprintf(fid, '\r\n');
fprintf(fid, '%g,%g/', F2(J), x(J));
end
end
end

fclose(fid);