(* ::Package:: *) (************************************************************************) (* This file was generated automatically by the Mathematica front end. *) (* It contains Initialization cells from a Notebook file, which *) (* typically will have the same name as this file except ending in *) (* ".nb" instead of ".m". *) (* *) (* This file is intended to be loaded into the Mathematica kernel using *) (* the package loading commands Get or Needs. Doing so is equivalent *) (* to using the Evaluate Initialization Cells menu command in the front *) (* end. *) (* *) (* DO NOT EDIT THIS FILE. This entire file is regenerated *) (* automatically each time the parent Notebook file is saved in the *) (* Mathematica front end. Any changes you make to this file will be *) (* overwritten. *) (************************************************************************) CellPrint[Cell["DynamicDistances:ARunningMapoftheCharlesinMeterswithBuilt-InCoach","Section"]] coach1=Import["http://www.toptenz.net/wp-content/uploads/2009/03/mr-t.jpg"]; coach2=Import["http://files.myopera.com/edwardpiercy/files/Mr-T-1.jpg"]; coach3=Import["http://attach.high-g.net/attachments/mr_t1_392.jpg"]; coach4=Import["http://pages.prodigy.net/fitten/Design/Assets/images/mr-t.gif"]; map=Import["http://www.math.harvard.edu/~knill/run/distancemap.gif"]; Manipulate[ dist=1.346*(Norm[p1-p2]+Norm[p2-p3]+Norm[p3-p4]+ Norm[p4-p5]+Norm[p5-p6]+Norm[p6-p7]+Norm[p7-p8]+Norm[p8-p9]+Norm[p9-p10]+Norm[p10-p11]+Norm[p11-p12]+Norm[p12- p13]+Norm[p13-p14]+Norm[p14-p15]+Norm[p15-p16]+Norm[p16- p17]+Norm[p17-p18]+Norm[p18-p19]+Norm[p19-p20]+Norm[p20- p21]+Norm[p21-p22]+Norm[p22-p23]+Norm[p23-p24]+Norm[p24- p25]+Norm[p25-p26]+Norm[p26-p27]+Norm[p27-p28]+Norm[p28- p29]+Norm[p29-p30]+Norm[p30-p1]); intdist=Floor[1000*dist]; Graphics[{Inset[map,{-5,0},Left,8], {RGBColor[0,1,1,.7],Thickness[0.01], Dynamic[ Line[{p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15, p16,p17,p18,p19,p20,p21,p22,p23,p24,p25,p26,p27,p28,p29,p30,p1}]]}, {RGBColor[0,1,0],PointSize[0.05],Point[p1]}, {RGBColor[1,0,0],PointSize[0.05],Point[p2]}, {RGBColor[.9,.1,0],PointSize[0.05],Point[p3]}, {RGBColor[.8,.2,0],PointSize[0.05],Point[p4]}, {RGBColor[.7,.3,0],PointSize[0.05],Point[p5]}, {RGBColor[.6,.4,0],PointSize[0.05],Point[p6]}, {RGBColor[.5,.5,0],PointSize[0.05],Point[p7]}, {RGBColor[.4,.6,0],PointSize[0.05],Point[p8]}, {RGBColor[.3,.7,0],PointSize[0.05],Point[p9]}, {RGBColor[.2,.8,0],PointSize[0.05],Point[p10]}, {RGBColor[.1,.9,0],PointSize[0.05],Point[p11]}, {RGBColor[0,1,0],PointSize[0.05],Point[p12]}, {RGBColor[0,.9,.1],PointSize[0.05],Point[p13]}, {RGBColor[0,.8,.2],PointSize[0.05],Point[p14]}, {RGBColor[0,.7,.3],PointSize[0.05],Point[p15]}, {RGBColor[0,.6,.4],PointSize[0.05],Point[p16]}, {RGBColor[0,.5,.5],PointSize[0.05],Point[p17]}, {RGBColor[0,.4,.6],PointSize[0.05],Point[p18]}, {RGBColor[0,.3,.7],PointSize[0.05],Point[p19]}, {RGBColor[0,.2,.8],PointSize[0.05],Point[p20]}, {RGBColor[0,.1,.9],PointSize[0.05],Point[p21]}, {RGBColor[0,0,1],PointSize[0.05],Point[p22]}, {RGBColor[.1,0,.9],PointSize[0.05],Point[p23]}, {RGBColor[.2,0,.8],PointSize[0.05],Point[p24]}, {RGBColor[.3,0,.7],PointSize[0.05],Point[p25]}, {RGBColor[.4,0,.6],PointSize[0.05],Point[p26]}, {RGBColor[.5,0,.5],PointSize[0.05],Point[p27]}, {RGBColor[.6,0,.4],PointSize[0.05],Point[p28]}, {RGBColor[.7,0,.3],PointSize[0.05],Point[p29]}, {RGBColor[.8,0,.2],PointSize[0.05],Point[p30]}, {RGBColor[.9,0,.1],FontSize->20,Text[intdist,{0,-1.5}]}, Locator[Dynamic[p1],ImageSize->40], Locator[Dynamic[p2],ImageSize->20], Locator[Dynamic[p3],ImageSize->20], Locator[Dynamic[p4],ImageSize->20], Locator[Dynamic[p5],ImageSize->20], Locator[Dynamic[p6],ImageSize->20], Locator[Dynamic[p7],ImageSize->20], Locator[Dynamic[p8],ImageSize->20], Locator[Dynamic[p9],ImageSize->20], Locator[Dynamic[p10],ImageSize->20], Locator[Dynamic[p11],ImageSize->20], Locator[Dynamic[p12],ImageSize->20], Locator[Dynamic[p13],ImageSize->20], Locator[Dynamic[p14],ImageSize->20], Locator[Dynamic[p15],ImageSize->20], Locator[Dynamic[p16],ImageSize->20], Locator[Dynamic[p17],ImageSize->20], Locator[Dynamic[p18],ImageSize->20], Locator[Dynamic[p19],ImageSize->20], Locator[Dynamic[p20],ImageSize->20], Locator[Dynamic[p21],ImageSize->20], Locator[Dynamic[p22],ImageSize->20], Locator[Dynamic[p23],ImageSize->20], Locator[Dynamic[p24],ImageSize->20], Locator[Dynamic[p25],ImageSize->20], Locator[Dynamic[p26],ImageSize->20], Locator[Dynamic[p27],ImageSize->20], Locator[Dynamic[p28],ImageSize->20], Locator[Dynamic[p29],ImageSize->20], Locator[Dynamic[p30],ImageSize->20]}, PlotRange->{{-2,2},{-2,2}}], {{p1,{-1.944,-0.9198}},{-1.7,-0.9753},{-1.456,-0.4642},ControlType->None}, {{p2,{-1.456,-0.4642}},{-1.944,-0.9198},{-1.211,-0.5976},ControlType->None}, {{p3,{-1.211,-0.5976}},{-1.456,-0.4642},{-0.6889,-0.3531},ControlType->None}, {{p4,{-0.6889,-0.3531}},{-1.211,-0.5976},{-0.6556,0.3024},ControlType->None}, {{p5,{-0.6556,0.3024}},{-0.6889,-0.3531},{-0.3222,0.4469},ControlType->None}, {{p6,{-0.3222,0.4469}},{-0.6556,0.3024},{0.2333,0.1691},ControlType->None}, {{p7,{0.2333,0.1691}},{-0.3222,0.4469},{0.6111,0.04688},ControlType->None}, {{p8,{0.6111,0.04688}},{0.2333,0.1691},{0.8333,-0.3642},ControlType->None}, {{p9,{0.8333,-0.3642}},{0.6111,0.04688},{0.8778,-0.5753},ControlType->None}, {{p10,{0.8778,-0.5753}},{0.8333,-0.3642},{1.178,-0.7976},ControlType->None}, {{p11,{1.178,-0.7976}},{0.8778,-0.5753},{1.844,-0.6198},ControlType->None}, {{p12,{1.844,-0.6198}},{1.178,-0.7976},{1.967,-1.109},ControlType->None}, {{p13,{1.967,-1.109}},{1.844,-0.6198},{1.211,-1.164},ControlType->None}, {{p14,{1.211,-1.164}},{1.967,-1.109},{0.7889,-1.02},ControlType->None}, {{p15,{0.7889,-1.02}},{1.211,-1.164},{0.5444,-0.4309},ControlType->None}, {{p16,{0.5889,-0.8309}},{0.7889,-1.02},{0.5444,-0.4309},ControlType->None}, {{p17,{0.5444,-0.4309}},{0.5889,-0.8309},{0.5,-0.1753},ControlType->None}, {{p18,{0.5,-0.1753}},{0.5444,-0.4309},{1,1},ControlType->None}, {{p19,{0.2889,-0.2087}},{0.5,-0.1753},{0.1222,-0.06424},ControlType->None}, {{p20,{0.1222,-0.06424}},{0.2889,-0.2087},{-0.2444,0.1691},ControlType->None}, {{p21,{-0.2444,0.1691}},{0.1222,-0.06424},{-0.3778,0.0691},ControlType->None}, {{p22,{-0.3778,0.0691}},{-0.2444,0.1691},{-0.3667,-0.0309},ControlType->None}, {{p23,{-0.3667,-0.0309}},{-0.3778,0.0691},{-0.3444,-0.3087},ControlType->None}, {{p24,{-0.3444,-0.3087}},{-0.3667,-0.0309},{-0.4667,-0.5531},ControlType->None}, {{p25,{-0.4667,-0.5531}},{-0.3444,-0.3087},{-1.011,-0.8309},ControlType->None}, {{p26,{-1.011,-0.8309}},{-0.4667,-0.5531},{-1.233,-0.8753},ControlType->None}, {{p27,{-1.233,-0.8753}},{-1.011,-0.8309},{-1.456,-0.7753},ControlType->None}, {{p28,{-1.456,-0.7753}},{-1.233,-0.8753},{-1.578,-.9087},ControlType->None}, {{p29,{-1.578,-.9087}},{-1.456,-0.7753},{-1.7,-0.9753},ControlType->None}, {{p30,{-1.7,-0.9753}},{-1.578,-.9087},{-1.944,-0.9198},ControlType->None}] Manipulate[ If[r==1,S=Speak["Ipitydafool"];G=coach1]; If[r==2,S=Speak["GrandmaTrunsfasterthanthat"];G=coach2]; If[r==3,S=Speak["RunFaster"];G=coach3]; If[r==4,S=Speak["Goodworkalpha"];G=coach4]; Show[G],{{r,1,"Mr.T,MotivationalCoach:"},{1->"Warm-up", 2->"Mid-run",3->"SecondWind",4->"Cool-down"}}]