| ■No28232に返信(カズさんの記事) > (1)sinθcosθ > sinθ+cosθ=1/2
>(2)が類題も見つからず全く分かりません。
In[1]:= Solve[{c^2 + s^2 == 1^2, s + c == 1/2}, {c, s}]
Out[1]= {{c -> 1/2*(1/2 - Sqrt[7]/2), s -> 1/4*(1 + Sqrt[7])}, {c -> 1/4*(1 + Sqrt[7]), s -> 1/4*(1 - Sqrt[7])}}
In[2]:= Expand[s*c /. {c -> 1/2*(1/2 - Sqrt[7]/2), s -> 1/4*(1 + Sqrt[7])}]
Out[2]= -(3/8)
In[3]:= FullSimplify[c/s + s/c /. {c -> 1/2*(1/2 - Sqrt[7]/2), s -> 1/4*(1 + Sqrt[7])}]
Out[3]= -(8/3)
In[4]:= FullSimplify[1/(s*c) /. {c -> 1/2*(1/2 - Sqrt[7]/2), s -> 1/4*(1 + Sqrt[7])}]
Out[4]= -(8/3) (美意識 対称性より 片割れ で OK)
|