Include "C:\param.geo";

// longueur caractéristiques
h=0.1; // paramètres sans influence dans le cas d'un mailllage avec des quadrangles, mais essentiel dans le cas d'un maillage libre

// decalage siège/opercule
decal = 0.0;

// longeur de la barre de rétention
L = 0.05;

//*********************************** Paramètres géométriques *****************************


//*********************************** FIN Paramètres géométriques *****************************




//*********************************** Paramètres du Maillage **********************************

// calcul du nombre de noeud intermédiaire pour l'opercule
no1 = Floor(e_oper/lo*no4);
no2 = Floor((r1ext-ls)/lo*no4);
no3 = Floor(ho/lo*no4);

// calcul du nombre de noeud intermédiaire pour le siège
ns1 = Floor(hs/ls*ns2);
	
//*********************************** FIN Paramètres du Maillage *****************************


//*********************************** CONSTRUCTION *******************************************

// calcul du maillage intermédiaire
z1 = Floor(rc1/(r1ext-lo)*no2);
z2 = Floor((rc2-rc1)/(r1ext-lo)*no2);
z3 = Floor((r1ext-lo-rc2)/(r1ext-lo)*no2);

// construction des points et des lignes
// siège
Point(1) = {r2int,0,0,h};
Point(2) = {r2int+ls,0,0,h};
Line(1) = {1,2};

//opercule
Point(3) = {0,hs+decal+ho,0,h};
Point(4) = {0,hs+decal+ho+e_oper,0,h};
Line(2) = {3,4};

// barre de rétention
Point(5) = {0,hs+decal+ho+e_oper+L,0,h};
Line(3) = {4,5};


// maillage
// siège
Transfinite Line {1} = ns2 Using Progression 1;
Extrude Line {1, {0,hs,0}}{Layers { ns1-1,9000,1}; Recombine; };

// opercule
Transfinite Line {2} = no1 Using Progression 1;
Extrude Line {2, {rc1,0,0}}{Layers { z1-1,10000,1}; Recombine; };
Extrude Line {8, {rc2-rc1,0,0}}{Layers { z2-1,11000,1}; Recombine; };
Extrude Line {12, {r1ext-lo-rc2,0,0}}{Layers { z3-1,12000,1}; Recombine; };
Extrude Line {16, {lo,0,0}}{Layers { no4-1,13000,1}; Recombine; };
Extrude Line {21, {0,-ho,0}}{Layers { no3-1,14000,1}; Recombine; };

// supprime les noeuds redondants
Coherence;


//*********************************** FIN CONSTRUCTION ***************************************

//*************** DECLARATION DES SURFACES ET DES SEGMENTS PHYSIQUES *************************

// opercule GM28
Physical Surface(28) = {11,15,19,23,27};

// siège GM29
Physical Surface(29) = {7};

// barre de rétention  : point GM31, ligne GM30
Physical Line(30) = {3};
Physical Point(31) = {5};

// segment d'application de la pression: GM32
Physical Line(32) = {10,18};//{10,14,18};

// surface pour l'effort du coin sur l'opercule: GM33
Physical Line(33) = {14};

// surface de l'opercule pour le contact: GM34
Physical Line(34) = {24};

// surface du siège pour le contact: GM36
Physical Line(36) = {4};

// surface du siège pour l'encastrement: GM37
Physical Line(37) = {1};

// axe de révolution de l'opercule: GM38
Physical Line(38) = {2};
