<<CycloidRace.m

Race[{25(t-Sin[t]),25(1-Cos[t]),{t,0,Pi},Name->"Cycloid(Friction)",
		FrictionCoeff->.2,Animation->True},
	 {25(t-Sin[t]),25(1-Cos[t]),{t,0,Pi},Name->"Cycloid",
	 	Animation->True},
	 AnimationFrames->15 ]