"Volume of hyperbolic 3-manifolds"의 두 판 사이의 차이

수학노트
둘러보기로 가기 검색하러 가기
9번째 줄: 9번째 줄:
 
 
 
 
  
<h5 style="line-height: 2em; margin: 0px;">volume </h5>
+
<h5 style="line-height: 2em; margin: 0px;">volume of figure eight knot complement</h5>
 +
 
 +
 
  
 
*  2.02988321281930725<br><math>V=\frac{9\sqrt{3}}{\pi^2}\zeta_{\mathbb{Q}(\sqrt{-3})}(2)=3D(e^{\frac{2i\pi}{3}})=2D(e^{\frac{i\pi}{3}})=2.029883212819\cdots</math><br> where D is [http://pythagoras0.springnote.com/pages/4633853 Bloch-Wigner dilogarithm].<br>
 
*  2.02988321281930725<br><math>V=\frac{9\sqrt{3}}{\pi^2}\zeta_{\mathbb{Q}(\sqrt{-3})}(2)=3D(e^{\frac{2i\pi}{3}})=2D(e^{\frac{i\pi}{3}})=2.029883212819\cdots</math><br> where D is [http://pythagoras0.springnote.com/pages/4633853 Bloch-Wigner dilogarithm].<br>
15번째 줄: 17번째 줄:
  
 
#  L[x_] := Im[PolyLog[2, x]] + 1/2 Log[Abs[x]] Arg[1 - x]<br> f[x_, y_] :=<br>  L[x] + L[1 - x*y] + L[y] + L[(1 - y)/(1 - x*y)] + L[(1 - x)/(1 - x*y)]<br> Print["five term relation"]<br> Table[f[i, j], {i, 0.1, 0.9, 0.1}, {j, 0.1, 0.9, 0.1}] // TableForm<br> N[3 L[Exp[2 I*Pi/3]], 20]<br> N[2 L[Exp[I*Pi/3]], 20]<br> N[3 (L[Exp[2 I*Pi/3]] - L[Exp[4 I*Pi/3]])/2, 20]<br> N[Pi^2*L[Exp[2 I*Pi/3]]/(3 Sqrt[3]), 20]<br>
 
#  L[x_] := Im[PolyLog[2, x]] + 1/2 Log[Abs[x]] Arg[1 - x]<br> f[x_, y_] :=<br>  L[x] + L[1 - x*y] + L[y] + L[(1 - y)/(1 - x*y)] + L[(1 - x)/(1 - x*y)]<br> Print["five term relation"]<br> Table[f[i, j], {i, 0.1, 0.9, 0.1}, {j, 0.1, 0.9, 0.1}] // TableForm<br> N[3 L[Exp[2 I*Pi/3]], 20]<br> N[2 L[Exp[I*Pi/3]], 20]<br> N[3 (L[Exp[2 I*Pi/3]] - L[Exp[4 I*Pi/3]])/2, 20]<br> N[Pi^2*L[Exp[2 I*Pi/3]]/(3 Sqrt[3]), 20]<br>
 +
 +
 
  
 
 
 
 

2010년 3월 31일 (수) 15:28 판

introduction
  • hyperbolic 3-manifold : figure 8 knot complement

 

 

 

volume of figure eight knot complement

 

  • 2.02988321281930725
    \(V=\frac{9\sqrt{3}}{\pi^2}\zeta_{\mathbb{Q}(\sqrt{-3})}(2)=3D(e^{\frac{2i\pi}{3}})=2D(e^{\frac{i\pi}{3}})=2.029883212819\cdots\)
    where D is Bloch-Wigner dilogarithm.
  • what is \(\zeta_{\mathbb{Q}(\sqrt{-3})}(2)\)? numrically 1.285190955484149
  1. L[x_] := Im[PolyLog[2, x]] + 1/2 Log[Abs[x]] Arg[1 - x]
    f[x_, y_] :=
     L[x] + L[1 - x*y] + L[y] + L[(1 - y)/(1 - x*y)] + L[(1 - x)/(1 - x*y)]
    Print["five term relation"]
    Table[f[i, j], {i, 0.1, 0.9, 0.1}, {j, 0.1, 0.9, 0.1}] // TableForm
    N[3 L[Exp[2 I*Pi/3]], 20]
    N[2 L[Exp[I*Pi/3]], 20]
    N[3 (L[Exp[2 I*Pi/3]] - L[Exp[4 I*Pi/3]])/2, 20]
    N[Pi^2*L[Exp[2 I*Pi/3]]/(3 Sqrt[3]), 20]

 

 

 

Chern-Simons invariant

 

 

Jones polynomial
  •  

 

 

links

 

 

history

 

 

related items

 

 

encyclopedia

 

 

books

 

[[4909919|]]

 

 

articles

 

 

question and answers(Math Overflow)

 

 

blogs

 

 

experts on the field

 

 

links