VBA实现任意n阶幻方的一种填法(n≥3)

原创 2007年09月23日 21:56:00

参考http://blog.csdn.net/northwolves/archive/2007/09/23/1796696.aspx的思路,拟代码如下:

Sub magicsquare(ByVal n As Long, ByRef matrix())
Dim i As Long, j As Long, k As Long, p As Long, a(), b()
ReDim matrix(1 To 256, 1 To 256)
If n < 3 Then MsgBox "n must be larger than 2! ": Exit Sub 'n不得小于3
If n Mod 4 = 0 Then '双偶阶幻方(n为偶数,且能被4整除)
ReDim a(1 To n, 1 To n)
ReDim b(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
matrix(i, j) = IIf((i Mod 4) / 2 = (j Mod 4) / 2, n * n + 1 - (i - 1) * n - j, (i - 1) * n + j)
Next
Next

Else
If n Mod 4 = 2 Then '单偶阶幻方(n为偶数,且不能被4整除)
p = n / 2
ReDim a(1 To p, 1 To p)
magicsquare p, a

For i = 1 To p
For j = 1 To p
matrix(i, j) = a(i, j)
matrix(i + p, j) = a(i, j) + 3 * p * p
matrix(i, j + p) = a(i, j) + 2 * p * p
matrix(i + p, j + p) = a(i, j) + p * p
Next
Next

For j = 1 To p
If j = p / 2 + 1 Then
For i = 1 To (n - 2) / 4
k = matrix(j, p / 2 + i)
matrix(j, p / 2 + i) = matrix(j + p, p / 2 + i)
matrix(j + p, p / 2 + i) = k
Next
Else
For i = 1 To (n - 2) / 4
k = matrix(j, i)
matrix(j, i) = matrix(j + p, i)
matrix(j + p, i) = k
Next
End If

If n > 6 Then
For i = 1 To (n - 6) / 4
k = matrix(j, p + p / 2 + i)
matrix(j, p + p / 2 + i) = matrix(j + p, p + p / 2 + i)
matrix(j + p, p + p / 2 + i) = k
Next
End If
Next

Else '奇数阶幻方

For j = 0 To n - 1
For i = 0 To n - 1
If j = 0 Then matrix(j + 1, i + 1) = IIf(i >= (n - 1) / 2, 0, n * (n + 1)) + (i - (n - 1) / 2) * (n + 2) + 1
If j > 0 Then matrix(j + 1, i + 1) = 1 + (n * n + matrix(j, i + 1) + IIf(matrix(j, i + 1) Mod n = 0, 0, n)) Mod n ^ 2
Next
Next
End If
End If
End Sub
 
Sub makemagicsquare()
Dim arr(), n As Long
Randomize
n = CLng(InputBox("please enter an integer", "infomation", 3 + Int(Rnd * 254)))
magicsquare n, arr
[a1].Resize(256, 256) = arr
[a1].Resize(256, 256).Columns.AutoFit
End Sub 

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

n阶幻方的C#实现

  • 2011-09-14 15:24
  • 10KB
  • 下载

编程实现N阶奇数幻方游戏

奇幻七绝   先填上行正中央,   依次斜填切莫忘。   上格没有顶格填,   顶格没有底格放。 转载于:http://blog.csdn.net/fengchaokobe/article/...

java实现 n阶幻方(奇偶通用)

/*******测试代码*************/public class MagicTest { public static void main(String[] args) ...

java算法代码(n阶幻方)

  • 2011-06-24 12:40
  • 293KB
  • 下载

c语言的n阶全对称幻方

  • 2011-06-30 20:03
  • 942B
  • 下载

由n阶幻方问题想到的[zz]

由n阶幻方问题想到的 http://blog.csdn.net/fengchaokobe/article/details/7437767 前序        最近在学习一些经典的...

由n阶幻方问题引发的思考

由n阶幻方问题想到的 前序        最近在学习一些经典的算法,搞得头昏脑涨,就想换换脑子。在家里的旧书堆里面乱翻,无意中将一本具有十多年历史的小学数学奥林匹克竞赛的书发掘了出来,...

由n阶幻方问题引发的思考

转自于:http://blog.csdn.net/fengchaokobe/article/details/7437767
  • ltx06
  • ltx06
  • 2014-04-17 23:01
  • 793

N(奇数)阶幻方解法

幻方也加魔方,通俗点就是N*N的方格中,填入1~n^2个数,使得横坚斜的和都相同。大家最熟悉的应该就是九宫格的3阶了。这儿我只和大家分享一下奇数阶的;因为奇数阶的就只有一个规律,偶数阶的稍微有点复杂(...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)