1. Home
2. Questions
3. Tags
5. Users
6. Unanswered
Teams

Ask questions, find answers and collaborate at work with Stack Overflow for Teams.
Try Teams for free Explore Teams
Teams
Ask questions, find answers and collaborate at work with Stack Overflow for Teams. Explore Teams

Return to Answer

deleted 44 characters in body

Source Link

edited Nov 20, 2018 at 17:26

400.5k
18
488
929

pp = ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
   Mesh -> {Subdivide[0, 10, 20]}, 
   MeshStyle -> Directive[ColorData[97]@1, PointSize[Large]]];PointSize[Large]];
points = Cases[Normal[pp], Point[x_] :> x, ∞];
Show[pp, ListPlot[Callout[#, #2] & @@@ 
   Transpose[{SortBy[points, Last], N @ Rest@Subdivide[0, 10, 20]}]], 
  ImageSize -> 400]

Also

ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
 Epilog -> ListPlot[Callout[{##2}, #] & @@@ 
   Table[N@{x, Sin@x, .3 Log @ (x^2)}, {x, Subdivide[0, 10, 20]}], 
  PlotStyle -> PointSize[Large]][[1]]]

pp = ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
   Mesh -> {Subdivide[0, 10, 20]}, 
   MeshStyle -> Directive[ColorData[97]@1, PointSize[Large]]];
points = Cases[Normal[pp], Point[x_] :> x, ∞];
Show[pp, ListPlot[Callout[#, #2] & @@@ 
   Transpose[{SortBy[points, Last], N @ Rest@Subdivide[0, 10, 20]}]], 
  ImageSize -> 400]

Also

ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
 Epilog -> ListPlot[Callout[{##2}, #] & @@@ 
   Table[N@{x, Sin@x, .3 Log @ (x^2)}, {x, Subdivide[0, 10, 20]}], 
  PlotStyle -> PointSize[Large]][[1]]]

pp = ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
   Mesh -> {Subdivide[0, 10, 20]}, MeshStyle -> PointSize[Large]];
points = Cases[Normal[pp], Point[x_] :> x, ∞];
Show[pp, ListPlot[Callout[#, #2] & @@@ 
  Transpose[{SortBy[points, Last], N @ Rest@Subdivide[0, 10, 20]}]], ImageSize -> 400]

Also

ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
 Epilog -> ListPlot[Callout[{##2}, #] & @@@ 
   Table[N@{x, Sin@x, .3 Log @ (x^2)}, {x, Subdivide[0, 10, 20]}], 
  PlotStyle -> PointSize[Large]][[1]]]

added 109 characters in body

Source Link

edited Nov 20, 2018 at 15:48

400.5k
18
488
929

pp = ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
   Mesh -> 20{Subdivide[0, 10, 20]}, 
   MeshStyle -> Directive[ColorData[97]@1, PointSize[Large]]];
points = Cases[Normal[pp], Point[x_] :> x, ∞];
Show[pp, ListPlot[Callout[#, #[[1]]]#2] & /@@@ 
   Transpose[{SortBy[points, Last], N @ points]Rest@Subdivide[0, 10, 20]}]], 
  ImageSize -> 400]

Also

ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
 Epilog -> ListPlot[Callout[{##2}, #] & @@@ 
   Table[N@{x, Sin@x, .3 Log @ (x^2)}, {x, Subdivide[0, 10, 20]}], 
  PlotStyle -> PointSize[Large]][[1]]]

pp = ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, Mesh -> 20, 
   MeshStyle -> Directive[ColorData[97]@1, PointSize[Large]]];
points = Cases[Normal[pp], Point[x_] :> x, ∞];
Show[pp, ListPlot[Callout[#, #[[1]]] & /@ points], ImageSize -> 400]

Also

ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
 Epilog -> ListPlot[Callout[{##2}, #] & @@@ 
   Table[N@{x, Sin@x, .3 Log @ (x^2)}, {x, Subdivide[0, 10, 20]}], 
  PlotStyle -> PointSize[Large]][[1]]]

pp = ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
   Mesh -> {Subdivide[0, 10, 20]}, 
   MeshStyle -> Directive[ColorData[97]@1, PointSize[Large]]];
points = Cases[Normal[pp], Point[x_] :> x, ∞];
Show[pp, ListPlot[Callout[#, #2] & @@@ 
   Transpose[{SortBy[points, Last], N @ Rest@Subdivide[0, 10, 20]}]], 
  ImageSize -> 400]

Also

ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
 Epilog -> ListPlot[Callout[{##2}, #] & @@@ 
   Table[N@{x, Sin@x, .3 Log @ (x^2)}, {x, Subdivide[0, 10, 20]}], 
  PlotStyle -> PointSize[Large]][[1]]]

added 1 character in body

Source Link

edited Nov 20, 2018 at 15:28

400.5k
18
488
929

pp = ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, Mesh -> 20, 
   MeshStyle -> Directive[ColorData[97]@1, PointSize[Large]]];
points = Cases[Normal[pp], Point[x_] :> x, ∞];
Show[pp, ListPlot[Callout[#, #[[1]]] & /@ points], ImageSize -> 400]

Also

ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
 Epilog -> ListPlot[Callout[#ListPlot[Callout[{##2}, #[[1]]]#] & /@@@@ 
     Table[N@{x, Sin@x, .3 Log@Log @ (x^2)}, {x, Subdivide[0, 10, 20]}], 
    PlotStyle -> PointSize[Large]][[1]]]

pp = ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, Mesh -> 20, 
   MeshStyle -> Directive[ColorData[97]@1, PointSize[Large]]];
points = Cases[Normal[pp], Point[x_] :> x, ∞];
Show[pp, ListPlot[Callout[#, #[[1]]] & /@ points], ImageSize -> 400]

Also

ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
 Epilog -> ListPlot[Callout[#, #[[1]]] & /@ 
     Table[N@{Sin@x, .3 Log@(x^2)}, {x, Subdivide[0, 10, 20]}], 
    PlotStyle -> PointSize[Large]][[1]]]

pp = ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, Mesh -> 20, 
   MeshStyle -> Directive[ColorData[97]@1, PointSize[Large]]];
points = Cases[Normal[pp], Point[x_] :> x, ∞];
Show[pp, ListPlot[Callout[#, #[[1]]] & /@ points], ImageSize -> 400]

Also

ParametricPlot[{Sin@x, .3 Log@(x^2)}, {x, 0, 10}, 
 Epilog -> ListPlot[Callout[{##2}, #] & @@@ 
   Table[N@{x, Sin@x, .3 Log @ (x^2)}, {x, Subdivide[0, 10, 20]}], 
  PlotStyle -> PointSize[Large]][[1]]]

added 319 characters in body

Source Link

edited Nov 20, 2018 at 15:19

400.5k
18
488
929

Loading

Source Link

created Nov 20, 2018 at 15:04

400.5k
18
488
929

Loading