ほぼ雑記的メモ
LaTeXできれいに書いて清書しようとおもったけど、あまりに膨大な式になるので(何しろ平方根が8個入れ子になる)、calcというUNIXのアプリで計算できる形式にしました。bcだと最後の負の平方根が計算できないんですよね。 これを実行すると、最後にx0に1の257乗根が格納され出力されます。エクセルのマクロにしようかとおもったけど、めんどくさいんでパス。
a0 =-1/2+sqrt(257)/2 a1 =-1/2-sqrt(257)/2 b0 =a0/2+sqrt(a0^2+64)/2 b2 =a0/2-sqrt(a0^2+64)/2 b1 =a1/2+sqrt(a1^2+64)/2 b3 =a1/2-sqrt(a1^2+64)/2 c0 =b0/2+sqrt(b0^2-4*(2*b0+5*b1+4*b2+5*b3))/2 c4 =b0/2-sqrt(b0^2-4*(2*b0+5*b1+4*b2+5*b3))/2 c1 =b1/2-sqrt(b1^2-4*(2*b1+5*b2+4*b3+5*b0))/2 c5 =b1/2+sqrt(b1^2-4*(2*b1+5*b2+4*b3+5*b0))/2 c2 =b2/2+sqrt(b2^2-4*(2*b2+5*b3+4*b0+5*b1))/2 c6 =b2/2-sqrt(b2^2-4*(2*b2+5*b3+4*b0+5*b1))/2 c3 =b3/2-sqrt(b3^2-4*(2*b3+5*b0+4*b1+5*b2))/2 c7 =b3/2+sqrt(b3^2-4*(2*b3+5*b0+4*b1+5*b2))/2 d0 =c0/2+sqrt(c0^2-4*(2*c0+2*c2+c4+2*c5+c6))/2 d8 =c0/2-sqrt(c0^2-4*(2*c0+2*c2+c4+2*c5+c6))/2 d1 =c1/2+sqrt(c1^2-4*(2*c1+2*c3+c5+2*c6+c7))/2 d9 =c1/2-sqrt(c1^2-4*(2*c1+2*c3+c5+2*c6+c7))/2 d2 =c2/2+sqrt(c2^2-4*(2*c2+2*c4+c6+2*c7+c0))/2 d10=c2/2-sqrt(c2^2-4*(2*c2+2*c4+c6+2*c7+c0))/2 d3 =c3/2+sqrt(c3^2-4*(2*c3+2*c5+c7+2*c0+c1))/2 d11=c3/2-sqrt(c3^2-4*(2*c3+2*c5+c7+2*c0+c1))/2 d4 =c4/2+sqrt(c4^2-4*(2*c4+2*c6+c0+2*c1+c2))/2 d12=c4/2-sqrt(c4^2-4*(2*c4+2*c6+c0+2*c1+c2))/2 d5 =c5/2+sqrt(c5^2-4*(2*c5+2*c7+c1+2*c2+c3))/2 d13=c5/2-sqrt(c5^2-4*(2*c5+2*c7+c1+2*c2+c3))/2 d6 =c6/2-sqrt(c6^2-4*(2*c6+2*c0+c2+2*c3+c4))/2 d14=c6/2+sqrt(c6^2-4*(2*c6+2*c0+c2+2*c3+c4))/2 d7 =c7/2+sqrt(c7^2-4*(2*c7+2*c1+c3+2*c4+c5))/2 d15=c7/2-sqrt(c7^2-4*(2*c7+2*c1+c3+2*c4+c5))/2 e0 =d0/2+sqrt(d0^2-4*(d0+d1+d2+d5))/2 e16=d0/2-sqrt(d0^2-4*(d0+d1+d2+d5))/2 e1 =d1/2+sqrt(d1^2-4*(d1+d2+d3+d6))/2 e17=d1/2-sqrt(d1^2-4*(d1+d2+d3+d6))/2 e2 =d2/2+sqrt(d2^2-4*(d2+d3+d4+d7))/2 e18=d2/2-sqrt(d2^2-4*(d2+d3+d4+d7))/2 e7 =d7/2-sqrt(d7^2-4*(d7+d8+d9+d12))/2 e23=d7/2+sqrt(d7^2-4*(d7+d8+d9+d12))/2 e8 =d8/2-sqrt(d8^2-4*(d8+d9+d10+d13))/2 e24=d8/2+sqrt(d8^2-4*(d8+d9+d10+d13))/2 e9 =d9/2-sqrt(d9^2-4*(d9+d10+d11+d14))/2 e25=d9/2+sqrt(d9^2-4*(d9+d10+d11+d14))/2 e15=d15/2+sqrt(d15^2-4*(d0+d1+d4+d15))/2 e31=d15/2-sqrt(d15^2-4*(d0+d1+d4+d15))/2 f0 =e0/2+sqrt(e0^2-4*(e1+e23))/2 f32=e0/2-sqrt(e0^2-4*(e1+e23))/2 f24=e24/2-sqrt(e24^2-4*(e15+e25))/2 f56=e24/2+sqrt(e24^2-4*(e15+e25))/2 g0 =f0/2+sqrt(f0^2-4*f56)/2 x0 =g0/2+sqrt(g0^2-4)/2 x0 x0^257あとはこれを元に誰か作図してくれぃ。 え?正65537角形?求める原理はわかったけど、激しく面倒。
Powered by Red Leaf ( Rev. 79d0bae58 ), © Issei Numata, 2007-2025
コメント一覧