module - モジュール、Mathematica

Question

次の問題があります: N の i,j から始めて、小さい行列 M を大きい行列 N に合計したい。

コードは次のとおりです。

PutMintoN[M_, Q_, i_, j_] := Module[{Mrow, Mcol},
   {Mrow, Mcol} = Dimensions[M];
   For[k = 1, k <= Mrow, k++,
    For[q = 1, q <= Mcol, q++,
     Q[[i + k - 1, j + q - 1]] = 
      Q[[i + k - 1, j + q - 1]] + M[[k, q]]]];
   Q
   ];   

問題はアルゴリズムではなくモジュールにあるようです。これは、内部コードを外部にコピーすると機能するためです。

前もって感謝します。