Post by rosy on Dec 21, 2021 12:28:35 GMT -6
The simulator shows the ratio of the number of unvaccinated to vaccinated among the deceased, assuming that the vaccine does not work.
"Dziabnieci" are vaccinated.
Population 30,000
One person dies a day
1st version - simulation of 300 days, 50 people vaccinated per day, at the beginning 0% vaccinated, at the end 50%:
2nd version: 150 days, 20 vaccinations a day, initial vaccination 50%, final vaccination 60%:
Simulator 2 doses in the Annex.
"Dziabnieci" are vaccinated.
Population 30,000
One person dies a day
1st version - simulation of 300 days, 50 people vaccinated per day, at the beginning 0% vaccinated, at the end 50%:
DO
Dim Szczep[30001]
zd=0
zn=300
nr=0
Dim a$
For r=1 to 30000
Szczep[r]=0
Next
For dzien=1 to 300
For osoba=1 to 20
Do
nr=Rand(30000)+1
Loop Until nr>dzien AND szczep[nr]<>1
If nr<=300 then
zd=zd+1
zn=zn-1
End If
szczep[nr]=1
Next
Print "Dzien ";dzien
Next
Print "Zgony:"
Print "Niedziabnieci ";zn
Print "Dziabnieci ";zd
Print zn/zd
a$=Input("Enter")
LOOP
2nd version: 150 days, 20 vaccinations a day, initial vaccination 50%, final vaccination 60%:
DO
Dim Szczep[30001]
zd=75
zn=75
nr=0
Dim a$
For r=1 to 30000 step 2
Szczep[r]=0
Szczep[r+1]=1
Next
For dzien=1 to 150
For osoba=1 to 20
Do
nr=Rand(30000)+1
Loop Until nr>dzien AND szczep[nr]=0
If nr<=150 then
zd=zd+1
zn=zn-1
End If
szczep[nr]=1
Next
Print "Dzien ";dzien
Next
zn=zn/12*15
zd=zd/18*15
Print "Zgony:"
Print "Niedziabnieci ";zn
Print "Dziabnieci ";zd
Print zn/zd
a$=Input("Enter")
LOOP
Simulator 2 doses in the Annex.
