Crea matrice NxN mathematica - matrice, wolfram-mathematica

Avere un po 'di problemi a generare una matrice NxN in Mathematica. Dato il valore di N, ho bisogno di costruire la matrice NxN che assomiglia al seguente:

N = Input["Enter value for N:"];
matrix = ConsantArray[0,{N,N}];
Do[matrix[[i,j]] =   **"???"**  ,{i,N}, {j,N}]
matrix // Matrix Form

Non sono sicuro di quello che dovrebbe essere la mia affermazione in Do-Loop. Qualsiasi aiuto lo apprezzerebbe.

risposte:

È possibile creare un array 1D [1 ... n²] e quindi rimodellare o dividerlo in una matrice.

matrix = ArrayReshape[Range[n^2], {n, n}]

(* also works: *)
matrix = Partition[Range[n^2], n]

un paio di altri modi.

matrix=Table[j+(i-1) n,{i,n},{j,n}]

matrix=Array[#2+(#1-1) n &,{n,n}]

il Table la forma dovrebbe dare un indizio su come sistemare la tua Do pure, ma di solito è un approccio povero in termini di prestazioni.

non usare il capitale N dal modo in cui è un simbolo riservato.