wolfram-mathematica - 如何在 Mathematica 中为矩阵乘法重载 Times 和 Plus

Question

我想在mathematica中重载Times和Plus进行矩阵乘法，例如让Times为BitAnd，Plus 为 BitOr，然后进行矩阵乘法。

有没有一种简单的方法可以做到这一点，而无需重写我自己的矩阵乘法？

谢谢。

Answer 1

问题是您想要更改什么 - Times 和 Plus 或 Dot 的行为。通常，Block 技巧通常是最简单的方法。在这种情况下，由于 Dot 不调用高级 Plus 或 Times，您可以:

mat1 = {{1,2},{3,4}};
mat2= {{5,6},{7,8}};
Block[{Dot = Inner[BitAnd,#1,#2,BitOr]&},
  mat1.mat2]

{{3,0},{5,2}}

但请注意，这实际上是在重新实现矩阵乘法(使用 Inner)- 没有其他方法，因为 Dot 是在内部实现的并且不使用 >Plus 或 Times。