[?] Solve these equations with partial derivatives?

Questions
,
1

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?

2

what’s wrong? I guess you not adhering to the forum rules: READ FIRST: How to post and use Wolfram Community …

3

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]