aa79d79f-3b2f-4ca8-b20f-137c0e8ca024 35 Reg Curry 8 5 false false false 0 0 decimal

&[DATE] &[TIME] - &[FILENAME]

γ 114 / :

β R.o γ * :

Nus 330106^* : 3.30 108^*

R.o 6.903069347 :

δt 110 / :

S 1 el Nus I 1 el - :

R 1 el 0 :

I 1 el 15 :

COUPLED ODEs BEING SOLVED

lastj 1000 :

FINITE DIFFERENCE

Ans1 j 2 lastj range S j el S j 1 - el β I j 1 - el * S j 1 - el * Nus / δt * - : R j el R j 1 - el γ I j 1 - el * δt * + : I j el Nus R j el - S j el - : 31 line for s 1 el S 1 el : r 1 el R 1 el : i 1 el I 1 el : k 2100 range p k 1 - (10 * : s k el S p el : r k el R p el : i k el I p el : 41 line for s r i 31 mat 61 line :

S Ans1 1 el :

I Ans1 3 el :

R Ans1 2 el :

S rows 100

RUNGE KUTTA ODE SOLVER

Days 1100 range :

RK t S t I t R 3 1 sys 100 100 Rkadapt :

Data Days I augment :

t S' β t I * t S * Nus / - ≡

0 S Nus 15 - ≡

Data2 Days R augment :

Data3 Days S augment :

t R' γ t I * ≡

0 R 0 ≡

S.RK RK 2 col :

t I' β t I * t S * Nus / γ t I * - ≡

I.RK RK 3 col :

0 I 15 ≡

R.RK RK 4 col :

SRK RK 2 col :

IRK RK 3 col :

RK rows 101

RRK RK 4 col :

S.RK RK 1 col SRK augment :

I.RK RK 1 col IRK augment :

R.RK RK 1 col RRK augment :

Plot Data Data2 Data3 I.RK R.RK S.RK 61 sys :

Plot

FD REMOVED AT 70 DAYS =
\[REGION[87c505ca33714b5ca15004294beed2e4]]\

Data2 712 el 2.84984026 108^*

FD INFECTIONS AT 52 DAYS =
\[REGION[87c505ca33714b5ca15004294beed2e4]]\

Data 532 el 1.49458416 108^*

CASES.FD Days I R + augment :

CASES.RK RK 1 col IRK RRK + augment :

Plot2 CASES.FD CASES.RK 21 sys :

Plot2