Re: [問題] 動畫的問題
看板Mathematica作者chungyuandye (養花種魚數月亮賞星星)時間12年前 (2012/07/03 00:22)推噓0(0推 0噓 0→)留言0則, 0人參與討論串2/2 (看更多)
※ 引述《fakuko (fakuko)》之銘言：
: 想請問一下
: 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}]
: 這是我朋友幫我弄的 可是感覺還是不太對 希望有高手相助一下..
做一下變化
mycircle[m_,z_]:=Table[Circle[{m*i,0},1+(z-1)/4-i],{i,0,Ceiling[z/4]-1,1}]
Manipulate[
Graphics[mycircle[m,k],PlotRange->{{-20,20},{-20,20}}],
{m,-3,3,0.25},{k,1,37,1}]
--
養花種魚數月亮賞星星
http://chungyuandye.twbbs.org
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.233.129.177
※ 編輯: chungyuandye 來自: 218.173.130.22 (07/03 10:13)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
