* fichier : cc2d2.dgibi
**
** --- 10 Novembre 1999 ---
**
** TEST CAVITE CARREE A PAROI DEFILANTE RE=400
**
** teste LAPL KONV (CENTREE) KBBT pression continue
** Algorithme de projection
** Elements P1-P1 Q1-Q1 2D stables si DT >= DT limite
** TRI3 QUA4
OPTION ISOV 'SULI' ;
OPTION TRACE X;
GRAPH = 'N' ;
COMPLET = FAUX ;
*COMPLET = VRAI ;
Rey = 400. ;
SI ( COMPLET ) ;
err1=1.e-5 ;
ds1=0.01 ; ds2=0.1 ;
ITMAX = 20 ;
SINON ;
err1=6.e-2 ;
ds1=0.01 ; ds2=0.1 ;
ITMAX = 10 ;
FINSI ;
KPRESS = 'MSOMMET';
DISCR = 'LINE' ;
TYPK = 'QUA4' ;
KSUPG = 'CENTREE';
option dime 2 elem TYPK ;
p1= 0 0 ; p12=0.5 0. ; p2= 1 0 ;
ab=p1 d dini ds1 dfin ds2 p12 d dini ds2 dfin ds1 p2 ;
mt0 = ab trans dini ds1 dfin ds2 (0 0.5)
trans dini ds2 dfin ds1 (0 0.5) ;
mt1= ab trans dini ds1 dfin ds2 (0 0.5);
opti elem TRI3 ;
mt2= (cote 3 mt1) trans dini ds2 dfin ds1 (0 0.5) ;
mt2= inve mt2 ;
bc=cote 2 mt0; cd=cote 3 mt0; da=cote 4 mt0;
AA=bc moin (0.5 0.) ;
BB=ab plus (0. 0.5) ;
elim (mt0 et mt1 et mt2) 1.e-5 ;
mt = mt1 et mt2 ;
elim (AA et BB et mt) 1.e-5 ;
cnt= cont mt ;
mt= chan mt QUAF ;
$mt=mode mt 'NAVIER_STOKES' DISCR ;
MU =1. ;
RO= Rey ;
DT=1. ;
* La cavité est fermée il faut imposer la pression en 1 point !
prep1=doma $mt kpress;
bcp=elem prep1 POI1 (lect 1 ) ;
Mmt= doma $mt 'MAILLAGE' ;
doma $mt 'IMPR' ;
CD1= chan CD POI1 ;
CD = elem CD1 (lect 2 pas 1 ((nbel cd1) - 1) );
RV= eqex 'OMEGA' 1. 'NITER' 1 ITMA itmax 'FIDT' 1
'OPTI' 'EF' 'IMPL' KSUPG KPRESS 'DIV2'
ZONE $mt 'OPER' 'LAPN' MU 'INCO' 'UN'
ZONE $mt 'OPER' 'KONV' RO 'UNM' MU DT 'INCO' 'UN'
'OPTI' 'EF' 'BDF2'
ZONE $mt OPER DFDT RO 'UNM' 'UNMM' DT 'UN' MU INCO 'UN'
;
RV= eqex RV CLIM
UN UIMP CD 1. UN VIMP CD 0. UN UIMP DA 0. UN VIMP DA 0.
UN UIMP AB 0. UN VIMP AB 0. UN UIMP BC 0. UN VIMP BC 0. ;
rv.'METHINV'.TYPINV=3 ;
rv.'METHINV'.IMPINV=0 ;
rv.'METHINV'.NITMAX=400;
rv.'METHINV'.PRECOND=3 ;
rv.'METHINV'.RESID =1.e-8 ;
rv. 'METHINV' . 'FCPRECT'=1 ;
rv. 'METHINV' . 'FCPRECI'=1 ;
RVP= EQEX
'OPTI' 'EF' KPRESS
ZONE $mt OPER KBBT (-1.) INCO 'UN' 'PRES'
CLIM PRES TIMP bcp 0.
;
rvp.'METHINV'.TYPINV=2 ;
rvp.'METHINV'.IMPINV=0 ;
rvp.'METHINV'.NITMAX=300;
rvp.'METHINV'.PRECOND=3 ;
rvp.'METHINV'.RESID =1.e-8 ;
rvp.'METHINV' . 'FCPRECT'=100 ;
rvp.'METHINV' . 'FCPRECI'=100 ;
RV.'PROJ'= RVP ;
RV.'ITMA' = ITMAX ;
rv.inco= table inco ;
rv.inco.'UN' = kcht $mt vect sommet (1.e-5 1.e-5) ;
rv.inco.'UNM' = kcht $mt vect sommet (1.e-5 1.e-5) ;
rv.inco.'UNMM' = kcht $mt vect sommet (1.e-5 1.e-5) ;
rv.inco.'PRES'= kcht $mt scal kpress 0.;
rv.'TYPROJ'='VPI1';
exec rv ;
exec rv ;
AA = chan AA quaf ;
BB = chan BB quaf ;
elim (mt et aa et bb ) 1.e-3 ;
$AA=mode AA 'NAVIER_STOKES' DISCR ;
$BB=mode BB 'NAVIER_STOKES' DISCR ;
srti=doma $AA 'MAILLAGE' ;
srth=doma $BB 'MAILLAGE' ;
evolV = EVOL 'CHPO' (rv.'INCO'.'UN') UX (srti ) ;
evolH = EVOL 'CHPO' (rv.'INCO'.'UN') UY (srth ) ;
evx='EXTR' evolV 'ORDO' ;
evy='EXTR' evolV 'ABSC' ;
evolV= evol 'MANU' 'Vitesse' evx 'Hauteur' evy ;
rv.'EVOLV'=evolV ;
rv.'EVOLH'=evolH ;
si ('EGA' graph 'O' );
TAB1=TABLE;
TAB1.'TITRE'=TABLE ;
TAB1 . 1 ='MARQ REGU ' ;
TAB1.'TITRE' . 1 = mot 'Composante_UX ' ;
DESS evolV 'TITX' 'R (m)' 'TITY' 'V (m/s)' LEGE TAB1 ;
TAB1.'TITRE' . 1 = mot 'Composante_UY ' ;
DESS evolH 'TITX' 'R (m)' 'TITY' 'V (m/s)' LEGE TAB1 ;
c1=vect (rv.inco.'UN') 0.3 ux uy jaune ;
trace c1 mt ;
mtp= doma $mt 'MMAIL' ;
trace (rv.inco.pression) mtp (cont mtp) ;
finsi ;
lrr = prog
4.36766E-38 1.83899E-02 3.88078E-02 6.18175E-02 8.79031E-02
.11790 .15318 .19545 .24507 .29611
.32872 .31450 .22970 .12333 9.20267E-03
8.19364E-02 .16076 .22301 .27072 .30876
.34935 .41016 .50343 .62606 .76147
.89041 1.0000;
lr = ABS( 'EXTRAIRE' (rv.'EVOLV') 'ABSC') ;
list lr ;
Dgsrti = doma $AA 'XXDIAGSI' ;
li= 'EXTR' (evol chpo Dgsrti srti) 'ORDO' ;
ER=( resu( ((lr - lrr)*(lr - lrr))*li) )** 0.5 ;
mess ' Ecart Q1-Q1 P1-P1 projection 2D ' er ;
Si ( er > err1 ) ; erreur 5 ; finsi ;
FIN ;
© Cast3M 2003 - All rights reserved.
Disclaimer