Skip to main content
Mathematica

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

7
  • $\begingroup$ Thanks, I would like to save in 4 columns rather than {[Theta], [Phi], x, y} format. I'm do use "Table" while exporting, but it doesnt give the desired result. $\endgroup$ Commented Apr 28, 2021 at 13:07
  • 1
    $\begingroup$ That is you want only list of {{x_1,y_1},...,{x_N,y_N}} ? If so, using Sow[{x, y}] should work. For exporting indeed either export data[[1]] or in the definition of data use [[2,1]] at the end. $\endgroup$ Commented Apr 28, 2021 at 13:16
  • $\begingroup$ Thanks, Using Parametric2D I have encountered problem I now need to plot only the circumference points rather than all the center regions. $\endgroup$ Commented Apr 28, 2021 at 13:23
  • 1
    $\begingroup$ My answer was really about how to extract data from a plot. If you want to extract only some specific points, then this will depend on what exactly is your goal (I assume it is bit more than this example, as otherwise you'd probably just generate a table with points, rather than going through plot). Anyway, in this example you could use If[x^2 + y^2 >= 15^2, Sow[{x, y}]] $\endgroup$ Commented Apr 28, 2021 at 13:49
  • 1
    $\begingroup$ Yes, this is what I meant: data = Reap[ParametricPlot[{x, y}, {\[Theta], 0, 2 \[Pi]}, {\[Phi], 0, 2 \[Pi]}, EvaluationMonitor :> If[x^2 + y^2 >= 15^2, Sow[{x, y}]]]][[2, 1]] $\endgroup$ Commented Apr 28, 2021 at 14:00