hollowc=Import["/Users/troyday/Desktop/Transfer/BB/Chapter1/E1.2.6/hollowc.txt","Table"]
hollowt=Import["/Users/troyday/Desktop/Transfer/BB/Chapter1/E1.2.6/hollowt.txt","Table"]
solidc=Import["/Users/troyday/Desktop/Transfer/BB/Chapter1/E1.2.6/solidc.txt","Table"]
solidt=Import["/Users/troyday/Desktop/Transfer/BB/Chapter1/E1.2.6/solidt.txt","Table"]

hollowc

TotalData={{4.171`,92.035`},{35.934`,173.301`},{43.023`,257.766`},{113.505`,112.873`},{168.212`,173.289`},{113.888`,255.237`},{106.554`,453.567`},{7341.887`,547.9`},{0.395`,12.875`},{3.088`,71.181`},{3.013`,167.229`},{36.969`,170.563`},{59.266`,109.339`},{154.381`,261.71`},{266.957`,163.009`},{188.451`,423.614`},{391.587`,750.375`},{456.883`,920.583`},{1810.696`,1692.412`},{1271.44`,888.748`},{1408.056`,836.067`},{1916.299`,942.33`},{3308.622`,1031.251`},{3868.475`,866.923`},{8071.762`,899.779`},{3095.561`,528.605`},{17731.439`,1302.663`},{66486.672`,1505.541`},{128400.`,4588.284`},{3.11`,265.964`},{5.118`,491.192`},{22.23`,50.576`},{63.45`,424.808`},{139.498`,488.22`},{303.046`,274.816`},{252.024`,380.833`},{291.086`,488.788`},{531.453`,695.628`},{968.46`,1171.474`},{1396.423`,543.791`},{1717.965`,480.066`},{2349.926`,579.195`},{3243.038`,579.291`},{5124.071`,349.017`},{17697.939`,166.953`},{36866.957`,463.916`},{3453.787`,1167.282`},{19994.982`,1847.203`},{12.397`,386.441`},{142.562`,579.95`},{229.055`,689.51`},{1195.269`,1069.367`},{2174.669`,724.912`},{4106.75`,694.232`},{3307.274`,1315.818`},{9790.227`,1053.023`},{6433.234`,861.383`},{8455.778`,1458.02`},{19857.176`,1519.799`},{23639.826`,2816.507`},{81250.578`,3022.022`},{64199.371`,1783.874`},{208600.`,1029.406`},{329700.`,1246.553`},{1.932`*^6,1274.118`},{292700.`,1804.291`},{214600.`,2040.32`},{170400.`,2155.499`},{144100.`,2231.763`},{111200.`,2231.466`},{115600.`,2486.853`},{166500.`,2646.262`},{225500.`,2740.777`},{356700.`,2334.808`},{964600.`,2771.18`},{333800.`,3762.12`},{370000.`,5163.303`},{430400.`,5163.703`},{503200.`,4498.744`},{742700.`,4499.646`},{839600.`,5362.162`},{1.363`*^6,4664.742`},{1.72`*^6,6783.362`},{2.492`*^6,7371.109`},{2.494`*^6,4558.295`},{5.925`*^6,4911.52`},{1.01`*^7,3195.416`},{8.083`*^6,11802.063`}};

Length[TotalData]

Export["Tdata.txt",Round[TotalData,1],"TABLE"]

(10^1.96) (x^0.27)

ListPlot[{TotalData},PlotStyle->{Blue},PlotRange->{{0,(10^4)},{0,2000}},AspectRatio->1,Frame->True,FrameLabel->{"Area (km^2)  (A)","Number of species  (S)"},LabelStyle->Directive[FontSize->14]]
Plot[(10^1.96) (x^0.27),{x,0,(10^4)},PlotRange->{{0,(10^4)},{0,2000}},AspectRatio->1,Frame->True,FrameLabel->{"Area (km^2) (A)","Number of species (S)"},LabelStyle->Directive[FontSize->14],PlotStyle->{Black}]
Show[%,%%]

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

ListPlot[{hollowc,hollowt,solidc,solidt},PlotStyle->{Red,Blue,Green,Black},PlotRange->{{0,(10^4)},{0,2000}},AspectRatio->1,Frame->True,FrameLabel->{"Running speed m/s","mL oxygen consumed to move 1 meter"},LabelStyle->Directive[FontSize->14]]
Plot[(10^1.96) (x^0.27),{x,0,(10^4)},PlotRange->{{0,(10^4)},{0,2000}},AspectRatio->1,Frame->True]
Show[%,%%]

ListPlot[{hollowc,hollowt,solidc,solidt},PlotStyle->{Red,Blue,Green,Black},PlotRange->{{0,10^4},{0,2000}},AspectRatio->1,Frame->True,FrameLabel->{"Running speed m/s","mL oxygen consumed to move 1 meter"},LabelStyle->Directive[FontSize->14]]

ListPlot[{hollowc,hollowt,solidc,solidt},PlotStyle->{Red,Blue,Green,Black},PlotRange->{{0,10^4},{0,10^3.5}},AspectRatio->1,Frame->True,FrameLabel->{"Running speed m/s","mL oxygen consumed to move 1 meter"},LabelStyle->Directive[FontSize->14]]

Plot[1.96 (x^0.27),{x,0,10^7}]

{Log[hollowc],Log[hollowt],Log[solidc],Log[solidt]}

ListPlot[{Log[10,hollowc],Log[10,hollowt],Log[10,solidc],Log[10,solidt]},PlotStyle->{Red,Blue,Green,Black},PlotRange->{{1,8},{1.5,4}},AspectRatio->1,Frame->True,FrameLabel->{"Running speed m/s","mL oxygen consumed to move 1 meter"},LabelStyle->Directive[FontSize->14]]

Plot[1.96+.27x,{x,0,8}]

ListPlot[{Log[10,hollowc],Log[10,hollowt],Log[10,solidc],Log[10,solidt]},PlotStyle->{Red,Blue,Green,Black},PlotRange->{{1,8},{1.5,4}},AspectRatio->1,Frame->True,FrameLabel->{"Running speed m/s","mL oxygen consumed to move 1 meter"},LabelStyle->Directive[FontSize->14]]
Plot[1.96+.27x,{x,0,8},PlotRange->{{1,8},{1.5,4}},AspectRatio->1,Frame->True]
Show[%,%%]

ListPlot[{hollowc,hollowt,solidc,solidt},PlotStyle->{Red,Blue,Green,Black},PlotRange->{{10,(10^4)},{(10^1.5),(10^4)}},AspectRatio->1,Frame->True,FrameLabel->{"Running speed m/s","mL oxygen consumed to move 1 meter"},LabelStyle->Directive[FontSize->14]]
Plot[(10^1.96) (x^0.27),{x,1,(10^8)},PlotRange->{{10,(10^4)},{(10^1.5),(10^4)}},AspectRatio->1,Frame->True]
Show[%,%%]