 | ■No28232に返信(カズさんの記事)
> (１)sinθcosθ
>
sinθ+cosθ=1/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)
|
