Mesh.MshFileVersion = 1; 
R1 =    0.00000;
R2 =    0.010000;
H =    0.010000;
Fin =    0.80000;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////// 




BOUNDARY_1001 = 1001;
BOUNDARY_1002 = 1002;
BOUNDARY_1003 = 1003; 
BOUNDARY_1004 = 1004; 

// domaine 1
Point(1) = {R1,0,0,Fin};
Point(2) = {R2,0,0,Fin};
Point(3) = {R2,H,0,Fin};
Point(4) = {R1,H,0,Fin};


// contour
Line(1) = {1,2};
Line(2) = {2,3};
Line(3) = {3,4};
Line(4) = {4,1};

Line Loop(9) = {1,2,3,4};
Plane Surface(10) = {9};

// s t r u c t u r a t i o n du m aill a g e
Transfinite Line {1,3}=11;
Transfinite Line {2,4}=11;
Transfinite Surface "*";

//maillage quadrangulaire
Recombine Surface "*";

Geometry.CopyMeshingMethod = 1;
kk=1;
For ii In {0:9}
For jj In {0:9}
If (ii==0 && jj==0)
Else
//bnd~{kk}=Boundary{Translate {R2*ii,H*jj,0}{Duplicata {Surface{10};}}};
my_new_surface~{kk}=Translate {R2*ii,H*jj,0}{Duplicata {Surface{10};}};
Printf("'%g'", my_new_surface~{kk});
//Printf("'%g' and '%g' and '%g' and '%g'", bnd~{kk}[0],bnd~{kk}[1],bnd~{kk}[2],bnd~{kk}[3]);
Printf("'%g'", kk);
kk=kk+1;
EndIf
EndFor
EndFor

DOMAIN_1=1000;
Physical Surface (DOMAIN_1)={10,my_new_surface~{1}[0],
my_new_surface~{2}[0],
my_new_surface~{3}[0],
my_new_surface~{4}[0],
my_new_surface~{5}[0],
my_new_surface~{6}[0],
my_new_surface~{7}[0],
my_new_surface~{8}[0],
my_new_surface~{9}[0],
my_new_surface~{10}[0],
my_new_surface~{11}[0],
my_new_surface~{12}[0],
my_new_surface~{13}[0],
my_new_surface~{14}[0],
my_new_surface~{15}[0],
my_new_surface~{16}[0],
my_new_surface~{17}[0],
my_new_surface~{18}[0],
my_new_surface~{19}[0],
my_new_surface~{20}[0],
my_new_surface~{21}[0],
my_new_surface~{22}[0],
my_new_surface~{23}[0],
my_new_surface~{24}[0],
my_new_surface~{25}[0],
my_new_surface~{26}[0],
my_new_surface~{27}[0],
my_new_surface~{28}[0],
my_new_surface~{29}[0],
my_new_surface~{30}[0],
my_new_surface~{31}[0],
my_new_surface~{32}[0],
my_new_surface~{33}[0],
my_new_surface~{34}[0],
my_new_surface~{35}[0],
my_new_surface~{36}[0],
my_new_surface~{37}[0],
my_new_surface~{38}[0],
my_new_surface~{39}[0],
my_new_surface~{40}[0],
my_new_surface~{41}[0],
my_new_surface~{42}[0],
my_new_surface~{43}[0],
my_new_surface~{44}[0],
my_new_surface~{45}[0],
my_new_surface~{46}[0],
my_new_surface~{47}[0],
my_new_surface~{48}[0],
my_new_surface~{49}[0],
my_new_surface~{50}[0],
my_new_surface~{51}[0],
my_new_surface~{52}[0],
my_new_surface~{53}[0],
my_new_surface~{54}[0],
my_new_surface~{55}[0],
my_new_surface~{56}[0],
my_new_surface~{57}[0],
my_new_surface~{58}[0],
my_new_surface~{59}[0],
my_new_surface~{60}[0],
my_new_surface~{61}[0],
my_new_surface~{62}[0],
my_new_surface~{63}[0],
my_new_surface~{64}[0],
my_new_surface~{65}[0],
my_new_surface~{66}[0],
my_new_surface~{67}[0],
my_new_surface~{68}[0],
my_new_surface~{69}[0],
my_new_surface~{70}[0],
my_new_surface~{71}[0],
my_new_surface~{72}[0],
my_new_surface~{73}[0],
my_new_surface~{74}[0],
my_new_surface~{75}[0],
my_new_surface~{76}[0],
my_new_surface~{77}[0],
my_new_surface~{78}[0],
my_new_surface~{79}[0],
my_new_surface~{80}[0],
my_new_surface~{81}[0],
my_new_surface~{82}[0],
my_new_surface~{83}[0],
my_new_surface~{84}[0],
my_new_surface~{85}[0],
my_new_surface~{86}[0],
my_new_surface~{87}[0],
my_new_surface~{88}[0],
my_new_surface~{89}[0],
my_new_surface~{90}[0],
my_new_surface~{91}[0],
my_new_surface~{92}[0],
my_new_surface~{93}[0],
my_new_surface~{94}[0],
my_new_surface~{95}[0],
my_new_surface~{96}[0],
my_new_surface~{97}[0],
my_new_surface~{98}[0],
my_new_surface~{99}[0]};

Boundary_1=1001;
Physical Line (Boundary_1) ={1,4,
2,
3,
13,
14,
15,
18,
19,
20,
23,
24,
25,
28,
29,
30,
33,
34,
35,
38,
39,
40,
43,
44,
45,
48,
49,
50,
53,
54,
55,
57,
58,
59,
62,
63,
66,
67,
70,
71,
74,
75,
78,
79,
82,
83,
86,
87,
90,
91,
94,
95,
97,
98,
99,
102,
103,
106,
107,
110,
111,
114,
115,
118,
119,
122,
123,
126,
127,
130,
131,
134,
135,
137,
138,
139,
142,
143,
146,
147,
150,
151,
154,
155,
158,
159,
162,
163,
166,
167,
170,
171,
174,
175,
177,
178,
179,
182,
183,
186,
187,
190,
191,
194,
195,
198,
199,
202,
203,
206,
207,
210,
211,
214,
215,
217,
218,
219,
222,
223,
226,
227,
230,
231,
234,
235,
238,
239,
242,
243,
246,
247,
250,
251,
254,
255,
257,
258,
259,
262,
263,
266,
267,
270,
271,
274,
275,
278,
279,
282,
283,
286,
287,
290,
291,
294,
295,
297,
298,
299,
302,
303,
306,
307,
310,
311,
314,
315,
318,
319,
322,
323,
326,
327,
330,
331,
334,
335,
337,
338,
339,
342,
343,
346,
347,
350,
351,
354,
355,
358,
359,
362,
363,
366,
367,
370,
371,
374,
375,
377,
378,
379,
382,
383,
386,
387,
390,
391,
394,
395,
398,
399,
402,
403,
406,
407,
410,
411,
414,
415
};
