Question

我有MainTable和SecondTable我想做的事情： Example http://i63.tinypic.com/292a2ir.png

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]]]

Panel中的多个网格

1 个答案: