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 …
とりあえずコードを張るだけ。 物理的な意味が、まだ理解できていない。 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 …
