Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

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
    

1 Answer 1

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

 ListLinePlot[points]

I got this from here

share|improve this answer

Your Answer

 
discard

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.