DescriptionMatrix transpose.gif The transpose of a matrix can be obtained by reflecting the elements along the main diagonal. Transposing twice returns...
(*Step 1: Generate the function to be retrieved and the "measurement matrix"*) dim = 200; (*Number of points in the original data (input)*) nm = 30; (*Number...
dim]]; lowerprism = BoxMatrix[150, dim]*Reverse@uppertriangularmatrix[dim] + 1; upperprism = BoxMatrix[150, dim]*Reverse@Transpose@uppertriangularmatrix[dim]...
m = RandomReal[{-10, 10}, {3, 3}]; m = Round[(m + Transpose[m])/2, 0.01]; \[Lambda] = Eigenvalues[m]; \[Psi] = Eigenvectors[m]; angle[u_, v_] := ArcCos[u...
Partition[LinearSolve[M, b], dim]; (*Solve the linear system*) ImageAdd[ MatrixPlot[Transpose[(Re[(\[Phi]in + \[Phi]s)]/Max[Abs@Re[\[Phi]in + \[Phi]s][[(4 d)/\[Delta]...
L = -1/\[Delta]^2*KirchhoffMatrix[GridGraph[{dim, dim}]]; (*Discretized Laplacian*) n = Ren + I Imn; M = L + DiagonalMatrix[ SparseArray[Flatten[n]^2 k0^2]];...
boundaries)*) dim = Dimensions[\[Phi]in][[1]]; L = -1/\[Delta]^2*KirchhoffMatrix[GridGraph[{dim, dim}]]; (*Discretized Laplacian*) ycenter = Map[y0 /. #...
absorbing boundaries)*) dim = Dimensions[imn][[1]]; L = -1/\[Delta]^2* KirchhoffMatrix[GridGraph[{dim, dim}]]; (*Discretized Laplacian*) sourcef[x_, y_] := E^(-(x^2/(2...
boundaries)*) dim = Dimensions[\[Phi]in][[1]]; L = -1/\[Delta]^2*KirchhoffMatrix[GridGraph[{dim, dim}]]; (*Discretized Laplacian*) r[t_] := (\[Lambda]0*3...
-1/\[Delta]^2*KirchhoffMatrix[GridGraph[{dim, dim}]]; (*Discretized Laplacian*) ren0 = 1.5 - 1; ren = ren0*Clip[ Total[ Table[ RotateRight[ DiskMatrix[3, dim], {RandomInteger[{0...
