配列の取り出し結合について　mathematica

このサイトを使ったのが初めてなので、至らぬ点があるかと思いますがご了承ください。mathematicaに関する質問です。

例えば、次式のような関数があったとして
n1[x_,y_]:=x^2+y^2;

この式のリストをつくるとすると
n1table=Table[n1[x,y],{x,-5,4},{-5,4}];

となり次元が、10×10のリストができ、これを配列プロットするならば
ArrayPlot[n1table]

となります。この図を10×10の配列から分解能を上げたいと考えたときに、
n1table[[1,1]]
を取り出すと50という結果が得られ、この50を10×10の配列、次に
n1table[[1,2]]
を取り出すと41が取り出せて、この41を10×10の配列といったようにntableのすべての配列を取り出して10×10の配列にし、それを結合することで1000×1000の配列ができるかと思います。一個一個取り出して結合することは可能ですが、これを一気にできるプログラムを教えてください。単純にピクセルの刻みを細かくするのではなく、取り出したものを拡大してそれを結合するといった操作を知りたいです。

（一番上の式の1ピクセルが1ｍｍと仮定した場合、10×10を1000×1000に刻みを細かくして拡大すると1ピクセルのサイズが0.001ｍｍとなってしまうため、取り出して拡大し結合というフローでプログラムがわかるとありがたいです。）

Joinという関数がありますが、これは少ない数なら手入力でもできますが何百もあると大変なため、これを繰り返しできるようなプログラムが知りたいです。