Преобразовать динамическую конструкцию [] в числовой список - PullRequest
Новая
       12

Преобразовать динамическую конструкцию [] в числовой список

7 голосов
/ 06 мая 2010

Я пытался собрать что-то, что позволяет мне извлекать точки из ListPlot, чтобы использовать их в дальнейших вычислениях. Мой текущий подход заключается в выборе точек с помощью локатора []. Это прекрасно работает для отображения точек, но я не могу понять, как извлечь числовые значения из конструкции с заголовком Dynamic []. Ниже приведен отдельный пример. Перетаскивая серый локатор, вы сможете выбрать точки (обозначенные розовым локатором и сохраненные в q, списке из двух элементов). Это вторая строка под сюжетом. Теперь я хотел бы передать функцию q [[2]] или просто отобразить ее. Однако Mathematica рассматривает q как единый объект с заголовком Dynamic, и, таким образом, взять вторую часть невозможно (отсюда и сообщение об ошибке). Может кто-нибудь пролить свет на то, как преобразовать q в обычный список? 

EuclideanDistanceMod[p1_List, p2_List, fac_: {1, 1}] /; 
   Length[p1] == Length[p2] := 
  Plus @@ (fac.MapThread[Abs[#1 - #2]^2 &, {p1, p2}]) // Sqrt;
test1 = {{1.`, 6.340196001221532`}, {1.`, 
    13.78779876355869`}, {1.045`, 6.2634018978377295`}, {1.045`, 
    13.754947081416544`}, {1.09`, 6.178367702583522`}, {1.09`, 
    13.72055251752498`}, {1.135`, 1.8183153704413153`}, {1.135`, 
    6.082497198000075`}, {1.135`, 13.684582525399742`}, {1.18`, 
    1.6809452373465104`}, {1.18`, 5.971583107298081`}, {1.18`, 
    13.646996905469383`}, {1.225`, 1.9480537697339537`}, {1.225`, 
    5.838386922625636`}, {1.225`, 13.607746407088161`}, {1.27`, 
    2.1183174369679234`}, {1.27`, 5.669799095595362`}, {1.27`, 
    13.566771130126131`}, {1.315`, 2.2572975468163463`}, {1.315`, 
    5.444014254828522`}, {1.315`, 13.523998701347882`}, {1.36`, 
    2.380307009155079`}, {1.36`, 5.153024664297602`}, {1.36`, 
    13.479342200528283`}, {1.405`, 2.4941312539733285`}, {1.405`, 
    4.861423833512566`}, {1.405`, 13.432697814928654`}, {1.45`, 
    2.6028066447609426`}, {1.45`, 4.619367407525507`}, {1.45`, 
    13.383942212133244`}};
DynamicModule[{p = {1.2, 10}, q = {1.3, 11}},
 q := Dynamic@
   First@test1[[
     Ordering[{#, EuclideanDistanceMod[p, #, {1, .1}]} & /@ test1, 
      1, #1[[2]] < #2[[2]] &]]];
 Grid[{{Show[{ListPlot[test1, Frame -> True, ImageSize -> 300], 
      Graphics@Locator[Dynamic[p]], 
      Graphics@
       Locator[q, Appearance -> {Small}, 
        Background -> Pink]}]}, {Dynamic@p}, {q},{q[[2]]}}]]

Ответы [ 2 ]

5 голосов
/ 06 мая 2010

Есть несколько способов извлечь значения из динамического выражения. Вероятно, вам понадобится Setting (документация) , который разрешает все динамические значения в свои значения во время оценки Setting. 

In[75]:= Slider[Dynamic[x]] (* evaluate then move the slider *)

In[76]:= FullForm[Dynamic[x]]
Out[76]//FullForm= Dynamic[x]

In[77]:= FullForm[Setting[Dynamic[x]]]
Out[77]//FullForm= 0.384`

Вот немного более сложный пример: 

DynamicModule[{x},
  {Dynamic[x], Slider[Dynamic[x]], 
    Button["Set y to the current value of x", y = Setting[Dynamic[x]]]}
]

Если вы оцените вышеприведенное выражение, переместите ползунок и затем нажмите кнопку, текущее значение x, установленное ползунком, будет присвоено y. Если вы снова переместите ползунок, значение y не изменится, пока вы не обновите его снова, нажав кнопку.

Вместо присвоения переменной вы, конечно, можете вставить значения в записную книжку, вызвать функцию, экспортировать файл и т. Д.

2 голосов
/ 06 мая 2010

После небольшого исследования выясняется, что ответ вращается вокруг того факта, что Dynamic [] является оболочкой для обновления и отображения выражения. Любые вычисления, которые вы хотите динамически обновить, должны быть помещены в оболочку: например, вместо того, чтобы делать что-то вроде q = Dynamic[p] + 1, следует использовать что-то вроде Dynamic[q = p + 1; q]}]. Для моего примера, где я хотел разделить q на две части, вот обновленный код: 

DynamicModule[{p = {1.2, 10}, q = {1.3, 11}, qq, q1, q2}, 
 q := Dynamic[
   qq = First@
     test1[[Ordering[{#, EuclideanDistanceMod[p, #, {1, .1}]} & /@ 
         test1, 1, #1[[2]] < #2[[2]] &]]];
   {q1, q2} = qq;
   qq
   ];
 Grid[{{Show[{ListPlot[test1, Frame -> True, ImageSize -> 300], 
      Graphics@Locator[Dynamic[p]], 
      Graphics@
       Locator[q, Appearance -> {Small}, 
        Background -> Pink]}]}, {Dynamic@p}, {Dynamic@q}, {Dynamic@
     q1}}]]

Если я все еще что-то упустил или если есть более чистый способ сделать это, я приветствую любые предложения ...

...