2009-11-01ãã1ã¶æéã®è¨äºä¸è¦§
ã¨ããããã³ã¼ããå¼µãã ãã ç©ççãªæå³ããã¾ã ç解ã§ãã¦ããªãã Const L = 32 Const T = 2.3 Dim spin(L, L) As Integer Sub ising() Dim e As Double Dim step As Double Dim rr As Double step = 1 rr = 1 For i = 0 To L - 1 For j = 0 To L - 1 â¦