\begin{align} \setCounter{14} S_3/A_3=\Bigl[ \ \{\sigma_1,\sigma_4,\sigma_5\}, \quad \{\sigma_2,\sigma_3,\sigma_6\} \ \Bigr] \end{align}
\begin{align} &\left\{ \begin{array}{l} h_0=( x-v_1)( x-v_4)( x-v_5)=x^3-v^3\\ h_1=( x-v_2)( x-v_3)( x-v_6)=x^3+v^3\\ \end{array} \right. \\ \notag \\ &\begin{bmatrix} t_0 \\ t_1 \\ \end{bmatrix} =\frac{1}{2} \begin{bmatrix} 1&1 \\ 1&-1\\ \end{bmatrix} \cdot \begin{bmatrix} h_0 \\ h_1 \\ \end{bmatrix} = \begin{bmatrix} x^3\\ -v^3 \end{bmatrix} \\ \notag \\ &\left\{ \begin{array}{l} t_1^2=v^6=-108 \quad ( \ mod \ g_0(v) \ ) \quad \rightarrow \quad A_1 \equiv -108\\ B_1 \equiv a_1^2-A_1=0 \quad \tilde{t_1} \equiv a_1 \quad \ a_1=\sqrt{A_1} \ \in F_1 \\ \end{array} \right. \\ \notag \\ &\begin{bmatrix} \tilde{h_0} \\ \tilde{h_1} \\ \end{bmatrix} = \begin{bmatrix} 1&1 \\ 1&-1\\ \end{bmatrix} \cdot \begin{bmatrix} t_0 \\ \tilde{t_1} \\ \end{bmatrix} = \begin{bmatrix} x^3+a_1\\ x^3-a_1\\ \end{bmatrix} \\ \notag \\ &\therefore \quad g_1(x)=\tilde{h_0}=t_0+ \tilde{t_1}=x^3+a_1 \ \in F_1[x] \\ \end{align}
\begin{align} &\left\{ \begin{array}{l} h_0=(x-v_1)=x-v\\ h_1=(x-v_4)=x+\frac{1}{12}(6-a_1)v\\ h_2=(x-v_5)=x+\frac{1}{12}(6+a_1)v \\ \end{array} \right. \\ \notag \\ &\begin{bmatrix} t_0 \\ t_1 \\ t_2 \end{bmatrix} =\frac{1}{3} \begin{bmatrix} 1&1&1 \\ 1&\omega&\omega^2\\ 1&(\omega^2)&(\omega^2)^2\\ \end{bmatrix} \cdot \begin{bmatrix} h_0 \\ h_1 \\ h_2 \end{bmatrix} = \begin{bmatrix} x\\ -\frac{2 {a_1} v \omega +\left( {a_1}+18\right) v}{36} \\ \frac{2 {a_1} v \omega +\left( {a_1}-18\right) v}{36} \\ \end{bmatrix} \\ &\qquad \Omega=\omega^2+\omega+1=0 \\ \end{align}
\begin{align} & t_1^3=-6 \omega +\frac{a_1}{2}-3 \ \in F_1 \qquad t_2^3=6 \omega +\frac{a_1}{2}+3 \ \in F_1 \\ &\bbox[#FFFF00]{ t_1 \cdot t_2=0 }\\ \end{align}
\begin{align} &\left\{ \begin{array}{l} t_0=x\\ t_1=\tilde{t_1}=0 \\ t_2^3=6 \omega +\frac{a_1}{2}+3 \equiv A_2 \ \in F_1 \\ B_2=a_2^3-A_2=0 \qquad \tilde{t_2} \equiv a_2 \quad a_2=\sqrt[3]{A_2} \ \in F_2 \\ \end{array} \right. \\ \notag \\ &\qquad \Downarrow \notag \\ \notag \\ &\begin{bmatrix} \tilde{h_0} \\ \tilde{h_1} \\ \tilde{h_2} \end{bmatrix} = \begin{bmatrix} 1&1&1 \\ 1& \omega^2 & (\omega^2)^2\\ 1& \omega & \omega^2\\ \end{bmatrix} \cdot \begin{bmatrix} t_0 \\ \tilde{t_1} \\ \tilde{t_2} \end{bmatrix} = \begin{bmatrix} x+a_2\\ x+\omega a_2\\ x+\omega^2 a_2\\ \end{bmatrix} \\ \notag \\ &\therefore \quad g_2(x)= \tilde{h_0}=x+a_2 \ \in F_2[x] \quad \rightarrow \quad v=-a_2\\ \end{align}
\begin{align} &\Bigl[ \quad -\frac{a_2}{72}(12\omega +a_1-30), \quad \frac{a_2}{36}(12\omega +a_1+6), \quad -\frac{a_2}{72}(12 \omega +a_1+42) \quad \Bigr]\\ \notag \\ &\Omega={{\omega }^{2}}+\omega +1 \qquad B_1=a_1^2+108=0 \qquad B_2={{a}_{2}^{3}}-\frac{\bbox[#FFFF00]{ 12 \omega +a_1+6}}{2}\\ \end{align}
\begin{align} &\left\{ \begin{array}{l} &\omega_1 =0.8660254037844386 \% i-0.5 & &\omega_2 =-0.8660254037844386 \% i-0.5 \\ &a_{11}=10.39230484541326 \% i & &a_{12}=-10.39230484541326 \% i \\ \end{array} \right. \\ \end{align}
\begin{align} &\left\{ \begin{array}{l} case1\quad \{\omega_1,a_{11}\}, \quad \{\omega_2,a_{12}\} \Rightarrow \ a_2=1.091123635971721\%i+1.88988157484231 \\ case2 \quad \{\omega_2,a_{11}\}, \quad \{\omega_1,a_{12}\} \ \Rightarrow \ \bbox[#FFFF00]{ a_2=0 }\\ \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でお送り下さい
(なおスパムメール対策のために、メールアドレスを画像表示しています)