http://blog.sina.com.cn/ybbmm[订阅]
个人资料
评论
读取中...
图片幻灯
友情链接
访客
读取中...
好友
读取中...
博文

               幻立阵加框示意及新知识点

幻立阵合积及反演的VB程序

 

    从10阶之后,幻方的制作及检验都交给电脑VB运行,我只是击键坐观其成。这里将幻立阵合积制作及反演的源代码公布如下,幻阵运算程序与之类似更简单。

Private Sub Command4_Click() '幻立阵的合积

  If Check2 = 0 Then '新作

    n = Val(Text1(4).Text)

    m = Val(Text1(5).Text)

    r = Val(Text1(6).Text)

    If n Mod 2 = 1 Then

      MsgBox ' 合积只适合于模为2k 阶的制作!', 48, '请选用其它方法:'

      Exit Sub

    End If

    wjbw2 n '偶阶制作

  End If

  Erase A

  For k = 1 To r

    For i = 1 To

幻立阵模块法乘积的VB程序

 

    把脑海中的构思变成现实,繁琐而重复的各项检验运算原是费时费力,现由VB程序演化为简单的击键。善其事必先利其器!俗话说:磨刀不误砍柴工。先花气力编写通用程序,将公式及操作转化为电脑语言,这来不得半点掺假!事成后却享用无穷。

Private Sub Command8_Click() '幻立阵之积

  Erase g, h, Mn

  If Check2 = 1 Then

    For k = 1 To r

      For i = 1 To n

        For j = 1 To m

          Mn(i, j, k) = D(i, j, k) '幻立阵A

        Next j

      Next i

    Next k

    g(1) = n

幻立阵双倍法的反演(2009-10-27 15:24)

幻立阵双倍法的反演

 

    幻立阵双倍法是以一个n*m*r阶幻立阵A为模基,模基A中的每一个数都衍化为八数,放置在一个立体田格内,这样的立体田格共有n*m*r块组成了幻立阵D。

    幻立阵D做反演变换时,每一个立体田格内的八数分投至空间八个卦限的同位格中,在每一卦限形成n*m*r项的一大块,八块合一,就是D的反演幻立阵V。

例14:以中村先生的5*7*3阶幻立阵为模基A双倍得到和积幻立阵D,见本章例3,不再重复。

n*m*r=  840 ,即用自然数 1 到  840 构造,

  由上面幻立阵反演得到的   10 * 14 * 6   阶幻立阵 V(i,j,k)如下:

  幻立阵的第  层为

  553  430  279  785  171  689  27   558  425  278  790  176  694  32

 

幻阵合积的反演(2009-10-25 17:00)

幻阵合积的反演

 

三、合积两法及反演

    将一个n*m阶模基幻阵A双倍化还有合积,合积在平面上画出四个大块(象限),每一块都是n*m项;模基幻阵A的每一数衍化为四数一组,依照合积模值表(略)的顺序分投入新幻阵的四个象限的同位格内。

    如果每一组是连续四个数,这是我们早已熟悉的合积一法;若每一组是呈等差数列的四个数,则是应该了解的合积二法,其公差d=n*m。因为合积模值表要迂回均衡,故合积运算仅适合于偶阶幻阵的双倍。合积的反演是将分散在四个象限的一组四数再集中起来,放置在一个田格内,这是双倍积?以下请观察简单实例,寻得真知。

例9:以最小的2 * 4 阶幻阵做合积一法、二法,并求其反演。

(1)排出  2 * 4   阶块幻阵 A(i,j)如下:

   &nb

幻阵乘积的反演(2009-10-25 12:05)

幻阵乘积的反演

 

一、克罗内克尔乘积的反演

    一个n*m阶模基幻阵A与另一个p*q阶项基幻阵做克罗内克尔乘积,所得结果是一个np*mq阶的新幻阵U。这乘积幻阵U按块划分,从上向下是n区,自左到右为m块,这是块序;每一块均是p行q列,此为项序。乘积内任意一数都有确定的块序与项序,如数f=U(i,j),在x区y块的cx行cy列,倘将其块序与项序对调,数f 调到cx区cy块的x行y列,这就是数f的反演变换。若U中每一数皆如此调动,则得到乘积幻阵U的反演幻阵V。本文应是《中国幻方》第六期84页《平面幻阵的乘积运算》之后续,请观看下列的各个例题,例题号也相续,便于联系呼应。

  例5:(1)排出  2 * 4   阶块幻阵 A(i,j)如下:

               5

&

16阶双层超级幻方(2009-10-22 08:41)

                             16阶双层超级幻方

 

   

13阶三层完美幻方(2009-10-22 08:37)

13阶三层完美幻方

 

n*m*r=  507   即用自然数 1 到  507 制作 13 * 13 * 3   阶幻立阵 D(i,j,k)如下:

  幻立阵的第  层为

  473  97   358  398  48   10   271  376  26   131  431  185  498

  191  504  479  103  364  391  41     264  369  19   137  437

  143  430  184  497  472  96   357  397  47     270  375  25

  368  18   136  436  190  503  478  102  363  403  40     263

    269  374  24   142  44

幻立阵的叉积运算(续)及VB程序

幻立阵的第  层为

   83    1568  1073  1658  48    1533  1038  1623  73    1558  1063  1648

   2063  668   1208  443   2028  633   1173  408   2053  658   1198  433

   218   1433  893   1838  183   1398  858   1803  208   1423  883   1828

   1928  803   1343  308   1893  768   1308  273   1918  793   1333  298

   1793  938   1478  173   1758  903   1443  138   1783  928   1468&nbs

幻立阵的叉积运算(2009-10-20 19:57)

幻立阵的叉积运算

 

    克罗内克尔乘积的第二种乘法是叉积,一个n*m*r阶幻立阵A与另一个p*q*s阶幻立阵B做叉积,结果是新的一个np*mq*rs阶幻立阵D。幻立阵D如和积一样可划分为n*m*r个小块,每一块均是p*q*s项;取每一块的同位格得到一个n*m*r阶广义幻立阵,同位格的项序是由项基幻立阵B来确定的。

    和积每一小块中是连续自然数,而在叉积中这构成广义幻立阵的连续自然数是交叉分布,整齐亦有规律,如阴影所示。请读者仔细观赏、领会奥妙。

例2:相乘得到的 30 * 12 * 6   阶叉积幻立阵 D(i,j,k)。

(1)排出  3 * 5 * 3   阶模基幻立阵 A(i,j,k)如下:

  幻立阵的第  层为

       11   23   35   45

     29   42 &nbs