今日から中学入試問題（算数）をmathematicaで解く方法を紹介します。
この問題を特にあたって必要なmathematicaの関数 solve関数
今回の問題
１から９までの数が書かれているカードがたくさんあります。３枚のカードを引き、そのカードに書かれた数をA,B,Cとします。A+B+Cの組み合わせを答えなさい。
$$\frac{1}{A}+\frac{2}{B}+\frac{3}{C}=1$$
(2013年度 慶應義塾中等部改題）
コードの答え、解説
＜コードの答え＞（これは一例です）
Solve[1<={a,b,c}<=9 && 1/a + 2/b + 3/c == 1,{a,b,c}, Integers]
よって、 答えは5個
<コードの解説>
このようにして解くことができます。
コメント