Trokoide.
Hvis man tænker sig, at en cirkel med radius r ruller ud ad en linje, så vil et punkt med afstand a til centrum beskrive en kurve, som kaldes en trokoide. For a = r bliver det en cykloide. Situationen a > r, som fx forekommer på et toghjul, er vist på figuren. Du kan starte rulningen ved at trykke på “PLAY”.
Figure figure = Position [0,0] Size[x,y] Origin[x/10,y*2/3] Unit x/16 Color "white";
Axes axes = Color "black";
Grid grid = Color "blue";
//Units units = Color "black";
Timer tid = From 0 To 4*pi Step pi/180 Tick 5;
RadioButton playbutton = Text [ "Play"; "Stop" ] Action [ start tid; stop tid ]
Position [x-100,20] Size [80,25];
PushButton resetbutton = Text "Rewind" Action reset tid, reset playbutton Position [x-100,60] Size [80,25];
Circle wheel1 = Center [tid,1] Radius 1 Size 1.5 Color "blue";
Circle wheel2 = Center [tid,1] Radius 1.3 Size 1.5 Color "blue";
Point center = [tid,1] Size 2.5 Color "blue";
Point tracer = [tid,1] - [sin(tid),cos(tid)]*1.3 Size 2.5 Color "red";
Line spoke = Start center Dir tracer - center Size 1.5 Color "blue";
ParametricCurve cykloid = [t,1] - [sin(t),cos(t)]*1.3 From 0 To tid Size 1.5 Color "red";