Gerando matrizes com Table

O comando para gerar uma matriz NxN de elementos ai,j é:


Table[Table[ai, j, {j, N}], {i,N}]

Matriz de Permutação Cíclica

A testemunha de discórdia que estou estudando vai precisar de uma dessas:

qiPermutation[dimension_] :=
Module[{retorno = IdentityMatrix[dimension]},
For[
i = 1, i < dimension, i++,
retorno = retorno.qiRowSwap[dimension, i, i + 1]
];
retorno]

Module

O mathematica define um operador apenas para criar variáveis locais:

Module[{x=x0,y,...},expr1;expr2;...;exprRetorno]

Aonde x e y são variáveis locais, x0 é um valor com o qual x será inicializado, expr# são as linhas de código para as quais as variáveis locais são visíveis e exprRetorno é a linha de código cujo valor é retornado por Module.

Bras e Kets

O Mathematica oferece um suporte mínimo à notação de dirac:

ESC+bra+ESC, ESC+ket+ESC e ESC+braket+ESC

Foi tudo que encontrei a respeito.