请教一个生成数据表格的问题
mathematica吧
全部回复
仅看楼主
level 6
各位大佬,请问我在运用findroot求解一个方程后,想要得到所求未知数和两个变量的数据组,请问应该如何操作,才能使得所得结果不会分成几个小块(根据y取-2到2分了5个括号),也就是图中的绿色括号分割(去掉绿色括号),使所有数据连续,为了方便之后把整体数据代入计算,谢谢各位
a = x + y + z == 5;
b = FindRoot[a, {x, 1}];
date = Table[{x /. b[[1]], y, z}, {y, -2, 2}, {z, -2, 2}]
2023年02月08日 09点02分 1
吧务
level 12
Join@@data
2023年02月08日 12点02分 2
吧务
level 12
Faltten[data, 1]
顺便说一句,个人认为像主楼这样使用不显含自变量的表达式是一个不太好的习惯,一方面不够直观,另一方面遇到复杂的问题可能会出bug。比较建议写成下面的形式
eqn[x_, y_, z_] := x + y + z == 5;
xsol[y_, z_] := x /. FindRoot[eqn[x, y, z], {x, 1}][[1]];
data = Flatten[Table[{xsol[y, z], y, z}, {y, -2, 2}, {z, -2, 2}], 1]
2023年02月08日 12点02分 3
吧务
level 12
再来个
##&@@@data
2023年02月09日 01点02分 4
1