このディレクトリの索引
#  行列の中からn次の正方行列を切り取り、左上隅の行列位置と正方行列を返す。
#

行列の中から正方行列を切り取る(_行列,_n,_起点行,_起点列,_正方行列) :-
        length([_|L0],_起点行),
        length(L,_n),
        length([_|L01],_起点列),
        length(L2,_n),
        append(L0,L,R1,_行列),
        findall(L2,(
                   append(_,[L3|_],L),
                   append(L01,L2,_,L3)),
                _正方行列).