1

我正在尝试进行嵌套操作或仅使用两个窗口进行操作：我需要一个窗口，其功能如下：

Manipulate[Graphics[Polygon[pt], 
  PlotRange -> 2], {{pt, {{0, 0}, {1, 0}, {1, 1}, {0, 1}, {1, -1}}}, 
  Locator, LocatorAutoCreate -> True}]

但将其坐标输出到另一个窗口，该窗口使用这些坐标绘制指定的图形。我不确定 Manipulate 是否是最好的选择，但基本上我正在尝试制作一个可视界面，用户可以在其中指定多边形，然后程序使用这些坐标的信息来绘制指定的 3D 图。

我想如果我知道如何从操纵中输出坐标或如何制作一些东西，我可以弄清楚如何做到这一点。

4

1 回答 1

0

例如：

GraphicsRow[{
 Manipulate[
   Graphics[Polygon[rs = pt], PlotRange -> 2], 
   {{pt, {{0, 0}, {1, 0}, {1, 1}, {0, 1}, {1, -1}}},
     Locator, LocatorAutoCreate -> True}],
  Dynamic@
   ParametricPlot3D[Through[(Interpolation /@ 
        First@(Transpose /@ {Append[#, 0] & /@ rs}))[t]], {t, 1, Length@rs}, 
        PlotRange -> 2]}]

数学图形

于 2013-03-10T19:57:32.437 回答