Télécharger la plaquette Cast3M


fr en

Télécharger vahldavis3D.dgibi

Retour à la liste

Numérotation des lignes : 

  1. *****************************************************
  2. ************************************************************************
  3. ************************************************************************
  4. * fichier :  vahldavis3D.dgibi                      *
  5. ** modifie le 15/06/2014 passage EQPR -> EQEX       *
  6. *****************************************************
  7.  
  8. GRAPH = FAUX ;
  9. NITER = 250 ;
  10. CFL = 0.9 ;
  11. DISCR='MACRO';
  12. KPRESS='CENTRE';
  13. BETA=1.;
  14. BETA = 100. ;
  15.  
  16. ************************
  17. * CAVITE CARREE 3D     *
  18. * Paillere TTMF Dec 97 *
  19. ************************
  20.  
  21. ******************************
  22. *ESTIMATION DE LA CONVERGENCE*
  23. ******************************
  24.  
  25. DEBPROC CALCUL;
  26. ARGU RVX*'TABLE';
  27.  
  28. RV = RVX.'EQEX';
  29.  
  30. DD = RV.PASDETPS.'NUPASDT';
  31. NN = DD/5;
  32. LO = (DD-(5*NN)) EGA 0;
  33.  
  34. SI (LO);
  35.  
  36. UN   = RV.INCO.'UN';
  37. UNM1 = RV.INCO.'UNM1';
  38.  
  39. unx = kcht $MT scal sommet (exco 'UX' un);
  40. unm1x = kcht $MT scal sommet (exco 'UX' unm1);
  41. uny = kcht $MT scal sommet (exco 'UY' un);
  42. unm1y = kcht $MT scal sommet (exco 'UY' unm1);
  43. unz = kcht $MT scal sommet (exco 'UZ' un);
  44. unm1z = kcht $MT scal sommet (exco 'UZ' unm1);
  45.  
  46. ERRX = KOPS unx '-' unm1x;
  47. ERRY = KOPS uny '-' unm1y;
  48. ERRZ = KOPS unz '-' unm1z;
  49. ELIX = MAXI ERRX 'ABS';
  50. ELIY = MAXI ERRY 'ABS';
  51. ELIZ = MAXI ERRZ 'ABS';
  52. ELIX = (LOG (ELIX + 1.0E-10))/(LOG 10.);
  53. ELIY = (LOG (ELIY + 1.0E-10))/(LOG 10.);
  54. ELIZ = (LOG (ELIZ + 1.0E-10))/(LOG 10.);
  55. MESSAGE 'ITER' RV.PASDETPS.'NUPASDT'   'ERREUR LINF' ELIX ELIY ELIZ ;
  56. RV.INCO.'UNM1' = KCHT $MT 'VECT' 'SOMMET' (RV.INCO.'UN');
  57. IT = PROG RV.PASDETPS.'NUPASDT';
  58. ERX = PROG ELIX ;
  59. ERY = PROG ELIY ;
  60. ERZ = PROG ELIZ ;
  61. RV.INCO.'IT' = (RV.INCO.'IT') ET IT ;
  62. RV.INCO.'ERX' = (RV.INCO.'ERX') ET ERX ;
  63. RV.INCO.'ERY' = (RV.INCO.'ERY') ET ERY ;
  64. RV.INCO.'ERZ' = (RV.INCO.'ERZ') ET ERZ ;
  65.  
  66. FINSI;
  67. as2 ama1  = 'KOPS' 'MATRIK' ;
  68. FINPROC as2 ama1 ;
  69.  
  70. ************
  71. * MAILLAGE *
  72. ************
  73.  
  75. OPTI ELEM CU20 ;
  76.  
  77. NX = 4 ;
  78. NY = 2 ;
  79. NZ = 4 ;
  80.  
  81. A1 = 0.0 0.0 0.0 ;
  82. A2 = 1.0 0.0 0.0 ;
  83. A3 = 1.0 0.4 0.0 ;
  84. A4 = 0.0 0.4 0.0 ;
  85. B1 = 0.0 0.0 1.0 ;
  86. B2 = 1.0 0.0 1.0 ;
  87. B3 = 1.0 0.4 1.0 ;
  88. B4 = 0.0 0.4 1.0 ;
  89.  
  90. BAS = 'DALLER' (A1 D NX A2) (A2 D NY A3) (A3 D NX A4) 
  91.       (A4 D NY A1) 'PLAN' ;
  92. HAU = 'DALLER' (B1 D NX B2) (B2 D NY B3) (B3 D NX B4) 
  93.       (B4 D NY B1) 'PLAN' ;
  94. DRO = 'DALLER' (A2 D NY A3) (A3 D NZ B3) (B3 D NY B2) 
  95.       (B2 D NZ A2) 'PLAN' ;
  96. GAU = 'DALLER' (A1 D NY A4) (A4 D NZ B4) (B4 D NY B1) 
  97.       (B1 D NZ A1) 'PLAN' ;
  98. DEV = 'DALLER' (A1 D NX A2) (A2 D NZ B2) (B2 D NX B1)
  99.       (B1 D NZ A1) 'PLAN' ;
  100. DER = 'DALLER' (A4 D NX A3) (A3 D NZ B3) (B3 D NX B4)
  101.       (B4 D NZ A4) 'PLAN' ;
  102.  
  103. BAS = BAS COUL TURQ ;
  104. HAU = HAU COUL TURQ ;
  105. DRO = DRO COUL BLEU ;
  106. GAU = GAU COUL ROUG ;
  107. DEV = DEV COUL VERT ;
  108. DER = DER COUL VERT ;
  109.  
  110. V1 = 0.0 0.0 1.0 ;
  111. MT = BAS 'VOLU' NZ 'TRAN' V1 ;
  112. MMT= CHAN MT QUAF ;
  113.  
  114. Mbas = chan bas quaf ;
  115. Mhau = chan hau quaf ;
  116. Mdro = chan dro quaf ;
  117. Mgau = chan gau quaf ;
  118. Mdev = chan dev quaf ;
  119. Mder = chan der quaf ;
  120.  
  121. elim (MMT et Mbas et Mhau et Mdro et Mgau et Mdev et Mder) 0.001;
  122.  
  123. $MT = 'MODE' MMT 'NAVIER_STOKES' DISCR ;
  124. MT = DOMA $MT MAILLAGE ;
  125. $HAU = 'MODE' MHAU 'NAVIER_STOKES' DISCR ;
  126. HAU = DOMA $HAU MAILLAGE ;
  127. $BAS = 'MODE' MBAS 'NAVIER_STOKES' DISCR ;
  128. BAS = DOMA $BAS MAILLAGE ;
  129. $GAU = 'MODE' MGAU 'NAVIER_STOKES' DISCR ;
  130. GAU = DOMA $GAU MAILLAGE ;
  131. $DRO = 'MODE' MDRO 'NAVIER_STOKES' DISCR ;
  132. £DRO = 'DOMA' $DRO 'TABLE' ;
  133. DRO = DOMA $DRO MAILLAGE ;
  134. $DEV = 'MODE' MDEV 'NAVIER_STOKES' DISCR ;
  135. DEV = DOMA $DEV MAILLAGE ;
  136. $DER = 'MODE' MDER 'NAVIER_STOKES' DISCR ;
  137. DER = DOMA $DER MAILLAGE ;
  138.  
  139. CNT = ENVE MT ;
  140.  
  141. **************
  142. * PARAMETRES *
  143. **************
  144.  
  145. Pr = 0.71D0 ;
  146. Ra = 1.D5 ;
  147. Gr = Ra/Pr ;
  148. NU = 1.D0/(Gr**0.5) ;
  149. ALF= NU/Pr ;
  150. gb = 0.D0 0.D0 -1.0D0 ;
  151.  
  152. ***********************
  153. * CREATION DES TABLES *
  154. ***********************
  155.  
  156. RV = EQEX $MT 'ITMA' NITER 'ALFA' CFL
  157.  'ZONE' $MT 'OPER' CALCUL
  158.  'ZONE' $MT 'OPER' 'NS' NU GB 'TN' 0.5 'INCO' 'UN'
  159.  'ZONE' $MT 'OPER' 'TSCAL' ALF 'UN' 0. 'INCO' 'TN'
  160.  'OPTI' 'CENTREE'
  161.   ZONE  $MT 'OPER' 'DFDT' 1. 'UN' 'DELTAT' INCO 'UN'
  162.   ZONE  $MT 'OPER' 'DFDT' 1. 'TN' 'DELTAT' INCO 'TN'
  163. ;
  164.  
  165. RV = EQEX RV
  166.  'CLIM' 'UN' 'UIMP' (HAU ET BAS ET DRO ET GAU) 0.
  167.         'UN' 'VIMP' cnt 0.
  168.         'UN' 'WIMP' (HAU ET BAS ET DRO ET GAU) 0.
  169.         'TN' 'TIMP' gau 1.
  170.         'TN' 'TIMP' dro 0. ;
  171.  
  172. RVP = EQEX 'OPTI' 'EF' KPRESS
  173.  'ZONE' $MT OPER  KBBT  -1. beta  INCO 'UN' 'PRES'
  174. ;
  175.  
  176.     rvp.'METHINV'.TYPINV=1 ;
  177.     rvp.'METHINV'.IMPINV=0 ;
  178.     rvp.'METHINV'.NITMAX=300;
  179.     rvp.'METHINV'.PRECOND=3 ;
  180.     rvp.'METHINV'.RESID  =1.e-8 ;
  181.     rvp.'METHINV' . 'FCPRECT'=100 ;
  182.     rvp.'METHINV' . 'FCPRECI'=100 ;
  183.  
  184.   RV.'PROJ'     =RVP ;
  185.  
  186.  RV.INCO = TABLE INCO;
  187.  RV.INCO.'PRES' = kcht $MT SCAL KPRESS 0.;
  188.  RV.INCO.'UN' = kcht $MT VECT SOMMET (0. 0. 0.);
  189.  corx = coor 1 mt;
  190.  RV.INCO.'TN' = kcht $MT SCAL SOMMET (1.-corx);
  191.  
  192.  RV.INCO.'UNM1' = kcht $MT VECT SOMMET (1.D-5 1.D-5 1.D-5);
  193.  RV.INCO.'IT' = PROG 1;
  194.  RV.INCO.'ERX' = PROG 0.;
  195.  RV.INCO.'ERY' = PROG 0.;
  196.  RV.INCO.'ERZ' = PROG 0.;
  197.  
  198.  
  199. EXEC RV ;
  200.  
  201. DYDZ = DOMA $DRO 'VOLUME' ;
  202. DYDZT = SOMT DYDZ ;
  203.  
  204. GRADT = KOPS RV.INCO.'TN' 'GRAD' $MT;
  205. DTDX = KCHT $MT 'SCAL' 'CENTRE' (EXCO 'UX' GRADT);
  206. DTDX = ELNO $MT DTDX;
  207.  
  208. DTDXp = KCHT $DRO 'SCAL' 'SOMMET' DTDX;
  209. DTDXp = KOPS DTDXp '*' (-1.);
  210.  
  211. DTDXpc = NOEL $DRO DTDXp;
  212. num = KOPS DTDXpc '*' DYDZ ;
  213. num = SOMT NUM;
  214. num = NUM/DYDZT;
  215.  
  216.  
  217. MESSAGE 'NUSSELT MOYEN' NUM ' 2D ' 2.7124 ;
  218. MESSAGE 'NUSSELT MAX' (MAXI DTDXpc) ' 2D ' 3.7240 ;
  219. MESSAGE 'NUSSELT MIN' (MINI DTDXpc) ' 2D ' 0.93978 ;
  220.  
  221. ER1 = ABS( NUM - 2.7124D0) / 2.7124 ;
  222. ER2 = ABS( (MAXI DTDXpc) - 3.7240) / 3.7240 ;
  223. ER3 = ABS( (MINI DTDXpc) - 0.93978) / 0.93978 ;
  224. ER4 = MINI (RV.INCO.'ERX') ;
  225. ER5 = MINI (RV.INCO.'ERY') ;
  226. ER6 = MINI (RV.INCO.'ERZ') ;
  227.  
  228. MESSAGE ER1 ER2 ER3 ER4 ER5 ER6  ;
  229.  
  230. SI ( ER4 > -2.0 ) ;
  231.         ERREUR 5 ;
  232. FINSI ;
  233. SI ( ER5 > -2.0 ) ;
  234.         ERREUR 5 ;
  235. FINSI ;
  236. SI ( ER6 > -2.0 ) ;
  237.         ERREUR 5 ;
  238. FINSI ;
  239. SI ( ER1 > 0.04 ) ;
  240.         ERREUR 5 ;
  241. FINSI ;
  242.  
  243. SI ( GRAPH ) ;
  244.  
  245. TRACE MT 'CACH' ;
  246. TRACE RV.INCO.'TN' MT CNT 14 ;
  247. UNCH = VECT RV.INCO.'UN' 1. UX UY UZ VERT ;
  248. TRACE UNCH MT CNT ;
  249.  
  250. EVOLX = EVOL 'MANU' 'ITERATIONS' (RV.INCO.'IT') 'LOG|E(u)|inf'
  251.      (RV.INCO.'ERX') ;
  252. EVOLY = EVOL 'MANU' 'ITERATIONS' (RV.INCO.'IT') 'LOG|E(v)|inf'
  253.      (RV.INCO.'ERY') ;
  254. EVOLZ = EVOL 'MANU' 'ITERATIONS' (RV.INCO.'IT') 'LOG|E(w)|inf'
  255.      (RV.INCO.'ERZ') ;
  256. EVOLX = EVOLX COUL ROUG ;
  257. EVOLY = EVOLY COUL JAUN ;
  258. EVOLZ = EVOLZ COUL VERT ;
  259. TAB1 = TABLE ;
  260. TAB1.1 = 'MARQ TRIA REGU' ;
  261. TAB1.2 = 'MARQ LOSA REGU' ;
  262. TAB1.3 = 'MARQ CARR REGU' ;
  263. TAB1.'TITRE' = TABLE ;
  264. TAB1.'TITRE' . 1 = 'MOT' 'UX' ;
  265. TAB1.'TITRE' . 2 = 'MOT' 'UY' ;
  266. TAB1.'TITRE' . 3 = 'MOT' 'UZ' ;
  267. dess (EVOLX ET EVOLY ET EVOLZ) 'XBOR' 0. (2*NITER) 'YBOR' -10.0 0.0
  268.         'TITR' 'CONVERGENCE VERS LE STATIONNAIRE' LEGE TAB1 ;
  269.  
  270. FINSI ;
  271.  
  272. FIN ;
  273.  
  274.  
  275.  
  276.  
  277.  
  278.  
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales