Archivo:SIS System Graph.svg
Tamaño de esta previsualización PNG del archivo SVG: 799 × 600 píxeles. Otras resoluciones: 320 × 240 píxeles · 639 × 480 píxeles · 1023 × 768 píxeles · 1280 × 961 píxeles · 2560 × 1922 píxeles · 1136 × 853 píxeles.
Ver la imagen en su resolución original ((Imagen SVG, nominalmente 1136 × 853 pixels, tamaño de archivo: 165 kB))
Resumen
| Descripción |
English: Basic SIS system: dS/dt = -βIS/N + γI, dI/dt = βIS/N - γI
Initial Conditions: S(0) = 499, I(0) = 1 Parameters: β=0.001, γ=0.1, N=1, t∈[0,60], step size=0.5 |
| Fecha | |
| Fuente | File:Sissys.png |
| Autor | https://commons.wikimedia.org/wiki/User:Bye~commonswiki |
Graph generated from Mathematica
Clear[IC, a, b, h, i, m, n, f, NN, β, γ];
IC = {499, 1}; m = Length[IC];
a = 0; b = 60; h = 0.5;
NN = 1;
n = (b - a)/h;
β = 0.001; γ = 0.1;
f[1, t_, S_, I_] := -((β I S)/NN) + γ I;
f[2, t_, S_, I_] := (β I S)/NN - γ I;
Clear[t, k1, k2, k3, k4, w];
t[i_] := a + i*h;
For[i = 1, i <= m, i++, w[i, 0] = IC[[i]]];
k1[i_, j_] := h*(f @@ Flatten[{i, t[j - 1], Table[w[k, j - 1], {k, 1, m}]}]);
k2[i_, j_] := h*(f @@ Flatten[{i, t[j - 1] + h/2, Table[w[k, j - 1] + k1[k, j]/2, {k, 1, m}]}]);
k3[i_, j_] := h*(f @@ Flatten[{i, t[j - 1] + h/2, Table[w[k, j - 1] + k2[k, j]/2, {k, 1, m}]}]);
k4[i_, j_] := h*(f @@ Flatten[{i, t[j - 1] + h, Table[w[k, j - 1] + k3[k, j], {k, 1, m}]}]);
w[i_, j_] := w[i, j] = w[i, j - 1] + (k1[i, j] + 2*k2[i, j] + 2*k3[i, j] + k4[i, j])/6
t1 = Table[Table[{t[j], w[i, j]}, {j, 0, n}], {i, 1, m}](*//TableForm*);
DkYellow = RGBColor[.808, .808, .192];
Maroon = RGBColor[.5, 0, 0];
ListPlot[t1, PlotMarkers -> {Automatic, Scaled[0.01]}, PlotStyle -> {DkYellow, Maroon}, AspectRatio -> 420/560]
Licencia
 
|
Este archivo está disponible bajo la licencia Creative Commons Dedicación de Dominio Público CC0 1.0 Universal. |
| La persona que ha asociado una obra a este documento lo dedica al dominio público mediante la cesión mundial de sus derechos bajo la ley de derechos de autor y todos los derechos legales adyacentes propios de dicha, en el ámbito permitido por ley. Puedes copiar, modificar, distribuir y reproducir el trabajo, incluso con objetivos comerciales, sin pedir aprobación del autor.
|
Historial del archivo
Haz clic sobre una fecha y hora para ver el archivo tal como apareció en ese momento.
| Fecha y hora | Miniatura | Dimensiones | Usuario | Comentario | |
|---|---|---|---|---|---|
| actual | 06:03 1 abr 2020 | | 1136 × 853 (165 kB) | GregoryKaiser | Uploaded a work by https://commons.wikimedia.org/wiki/User:Bye~commonswiki from https://commons.wikimedia.org/wiki/File:Sissys.png with UploadWizard |
Usos del archivo
La siguiente página usa este archivo:
Uso global del archivo
Las wikis siguientes utilizan este archivo:
- Uso en en.wikipedia.org
- Uso en fa.wikipedia.org
- Uso en ja.wikipedia.org
