F[n_] := SparseArray[{{i_,j_} /; i == 1 ->
1,{i_,j_} /; i == j && i > 1 -> i - 1,{i_,j_} /; i != j ->
1},{n,n}] // Normal
使用
MatrixForm[F[10]]
F[n_] := SparseArray[{{i_,j_} /; i == 1 ->
1,{i_,j_} /; i == j && i > 1 -> i - 1,{i_,j_} /; i != j ->
1},{n,n}] // Normal
使用
MatrixForm[F[10]]