Skip to main content
Mathematica

Return to Answer

Restored correct example
Source Link
m_goldberg
m_goldberg
  • 108.1k
  • 16
  • 104
  • 259

Based on Ilian's comment, but modified to fit your situation.

Needs["NDSolve`FEM`"];
Ω = 
  MeshRegion[
    {{0, 0}, {2/Sqrt[3], 0}, {1/Sqrt[3], 1}}, 
    {Line[{{1, 2}, {2, 3}, {3, 1}}]}]; 
mesh = ToElementMesh[Disk[]];ToElementMesh[Ω, MaxCellMeasure -> 0.01, "MeshOrder" -> 1];
mesh["Coordinates"] // Length

1001

59

Based on Ilian's comment, but modified to fit your situation.

Needs["NDSolve`FEM`"];
mesh = ToElementMesh[Disk[]];
mesh["Coordinates"] // Length

1001

Based on Ilian's comment, but modified to fit your situation.

Needs["NDSolve`FEM`"];
Ω = 
  MeshRegion[
    {{0, 0}, {2/Sqrt[3], 0}, {1/Sqrt[3], 1}}, 
    {Line[{{1, 2}, {2, 3}, {3, 1}}]}]; 
mesh = ToElementMesh[Ω, MaxCellMeasure -> 0.01, "MeshOrder" -> 1];
mesh["Coordinates"] // Length

59
The code did not work.
Source Link
Karsten7
Karsten7
  • 27.6k
  • 5
  • 74
  • 135

Based on Ilian's comment, but modified to fit your situation.

Needs["NDSolve`FEM`"];
mesh = ToElementMesh[Disk[]];
mesh["Coordinates"] // Length
 
(* 1029 *)

1001

Based on Ilian's comment, but modified to fit your situation.

Needs["NDSolve`FEM`"];
mesh = ToElementMesh[Disk[]];
mesh["Coordinates"] // Length
 
(* 1029 *)

Based on Ilian's comment, but modified to fit your situation.

Needs["NDSolve`FEM`"];
mesh = ToElementMesh[Disk[]];
mesh["Coordinates"] // Length

1001

The code did not work.
Source Link
edit approved Oct 6, 2015 at 7:13
Community Bot
edit approved Oct 6, 2015 at 7:13
Community Bot
  • 1

Based on Lilian'sIlian's comment, but modified to fit your situation.

Needs["NDSolve`FEM`"];
Ωmesh = 
  MeshRegion[ToElementMesh[Disk[]];
    {{0, 0},mesh["Coordinates"] {2/Sqrt[3], 0}, {1/Sqrt[3], 1}}, {Line[{{1, 2}, {2, 3}, {3, 1}}]}];Length
mesh["Coordinates"]
(* //1029 Length*)

59

Based on Lilian's comment, but modified to fit your situation.

Needs["NDSolve`FEM`"];
Ω = 
  MeshRegion[
    {{0, 0}, {2/Sqrt[3], 0}, {1/Sqrt[3], 1}}, {Line[{{1, 2}, {2, 3}, {3, 1}}]}];
mesh["Coordinates"] // Length

59

Based on Ilian's comment, but modified to fit your situation.

Needs["NDSolve`FEM`"];
mesh = ToElementMesh[Disk[]];
mesh["Coordinates"] // Length

(* 1029 *)
Source Link
m_goldberg
m_goldberg
  • 108.1k
  • 16
  • 104
  • 259
Post Made Community Wiki by m_goldberg