24681012141618 36912151821 (x,y): =xy matrIx(9,9,f)→51015202530354045 61218243036424854 71421283542495663 91827364554637281 23456789 24681012141618 369121518212427 4812162024283236 1=0.8j=0.88=(+1)(j+1)g=51015202530354045 61218243036424854 81624324048566472 N TAble:=fori∈0.8 123456789 0..8 24681012141618 ←(i+1)(j+1) 69121518212427 N TAble→51015202530354045 612182430364248 71421283542495663 81624324048566472 91827364554637281 例3如下程序可以产生奇数阶幻方 S(n):=|fori∈0.n-1 if mod(n,2)≠0 (n+ nIn (n-1) +2J+n+ 17241810 51219213f(x, y) := x×y matrix(9,9,f) 1 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 49 56 63 8 16 24 32 40 48 56 64 72 9 18 27 36 45 54 63 72 81 æ ç ç ç ç ç ç ç ç ç ç ç è ö ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ø ® i := 0.. 8 j := 0.. 8 g i, j := (i + 1)×(j + 1) g 1 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 49 56 63 8 16 24 32 40 48 56 64 72 9 18 27 36 45 54 63 72 81 æ ç ç ç ç ç ç ç ç ç ç ç è ö ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ø = N_NTable n i, j ¬ (i + 1)×(j + 1) for j Î 0.. 8 for i Î 0.. 8 n := N_NTable 1 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 49 56 63 8 16 24 32 40 48 56 64 72 9 18 27 36 45 54 63 72 81 æ ç ç ç ç ç ç ç ç ç ç ç è ö ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ÷ ø ® 例3 如下程序可以产生奇数阶幻方 S(n) a i, j mod i + j (n + 1) 2 + é ê ë ù ú û ,n é ê ë ù ú û ×n mod i + 2× j + n (n - 1) 2 + é ê ë ù ú û , n é ê ë ù ú û + ¬ ... for j Î 0.. n - 1 for i Î 0.. n - 1 if mod(n,2) ¹ 0 a := S(5) 17 23 4 5 11 24 0 6 12 18 1 7 13 19 20 8 14 15 21 2 10 16 22 3 9 æ ç ç ç ç ç è ö ÷ ÷ ÷ ÷ ÷ ø =