読者です 読者をやめる 読者になる 読者になる

1988年東大前期理科第6問

これも「Vがその四面体の体積となる」という論理式を,mma

RS = Reduce[
   Exists[{a, b, c}, 
    And[0 <= a, 0 <= b, 0 <= c, 
     0 <= S == a*b*c/(4*R), (a/(2*R))^2 + ((b^2 + c^2 - a^2)/(2*b*c))^2 == 1]], Reals]
Reduce[Exists[{S, R, d, x, y, z}, 
  And[RS, x^2 + y^2 + z^2 == 1, V == S*Abs[d - z]/3, d^2 + R^2 == 4^2]], Reals]

QEさせれば

0 <= V <= 9 Sqrt[3]

となります.