找到另一個幻方為 9進位表示的 1/17,2/17,3/17,.....16/17
結果為 :
0. 4. 6. 7. 8. 4. 2. 1. 0. 4. 6. 7. 8. 4. 2. 1.
1. 0. 4. 6. 7. 8. 4. 2. 1. 0. 4. 6. 7. 8. 4. 2.
1. 5. 2. 5. 7. 3. 6. 3. 1. 5. 2. 5. 7. 3. 6. 3.
2. 1. 0. 4. 6. 7. 8. 4. 2. 1. 0. 4. 6. 7. 8. 4.
2. 5. 7. 3. 6. 3. 1. 5. 2. 5. 7. 3. 6. 3. 1. 5.
3. 1. 5. 2. 5. 7. 3. 6. 3. 1. 5. 2. 5. 7. 3. 6.
3. 6. 3. 1. 5. 2. 5. 7. 3. 6. 3. 1. 5. 2. 5. 7.
4. 2. 1. 0. 4. 6. 7. 8. 4. 2. 1. 0. 4. 6. 7. 8.
4. 6. 7. 8. 4. 2. 1. 0. 4. 6. 7. 8. 4. 2. 1. 0.
5. 2. 5. 7. 3. 6. 3. 1. 5. 2. 5. 7. 3. 6. 3. 1.
5. 7. 3. 6. 3. 1. 5. 2. 5. 7. 3. 6. 3. 1. 5. 2.
6. 3. 1. 5. 2. 5. 7. 3. 6. 3. 1. 5. 2. 5. 7. 3.
6. 7. 8. 4. 2. 1. 0. 4. 6. 7. 8. 4. 2. 1. 0. 4.
7. 3. 6. 3. 1. 5. 2. 5. 7. 3. 6. 3. 1. 5. 2. 5.
7. 8. 4. 2. 1. 0. 4. 6. 7. 8. 4. 2. 1. 0. 4. 6.
8. 4. 2. 1. 0. 4. 6. 7. 8. 4. 2. 1. 0. 4. 6. 7.
個方向之和為 64
Scilab Code 為 :
----------
function mMatK(k,base)
de=k;
M=zeros(de-1,de-1);
for j=1:de-1
nu=j*base;
for k=1:de-1
m=floor(nu /de);
M(j,k) = m;
i= nu-de*m;
nu = i*base;
end
printf("\n")
end
disp( M);
disp(sum(M,'r')); // 橫向和
disp(sum(M,'c')'); // 縱向和
disp(sum(diag(M)) );//主對角線和
disp(sum(diag(M(:,de-1:-1:1))) ); // 反主對角線和
endfunction
mMatK(19,10); //測試 10 進位的 1/19,2/19,.... 18/19
mMatK(17,9); // 9 1/17,2/17,.....16/17
------