Mathematica中如何实现{{1,2}，{2,1}}带入函数矩阵{{a，b}，{a，b}}得到{{a[1]，b[2]}，{a[2]，b[1]}}？

Question

Mathematica中如何实现{{1,2}，{2,1}}带入函数矩阵{{a[x]，b[x]}，{a[x]，b[x]}}得到{{a[1]，b[2]}，{a[2]，b[1]}}？

Answer 1

……你这是某一类问题的简化还是单纯的只是要把一个数字阵这样代入？实不相瞒现在我满脑子都是邪门外道的解法啊，比如：

Transpose[{{{a[x], b[x]}, {c[x], d[x]}}, {{1, 2}, {3, 4}}}, {3, 1, 2}] /. {a_[x], b_} :> a[b]

这里用到了Transpose的某个不太常用的语法。其实我觉得你这个问题最好在写前面的代码时就设法规避掉。