In[]:=
ClearAll["`*"];Remove["`*"];
In[]:=
Solve[{Λ-(
α
1
B+
β
1
D+(
α
2
+
β
2
)C+(
α
3
+
β
3
)P)S-((
η
1
D+
η
2
C+
η
4
S)B+(
η
3
C+
η
5
P)D)S-μS0,​​λ+(
α
1
B+
α
2
C+
α
3
P)S-(
ρ
1
D+
ρ
2
C+
ρ
3
P+μ+
μ
1
+
ϵ
1
)B0,​​(
β
1
D+
β
2
C+
β
3
P)S-(μ+
μ
1
)D0,​​(
η
1
DB+(
η
2
B+
η
3
D)C+(
η
4
B+
η
5
D)P)S-(μ+
μ
1
)C0,​​(
ρ
1
D+
ρ
2
C+
ρ
3
P)B-(μ+
μ
1
)P0,​​
ϵ
1
B-μR0},{S,B,D,C,P,R}]