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

Next Comment >Help | Reply To Topic
Author Comment/Response
Josh Gray
05/25/12 1:29pm

I am trying to make a sort of track for a wheel to roll on. I have my wheel, and all the specifications I want for it. 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}]


This is what I want to do however, is to unify, or collaborate these three images shown in my URL (three different url's seperated by commas).

I do not know how to continue forward, Help please. I am totally new to mathematica, so I really need some clear helpful steps so I can continue using this great program. Thanks!

URL: http://myweb.facstaff.wwu.edu/curgus/Courses/207_201220/ani1.gif, http://myweb.facstaff.wwu.edu/curgus/Courses/207_201220/ani2.gif, http://myweb.facstaff.wwu.edu/curgus/Courses/207_201220/ani3.gif,

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
Next Comment >Help | Reply To Topic