■レムニスケートの幾何学(その7)
レムニスケート弧長の2等分
sl(u/2)=(-1+√2)^1/2=0.643594
と4等分
sl(u/4)=(-c+(2c)^1/2+(2d+3d/c^1/2)^1/2)^1/2=0.327379
(c=1+√2,d=c^2-1)
を示しましたが,さらにファニャーノはレムニスケート弧長の3等分あるいは5等分を与える代数方程式を導いています.
===================================
【1】レムニスケートサインのn倍角公式
レムニスケートサインの加法定理
sl(u+v)=(sl(u)sl'(v)+sl(v)sl'(u))/(1+sl^2(u)sl^2(v))
より,
sl(2u)=2sl(u)sl'(u)/(1+sl^4(u))
sl(3u)=(sl(2u)sl'(u)+sl(u)sl'(2u))/(1+sl^2(2u)sl^2(u))
sl(4u)=(sl(3u)sl'(u)+sl(u)sl'(3u))/(1+sl^2(3u)sl^2(u))
sl(5u)=(sl(4u)sl'(u)+sl(u)sl'(4u))/(1+sl^2(4u)sl^2(u))
sl(6u)=(sl(5u)sl'(u)+sl(u)sl'(5u))/(1+sl^2(5u)sl^2(u))
また,
sl'(u)=(1-sl^4(u))^1/2
sl'(2u)=(1-sl^4(2u))^1/2
sl'(3u)=(1-sl^4(3u))^1/2
sl'(4u)=(1-sl^4(4u))^1/2
sl'(5u)=(1-sl^4(5u))^1/2
を用いて,sl(u)の関数として表すと
sl(2u)=2sl(u)(1-sl^4(u))^1/2/(1+sl^4(u))
などが得られます.
しかし,sl(nu),n≧3をsl(u)の関数として表すことは大層複雑であって,手計算を断念せざるを得ませんでした.そこで,畏友・阪本ひろむ氏にお願いしてMathematicaで展開してもらったところ,言葉が一切入らない数式が数ページにもおよびました.
===================================
【2】レムニスケート弧長のn等分
レムニスケート弧長のn等分点を求めるには,sl(nu)=1として方程式を解いてsl(u)の値を求めることになるのですが,そうなると手計算では到底太刀打ちできません.以下,阪本ひろむ氏の計算結果を記すことにします.
[1]n=2,n=3
Mathematicaでは,2等分点
sl(u/2)=(-1+√2)^1/2=0.643594
と3等分点
sl(u/3)=1/2(1-(√2)(3)^1/4+√3)=0.435421
は簡単に求まりました.どちらも平方根だけを含む式なので幾何学的に作図できることがわかります.
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
[2]n=4
n≧4ではsl(nu)=sl((n-1)u+u)=1とすると方程式を解いている途中でメモリ不足になってしまいました.
しかし,4等分
sl(4u)=(sl(3u)sl'(u)+sl(u)sl'(3u))/(1+sl^2(3u)sl^2(u))=1
でなく,2等分を2回繰り返す方法
sl(2u)=2sl(u)(1-sl^4(u))^1/2/(1+sl^4(u))=(-1+√2)^1/2
を用いると手計算でも可能であることがわかっています.
そこで,Mathematicaでもこの方法で計算すると4等分点
sl(u/4)=(-c+(2c)^1/2+(2d+3d/c^1/2)^1/2)^1/2=0.327379
(c=1+√2,d=c^2-1)
が得られました.
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
[3]n=5
ファニャーノは倍角公式,4倍角公式によって得られるものに置き換えて,レムニスケート弧長の3等分あるいは5等分を与える代数方程式を導いています.すなわち,
sl(3u)=sl(2u+u)
sl(5u)=sl(4u+u)
しかし,Mathematicaでは5等分点の計算でもメモリ不足になってしまいました.sl(5u)=sl(4u+u)=1をsl(5u)=sl(3u+2u)=1と分割の仕方を変えて計算したのですが,メモリ不足はsl(5u)の展開ではなく,sl(5u)=1の方程式を解くところでおきているので,どうしても5等分点は得られませんでした.
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
[4]n=6
6等分
sl(6u)=(sl(5u)sl'(u)+sl(u)sl'(5u))/(1+sl^2(5u)sl^2(u))=1
でなく,2等分したものを3等分する方法
sl(3u)=(-1+√2)^1/2
を用いれば6等分解が得られると思われたのですが,プログラムエラーが起こり解は得られませんでした.この障害の原因についてはMathematicaの代理店に問い合わせ中です.
一方,3等分したものを2等分する方法
sl(2u)=1/2(1-(√2)(3)^1/4+√3)
では手計算でも(もちろんMathematicaでも)計算できて,
a^2v^8+4v^6+2a^2v^4-4v^2+a^2=0,a=1/2(1-(√2)(3)^1/4+√3)
(v^4+1/v^4)+4/a^2(v^2-1/v^2)+2=0
v^2-1/v^2=wとおくと,
w^2+4/a^2w+4=0よりw=-2/a^2・(1+(1-a^4)^1/2)=b
より,v=((b+√(b^2+4))/2)^1/2=0.218456
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
[5]n=8
sl(2u)=sl(u/4)=(-c+(2c)^1/2+(2d+3d/c^1/2)^1/2)^1/2=0.327379
をsl(u)について解くと,sl(u)=0.163865.よって,sl(u/8)=0.163865
===================================