= menu ('Кількість средст для відкриття страхової компанії 3000 ',' Є в наявності ',' Треба взяти позику ')
if q == 1;
w = 0;
kred_let = 0;
procent = 0;
ssuda = 0;
else
e = menu ('Сума необхідного кредиту составляемт 3000 едениц, термін погашення: ', '3 року процентна ставка 10%', '4 року процентна ставка 13% ', '5 років процентна ставка 16%')
if e == 1;
kred_let = 3;
procent = 0.1;
else if e == 2;
kred_let = 4;
procent = 0.13;
else kred_let = 5;
procent = 0.16;
end
end
end
% колічесво людей які придбали поліс
molodoi = 0;
sostagem = 0;
for i = 1:3
kol_lud = 1000 * i;
% Генеруємо вік клієнтів
age = round (18 +60 * rand (1, kol_lud));
% Знаходимо колічство аврал залежно від віку
for j = 1: kol_lud
if (age (j)> = 18) && (age (j) <= 24)
molodoi = molodoi +1;
lam_m = lambda +0.015;
else
sostagem = sostagem +1;
lam_n = lambda-0.015;
end
end
% Дані за програмою
let = 100;
polus = 4;
viplata = 20;
ssuda = 3000;
%%%%
% Дохід з продажу полюсів
pr = (molodoi * polus * 1.3) + (sostagem * polus)
% Розподіл Пуассона
x = poissrnd (lam_m * molodoi, 1, let);
y = poissrnd (lam_n * sostagem, 1, let);
% Даход в первий рік
SS (1) = 500;
% Даход за н років
for m = 2: let;
god = (ssuda/kred_let) + ((ssuda/kred_let) * procent);
pl_kr = god * ones (1, let);
pl_kr (kred_let +1: let) = 0;
S (m) = pr-x (m) * viplata-y (m) * viplata-pl_kr (m);
SS (m) = SS (m-1) + S (m);
if m == 10
figure
subplot (1,4,1)
plot (SS (1:10), 'k')
grid;
xlabel ('let');
ylabel ('Dengi');
end
if m == 25
subplot (1,4,2)
plot (SS (1:25), 'r')
grid;
xlabel ('let');
ylabel ('Dengi');
end
if m == 50
title ('Grafiki pribili kompanii za sootvetstvyuwi period vremeni ');
subplot (1,4,3)
plot (SS (1:50), 'm')
grid;
xlabel ('let');
ylabel ('Dengi');
end
end
subplot (1,4,4)
plot (SS, 'g')
grid;
xlabel ('let');
ylabel ('Dengi');
end
%%%% Діаграма розподілу водіїв щодо стажу
l = [molodoi, sostagem];
m = [0,1];
figure
pie (l, m)
title ('Deagrama raspredelenia voditeley otnositelno vozrasta ');
legend ('Molodix voditeleu', 'Voditeli sstagem ');
clc
clear
В
