|
|
下のスレッドのプログラムより（ #1548 ）
外部SUB MtxSymmetry内に内部SUB MtxIsEqual, MtxLR, MtxR90 を記述します。
内部SUBの形式では正しく動作しません。
EXTERNAL SUB MtxSymmetry(M(,)) !解の対称性
DIM B(N,N),B2(N,N)
LET s(1)=s(1)+1 !そのまま
CALL MtxR90(M,B) !90°回転対称な解の数
CALL MtxIsEqual(M,B, FLG)
LET s(2)=s(2)+FLG !FLGは、０または１とする
：略
SUB MtxIsEqual(A(,),B(,), FLG) !A=Bか確認する ※FLG=1なら、一致
：略
END SUB
SUB MtxLR(M(,), B(,)) !左右裏返し（列の順序を逆にする） ※変数名M≠変数名B
：略
END SUB
SUB MtxR90(M(,), B(,)) !反時計回りに90°回転 ※変数名M≠変数名B
：略
END SUB
END SUB
|
|