Walsh matrix: Difference between revisions
Content added Content deleted
(added RPL) |
(Add Mathematica/Wolfram Language implementation) |
||
| Line 885: | Line 885: | ||
</pre> |
</pre> |
||
[[File:Walsh_subplots.svg|center]] |
[[File:Walsh_subplots.svg|center]] |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<syntaxhighlight lang="Mathematica"> |
|||
WalshMatrix = Nest[ArrayFlatten@{{#, #}, {#, -#}} &, 1, #] &; |
|||
WalshMatrix[4] // MatrixPlot |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
[[File:Walsh4Mathematica.png|thumb|center]] |
|||
=={{header|Maxima}}== |
=={{header|Maxima}}== |
||