Return to Answer

deleted 1 character in body

edited May 25, 2015 at 22:46

74.9k
9
212
380

Just wanted to update everyone that things are much simpler, - there is built in support for this:

MeshFunctions -> {"ArcLength"}

So for our case:

Show[{ ParametricPlot3D[KnotData[{3, 1}, "SpaceCurve"][t], {t, 0, 2 Pi}, (* the trick *) Mesh -> 15, MeshFunctions -> {"ArcLength"}, (* styles *) MeshStyle -> Directive[Red, PointSize[.03]], MeshShading -> {Red, Blue}], (* the boundary plitsplit point *)    Graphics3D[{Red, PointSize[.03], Point[KnotData[{3, 1}, "SpaceCurve"][0]]}]}]

enter image description here

Just wanted to update everyone that things are much simpler, - there is built in support for this:

MeshFunctions -> {"ArcLength"}

So for our case:

Show[{ ParametricPlot3D[KnotData[{3, 1}, "SpaceCurve"][t], {t, 0, 2 Pi}, (* the trick *) Mesh -> 15, MeshFunctions -> {"ArcLength"}, (* styles *) MeshStyle -> Directive[Red, PointSize[.03]], MeshShading -> {Red, Blue}], (* the boundary plit point *)   Graphics3D[{Red, PointSize[.03], Point[KnotData[{3, 1}, "SpaceCurve"][0]]}]}]

enter image description here

Just wanted to update everyone that things are much simpler, - there is built in support for this:

MeshFunctions -> {"ArcLength"}

So for our case:

Show[{ ParametricPlot3D[KnotData[{3, 1}, "SpaceCurve"][t], {t, 0, 2 Pi}, (* the trick *) Mesh -> 15, MeshFunctions -> {"ArcLength"}, (* styles *) MeshStyle -> Directive[Red, PointSize[.03]], MeshShading -> {Red, Blue}], (* the boundary split point *)  Graphics3D[{Red, PointSize[.03], Point[KnotData[{3, 1}, "SpaceCurve"][0]]}]}]

enter image description here

Source Link

answered May 25, 2015 at 22:27

Vitaliy Kaurov

74.9k
9
212
380

Just wanted to update everyone that things are much simpler, - there is built in support for this:

MeshFunctions -> {"ArcLength"}

So for our case:

Show[{ ParametricPlot3D[KnotData[{3, 1}, "SpaceCurve"][t], {t, 0, 2 Pi}, (* the trick *) Mesh -> 15, MeshFunctions -> {"ArcLength"}, (* styles *) MeshStyle -> Directive[Red, PointSize[.03]], MeshShading -> {Red, Blue}], (* the boundary plit point *) Graphics3D[{Red, PointSize[.03], Point[KnotData[{3, 1}, "SpaceCurve"][0]]}]}]

enter image description here