如何在Mathematica中输出自定义多边形坐标？

我试图让任何一个嵌套的操作，或只是带有两个窗口操作：我需要一个窗口，其功能为：如何在Mathematica中输出自定义多边形坐标？

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

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

我想我可以弄清楚如何做到这一点，如果我知道如何输出操作的坐标或如何做出这样的事情。

来源

2013-03-10 user2154420

例如：

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

Mathematica graphics

来源

2013-03-10 19:57:32

如何在Mathematica中输出自定义多边形坐标？

回答

相关问题