\begin{align} \setCounter{0} f(x)&=x^3-2=(x-\alpha)(x-\beta)(x-\gamma)\\ v&=\alpha+2 \cdot \beta+3 \cdot \gamma \\ \notag \\ f(x)&=(x-\alpha)(x^2+\alpha x+\alpha^2)+(\alpha^3-2) \notag \\ &=(x-\alpha)q_1(x)+r_1\\ \notag \\ q_1(x)&=(x-\beta)( x+\alpha+\beta )+(\beta^2+\alpha \beta +\alpha^2) \notag \\ &=(x-\beta)q_2(x)+r_2\\ \notag \\ q_2(x)&=(x-\gamma) \cdot 1+(\alpha+\beta+\gamma) \notag \\ &=(x-\gamma)q_3(x)+r_3\\ \end{align}
\begin{align} &\left\{ \begin{array}{l} f(\alpha)=0 \quad &\Rightarrow \quad r_1=\alpha^3-2=0\\ q_1(\beta)=0 \quad &\Rightarrow \quad r_2=\beta^2+\alpha \beta +\alpha^2=0\\ q_2(\gamma)=0 \quad &\Rightarrow \quad r_3=\alpha+\beta+\gamma=0\\ eq(2) \quad &\Rightarrow \quad r_4=v-(\alpha+2\beta+3\gamma)=0\\ \end{array} \right. \\ \end{align}
\begin{align} &s_1:resultant(r_4,r_3,\gamma); \quad s_1=-\beta -2 \alpha -v=0 \notag \\ & \qquad \qquad \Downarrow \notag \\ &s_2:resultant(s_1,r_2,\beta); \quad s_2=3 {{\alpha }^{2}}+3 v \alpha +{{v}^{2}}=0 \notag \\ & \qquad \qquad \Downarrow \notag \\ &s_3:resultant(s_2,r_1,\alpha); \quad s_3={{v}^{6}}+180=0 \\ \notag \\ &V(x) \equiv x^6+180 :irreducible \ polynomial \ on \ Q \\ \end{align}
\begin{align} g_0(x) \equiv V(x) \ : \ minimal \ polynomial \ of \ v \\ \end{align}
\begin{align} &factor(f(x),g_0(v)); \ \rightarrow \ f(x)=\frac{\left( 18 x-{{v}^{4}}\right) \, \left( 36 x+{{v}^{4}}-18 v\right) \, \left( 36 x+{{v}^{4}}+18 v\right) }{23328} \\ \notag \\ &x_1=-\frac{v^4+18v}{36}, \quad x_2=-\frac{v^4-18v}{36}, \quad x_3=\frac{v^4}{18} \\ \end{align}
\begin{align} \alpha=x_1=-\frac{v^4+18v}{36}, \quad \beta=x_3=\frac{v^4}{18}, \quad \gamma=x_2=-\frac{v^4-18v}{36} \\ \end{align}
\begin{align} &\left\{ \begin{array}{l} &v_1=v & &v_2=\frac{{{v}^{4}}}{12}+\frac{v}{2} & &v_3=-\frac{{{v}^{4}}}{12}+\frac{v}{2} \\ &v_4=-\frac{{{v}^{4}}}{12}-\frac{v}{2} & &v_5=\frac{{{v}^{4}}}{12}-\frac{v}{2} & &v_6=-v \\ \end{array} \right. \\ \end{align}
\begin{align} \notag \\ &g_0(v_1)=g_0(v_2)=g_0(v_3)=g_0(v_4)=g_0(v_5)=g_0(v_6)=0\\ \end{align}
Profile
Name:scruta Daily life:mowing
Revision history
1st upload: 2023/06/17
revision2 : 2023/07/27
maxima programs
もしご興味があれば、下記のページよりダウンロード出来ます。
但し、何の工夫もないプログラムです。
download pageへ
Mail
もしご意見があれば下記のメールアドレスにe-mailでお送り下さい
(なおスパムメール対策のために、メールアドレスを画像表示しています)