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

Answer 2

documentation州：

Manipulate[expr, {u, umin, umax, du}]

允许 u 的值在步骤 du 中的 umin 和 umax 之间变化。

和

Manipulate[expr, {u, {u1, u2, u3,...}}]

允许 u 采用离散值。

其中一种方法适合您。