File:Associativityhomotopy.png

This file was created using Wolfram Mathematica 8 with the following code:

Graphics[{Line[{{0, 0}, {0, 1}, {1, 1}, {1, 0}, {0, 0}}], Line[{{1/4, 0}, {1/2, 1}}], Line[{{1/2, 0}, {3/4, 1}}], Text["\!\(\*SubscriptBox[\(f\), \(1\)]\)", {0.125, 0.05}], Text["\!\(\*SubscriptBox[\(f\), \(2\)]\)", {0.375, 0.05}], Text["\!\(\*SubscriptBox[\(f\), \(3\)]\)", {0.75, 0.05}], Text["\!\(\*SubscriptBox[\(f\), \(1\)]\)", {0.25, 0.95}], Text["\!\(\*SubscriptBox[\(f\), \(2\)]\)", {0.625, 0.95}], Text["\!\(\*SubscriptBox[\(f\), \(3\)]\)", {0.875, 0.95}], Text["speed change (left end fixed)", {0.2, 0.5}], Text["loop at each stage", {0.2, 0.6}], Text["start position change", {0.5, 0.5}], Text["loop at each stage", {0.52, 0.6}], Text["speed change (right end fixed)", {0.81, 0.5}], Text["loop at each stage", {0.87, 0.6}]}]