
// modélisation de la cible pour la tubine CPO-CP1
// Livio RIZZO, septembre 2006
// les longueurs sont en m

//longueur d'implantation sur le bandage
// (le bandage fait 60mm de large)
long=0.030;

//epaisseur du bandage
eplaq=0.005;

//longueur caractéristique des éléments
lc=0.0015;

//centre du disque
Point(1) = {0, 0, 0, lc};

//rayon exterieur du disque
rext=1.91;

//angle de la cible sur le bandage (45°)
angle=Pi/4;

//angle d'inclinaison du bandage (25°)
incl=10*Pi/72;

//dépassement de la cible
depass=0.020;

//epaisseur de la partie sous le bandage
ep=0.005;

//epaisseur de la partie qui depasse
epdep=0.01;

//largeur de la cible
largci=0.005;

//rayon du congé de raccordement
rcong=0.0049;

//longeur non bloquée
nbloq=0.005;


//Points de la section
Point(2) = {-long/2, 0, rext-eplaq-ep, lc};
Point(3) = {long/2, long*Tan(angle), rext-eplaq-ep, lc};
Point(4) = {long/2+depass, (long+depass)*Tan(angle), rext-eplaq-ep, lc};
Point(5) = {long/2+depass, (long+depass)*Tan(angle)+largci, rext-eplaq-ep, lc};
Point(6) = {long/2, largci+long*Tan(angle), rext-eplaq-ep, lc};
Point(7) = {-long/2, largci, rext-eplaq-ep, lc};
Point(8) = {long/2+(rcong*Cos(angle)), long*Tan(angle)+rcong*Sin(angle), rext-eplaq-ep, lc};
Point(9) = {long/2+(rcong*Cos(angle)), long*Tan(angle)+rcong*Sin(angle)+largci, rext-eplaq-ep, lc};
Point(10) = {long/2-nbloq, (long-nbloq)*Tan(angle), rext-eplaq-ep, lc};
Point(11) = {long/2-nbloq, largci+(long-nbloq)*Tan(angle), rext-eplaq-ep, lc};



Extrude {0,0,ep} {Point{7,2,11,10,6,3};}
Extrude {0,0,rcong} {Point{16,17};}
Extrude {0,0,ep+rcong} {Point{9,8};}
Extrude {0,0,epdep-(ep+rcong)} {Point{20,21};}
Extrude {0,0,epdep} {Point{5,4};}
Line(15) = {7,2};
Line(16) = {13,12};
Line(17) = {7,11};
Line(18) = {14,12};
Line(19) = {2,10};
Line(20) = {15,13};
Line(21) = {15,14};
Line(22) = {10,11};
Line(23) = {15,17};
Line(24) = {3,10};
Line(25) = {14,16};
Line(26) = {11,6};
Line(27) = {6,3};
Line(28) = {16,17};
Line(29) = {3,8};
Line(30) = {6,9};
Line(31) = {9,5};
Line(32) = {5,4};
Line(33) = {4,8};
Line(34) = {22,23};
Line(35) = {21,20};
Line(36) = {22,24};
Line(37) = {24,25};
Line(38) = {25,23};
Circle(39) = {21,19,17};
Circle(40) = {20,18,16};


//Suppression des lignes de construction
Delete {Line{8,7};}

//Raffinage
Characteristic Length {21,20,17,16} = rcong/5;



//Modification pour prendre en compte l'inclinaison du bandage
Extrude {0,0,-long*Sin(incl)} {Point{12,13,2,7};}
Extrude {0,0,-nbloq*Sin(incl)} {Point{11,14,10,15};}

Delete {Line{25,23,26,24,3,22,21,20,18,19,17,16,15,4,1,2};}
Line(66) = {31,33};
Line(67) = {33,32};
Line(68) = {32,30};
Line(69) = {30,31};
Line(70) = {26,27};
Line(71) = {27,28};
Line(72) = {28,29};
Line(73) = {29,26};
Line(74) = {29,30};
Line(75) = {30,6};
Line(76) = {16,31};
Line(77) = {31,26};
Line(78) = {27,33};
Line(79) = {33,17};
Line(84) = {28,32};
Line(85) = {32,3};

//Creation des surfaces et des volumes
Delete {Line{41,42,48,46};}
Delete {Line{43,44};}
Delete {Line{6,5,67,69};}
Delete {Line{47,45,68};}
Delete {Line{10,9};}


Line(111) = {20,9};
Line(112) = {21,8};
Line(113) = {16,6};
Line(114) = {3,17};
Line(115) = {9,8};
Line(116) = {30,31};
Line(117) = {30,32};
Line(118) = {32,33};
Delete {Point{11,10};}
Delete {Point{14,15,12,13,7,2,18,19};}




Line Loop(147) = {39,-28,-40,-35};
Ruled Surface(148) = {147};Line Loop(149) = {29,-115,-30,27};
Plane Surface(150) = {149};
Line Loop(151) = {40,113,30,-111};
Plane Surface(152) = {151};
Line Loop(153) = {39,-114,29,-112};
Plane Surface(154) = {153};


Line Loop(157) = {38,-12,112,-33,14};
Plane Surface(158) = {157};
Line Loop(159) = {36,37,38,-34};
Plane Surface(160) = {159};
Line Loop(161) = {37,-14,-32,13};
Plane Surface(162) = {161};
Line Loop(163) = {36,-13,-31,-111,11};
Plane Surface(164) = {163};
Line Loop(165) = {33,-115,31,32};
Plane Surface(166) = {165};
Line Loop(167) = {34,-12,35,11};
Plane Surface(168) = {167};
Line Loop(169) = {79,-28,76,66};
Plane Surface(170) = {169};
Line Loop(171) = {78,-66,77,70};
Plane Surface(172) = {171};
Line Loop(173) = {79,-114,-85,118};
Plane Surface(174) = {173};
Line Loop(175) = {118,-78,71,84};
Plane Surface(176) = {175};
Line Loop(177) = {113,-75,116,-76};
Plane Surface(178) = {177};
Line Loop(179) = {116,77,-73,74};
Plane Surface(180) = {179};
Line Loop(181) = {70,71,72,73};
Plane Surface(182) = {181};
Line Loop(183) = {85,-27,-75,117};
Plane Surface(184) = {183};
Line Loop(185) = {117,-84,72,74};
Plane Surface(186) = {185};
Surface Loop(187) = {176,-174,170,-148,154,-150,166,158,-160,164,162,-152,178,-184,186,-182,172,-180,-168};
Volume(188) = {187};

Physical Volume(189) = {188};
