面板中的多个网格

Question

我有 MainTable 和 SecondTable 我想做什么：

MainTable 和 SecondTable 大部分相同（示例）：

    {{1, 1, 0}, {2, 1, 0}, {3, 1, 0}}

所有这些都在运行中：

    function[] := Module[{}, Panel[Manipulate[

一切顺利，但我无法将这些网格定位到它们的位置。它总是只打印一个。我一直在寻找，花了很多时间没有任何结果。感谢您的帮助。

示例：

function[] := Module[{}, Panel[Manipulate[
MainTable = {{x, 1, 0}, {2, 1, 0}, {3, 1, 0}};
SecondTable = {{y, 1, 0}, {2, 1, 5}, {5, 5, 5}};
Grid[{MainTable, SecondTable}, Frame -> All],
{{x, 1, "Input 1"}, ControlType -> InputField}, 
{{y, 1, "Input 2"}, ControlType -> InputField}],
FrameMargins -> Automatic]]

Answer 1

解决方案：

   function[] := 
   Module[{}, 
   Panel[Manipulate[
   MainTable = {{x, 1, 0}, {2, 1, 0}, {3, 1, 0}};
   SecondTable = {{y, 1, 0}, {2, 1, 5}, {5, 5, 5}};
   Grid[{{Grid[MainTable, Frame -> All]}, {Grid[SecondTable, Frame -> All]}}], 
   {{x, 1, "Input 1"}, ControlType -> InputField}, 
   {{y, 1, "Input 2"}, ControlType -> InputField}, Alignment -> Center]]]

面板中的多个网格

Multiple grids in Panel

wolfram-mathematica