\begin{align} \setCounter{33} (step.1) \quad &f(x)=x^3-3x+1=(x-\alpha)(x-\beta)(x-\gamma) \qquad g(v)=v^3-9v-9 \\ &\notag \\ (step.2) \quad &Res(f(x+v),g(v),v)=R(x) \notag \\ & \qquad =-(x^3-21x+37)(x^3-12x-8)(x^3-3x+1)\\ \notag \\ (step.3) \quad &R(x)=-R_1(x) \cdot R_2(x) \cdot R_3(x) \notag \\ \notag \\ & R_1(x)=x^3-21x+37, \quad R_2(x)=x^3-12x-8, \quad R_3(x)=x^3-3x+1\\ \end{align}
\begin{align} &\left\{ \begin{array}{l} R_1(x)=\bbox[#FFFF00]{ H_1=(x+v_1-\alpha)(x+v_4-\beta)(x+v_5-\gamma)}\\ R_2(x)=\bbox[#7FFF00]{ H_2=(x+v_1-\beta)(x+v_4-\gamma)(x+v_5-\alpha)}\\ R_3(x)=\bbox[#00FFFF]{ H_3=(x+v_1-\gamma)(x+v_4-\alpha)(x+v_5-\beta)} \end{array} \right. \\ \notag \\ &f(x+v)=\bbox[#FFFF00]{ (x+v-\alpha) }\bbox[#7FFF00]{(x+v-\beta)}\bbox[#00FFFF]{(x+v-\gamma)} \\ \notag \\ &\left\{ \begin{array}{l} f_1(x)=GCD(R_1(x),f(x+v))=GCD(H_1,f(x+v))=\bbox[#FFFF00]{(x+v-\alpha)}\\ f_2(x)=GCD(R_2(x),f(x+v))=GCD(H_2,f(x+v))=\bbox[#7FFF00]{(x+v-\beta)}\\ f_3(x)=GCD(R_3(x),f(x+v))=GCD(H_3,f(x+v))=\bbox[#00FFFF]{(x+v-\gamma)} \end{array} \right. \\ \end{align}
\begin{align} &(step.4-0) \notag \\ \notag \\ &r_0=R_1={{x}^{3}}-21 x+17 \\ &r_1=f(x+v)=(x+v)^3-3(x+v)-1={{x}^{3}}+3 v {{x}^{2}}+3 {{v}^{2}} x-3 x+{{v}^{3}}-3 v-1 \notag \\ &\qquad \qquad \qquad ={{x}^{3}}+3 v {{x}^{2}}+3 {{v}^{2}} x-3 x+6 v+10 \quad ( \ mod \ g(v) \ )\\ \notag \\ &(step.4-1) \ Euclidean Algorithm \notag \\ \notag \\ &\begin{pmatrix} r_0\\r_1 \end{pmatrix} = \begin{pmatrix} q_1 & c_2 \\ 1 & 0 \end{pmatrix} \begin{pmatrix} r_1\\r_2 \end{pmatrix} \qquad Q_1= \begin{pmatrix} q_1 & c_2 \\ 1 & 0 \end{pmatrix} \qquad Q_1^{-1}=\frac{1}{c_2}\cdot \begin{pmatrix} 0 & c_2 \\ 1 & -q_1 \end{pmatrix} \\ \notag \\ &q_1=1 \qquad r_2={{x}^{2}}+\frac{2 {{v}^{2}} x}{3}+v x-6 x-{{v}^{2}}+11 \\ &c_2=-3v \qquad \frac{1}{c_2}=ic_2=\frac{1}{3}-\frac{{{v}^{2}}}{27} \qquad c_2\cdot ic_2=1 \quad ( \ mod \ g(v) \ ) \notag \\ \notag \\ &(step.4-2) \ Euclidean Algorithm \notag \\ \notag \\ &\begin{pmatrix} r_1\\r_2 \end{pmatrix} = \begin{pmatrix} q_2 & c_3 \\ 1 & 0 \end{pmatrix} \begin{pmatrix} r_2\\r_3 \end{pmatrix} \qquad Q_2= \begin{pmatrix} q_2 & c_3 \\ 1 & 0 \end{pmatrix} \qquad Q_2^{-1}=\frac{1}{c_3} \cdot \begin{pmatrix} 0 & c_3 \\ 1 & -q_2 \end{pmatrix} \\ \notag \\ &q_2=x-\frac{2 {{v}^{2}}}{3}+2 v+6 \qquad \bbox[#FFFF00]{r_3=x+\frac{{{v}^{2}}}{3}+v-2} \\ &c_3=-2 {{v}^{2}}+4 v+16 \qquad \frac{1}{c_3}=ic_3=-\frac{3 {{v}^{2}}}{38}+\frac{7 v}{38}+\frac{17}{38} \qquad c_3\cdot ic_3=1 \quad ( \ mod \ g(v) \ ) \notag \\ \notag \\ &(step.4-3) \ Euclidean Algorithm \notag \\ \notag \\ &\begin{pmatrix} r_2\\r_3 \end{pmatrix} = \begin{pmatrix} q_3 & c_4 \\ 1 & 0 \end{pmatrix} \begin{pmatrix} r_3\\r_4 \end{pmatrix} \qquad Q_3= \begin{pmatrix} q_3 & c_4 \\ 1 & 0 \end{pmatrix} \qquad Q_3^{-1}=\frac{1}{c_4} \cdot \begin{pmatrix} 0 & c_4 \\ 1 & -q_3 \end{pmatrix} \\ \notag \\ &q_3=x+\frac{{{v}^{2}}}{3}-4 \qquad r_4=0 \\ &c_4=1 \qquad \frac{1}{c_4}=ic_4=1 \qquad c_4\cdot ic_4=1 \quad ( \ mod \ g(v) \ ) \notag \\ \end{align}
\begin{align} &\left\{ \begin{array}{l} \quad f_1(x)=GCD(R_1(x),f(x+v))=\bbox[#FFFF00]{ r_3=x+\frac{{{v}^{2}}}{3}+v-2}\\ \quad f_2(x)=GCD(R_2(x),f(x+v))=\bbox[#7FFF00]{ x-\frac{2 {{v}^{2}}}{3}+2 v+4 }\\ \quad f_3(x)=GCD(R_3(x),f(x+v))=\bbox[#00FFFF]{x+\frac{{{v}^{2}}}{3}-2 } \end{array} \right. \\ \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でお送り下さい
(なおスパムメール対策のために、メールアドレスを画像表示しています)