Take part from plot

Ask Question

Asked 4 years ago

Modified 4 years ago

Viewed 61 times

I want to get the line from plot. Then I use

Plot[Sin[x], {x, 0, 1}, MaxRecursion -> 1][[1, 1, 1, 3]]

I get somthing. But when I use

Plot[Sin[x], {x, 0, 1}, MaxRecursion -> 1][[1, 1, 1, 3, 2]]

I get

"Charting`Private`Tag$33789#1"

And I find the solution from here.

My question is : why can't that work?

asked Nov 30, 2019 at 5:53

AsukaMinato

8,94013 silver badges38 bronze badges

3

$\begingroup$ That solution using [[1, 1, 1, 3]] is really not recommended, because the details of how the Graphics[] primitives are embedded can differ between versions of Mathematica. Try Cases[Normal[Plot[Sin[x], {x, 0, 1}, MaxRecursion -> 1]], _Line, Infinity] instead. $\endgroup$
– J. M.'s eventual burnout ♦
Nov 30, 2019 at 5:56
2

$\begingroup$ ok,thanks. I use pl = Plot[Sin[x], {x, 0, 1}, MaxRecursion -> 1]; Graphics@Line@Cases[pl, Line[pts_] :> pts, Infinity] to solve it. $\endgroup$
– AsukaMinato
Nov 30, 2019 at 6:09
1

$\begingroup$ Your proposal removes the Line[] head only to add it back in later. Don't you think this is a little wasteful? $\endgroup$
– J. M.'s eventual burnout ♦
Nov 30, 2019 at 6:13

Add a comment |

0 Your Answer

Name

Required, but never shown

Post as a guest

Name

Required, but never shown

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.