Description<span class="searchmatch">Matrix</span> <span class="searchmatch">transpose</span>.<span class="searchmatch">gif</span> The <span class="searchmatch">transpose</span> of a <span class="searchmatch">matrix</span> can be obtained by reflecting the elements along the main diagonal. <span class="searchmatch">Transposing</span> twice returns...
(*Step 1: Generate the function to be retrieved and the "measurement <span class="searchmatch">matrix</span>"*) dim = 200; (*Number of points in the original data (input)*) nm = 30; (*Number...
dim]]; lowerprism = Box<span class="searchmatch">Matrix</span>[150, dim]*Reverse@uppertriangularmatrix[dim] + 1; upperprism = Box<span class="searchmatch">Matrix</span>[150, dim]*Reverse@<span class="searchmatch">Transpose</span>@uppertriangularmatrix[dim]...
m = RandomReal[{-10, 10}, {3, 3}]; m = Round[(m + <span class="searchmatch">Transpose</span>[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[ <span class="searchmatch">Matrix</span>Plot[<span class="searchmatch">Transpose</span>[(Re[(\[Phi]in + \[Phi]s)]/Max[Abs@Re[\[Phi]in + \[Phi]s][[(4 d)/\[Delta]...
absorbing boundaries)*) dim = Dimensions[imn][[1]]; L = -1/\[Delta]^2* Kirchhoff<span class="searchmatch">Matrix</span>[GridGraph[{dim, dim}]]; (*Discretized Laplacian*) sourcef[x_, y_] := E^(-(x^2/(2...
L = -1/\[Delta]^2*Kirchhoff<span class="searchmatch">Matrix</span>[GridGraph[{dim, dim}]]; (*Discretized Laplacian*) n = Ren + I Imn; M = L + Diagonal<span class="searchmatch">Matrix</span>[ SparseArray[Flatten[n]^2 k0^2]];...
\[Delta]}, {y, -\[CapitalDelta]/ 2, \[CapitalDelta]/2, \[Delta]}] + imn; (*<span class="searchmatch">Matrix</span> with the refractive index*) b = -(Flatten[n]^2 - 1) k0^2 Flatten[\[Phi]in];...
-1/\[Delta]^2*Kirchhoff<span class="searchmatch">Matrix</span>[GridGraph[{dim, dim}]]; (*Discretized Laplacian*) ren0 = 1.5 - 1; ren = ren0*Clip[ Total[ Table[ RotateRight[ Disk<span class="searchmatch">Matrix</span>[3, dim], {RandomInteger[{0...
Partition[LinearSolve[M, b], dim]; (*Solve the linear system*) ImageAdd[ ArrayPlot[ <span class="searchmatch">Transpose</span>[(Abs[\[Phi]in + \[Phi]s]/Max[Abs[\[Phi]in + \[Phi]s]])^2][[(4 d)/\[Delta]...
