公告:网站程序已升级到1.8.3,修复了提问时可能报错的问题,请清除浏览器缓存
2019-11-10

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
90 浏览
f[x_] := Sin[x];
tran[v_] := {Identity@First@v, f@First@v};
{A, B} = {Dynamic[p, (p = tran[#]) &], Dynamic[q, (q = tran[#]) &]};
DynamicModule[{p = {1, f[1]}, q = {2, f[2]}},
 Show[Plot[f[x], {x, -5, 5}, AspectRatio -> Full],
  Graphics[{Locator[A], Locator[B]}],
  (*Graphics[InfiniteLine[{A,B}]],*)
  Graphics[Line[{A, B}]]
  ]
 ]

一旦用 InfiniteLine 总是报错

分类:动态交互 | 用户: cvgmt (276 分)

1个回答

0 投票
f[x_] := Sin[x];
tran[v_] := {First@v, f@First@v};
DynamicModule[{p = {1, f[1]}, q = {2, f[2]}}, 
 LocatorPane[Dynamic[{p, q}, ({p, q} = tran /@ #) &], 
  Dynamic@Show[Plot[f[x], {x, -5, 5}], 
    Graphics[{InfiniteLine[{p, q}]}]]]]

用户: cvgmt (276 分)
修改于 用户:cvgmt
...