本帖最后由 hbghlyj 于 2020-8-16 17:16 编辑 - f[a_, b_, c_, d_] = {(a - b) (c - d), (a - c) (b - d), (b - c) (a - d)}
- t = {u, v, w, x, y, z}
- f = Function[Evaluate[t],Evaluate[Flatten[Table[(t[[1]] - t[[i]]) f @@ Table[t[[j]], {j, Complement[Range[2, 6], {i}]}], {i, 2, 6}]]]]
- s = Table[Subscript[a, i], {i, 1, 15}]
- MatrixRank[CoefficientArrays[Complement[Flatten[CoefficientList[Total[Table[s[[i]] f[g1, g2, g3, g4, g5, g6][[i]], {i, 15}]],{g1, g2, g3,g4, g5, g6}]], {0}], Evaluate[s]][[2]]]
复制代码 效果图:
|