I seem to only be able to show the end points of a meshed line --how can I make those middle points (should be 2 through 4 in blue) appear ? See attached. Regards and Thanks, John ;-)
Needs["NDSolve`FEM`"];
?=ImplicitRegion [True,{{x,0,1}}];
mesh1=ToElementMesh[?,MaxCellMeasure->0.25,"MeshOrder"->1];
Show[
mesh1["Wireframe"["MeshElementIDStyle"->Red]],
mesh1["Wireframe"["MeshElementIDStyle"->Blue,"MeshElement"->"PointElements","MeshElementIDStyle"->Blue]]]
Attachments:
