b=μ-g;g=0.001037052μ=0.00616/12=0.544/12=0.0002476904=0.088256814=0.005026665=0.045262083=0=0.91924=0.456/12ρ=0.9384=0ω=0.080716l=lh=h
μ
1
η
1
η
2
β
1
β
2
γ
1
γ
2
γ
3
ρ
1
Clear[c]
In[]:=
NDSolve[{S'[t]b-(S[t]A[t]+S[t]C[t])-(μ+g)S[t],Y'[t]gS[t]-(Y[t]A[t]+Y[t]C[t])-μY[t],L'[t](S[t]+Y[t])A[t]+(S[t]+Y[t])C[t]-(μ++hρ)L[t],A'[t]hρL[t]+C[t]-(μ+)A[t]-(1-l)ωA[t],C'[t](1-l)ωA[t]-(μ+++)C[t],R'[t](1-h)L[t]+lA[t]+C[t]-μR[t],S[0]657824,Y[0]32331634,L[0]0,A[0]20143,C[t]1745,R[0]0},{S[t],Y[t],L[t],A[t],C[t],R[t]},{t,0,12}]
η
1
β
1
η
2
β
2
η
1
η
2
β
1
β
2
μ
1
ρ
1
γ
2
μ
1
ρ
1
γ
3
γ
1
γ
2
γ
3
Out[]=
NDSolve[{[t]-0.000523719-0.00155039S[t]-0.00024769A[t]S[t]-0.00502667S[t],[t]0.00103705S[t]-0.000513333Y[t]-0.0882568A[t]Y[t]-0.0452621Y[t],[t]-(0.0458467+0.9384h)L[t]+(0.00502667S[t]+0.0452621Y[t])+A[t](0.00024769S[t]+0.0882568Y[t]),[t]-0.919753A[t]-0.080716(1-l)A[t]+0.9384hL[t],[t]0.080716(1-l)A[t]-0.0838467,[t]0.91924lA[t]+0.038-0.000513333R[t],S[0]657824,Y[0]32331634,L[0]0,A[0]20143,1745,R[0]0},{S[t],Y[t],L[t],A[t],,R[t]},{t,0,12}]
′
S
t
′
Y
t
′
L
t
′
A
′
C
t
′
R
t
t
t
