从表达式恢复索引

Question

我有一个长列表，列表中的一个元素是：

U[1,3]U[1,4]U[1,5]U[2,2]U[3,1]

列表中的所有条目都具有相同的U[i，j]乘积结构。在当前实例中，这是5个项的乘积，但可以是n个项的积。

有没有办法从“单项式”U[1,3]U[1,4]U[1,5]U[2,2]U[3,1]中提取单项式的每个因子的第一个条目（1,1,1,2,3）和第二个条目（3,4,5,2,1）？

Answer 1

天哪。。。我工作太努力了。这就行了。

vars=变量[U[1,3]U[1,4]U[1,5]U[2,2]U[3,1]]；第一索引=表[vars[[q]][[1]，{q，1，长度[vars]}]；secondindex=表[vars[[q]][[2]，{q，1，长度[vars]}]

Answer 2

对于

expr=U[1,3]U[1,4]U[1,5]U[2,2]U[3,1]；

你能做到的

{firstindex，secondindex}=转置[List@@List@@expr]

或

｛firstindex，secondindex｝=expr/。{Times->List，U->List}//转置

Answer 3

鉴于，

表达式=U[1,3]U[1,4]U[1,5]U[2,2]U[3,1]

你可以用案例:

案例[表达，U[a_，b_]：>{a，b}](* {{1, 3}, {1, 4}, {1, 5}, {2, 2}, {3, 1}} *)

或

案例[expression，mono_U:>List@@mono]（*｛｛1，3｝，｛1，4｝，｛1，5｝，｛2，2｝，｛3，1｝｝*）

这给了你两个想法同时，但它应该是显而易见的，如果这是你真正想要的，如何适应只有一个或另一个。