Message Boards Message Boards

0
|
4186 Views
|
2 Replies
|
1 Total Likes
View groups...
Share
Share this post:

[?] Solve these equations with partial derivatives?

Posted 7 years ago

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?

POSTED BY: GUILHERME destro
2 Replies
Posted 7 years ago

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]
POSTED BY: Bill Simpson

what's wrong? I guess you not adhering to the forum rules: http://community.wolfram.com/groups/-/m/t/270507 ...

POSTED BY: Sander Huisman
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract