如何在Mathematica中实现3D向量转4D并执行矩阵运算？

1. 生成原始3D单位向量 #

先保留原始列表结构（不要先转TableForm，否则会丢失可操作的列表数据）：

rawVectors = ResourceFunction["RandomUnitVector"][3, 4];

2. 转换为带首分量的4D向量 #

对每个3D向量先乘以系数a，再在开头添加固定分量m，得到4D向量列表：

fourDVectors = Map[Prepend[a #, m] &, rawVectors];

• 说明：a # 实现单个3D向量的分量级乘法，Prepend[..., m] 在向量头部插入m，最终每个元素是{m, a*v1, a*v2, a*v3}格式的4D向量。

3. 矩阵作用于4D向量 #

先定义你的4×4预定义矩阵（示例用随机矩阵，替换为你自己的矩阵即可），再用矩阵点乘每个4D向量：

(* 替换为你自己的预定义矩阵 *)
predefinedMat = RandomReal[1, {4, 4}];

finalVectors = Map[predefinedMat . # &, fourDVectors];

4. 格式化输出表格 #

如果需要以表格形式查看结果，用TableForm：

finalVectors // TableForm

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