Manipulate如何调用Locator的实时值 [已关闭]

Question

我想用鼠标控制Locator的位置变化，同时直线也跟着变化，可是直线右端的Locator拖动一下后就无法再继续拖动了，怎么处理才能连贯的拖动

s1 = {1, 1}
s2 = {2, 8}
s3 = {3, 27}
Manipulate[
 Show[Plot[x^3, {x, 0, 5}], 
  Plot[3 x^2, {x, 0, 5}, PlotStyle -> {Dashed, Red}], 
  Graphics[Locator[Dynamic[s1, (s1 = {#[[1]], #[[1]]^3}) &]]], 
  Graphics[Locator[Dynamic[s2, (s2 = {#[[1]], #[[1]]^3}) &]]], 
  Graphics[Locator[Dynamic[s3, (s3 = {#[[1]], #[[1]]^3}) &]]], 
  Plot[(#[[2]]/#[[1]] &@(s1 - s2) (x - s1[[1]]) + s1[[2]]) // 
    Evaluate, {x, 0, 5}]], {n, 0, 5}]

 

Comments

DynamicModule[{s1 = {1, 1}, s2 = {2, 8}, s3 = {3, 27}},
 LocatorPane[
  Dynamic[{s1, s2,
    s3}, ({s1, s2, s3} = {#[[1]], #[[1]]^3} & /@ #) &],
  Dynamic@
   Show[Plot[x^3, {x, 0, 5}],
    Plot[3 x^2, {x, 0, 5}, PlotStyle -> {Dashed, Red}],
    Plot[(#[[2]]/#[[1]] &@(s1 - s2) (x - s1[[1]]) + s1[[2]]), {x, 0,
      5}]
    ]
  ]
 ]

Answer 1

ClearAll[s]
s[1] = {0, 0};
s[2] = {1., Sin[1.]};
s[3] = {2., Sin[2.]};
Manipulate[
Graphics[Table[
With[{i = i}, 
Locator[Dynamic[(s[i]), (s[i] = {#[[1]], Sin[#[[1]]]}) &]]], {i, 
1, n}], PlotRange -> {{-1, 10}, {-1, 1}}], {{n, 2}, 1, 6}]