生成带行编号的符号矩阵

青青子衿

1. lst1 = {"a", "b", "c"}; lst2 = {1, 4, 7, 15};
2. f[X_, Y_] := ToExpression[Table[a <> ToString[b], {b, Y}, {a, X}]]
3. f[lst1, lst2] // MatrixForm
4. f1[Y_] :=
5. ToExpression[Table[a <> ToString[b], {b, Y}, {a, {"a", "b", "c"}}]]
6. f1[{1, 2, 3}] // MatrixForm
7. Join[f[{"a", "b", "c", "d"}, {1, 2, 3}], {{a1, b1, c1, d1}}] //
8.   Det // Factor

Copy the Code