カルメンマキ

(* 転がっている　問題 FAQ ； 2/(1 + Sqrt[2] + Sqrt[3]) の分母を有理化しなさい; [時には　(分母に)無理数がない　娘　のように] 　　　　多様な発想がありますが..... ●共軛●　を前面に明記した方法を↓に記します;*) 1 + Sqrt[2] + Sqrt[3] MinimalPolynomial[%, x] Factor[%, Extension -> {%%}] s = Solve[% == 0, x] pro = Product[x /. sk, {k, 1, 4 - 1}] 1 + Sqrt[2] + Sqrt[3] Sitaisiki = 2/% {(Numerator[%])*(pro), *1} % // FullSimplify %1/%2 Sitaisiki == % // FullSimplify Tenmatu = %% // TraditionalForm N[{Sitaisiki, %}, 69] 　 https://userdisk.webry.biglobe.ne.jp/020/691/47/N000/000/000/127988895240716210305_index_gr_1_20100723214232.gif

*1:Denominator[%])*(pro