绘制n个位置受到限制的定位器 [已关闭]

Question

我想绘制一个数目可变，但是位置又受到相关约束的定位器组，以便于后续绘图使用，但是提示i不在作用域内

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

请求大家帮忙看一下...

Answer 1

Clear["Global`*"]
line[p1_, p2_] := 
Module[{tmp = p2 - p1, inc = 100.}, 
Line[{p1 + inc*tmp, p2 - inc*tmp}]];
(q[#] = {#, #^3}) & /@ Range[9];
loc[i_] := Locator[Dynamic[q[i], (q[i] = {#[[1]], #[[1]]^3}) &]];
Manipulate[
Show[Plot[{x^3, 3 x^2}, {x, -10, 10}], 
Graphics[line[Dynamic[q[#1]], Dynamic[q[#2]]]] & @@@ 
Partition[Range[n], 2, 1], 
Graphics[loc /@ Range[n], PlotRange -> pltrg]], {{n, 3, 
"NumLocator"}, 2, 9, 1, Appearance -> "Labeled"}]