SIR

Suscettibili S(0)=

Infetti I(0)=

Rimossi R(0)=

\left\{ \begin{array}{l} S'(t)=-a\,S(t)\,I(t) \
I'(t)=a\,S(t)\,I(t)-b\,I(t)\
R'(t)=b\,I(t)
\end{array}
\right.

Modello SIR

a = 0.049 (slider from 0.001 to 0.1, step 1.0E-4)
b = 0.2 (slider from 0 to 0.5)
S'(t, S, I, R) = (((-a) * I) * S)
I'(t, S, I, R) = ((a * I) * S) - (b * I)
R'(t, S, I, R) = (b * I)
soglia = Ray((0, b / a), (1, b / a))
S_{0} = 99 (slider from 0 to 1000)
CampoInserimento1 = Textfield(S_{0})
I_{0} = 1 (slider from 0 to 1000)
CampoInserimento2 = Textfield(I_{0})
R_{0} = 0 (slider from 0 to 1000)
CampoInserimento3 = Textfield(R_{0})
S, I, R = NSolveODE({S', I', R'}, 0, {S_{0}, I_{0}, R_{0}}, 50)
testo6: "soglia:=\frac b a=" + (LaTeX[b / a]) + ""