gallop=Import["/Users/troyday/Desktop/Gallop.txt","Table"]

walk=Import["/Users/troyday/Desktop/Walk.txt","Table"]

trot=Import["/Users/troyday/Desktop/Trot.txt","Table"]

Wcurve=Import["/Users/troyday/Desktop/WCurve.txt","Table"]

Tcurve=Import["/Users/troyday/Desktop/TCurve.txt","Table"]

Gcurve=Import["/Users/troyday/Desktop/GCurve.txt","Table"]

wcurve=BezierFunction[Wcurve]
tcurve=BezierFunction[Tcurve]
gcurve=BezierFunction[Gcurve]

ListPlot[{walk,trot,gallop},PlotStyle->{Red,Blue,Green},PlotRange->{{0,7},{0,28}},AspectRatio->1,Frame->True,FrameLabel->{"Running speed m/s","mL oxygen consumed to move 1 meter"},LabelStyle->Directive[FontSize->14]]

Export["1.eps",%371,"EPS"]

ListPlot[{walk,trot,gallop},PlotStyle->{Red,Blue,Green},PlotRange->{{0,7},{0,28}},AspectRatio->1]
ParametricPlot[{wcurve[t],tcurve[t],gcurve[t]},{t,0,1},PlotRange->{{0,7},{0,28}},AspectRatio->1,Frame->True,FrameLabel->{"Running speed m/s","mL oxygen consumed to move 1 meter"},LabelStyle->Directive[FontSize->14],PlotStyle->{Red,Blue,Green}]
Show[%,%%]

Export["2.eps",%301,"EPS"]

ParametricPlot[{wcurve[t]},{t,0,.99},PlotRange->{{0,7},{0,28}},AspectRatio->1]
ParametricPlot[{tcurve[t]},{t,.21,.9},PlotRange->{{0,7},{0,28}},AspectRatio->1]
ParametricPlot[{gcurve[t]},{t,.34,1},PlotRange->{{0,7},{0,28}},AspectRatio->1,Frame->True,FrameLabel->{"Running speed m/s","mL oxygen consumed to move 1 meter"},LabelStyle->Directive[FontSize->14]]
Show[%,%%,%%%]

Export["3.eps",%365,"EPS"]

ListPlot[{walk,trot,gallop},PlotStyle->{Red,Blue,Green},PlotLegend->{"Walk","Trot","Gallop"},PlotRange->{{0,7},{0,28}},LegendPosition->{1,0},AspectRatio->1,Frame->True,FrameLabel->{"Running speed m/s","mL oxygen consumed to move 1 meter"},ImageSize->500]

Epilog->ParametricPlot[{wcurve[t],tcurve[t],gcurve[t]},{t,0,1}]

Epilog->ParametricPlot[{wcurve[t],tcurve[t],gcurve[t]},{t,0,1},PlotStyle->{Red,Blue,Green},AspectRatio->1,PlotRange->{{0,7},{0,28}},Axes->False]

ParametricPlot[{wcurve[t],tcurve[t],gcurve[t]},{t,0,1},PlotStyle->{Red,Blue,Green},AspectRatio->1,PlotRange->{{0,7},{0,28}},Axes->False]

Overlay[{%187,%204}]

Show[ListPlot[{walk,trot,gallop},PlotStyle->{Red,Blue,Green},PlotLegend->{"Walk","Trot","Gallop"},PlotRange->{{0,7},{0,28}},LegendPosition->{1.1,-0.4},AspectRatio->1,Frame->True,FrameLabel->{"Running speed m/s","mL oxygen consumed to move 1 meter"}],]

Show[{ParametricPlot[wcurve[t],{t,0,1}],ParametricPlot[tcurve[t],{t,0,1}],ParametricPlot[gcurve[t],{t,0,1}]},AspectRatio->1,PlotRange->{{0,7},{0,28}}]

Show[%,%%]

Show[{ParametricPlot[wcurve[t],{t,0,1}],ParametricPlot[tcurve[t],{t,0,1}],ParametricPlot[gcurve[t],{t,0,1}]},AspectRatio->1,PlotRange->{{0,7},{0,28}}]

Show[ParametricPlot[wcurve[t],{t,0,1}],ParametricPlot[tcurve[t],{t,0,1}],ParametricPlot[gcurve[t],{t,0,1}],PlotRange->{{0,7},{0,28}},AspectRatio->1,Frame->True,FrameLabel->{"Running speed m/s","mL oxygen consumed to move 1 meter"}]

Show[Graphics[{Red,Point[walk],Blue,Point[trot],Green,Point[gallop]},Axes->True],ParametricPlot[wcurve[t],{t,0,1}],ParametricPlot[tcurve[t],{t,0,1}],ParametricPlot[gcurve[t],{t,0,1}],PlotRange->{{0,7},{0,28}},AspectRatio->1]