%define baseline vaccination rates for each age group
%a vaccination rate of 100.000 people every day corresponds to 0.002
%(100.000/day/50.000.000)
vacc(1) = 0.007;%gap between shots [days] for Age 0 - 20
vacc(2) = 0.001;%gap between shots [days] for Age 20 - 40
vacc(3) = 0.001;%gap between shots [days] for Age 40 - 60
vacc(4) = 0.001;%gap between shots [days] for Age 60 - 70
vacc(5) = 0.001;%gap between shots [days] for Age 70+
%Based on the chosen distance between shots for each age group and their base line vaccination rate
% here we show the relation between these variabkes . (note that a shortage in distance between
% shots dimishes vaccines avalible for first shot as well)
%assume that V1f1 is the proportion of people in the 1st shot box that will
%get the 2nd shot, therefor the change in vaccination rate for every day
%that differs from the 21 expected is given by:
V1f1 = 0.01*0.5;%because V1 is a variable this rate changes continously in time.
vaccrates = vacc + (dist-21)*V1f1;
plot(d,0.001 + (d-21)*V1f1)
title('Change in vaccination rate as the distance bewteen first and second shot changes')
ylabel('vaccination rate [%/day]')
t_span = 90; %time span for simulation
[T,Y] = run_model(IC,P,t_span);
figure%people in Vaccin1 and 2 groups
pl1 = plot(T,Y(:,4),'b',T,Y(:,15),'g',T,Y(:,26),'m',T,Y(:,37),'k',T,Y(:,48),'r',...
T,Y(:,10),':b',T,Y(:,21),':g',T,Y(:,32),':m',T,Y(:,43),':k',T,Y(:,54),':r');
legend('0-20','20-40','40-60','60-70','70+','0-20-v','20-40-v','40-60-v','60-70-v','70+-v')
title('Proportion of inmmunized population')
pl2 = plot(T,Y(:,3),'b',T,Y(:,14),'g',T,Y(:,25),'m',T,Y(:,36),'k',T,Y(:,47),'r',...
T,Y(:,9),':b',T,Y(:,20),':g',T,Y(:,31),':m',T,Y(:,42),':k',T,Y(:,53),':r');
legend('0-20','20-40','40-60','60-70','70+','0-20-v','20-40-v','40-60-v','60-70-v','70+-v')
title('Hospitalizations')
pl3 = plot(T,Y(:,5),'b',T,Y(:,16),'g',T,Y(:,27),'m',T,Y(:,38),'k',T,Y(:,49),'r',...
T,Y(:,11),':b',T,Y(:,22),':g',T,Y(:,33),':m',T,Y(:,44),':k',T,Y(:,55),':r');
legend('0-20','20-40','40-60','60-70','70+','0-20-v','20-40-v','40-60-v','60-70-v','70+-v')