УТС 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);