为何不能Manipulate ParametricPlot【已解决by Freddy 再次认识语法高亮+module】

TBE_Legend

1. 
   
2. 
   
3. Clear["Global`*"]
   
4. Block[{u, k, f, t},
   
5. u = 1/15 f \[Pi] Cos[2 f \[Pi] t];
   
6. k = 1/10 - 1/30 Sin[2 f \[Pi] t];
   
7. Manipulate[
   
8. ParametricPlot[{u, k}, {t, 0, 1/f}, AspectRatio -> 1], {f, 0.5, 2}]]
   
9. 
   

复制代码

TBE_Legend

1. 
   
2. Clear["Global`*"]
   
3. (*Block[{u,k,f,t},*)u[f_, t_] := 1/15 f \[Pi] Cos[2 f \[Pi] t];
   
4. k[f_, t_] := 1/10 - 1/30 Sin[2 f \[Pi] t];
   
5. u = 1/15 f \[Pi] Cos[2 f \[Pi] t];
   
6. k = 1/10 - 1/30 Sin[2 f \[Pi] t];
   
7. Manipulate[
   
8. ParametricPlot[{u[f, t], k[f, t]}, {t, 0, 1/f},
   
9.   AspectRatio -> 1], {f, 0.5, 2}]
   

复制代码

evaluation真是搞得我有点乱，原则是什么呢？

smarten

1. Clear["Global`*"]
   
2. With[{ u = 1/15 f \[Pi] Cos[2 f \[Pi] t],
   
3.   k = 1/10 - 1/30 Sin[2 f \[Pi] t]},
   
4. Manipulate[
   
5.   ParametricPlot[{u, k}, {t, 0, 1/f}, AspectRatio -> 1], {f, 0.5, 2}]]

复制代码

1. 
   
2. Clear["Global`*"]
   
3. Block[{}, u[f_Real, t_] := 1/15 f \[Pi] Cos[2 f \[Pi] t];
   
4. k[f_Real, t_] := 1/10 - 1/30 Sin[2 f \[Pi] t];
   
5. Manipulate[
   
6.   ParametricPlot[{u[f, t], k[f, t]} // Evaluate, {t, 0, 1/f},
   
7.    AspectRatio -> 1], {f, 0.5, 2}]
   

复制代码

TBE_Legend

Clear["Global`*"]
With[{ u = 1/15 f \[Pi] Cos[2 f \[Pi] t],
  k = 1/10 - 1/30 Sin[2 f \[Pi] t]},
Manipulate[
  ParametricPlot[{u, k}, {t, 0, 1/f}, AspectRatio -> 1], {f, 0.5, 2}]]
smarten 发表于 2009-11-16 15:25

多谢，对with又有了新的认识。
能否解释下我的第一个帖子中的code的问题出在哪里呢？
为什么其中的k，v不replaced呢？

With[{x=Subscript[x, 0],y=Subscript[y, 0],\[Ellipsis]},expr]
specifies that in expr occurrences of the symbols x, y, \[Ellipsis]  should be replaced by Subscript[x, 0], Subscript[y, 0], \[Ellipsis] .

FreddyMusic

一般把 Manipulate 放在外面，模块放在里面。

1. 
   
2. Manipulate[Module[{u, k, t},
   
3.   u = 1/15 f \[Pi] Cos[2 f \[Pi] t];
   
4.   k = 1/10 - 1/30 Sin[2 f \[Pi] t];
   
5.   ParametricPlot[{u, k}, {t, 0, 1/f}, AspectRatio -> 1]], {f, 0.5, 2}]
   

复制代码

告诉你一个小秘密。

游客，本帖隐藏的内容需要积分高于 20 才可浏览，您当前积分为 0

TBE_Legend

一般把 Manipulate 放在外面，模块放在里面。
Manipulate[Module[{u, k, t},
  u = 1/15 f \[Pi] Cos[2 f \[Pi] t];
  k = 1/10 - 1/30 Sin[2 f \[Pi] t];
  ParametricPlot[{u, k}, {t, 0, 1/f}, AspectRatio - ...
FreddyMusic 发表于 2009-11-17 17:14

Mathematica 的诀窍在于把.....

这诀窍，很精炼，如果你的书都是这些东西的话，1000元一本也很值。

ckvictor

还是无法理解三个模块函数的精髓！

Roach

学习一下诀窍。