Hello everyone! I have this problem...
EQS = D[S[t], t] == -\[ScriptA]*S[t]*Inf[t]/\[ScriptCapitalN] - \[ScriptCapitalQ] EQI = D[Inf[t], t] == \[ScriptA]*S[t]* Inf[t]/\[ScriptCapitalN] - \[ScriptCapitalQ] - (\[Theta] + \ \[Alpha])*Inf[t] EQQ = D[Q[t], t] == \[Theta]*Inf[t] - \[Gamma]\[ScriptCapitalQ] EQR = D[R[t], t] == \[Alpha]*Inf[t] + \[Gamma]\[ScriptCapitalQ] CIS = S[t] == S0 /. t -> 0 CII = Inf[t] == Inf0 /. t -> 0 CIR = R[t] == R0 /. t -> 0 CIQ = S[t] == S0 /. t -> 0 \[ScriptCapitalN] = \[ScriptCapitalS] + \[ScriptCapitalI] + \ \[ScriptCapitalR] + \[ScriptCapitalQ]
What´s wrong?
It appears that Mathematica cannot find a closed form solution to your system.
EQS = D[S[t], t] == -a S[t] Inf[t]/n - q; EQI = D[Inf[t], t] == a S[t] Inf[t]/n - q - (? + ?)*Inf[t]; DSolve[{EQS, EQI}, {S[t], Inf[t]}, t]
what's wrong? I guess you not adhering to the forum rules: http://community.wolfram.com/groups/-/m/t/270507 ...