Here is the code
Solve[{Subscript[\[Tau]p, 1] == (-((3 a b
\!\(\*SubsuperscriptBox[\(c\), \(2\), \(2\)]\)
\!\(\*SubsuperscriptBox[\(c\), \(3\), \(2\)]\))/(-b Subscript[c, 1]
Subscript[c, 2] - b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2) - (
3 a Subscript[c, 1]
\!\(\*SubsuperscriptBox[\(c\), \(2\), \(2\)]\)
\!\(\*SubsuperscriptBox[\(c\), \(3\), \(2\)]\))/(-b Subscript[c, 1]
Subscript[c, 2] - b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 - (
a Subscript[c, 2] Subscript[c,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3]) + (((-1 - (
b Subscript[c, 2] Subscript[c,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3])) Subscript[e, 1])/Subscript[c, 1] - (
b Subscript[c, 3] Subscript[e,
2])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3]) - (
b Subscript[c, 2] Subscript[e,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3])) Subscript[\[Delta], 1] - (b^2 Subscript[c, 2]
\!\(\*SubsuperscriptBox[\(c\), \(3\), \(2\)]\) Subscript[\[Tau]p,
2])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 - (
b Subscript[c, 1] Subscript[c, 2]
\!\(\*SubsuperscriptBox[\(c\), \(3\), \(2\)]\) Subscript[\[Tau]p,
2])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 - (b^2
\!\(\*SubsuperscriptBox[\(c\), \(2\), \(2\)]\) Subscript[c, 3]
Subscript[\[Tau]p,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 - (
b Subscript[c, 1]
\!\(\*SubsuperscriptBox[\(c\), \(2\), \(2\)]\) Subscript[c, 3]
Subscript[\[Tau]p,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2)/((b
\!\(\*SubsuperscriptBox[\(c\), \(2\), \(2\)]\)
\!\(\*SubsuperscriptBox[\(c\), \(3\), \(2\)]\))/(-b Subscript[c, 1]
Subscript[c, 2] - b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 + (b^2
\!\(\*SubsuperscriptBox[\(c\), \(2\), \(2\)]\)
\!\(\*SubsuperscriptBox[\(c\), \(3\), \(2\)]\))/(
Subscript[c,
1] (-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2) + (
b Subscript[c, 2] Subscript[c, 3])/(
Subscript[c,
1] (-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3])) + (-1 - (
b Subscript[c, 2] Subscript[c,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3]))/
Subscript[c, 1]) /. {Subscript[c, 1] -> 1.7,
Subscript[c, 2] -> 8.1, Subscript[c, 3] -> 4.3,
Subscript[e, 1] -> 0.3852, Subscript[e, 2] -> 0.26388,
Subscript[e, 3] -> 0.20196, Subscript[\[Delta], 1] -> 5 %,
Subscript[\[Delta], 2] -> 1.5 %, Subscript[\[Delta], 3] -> 0.5 %,
a -> 1, b -> 0.5},
Subscript[\[Tau]p, 2] == (-((3 a b
\!\(\*SubsuperscriptBox[\(c\), \(1\), \(2\)]\)
\!\(\*SubsuperscriptBox[\(c\), \(3\), \(2\)]\))/(-b Subscript[c, 1]
Subscript[c, 2] - b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2) - (3 a
\!\(\*SubsuperscriptBox[\(c\), \(1\), \(2\)]\) Subscript[c, 2]
\!\(\*SubsuperscriptBox[\(c\), \(3\), \(2\)]\))/(-b Subscript[c, 1]
Subscript[c, 2] - b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 - (
a Subscript[c, 1] Subscript[c,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3]) + (-((
b Subscript[c, 3] Subscript[e,
1])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3])) + ((-1 - (
b Subscript[c, 1] Subscript[c,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3])) Subscript[e, 2])/Subscript[c, 2] - (
b Subscript[c, 1] Subscript[e,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3])) Subscript[\[Delta], 2] - (b^2 Subscript[c, 1]
\!\(\*SubsuperscriptBox[\(c\), \(3\), \(2\)]\) Subscript[\[Tau]p,
1])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 - (
b Subscript[c, 1] Subscript[c, 2]
\!\(\*SubsuperscriptBox[\(c\), \(3\), \(2\)]\) Subscript[\[Tau]p,
1])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 - (b^2
\!\(\*SubsuperscriptBox[\(c\), \(1\), \(2\)]\) Subscript[c, 3]
Subscript[\[Tau]p,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 - (b
\!\(\*SubsuperscriptBox[\(c\), \(1\), \(2\)]\) Subscript[c, 2]
Subscript[c, 3] Subscript[\[Tau]p,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2)/((b
\!\(\*SubsuperscriptBox[\(c\), \(1\), \(2\)]\)
\!\(\*SubsuperscriptBox[\(c\), \(3\), \(2\)]\))/(-b Subscript[c, 1]
Subscript[c, 2] - b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 + (b^2
\!\(\*SubsuperscriptBox[\(c\), \(1\), \(2\)]\)
\!\(\*SubsuperscriptBox[\(c\), \(3\), \(2\)]\))/(
Subscript[c,
2] (-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2) + (
b Subscript[c, 1] Subscript[c, 3])/(
Subscript[c,
2] (-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3])) + (-1 - (
b Subscript[c, 1] Subscript[c,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3]))/
Subscript[c, 2]) /. {Subscript[c, 1] -> 1.7,
Subscript[c, 2] -> 8.1, Subscript[c, 3] -> 4.3,
Subscript[e, 1] -> 0.3852, Subscript[e, 2] -> 0.26388,
Subscript[e, 3] -> 0.20196, Subscript[\[Delta], 1] -> 5 %,
Subscript[\[Delta], 2] -> 1.5 %, Subscript[\[Delta], 3] -> 0.5 %,
a -> 1, b -> 0.5},
Subscript[\[Tau]p, 3] == (-((3 a b
\!\(\*SubsuperscriptBox[\(c\), \(1\), \(2\)]\)
\!\(\*SubsuperscriptBox[\(c\), \(2\), \(2\)]\))/(-b Subscript[c, 1]
Subscript[c, 2] - b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2) - (3 a
\!\(\*SubsuperscriptBox[\(c\), \(1\), \(2\)]\)
\!\(\*SubsuperscriptBox[\(c\), \(2\), \(2\)]\) Subscript[c,
3])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 - (
a Subscript[c, 1] Subscript[c,
2])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3]) + (-((
b Subscript[c, 2] Subscript[e,
1])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])) - (
b Subscript[c, 1] Subscript[e,
2])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3]) + ((-1 - (
b Subscript[c, 1] Subscript[c,
2])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3])) Subscript[e, 3])/Subscript[c,
3]) Subscript[\[Delta], 3] - (b^2 Subscript[c, 1]
\!\(\*SubsuperscriptBox[\(c\), \(2\), \(2\)]\) Subscript[\[Tau]p,
1])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 - (
b Subscript[c, 1]
\!\(\*SubsuperscriptBox[\(c\), \(2\), \(2\)]\) Subscript[c, 3]
Subscript[\[Tau]p,
1])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 - (b^2
\!\(\*SubsuperscriptBox[\(c\), \(1\), \(2\)]\) Subscript[c, 2]
Subscript[\[Tau]p,
2])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 - (b
\!\(\*SubsuperscriptBox[\(c\), \(1\), \(2\)]\) Subscript[c, 2]
Subscript[c, 3] Subscript[\[Tau]p,
2])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2)/((b
\!\(\*SubsuperscriptBox[\(c\), \(1\), \(2\)]\)
\!\(\*SubsuperscriptBox[\(c\), \(2\), \(2\)]\))/(-b Subscript[c, 1]
Subscript[c, 2] - b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2 + (b^2
\!\(\*SubsuperscriptBox[\(c\), \(1\), \(2\)]\)
\!\(\*SubsuperscriptBox[\(c\), \(2\), \(2\)]\))/(
Subscript[c,
3] (-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3])^2) + (
b Subscript[c, 1] Subscript[c, 2])/(
Subscript[c,
3] (-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c,
3])) + (-1 - (
b Subscript[c, 1] Subscript[c,
2])/(-b Subscript[c, 1] Subscript[c, 2] -
b Subscript[c, 1] Subscript[c, 3] -
b Subscript[c, 2] Subscript[c, 3] -
3 Subscript[c, 1] Subscript[c, 2] Subscript[c, 3]))/
Subscript[c, 3]) /. {Subscript[c, 1] -> 1.7,
Subscript[c, 2] -> 8.1, Subscript[c, 3] -> 4.3,
Subscript[e, 1] -> 0.3852, Subscript[e, 2] -> 0.26388,
Subscript[e, 3] -> 0.20196, Subscript[\[Delta], 1] -> 5 %,
Subscript[\[Delta], 2] -> 1.5 %, Subscript[\[Delta], 3] -> 0.5 %,
a -> 1, b -> 0.5}}, {Subscript[\[Tau]p, 1], Subscript[\[Tau]p,
2], Subscript[\[Tau]p, 3]}]