Results from wolff1.cc and wolff1.nb

In the plots of the helicity modulus, the legend is: Red = K^d, Green = -K^p, Blue = K.
The Binder parameter is defined as B = 〈M^4〉/〈M^2〉^2 , where M is the block magnetization; M is calculated for block sizes 2, 4, 8, ..., L, where L is the system side.  Note that even for small block sizes, there is still a pretty sharp quasi-singularity at Jc!  (This would not be the same in EWC's method).

Ising (N=1)

2D Ising: Known FormBox[RowBox[{J_c, =, RowBox[{0.4407, =, RowBox[{1, /, 2.269}]}]}], TraditionalForm]

Cell[GraphicsData[PostScript, %!<br />%%Creator: Mathematica<br />%%AspectRatio: .61803 <br /> ... `001Ooo0P004_oo0P00^ooo0000], ImageRangeCache -> {{{109., 528.}, {273.563, 15.}} -> {0, 0, 0, 0}}]

3D Ising: Known FormBox[RowBox[{J_c, =, RowBox[{0.22166, (26)}]}], TraditionalForm]

[Graphics:HTMLFiles/wolff1results_7.gif]

XY (N=2)

2D XY 64*64

[Graphics:HTMLFiles/wolff1results_8.gif] [Graphics:HTMLFiles/wolff1results_9.gif] [Graphics:HTMLFiles/wolff1results_10.gif]

2D XY 1024*1024:  Known FormBox[RowBox[{J_KT, =, , RowBox[{1.12, =, RowBox[{RowBox[{1, /, 0.893}], (1)}]}]}], TraditionalForm]

[Graphics:HTMLFiles/wolff1results_12.gif] [Graphics:HTMLFiles/wolff1results_13.gif] [Graphics:HTMLFiles/wolff1results_14.gif] [Graphics:HTMLFiles/wolff1results_15.gif]

3D XY 64*64*64:  Known FormBox[RowBox[{J_c, =, , RowBox[{0.45, =, RowBox[{1, /, 2.2}]}]}], TraditionalForm]

[Graphics:HTMLFiles/wolff1results_17.gif] [Graphics:HTMLFiles/wolff1results_18.gif] [Graphics:HTMLFiles/wolff1results_19.gif]

3-vector (N=3)

3D 3-vector 16*16*16:  Looks like FormBox[RowBox[{J_c, =, RowBox[{0.7, =, RowBox[{1, /, 1.4}]}]}], TraditionalForm]

[Graphics:HTMLFiles/wolff1results_21.gif]

I am collecting a table of these T_c's somewhere else.

Created by Mathematica  (November 14, 2005)