Экономико-математическая оценка эффективности открытия страховой компании — страница 3

  • Просмотров 163
  • Скачиваний 12
  • Размер файла 129
    Кб

сложившейся обстановки, и приступить к реализации нашей модели. Приложение Тексты программ: Kur1.m k = menu('Данные на 2007 год. Примерное количество аварий в год. Выберите город: ','Москва: 20% приобретающих полис ',' Санкт - Петербург : 17% приобретающих полис ','Самара: 15% приобретающих полис') if k==1; lambda=0.2; else if k==2; lambda=0.17; else lambda=0.15; end end q= menu('Количество средст для открытия страховой компании 3000 ','Есть в наличии','Нужно взять заем') if q==1; w=0; kred_let=0;

procent=0; ssuda=0; god=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:1 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; for vi= 1:10 polus=4; viplata=polus*vi; 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 SS(m)<=0 viplata=polus*(vi-1); plus= polus/viplata pause end end end end Kyr2.m k = menu('Данные на 2007 год. Примерное количество аварий в год. Выберите город: ','Москва: 20% приобретающих полис ',' Санкт - Петербург : 17% приобретающих полис ','Самара: 15% приобретающих полис') if k==1; lambda=0.2; else if k==2; lambda=0.17; else lambda=0.15; end end q= 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