Il existe de nombreuses façons de réaliser un maillage. Voici deux exemples de maillage d'un cylindre creux, le premier compliqué, le second plus simple.
EXEMPLE 1
OPTI DIME 3 ELEM CUB8 ; ******************************************************************************** *POINTS H1 = 5. ; COMM Hauteur du cylindre ; R1 = 2. ; COMM Rayon interieur ; R2 = 2.5 ; COMM Rayon exterieur ; O1 = 0. 0. 0. ; O2 = 0. 0. H1 ; COMM Points de l axe du cylindre ; P11 = R1 0. 0. ; P12 = 0. R1 0. ; P13 = ((-1.)*R1) 0. 0. ; P14 = 0. ((-1.)*R1) 0. ; P21 = R2 0. 0. ; P22 = 0. R2 0. ; P23 = ((-1.)*R2) 0. 0. ; P24 = 0. ((-1.)*R2) 0. ; ******************************************************************************** *LIGNES *Contour interieur de la base C11 = C 20 P11 O1 P12 ; C12 = C 20 P12 O1 P13 ; C13 = C 20 P13 O1 P14 ; C14 = C 20 P14 O1 P11 ; CONT1 = C11 ET C12 ET C13 ET C14 ; *Contour exterieur de la base C21 = C 20 P22 O1 P21 ; C22 = C 20 P23 O1 P22 ; C23 = C 20 P24 O1 P23 ; C24 = C 20 P21 O1 P24 ; CONT2 = C21 ET C22 ET C23 ET C24 ; CONTTOT1 = CONT1 ET CONT2 ; ******************************************************************************** *SURFACE SURF1 = SURF CONTTOT1 'PLAN' ; ******************************************************************************** *VOLUME VOL1 = SURF1 VOLU 10 TRANS (0. 0. H1) ; ******************************************************************************** *TRACAGE TITRE 'MAILLAGE D UN CYLINDRE CREUX' ; TRAC CACH QUAL VOL1 ; FIN;
Remarques sur le fichier d'exemple 1
EXEMPLE 2
OPTI DIME 3 ELEM CUB8 ; ******************************************************************************** *POINTS H1 = 5. ; COMM Hauteur du cylindre ; R1 = 2. ; COMM Rayon interieur ; R2 = 2.5 ; COMM Rayon exterieur ; O1 = 0. 0. 0. ; O2 = 0. 0. H1 ; COMM Points de l axe du cylindre ; P11 = R1 0. 0. ; P21 = R2 0. 0. ; ******************************************************************************** L1 = P11 D 3 P21 ; SEC1 = L1 TRANS 10 (0. 0. H1) ; VO1 = SEC1 VOLU 40 ROTA 180 O1 O2 ; VO2 = VO1 VOLU 40 ROTA 180 O1 O2 ; VOL1 = VO1 ET VO2 ; ELIM 0.001 VOL1 ; ******************************************************************************** *TRACAGE TITRE 'MAILLAGE D UN CYLINDRE CREUX' ; TRAC CACH VOL1 ; FIN;
Remarques sur le fichier d'exemple 2