Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'A Rolling Wheel' topicStudent Support Forum > General > "A Rolling Wheel"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
Josh gray
05/29/12 9:21pm

In Response To 'Re: A Rolling Wheel'
---------
I understand that, How would I implement my wheel with five spokes into this code? I have tried and tried and keep getting errors. I just want my wheel to be exactly the same as the example, except with the wheel I created, I just do not know how to 'make it' roll on a track with given dimensions. Again, here is my code:


Clear[tt, x];

Manipulate[
Graphics[
{
{White, Disk[{0, 0}, 1]},
{Black, Thickness[0.05], Circle[{0, 0}, 1]},
{Blue, Thickness[0.02],
Line[{{0, 0}, {Cos[# + tt], Sin[# + tt]}}] & /@
Range[0, 2 Pi, Pi/2.5]},

{Blue, PointSize[0.03],
Point[{Cos[# + tt], Sin[# + tt]}] & /@ Range[0, 2 Pi, Pi/2.5]},
{Blue, PointSize[0.1], Point[{0, 0}]},
{Black, PointSize[0.07], Point[{0, 0}]
},
{
AspectRatio -> Automatic, ImageSize -> 10
}
}
],
{tt, 0, 4 Pi}]

URL: ,

Subject (listing for 'A Rolling Wheel')
Author Date Posted
A Rolling Wheel Josh Gray 05/25/12 1:29pm
Re: A Rolling Wheel yehuda 05/27/12 03:12am
Re: A Rolling Wheel Michael 05/27/12 6:34pm
Re: Re: A Rolling Wheel Josh gray 05/29/12 9:21pm
Re: Re: Re: A Rolling Wheel Michael 05/31/12 8:43pm
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic