In[63]:=

Out[63]=

{{0.03, 299.81}, {0.04, 189.296}, {0.05, 126.162}, {0.06, 90.637}, {0.07, 68.098}, {0.08, 51.529}, {0.09, 41.15}, {0.1, 33.677}, {0.11, 27.664}, {0.12, 22.973}, {0.13, 19.65}, {0.14, 16.762}}

In[64]:=

y = MapAt[1/#&, x, Array[{#, 1} &, 12]]

Out[64]=

In[65]:=

ListPlot[y]

[Graphics:HTMLFiles/fitness_6.gif]

Out[65]=

-Graphics -

In[66]:=

z = MapAt[1/#^2&, x, Array[{#, 1} &, 12]]

Out[66]=

In[67]:=

ListPlot[z]

[Graphics:HTMLFiles/fitness_11.gif]

Out[67]=

-Graphics -


Created by Mathematica  (November 6, 2007) Valid XHTML 1.1!