公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

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

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

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

社区建议QQ群:365716997

分类

0 投票
409 浏览

我做了一个动态三次贝塞尔曲线,可是调节定位器大小试了很久,还是无法将定位器变得小一些

Manipulate[
 Show[ParametricPlot[{pts[[1, 1]] (1 - t)^3 + 
     3 pts[[2, 1]] t (1 - t)^2 + 3 pts[[3, 1]] t^2 (1 - t) + 
     pts[[4, 1]] t^3, 
    pts[[1, 2]] (1 - t)^3 + 3 pts[[2, 2]] t (1 - t)^2 + 
     3 pts[[3, 2]] t^2 (1 - t) + pts[[4, 2]] t^3}, {t, 0, 1}, 
   PlotRange -> 5], 
  Graphics[{Dashed, Green, Line[pts], Red, Point[pts]}, 
   Frame -> True]], {{pts, {{-3, 0}, {-1, 3}, {1, -3}, {3, 0}}}, 
  Locator, LocatorAutoCreate -> True}]

我看帮助中的示例,定位器是可以被缩小的...可是在我上面的代码中,我试了很久无法达到缩小定位器尺寸的效果...

 

 

分类:绘图 | 用户: mma-2-2-2 (1.3k 分)
修改于 用户:mma-2-2-2

1个回答

+3 投票
 
已采纳
不知道为什么在Manipulate里指定Appearance -> Tiny控件会变成"Tiny"的文字,所以需要手动处理一下,比如这样

Manipulate[
 Show[ParametricPlot[{(1 - t)^3 pts[[1, 1]] +
     3 (1 - t)^2 t pts[[2, 1]] + 3 (1 - t) t^2 pts[[3, 1]] +
     t^3 pts[[4, 1]], (1 - t)^3 pts[[1, 2]] +
     3 (1 - t)^2 t pts[[2, 2]] + 3 (1 - t) t^2 pts[[3, 2]] +
     t^3 pts[[4, 2]]}, {t, 0, 1}, PlotRange -> 5],
  Graphics[{Dashed, Green, Line[pts], Red, Point[pts]},
   Frame -> True]], {{pts, {{-3, 0}, {-1, 3}, {1, -3}, {3, 0}}},
  Locator, Appearance -> Graphics[Circle[{0, 0}, Scaled[.02]]],
  LocatorAutoCreate -> True}]

调节Scaled里的数值可以改变控件的大小,修改Graphics里的内容也可以得到不同形状的控件,非常自由
用户: 无影东瓜 (1.2k 分)
采纳于 用户:mma-2-2-2
没有“为什么”,Manipulate里直接写了问题中的这么用Appearance就是改变成指定的东西,例如Tiny就是改变成文字。。
...