Как вывести пользовательские координаты многоугольника в Mathematica?

Я пытаюсь сделать либо вложенную манипуляцию, либо просто манипуляцию с двумя окнами: мне нужно одно окно, которое функционирует как:

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

но выводит свои координаты в другое окно, которое использует эти координаты для построения указанного графика. Я не уверен, что Manipulate — лучший вариант для этого, но, по сути, я пытаюсь создать визуальный интерфейс, в котором пользователь может указать многоугольник, а затем программа использует информацию об этих координатах для построения указанного трехмерного графика.

Думаю, я мог бы понять, как это сделать, если бы знал, как вывести координаты из манипулятора или как сделать что-то, что делает это.


output polygon wolfram-mathematica
person user2154420    schedule 10.03.2013    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Например:

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

Графика Mathematica

person Dr. belisarius    schedule 10.03.2013