Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

You do a ListPlot.

Plot[Sin[x^2], {x, 0, 1}]  
pdat1 = With[{fig = Plot[Sin[x^2], {x, 0, 1}]},   
First@Cases[fig, Line[x_] :> x, Infinity]];  

fig 1
fig 2
fig 3
fig 4
fig 5
fig 6

You get your diagram. fig 1.
You select the ListPlot area.
A red fram shows.
A tooltip says: Double-click to edit. fig 2.
You Double-click the plot line.
Another red fram shows. fig 3.
You again Double-click the plot line.
The data points become visible. fig 4.
You take a handle to resize a data point. fig 5.
You deselect the Plot. fig 6.

There are now some new values constitute the diagram.
Question is:
How can you list/table the plot diagram values after this manipulation?

share|improve this question

You can do the following:-

    points = Cases[
    Cases[InputForm["Paste Here"], Line[___], 
     Infinity], {_?NumericQ, _?NumericQ}, Infinity];

copy paste your modified plot where it says "Paste Here"

Now you can simply plot it


I got this from here

share|improve this answer

Your Answer


By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.