* fichier : deduad1d.dgibi ************************************************************************ * Section : Langage Objets * Section : Maillage Autres * Section : Fluides Thermique ************************************************************************ 'OPTI' 'ECHO' 0 ; ************************************************************************ * NOM : DEDUAD1D * DESCRIPTION : cas-test élémentaire 1D pour 'DEDU' 'ADAP' * * * LANGAGE : GIBIANE-CAST3M * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF) * mél : gounand@semt2.smts.cea.fr ********************************************************************** * VERSION : v1, 21/09/2005, version initiale * HISTORIQUE : v1, 21/09/2005, création * HISTORIQUE : * HISTORIQUE : ************************************************************************ * Prière de PRENDRE LE TEMPS de compléter les commentaires * en cas de modification de ce sous-programme afin de faciliter * la maintenance ! ************************************************************************ * 'SAUTER' 2 'LIGNE' ; 'MESSAGE' ' Execution de deduad1d.dgibi' ; 'SAUTER' 2 'LIGNE' ; * * * interact= FAUX ; graph = FAUX ; debug = FAUX ; * *BEGINPROCEDUR cas1d ************************************************************************ * NOM : CAS1D * DESCRIPTION : Construit les cas pour deduadap 1D * * * * LANGAGE : GIBIANE-CAST3M * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF) * mél : gounand@semt2.smts.cea.fr ********************************************************************** * VERSION : v1, 15/12/2004, version initiale * HISTORIQUE : v1, 15/12/2004, création * HISTORIQUE : * HISTORIQUE : ************************************************************************ * Prière de PRENDRE LE TEMPS de compléter les commentaires * en cas de modification de ce sous-programme afin de faciliter * la maintenance ! ************************************************************************ * * 'DEBPROC' CAS1D ; 'ARGUMENT' mesh*'ENTIER' ; 'ARGUMENT' nbmail2*'ENTIER' ; * 'ARGUMENT' disc/'MOT' ; 'SI' ('NON' ('EXISTE' disc)) ; disc = 'LINE' ; 'FINSI' ; * 'SI' ('<' nbmail2 1) ; cherr = 'CHAINE' 'Nombre de mailles inférieur à 2...' ; 'ERREUR' cherr ; 'FINSI' ; nbmail = '*' nbmail2 2 ; * 'SI' ('EGA' disc 'LINE') ; 'OPTION' 'ELEM' 'SEG2' ; 'SINON' ; 'OPTION' 'ELEM' 'SEG3' ; 'FINSI' ; * pA = 'POIN' 0. ; pB = 'POIN' 1. ; pC = 'POIN' 0.5 ; * 'SI' ('OU' ('EGA' mesh 1) ('EGA' mesh 3)) ; mt = 'ET' ('DROIT' pA pC nbmail2) ('DROIT' pC pB nbmail2) ; 'FINSI' ; 'SI' ('EGA' mesh 2) ; mt = 'ET' ('DROIT' pA pC ('-' nbmail 1)) ('DROIT' pC pB 1) ; 'FINSI' ; * * Blocages * rigblo = 'BLOQUE' 'UX' (pA 'ET' pB) ; cblo = 'DEPIMPOSE' rigblo 0. ; * * Cas QUAF * 'SI' ('EGA' disc 'QUAF') ; mt = 'CHANGER' mt 'QUAF' ; _mt = mt ; 'SINON' ; _mt = 'CHANGER' mt 'QUAF' ; 'FINSI' ; * * Métrique * 'SI' ('ET' ('>EG' mesh 1) ('