Pemudahijrah01

Ask a Question

Create a Post

5 Badges

Member for: 6 years, 112 days

Contact Pemudahijrah01

MaplePrimes Activity

These are questions asked by Pemudahijrah01

Stable system in predator prey...

Asked: Pemudahijrah01 25 Product: Maple

December 04 2024

1 0

Help me, I want to make this system be stable on graphs? How to make this system stable in plot?

This is my model:

dx/dt=\[Alpha]*
x[t]*(1 - (x[t]/n)) - ((\[Beta]*x[t]*
y[t])/(1 + (\[CapitalTau]*\[Beta]*x[t]))) - (x[
t]*\[CapitalEpsilon]);
dy/dt=y'[t] == -\[Gamma]*y[t];

How to make a plot, because I have an Er...

Asked: Pemudahijrah01 25 Product: Maple 2020

March 16 2024

1 4

Please, Help me to fix this error..

Parse:-ConvertTo1D, "first argument to _Inert_ASSIGN must be assignable"

Error, illegal use of an object as a name

$"#` Mendefinisikan model diferensial` model := {diff(S(t), t) = mu + delta*R(t) - (eta + mu)*S(t) - beta*N(t)*S(t)*(E(t) + I(t)), diff(E(t), t) = beta*N(t)*S(t)*(E(t) + I(t)) - (mu + Pi + gamma)*E(t), diff(I(t), t) = Pi*E(t) - (mu + sigma)*I(t), diff(Q(t), t) = gamma*E(t) + sigma*I(t) - (mu + theta)*Q(t), diff(R(t), t) = theta*Q(t) + xi*V(t) - (mu + delta)*R(t), diff(V(t), t) = eta*S(t) - (mu + xi)*V(t)}; #` Menentukan parameter` mu := 1.7*10^(-4); beta := 3.8*10^(-5); Pi := 0.196; gamma := 0.07143; sigma := 0.0054; theta := 0.0025; delta := 0.0667; eta := 0.62; xi := 0.266; #` Nilai awal` S0 = 0.01957 E0 = 0.00025 I0 = 0.00258 Q0 = 0.00021 R0 = 0.00219 V0 = 0 #` Jumlah populasi total` N0 := S0 + E0 + I0 + Q0 + R0 + V0; #` Simulasi model` sol := dsolve({model, S(0) = S0, E(0) = E0, I(0) = I0, Q(0) = Q0, R(0) = R0, V(0) = V0}, {S(t), E(t), I(t), Q(t), R(t), V(t)}, numeric); #` Menggambar grafik` with(plots): p1 := odeplot(sol, [t, S(t)], t = 0 .. 100, color = red, linestyle = solid, thickness = 2, axes = boxed, label = "Rentan (S)"); p2 := odeplot(sol, [t, E(t)], t = 0 .. 100, color = blue, linestyle = solid, thickness = 2, axes = boxed, label = "Terpapar (E)"); p3 := odeplot(sol, [t, I(t)], t = 0 .. 100, color = green, linestyle = solid, thickness = 2, axes = boxed, label = "Terinfeksi (I)"); p4 := odeplot(sol, [t, Q(t)], t = 0 .. 100, color = purple, linestyle = solid, thickness = 2, axes = boxed, label = "Karantina (Q)"); p5 := odeplot(sol, [t, R(t)], t = 0 .. 100, color = orange, linestyle = solid, thickness = 2, axes = boxed, label = "Sembuh (R)"); p6 := odeplot(sol, [t, V(t)], t = 0 .. 100, color = brown, linestyle = solid, thickness = 2, axes = boxed, label = "Vaksin (V)"); display(p1, p2, p3, p4, p5, p6); "$