Matrix with two diagonals: Difference between revisions

Matrix with two diagonals (view source)

644 bytes added , 3 months ago

Add Mathematica/Wolfram Language implementation

337

edits

Revision as of 22:43, 25 December 2023 (view source) Querfeld (talk \| contribs) (→‎K: add) ← Older edit		Revision as of 08:46, 17 January 2024 (view source) Aspen138 (talk \| contribs) (Add Mathematica/Wolfram Language implementation) Newer edit →
(2 intermediate revisions by 2 users not shown)
Line 2,111: 1 0 0 0 1)</pre> =={{header\|~~Matlab~~Mathematica}}/{{header\|Wolfram Language}}== <syntaxhighlight lang="Mathematica"> ClearAll[CreateMatrixWithTwoDiagonals]; CreateMatrixWithTwoDiagonals[n_Integer] := IdentityMatrix[n] + Reverse[IdentityMatrix[n]] - If[OddQ[n], SparseArray[{{(n + 1)/2, (n + 1)/2} -> 1}, {n, n}], 0]; CreateMatrixWithTwoDiagonals[7] // MatrixForm </syntaxhighlight> {{out}} <math> \left( \begin{array}{ccccccc} 1 & 0 & 0 & 0 & 0 & 0 & 1 \\ 0 & 1 & 0 & 0 & 0 & 1 & 0 \\ 0 & 0 & 1 & 0 & 1 & 0 & 0 \\ 0 & 0 & 0 & 1 & 0 & 0 & 0 \\ 0 & 0 & 1 & 0 & 1 & 0 & 0 \\ 0 & 1 & 0 & 0 & 0 & 1 & 0 \\ 1 & 0 & 0 & 0 & 0 & 0 & 1 \\ \end{array} \right) </math> =={{header\|MATLAB}}== <syntaxhighlight lang="matlab">function A = diagdiag(N, sparse) % Create an diagonal-diagonal square matrix. Line 3,016 ⟶ 3,041: =={{header\|Wren}}== A terminal based solution as I don't like asking people to view external images. <syntaxhighlight lang="~~ecmascript~~wren">var specialMatrix = Fn.new { \|n\| for (i in 0...n) { for (j in 0...n) {