graphics - 在 Mathematica 中使用 Locator 和 Manipulate 设置步长

Question

鉴于此 Mathematica 代码，

Manipulate[Graphics[Line[{{0, 0}, p}], PlotRange -> 2], {{p, {1, 1}}, Locator}]

如何设置定位器上的步距？如果可能的话，限制它们？

Answer 1

你可以做类似的事情

Manipulate[
 Graphics[Line[{{0, 0}, p}], 
  PlotRange -> 2], {{p, {1, 1}}, {-1, -1}, {1, 1}, {0.4, 0.5}, Locator}]

这会将定位器限制为水平间距为 0.4、垂直间距为 0.5 的矩形网格。定位器的坐标范围由 {xmin,ymin} = {-1,-1} 和 {xmax, ymax} = {1,1} 指定.

---

如果您想要更大的灵活性，例如您想要将定位器的位置限制为非矩形晶格或更通用的坐标集，您可以执行类似的操作

Manipulate[
 With[{tab = RandomReal[{-1, 1}, {40, 2}]}, 
  LocatorPane[Dynamic[p, (p = Nearest[tab, #][[1]]) &], 
   Graphics[{Line[{{0, 0}, Dynamic[p]}], {Red, Point /@ tab}}, PlotRange -> 2]]],
 {{p, {1, 1}}, ControlType -> None}]