[問題] 動畫的問題
想請問一下
http://ppt.cc/oBTY
我想做這樣的動畫 請問要怎麼做?
拜託幫個忙~感恩~
Manipulate[
Graphics[{Table[{PointSize[0.01], Point[{(source - 1)/2, 0}],
Thickness[.005],
Circle[{k/2, 0}, If[source < k + 1, 0, source - k - 1]]}, {k, 0,
20, 1}]}, Frame -> True, FrameTicks -> None,
ImageSize -> {450, 450}, AspectRatio -> Automatic,
PlotRange -> {{-20, 20}, {-20, 20}}], {{source, 0,
"move the source"}, 0, 20}]
這是我朋友幫我弄的 可是感覺還是不太對 希望有高手相助一下..
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.120.136.219
※ 編輯: fakuko 來自: 140.120.136.219 (07/02 20:46)
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
