Matlab转R代码：实现标量与矩阵的隐式乘法兼容

要复刻Matlab中C=A*B的灵活行为（自动适配矩阵乘矩阵、标量乘矩阵），可以通过类型判断+对应运算来实现，无需将标量转为单位矩阵，具体方案如下：

方案1：自定义通用乘法函数 #

写一个简单的函数自动识别A的类型，选择对应的乘法逻辑：

mat_mult <- function(A, B) {
  if (is.matrix(A)) {
    A %*% B  # 矩阵乘法
  } else {
    A * B    # 标量广播乘法，等价于Matlab的标量*矩阵
  }
}

测试示例 #

• 标量乘矩阵场景：

  mat_mult(1, diag(5))  # 输出5阶单位矩阵，与Matlab `1*diag(5)`效果一致
  

• 矩阵乘矩阵场景：

  A <- matrix(1:4, nrow = 2)
  B <- matrix(5:8, nrow = 2)
  mat_mult(A, B)  # 输出标准矩阵乘法结果，等价于R原生的`A %*% B`
  

方案2：直接嵌入条件判断（无需函数） #

如果不想额外定义函数，也可以直接在代码里用三元判断实现：

C <- if (is.matrix(A)) A %*% B else A * B

这种写法保留了代码的简洁性，同时完全适配A为矩阵或标量的两种场景，和Matlab的*运算符行为完全对齐。

内容的提问来源于stack exchange，提问作者MysteryGuy