LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2OVEhRicvJSdmYW1pbHlHUTBUaW1lc35OZXd+Um9tYW5GJy8lJXNpemVHUSMxMkYnLyUlYm9sZEdRJmZhbHNlRicvJSdpdGFsaWNHUSV0cnVlRicvJSp1bmRlcmxpbmVHRjcvJSpzdWJzY3JpcHRHRjcvJSxzdXBlcnNjcmlwdEdGNy8lK2ZvcmVncm91bmRHUShbMCwwLDBdRicvJStiYWNrZ3JvdW5kR1EuWzI1NSwyNTUsMjU1XUYnLyUnb3BhcXVlR0Y3LyUrZXhlY3V0YWJsZUdGNy8lKXJlYWRvbmx5R0Y3LyUpY29tcG9zZWRHRjcvJSpjb252ZXJ0ZWRHRjcvJStpbXNlbGVjdGVkR0Y3LyUscGxhY2Vob2xkZXJHRjcvJTBmb250X3N0eWxlX25hbWVHUSgyRH5NYXRoRicvJSptYXRoY29sb3JHRkMvJS9tYXRoYmFja2dyb3VuZEdGRi8lK2ZvbnRmYW1pbHlHRjEvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0YnLyUpbWF0aHNpemVHRjQ=
with(plottools):
c1 := circle([0,0],1,thickness=2,color=red):
c2 := circle([5,0],1,thickness=2,color=blue):
c3 := circle([10,0],1,thickness=2,color=green):
a1 := arrow([1,0],[4,0],.01,0.4,0.1):
a2 := arrow([6,0],[9,0],.01,0.4,0.1):
t1 := plots[textplot]([0,0,"1"]);
t2 := plots[textplot]([5,0,"2"]):
t3 := plots[textplot]([10,0,"3"]):
arc1 := arc([-2,0],2,0.15*Pi..1.85*Pi):
arc2 := arc([2.5,-2.5],4,0.32*Pi..0.68*Pi):
arc3 := arc([5,-7.5],10,0.3*Pi..0.7*Pi):
a3 := arrow([-2+2*cos(1.75*Pi),2*sin(1.75*Pi)],[-2+2*cos(1.85*Pi),2*sin(1.85*Pi)],.01,.4,.5):
a4 := arrow([2.5+4*cos(0.58*Pi),-2.5+4*sin(0.58*Pi)],
[2.5+4*cos(0.68*Pi),-2.5+4*sin(0.68*Pi)],0.01,0.4,0.5):
a5 := arrow([5+10*cos(0.65*Pi),-7.5+10*sin(0.65*Pi)],
[5+10*cos(0.68*Pi),-7.5+10*sin(0.68*Pi)],0.01,0.4,0.5):
t4 := plots[textplot]([-3.5,0,"b1"]):
t5 := plots[textplot]([3,1,"b2"]):
t6 := plots[textplot]([8,1.5,"b3"]):
t7 := plots[textplot]([2.5,-0.5,"s12"]):
t8 := plots[textplot]([7.5,-0.5,"s23"]):
plots[display]({c1,c2,c3,a1,a2,t1,t2,t3,arc1,arc2,a3,a4,arc3,a5,t4,t5,t6,t7,t8},scaling=constrained,axes=none);
LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2OVEhRicvJSdmYW1pbHlHUTBUaW1lc35OZXd+Um9tYW5GJy8lJXNpemVHUSMxMkYnLyUlYm9sZEdRJmZhbHNlRicvJSdpdGFsaWNHUSV0cnVlRicvJSp1bmRlcmxpbmVHRjcvJSpzdWJzY3JpcHRHRjcvJSxzdXBlcnNjcmlwdEdGNy8lK2ZvcmVncm91bmRHUShbMCwwLDBdRicvJStiYWNrZ3JvdW5kR1EuWzI1NSwyNTUsMjU1XUYnLyUnb3BhcXVlR0Y3LyUrZXhlY3V0YWJsZUdGOi8lKXJlYWRvbmx5R0Y3LyUpY29tcG9zZWRHRjcvJSpjb252ZXJ0ZWRHRjcvJStpbXNlbGVjdGVkR0Y3LyUscGxhY2Vob2xkZXJHRjcvJTBmb250X3N0eWxlX25hbWVHUSkyRH5JbnB1dEYnLyUqbWF0aGNvbG9yR0ZDLyUvbWF0aGJhY2tncm91bmRHRkYvJStmb250ZmFtaWx5R0YxLyUsbWF0aHZhcmlhbnRHUSdpdGFsaWNGJy8lKW1hdGhzaXplR0Y0