| 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: , |
|
