Solve[{p1 + p2 + p3 + p4 + p5 + p6 == 1,
p1 + 2 p2 + 3 p3 + 4 p4 + 5 p5 + 6 p6 == 4.5,
a + b == 1 + Log[p1], a + 2 b == 1 + Log[p2],
a + 3 b == 1 + Log[p3], a + 4 b == 1 + Log[p4],
a + 5 b == 1 + Log[p5], a + 6 b == 1 + Log[p6]}, {p1, p2, p3, p4,
p5, p6, a, b}]
{{a -> 1. + 6. Log[p5] - 5. Log[p6], b -> -1. Log[p5] + Log[p6],
p4 -> p5^2.0000000000000000000000000000000/
p6^1.0000000000000000000000000000000,
p3 -> p5^3.0000000000000000000000000000000/
p6^2.0000000000000000000000000000000,
p2 -> 0.5 (7. - 8. p5 - (4. p5^3.0000000000000000000000000000000)/
p6^2.0000000000000000000000000000000 - (
6. p5^2.0000000000000000000000000000000)/
p6^1.0000000000000000000000000000000 - 10. p6),
p1 -> 0.5 (-5. + 6. p5 + (2. p5^3.0000000000000000000000000000000)/
p6^2.0000000000000000000000000000000 + (
4. p5^2.0000000000000000000000000000000)/
p6^1.0000000000000000000000000000000 + 8. p6)}}
不清楚原因
谢谢,我试试