7 added 116 characters in body
source | link

I would like to mesh the region below in order to use it for a calculation by means of NDSolve. Could anyone help me to discretize this region for NDSolve using. Thank you very much.

Needs["NDSolve`FEM`"];

Rwg=7.0; RLiner=8.0; RRib=8.5; RExt=9.0; Theta1=0.0227; Theta2=0.00916; 

Ω=ImplicitRegion[
    !(x^2 + y^2>RLiner^2 && x^2 + y^2< RRib^2 && 0<y<x*Tan[Theta2])&&
 (y>=0 && x^2 + y^2>=Rwg^2 && x^2 + y^2<=RExt^2 && y<=x Tan[Theta1]),{x, y}]; 


Show[ RegionPlot[Ω], ImageSize -> 300]

ToElementMesh[Ω,MaxCellMeasure -> 0.0001]["Wireframe"]

I would like to mesh the region below in order to use it for a calculation by means of NDSolve. Could anyone help me to discretize this region for NDSolve using. Thank you very much.

Needs["NDSolve`FEM`"];

Rwg=7.0; RLiner=8.0; RRib=8.5; RExt=9.0; Theta1=0.0227; Theta2=0.00916; 

Ω=ImplicitRegion[
    !(x^2 + y^2>RLiner^2 && x^2 + y^2< RRib^2 && 0<y<x*Tan[Theta2])&&
 (y>=0 && x^2 + y^2>=Rwg^2 && x^2 + y^2<=RExt^2 && y<=x Tan[Theta1]),{x, y}];

I would like to mesh the region below in order to use it for a calculation by means of NDSolve. Could anyone help me to discretize this region for NDSolve using. Thank you very much.

Needs["NDSolve`FEM`"];

Rwg=7.0; RLiner=8.0; RRib=8.5; RExt=9.0; Theta1=0.0227; Theta2=0.00916; 

Ω=ImplicitRegion[
    !(x^2 + y^2>RLiner^2 && x^2 + y^2< RRib^2 && 0<y<x*Tan[Theta2])&&
 (y>=0 && x^2 + y^2>=Rwg^2 && x^2 + y^2<=RExt^2 && y<=x Tan[Theta1]),{x, y}]; 


Show[ RegionPlot[Ω], ImageSize -> 300]

ToElementMesh[Ω,MaxCellMeasure -> 0.0001]["Wireframe"]
6 deleted 96 characters in body
source | link

I am tryingwould like to mesh the region below, but this error is displayed "A mesh could not be generated" in order to use it for a calculation by means of NDSolve. Is there Could anyone who could help me to solvediscretize this problem?region for NDSolve using. Thank you very much.

Needs["NDSolve`FEM`"];

Rwg=7.0; RLiner=8.0; RRib=8.5; RExt=9.0; Theta1=0.0227; Theta2=0.00916; 

Ω=ImplicitRegion[
    !(x^2 + y^2>RLiner^2 && x^2 + y^2< RRib^2 && 0<y<x*Tan[Theta2])&&
 (y>=0 && x^2 + y^2>=Rwg^2 && x^2 + y^2<=RExt^2 && y<=x Tan[Theta1]),{x, y}];

Show[ RegionPlot[Ω], ImageSize -> 300]

ToElementMesh[Ω,MaxCellMeasure -> 0.0001]["Wireframe"]

I am trying to mesh the region below, but this error is displayed "A mesh could not be generated". Is there anyone who could help me to solve this problem? Thank you.

Needs["NDSolve`FEM`"];

Rwg=7.0; RLiner=8.0; RRib=8.5; RExt=9.0; Theta1=0.0227; Theta2=0.00916; 

Ω=ImplicitRegion[
    !(x^2 + y^2>RLiner^2 && x^2 + y^2< RRib^2 && 0<y<x*Tan[Theta2])&&
 (y>=0 && x^2 + y^2>=Rwg^2 && x^2 + y^2<=RExt^2 && y<=x Tan[Theta1]),{x, y}];

Show[ RegionPlot[Ω], ImageSize -> 300]

ToElementMesh[Ω,MaxCellMeasure -> 0.0001]["Wireframe"]

I would like to mesh the region below in order to use it for a calculation by means of NDSolve. Could anyone help me to discretize this region for NDSolve using. Thank you very much.

Needs["NDSolve`FEM`"];

Rwg=7.0; RLiner=8.0; RRib=8.5; RExt=9.0; Theta1=0.0227; Theta2=0.00916; 

Ω=ImplicitRegion[
    !(x^2 + y^2>RLiner^2 && x^2 + y^2< RRib^2 && 0<y<x*Tan[Theta2])&&
 (y>=0 && x^2 + y^2>=Rwg^2 && x^2 + y^2<=RExt^2 && y<=x Tan[Theta1]),{x, y}];
5 added 5 characters in body; edited title
source | link

Invalid region for small angles. To Element Mesh. Finite element method

I am trying to mesh the region below, but this error is displayed "A mesh could not be generated". Is there anyone who could help me to solve this problem? Thank you.

Needs["NDSolve`FEM`"];

Rwg=7.0; RLiner=8.0; RRib=8.5; RExt=9.0; Theta1=Pi/4;Theta1=0.0227; Theta2=Pi/8;Theta2=0.00916; 

Ω=ImplicitRegion[
    !(x^2 + y^2>RLiner^2 && x^2 + y^2< RRib^2 && 0<y<x*Tan[Theta2])&&
 (y>=0 && x^2 + y^2>=Rwg^2 && x^2 + y^2<=RExt^2 && y<=x Tan[Theta1]),{x, y}];

Show[ RegionPlot[Ω], ImageSize -> 300]

ToElementMesh[Ω,MaxCellMeasure -> 0.0001]["Wireframe"]

To Element Mesh. Finite element method

I am trying to mesh the region below, but this error is displayed "A mesh could not be generated". Is there anyone who could help me to solve this problem? Thank you.

Needs["NDSolve`FEM`"];

Rwg=7.0; RLiner=8.0; RRib=8.5; RExt=9.0; Theta1=Pi/4; Theta2=Pi/8; 

Ω=ImplicitRegion[
    !(x^2 + y^2>RLiner^2 && x^2 + y^2< RRib^2 && 0<y<x*Tan[Theta2])&&
 (y>=0 && x^2 + y^2>=Rwg^2 && x^2 + y^2<=RExt^2 && y<=x Tan[Theta1]),{x, y}];

Show[ RegionPlot[Ω], ImageSize -> 300]

ToElementMesh[Ω,MaxCellMeasure -> 0.0001]["Wireframe"]

Invalid region for small angles. To Element Mesh. Finite element method

I am trying to mesh the region below, but this error is displayed "A mesh could not be generated". Is there anyone who could help me to solve this problem? Thank you.

Needs["NDSolve`FEM`"];

Rwg=7.0; RLiner=8.0; RRib=8.5; RExt=9.0; Theta1=0.0227; Theta2=0.00916; 

Ω=ImplicitRegion[
    !(x^2 + y^2>RLiner^2 && x^2 + y^2< RRib^2 && 0<y<x*Tan[Theta2])&&
 (y>=0 && x^2 + y^2>=Rwg^2 && x^2 + y^2<=RExt^2 && y<=x Tan[Theta1]),{x, y}];

Show[ RegionPlot[Ω], ImageSize -> 300]

ToElementMesh[Ω,MaxCellMeasure -> 0.0001]["Wireframe"]
4 Loaded FEM package
source | link
3 added 71 characters in body
source | link
2 deleted 10 characters in body
source | link
1
source | link