
% Parameter
p = 0.3;    % 3분 미만 통화량의 비율
n = 0.91;    % SKT 사용자간 통화량의 비율

t = 0:1000; % 총 통화시간

longtimecallsave = zeros(size(t));
tt = zeros(size(t));

for k=1:1001
    if t(k)*(1-p) <= 720
        longtimecallsave(k) = 15500 + 15000 + t(k)*p*6*9;
    else
        longtimecallsave(k) = 15500 + 15000 + t(k)*p*6*9 + (t(k)*(1-p)-720)*6*9;
    end
    
    tt(k) = 15500 + 2500 + t(k)*n*6*4.5 + t(k)*(1-n)*6*9;
    
end

plot(t,longtimecallsave,t,tt)