Télécharger canal-Chien.dgibi

Retour à la liste

Numérotation des lignes :

  1. * Ce cas teste le modèle K-epsilon Bas Reynolds de Chien
  2. * sur l'écoulement turbulent dans un canal plan.
  3. opti trace 'PSC';
  4. COMPLET = FAUX ;
  5. GRAPH = FAUX ;
  6. *COMPLET = VRAI ;
  7. *GRAPH = VRAI ;
  8.  
  9. *-----------------------------------------------------------------------
  10. opti dime 2 elem TRI6;
  11. opti dime 2 elem QUA8;
  12. *-----------------------------------------------------------------------
  13. * |Triangles | Quadrangles
  14. * ---------------------------
  15. * LINE | | OK
  16. * LINB | |
  17. * MACRO| ? | OK
  18. * QUAF | | OK
  19. *-----------------------------------------------------------------------
  20.  
  21. DISCR=MACRO;
  22. KPRES=CENTREP1;
  23. KSUPG=SUPG ;
  24.  
  25. ******=================================================**********
  26. ******=================================================**********
  27. H=1. ;
  28.  
  29. Si COMPLET ;
  30. NBIT =900;
  31. KGEO=3;
  32. CFLmax=5.;
  33. DT = 0.01;
  34. L=30.*H;
  35. Sinon;
  36. NBIT = 40;
  37. KGEO=1;
  38. CFLmax=20.;
  39. DT = 0.15;
  40. L=3.*H;
  41. Finsi;
  42.  
  43. *--------------------------- procédure ---------------------------------
  44. * Cette procédure calcule à chaque pas de temps le Y+ à partir
  45. * du gradient de vitesse en paroi
  46. 'DEBPROC' CALYPLUS ;
  47. argu rx*table;
  48. *mess 'DEBUT CALYPLUS';
  49. yp=rv.inco.'dparoi';
  50. un=rv.inco.'UN';
  51. uux=exco un 'UX';
  52. gru=((Mu*(kops 'GRADS' uux $mt)*(1./Ro)) ABS)**0.5;
  53. uet1=evol chpo (redu (exco gru 'UY') par1) par1;
  54. uet2=evol chpo (redu (exco gru 'UY') par2i) par2i;
  55. xx1=extr uet1 'ABSC';fx1=extr uet1 'ORDO';
  56. xx2=extr uet2 'ABSC';fx2=extr uet2 'ORDO';
  57. yplus1=ipol xx1 fx1 (coor 1 mt) ;
  58. yplus2=ipol xx2 fx2 (coor 1 mt) ;
  59.  
  60. iy=masq (coor 2 mt) 'SUPERIEUR' (H/2.);
  61. yplus=(iy*yplus2)+((1.-iy)*yplus1);
  62. yplus=yplus*yp*(1./nu) ABS ;
  63. yplus=1.*yplus + 1.e-3;
  64. rv.inco.'yplus'=yplus;
  65. *trace yplus mt (cont mt) TITR ' Y+' 'NCLK';
  66. * nutsnu=(rv.inco.'MUF')*(1./NU);
  67. * trace nutsnu mt (cont mt) TITR ' Nutsnu' 'NCLK';
  68.  
  69. nun=psca un (mots 'UX' 'UY') un (mots 'UX' 'UY');
  70. nun=nun**0.5;
  71. Diamin =elno (doma $mt 'DIAMIN') $mt ;
  72. DTc=Mini (CFLmax*diamin*(inve nun));
  73.  
  74. mess ' dtc' ; list dtc;
  75. mess ' dt ' ; list dt;
  76.  
  77.  
  78. * CFLmax=DT * nun * (inve diamin);
  79. * trace CFLmax mt (cont mt) TITR ' CFLmax' 'NCLK';
  80. rv.inco.'DT'=mini (prog DTc rv.inco.'DTINI');
  81. mess ' Cflmax=' CFLmax ' DTc=' DTc 'Pdt retenu ' rv.inco.'DT';
  82.  
  83. st1 mat1 = KOPS 'MATRIK' ;
  84. *mess 'FIN CALYPLUS';
  85. FINPROC st1 mat1;
  86. *----------------------- fin procédure ---------------------------------
  87.  
  88. *----------------------- Maillage --------------------------------------
  89. epsi = 1.e-5;
  90.  
  91. Si(EGA KGEO 1);
  92. *dcl=H/200;
  93. *dm=H/20;
  94. *nm=15;
  95. *dcx=H/12.;
  96. *dmx=H/10.;
  97.  
  98. dcl=H/130;
  99. dm=H/13;
  100. nm=13;
  101. dcx=H/10.;
  102. dmx=H/8.;
  103. Finsi;
  104.  
  105. Si(EGA KGEO 2);
  106. dcl=H/300;
  107. dm=H/30;
  108. nm=20;
  109. dcx=H/24.;
  110. dmx=H/20.;
  111. Finsi;
  112.  
  113. Si(EGA KGEO 3);
  114. dcl=H/400;
  115. dm=H/40;
  116. nm=25;
  117. dcx=H/36.;
  118. dmx=H/30.;
  119. Finsi;
  120.  
  121. P0 = 0. 0. ;
  122. P1 = L 0. ;
  123. P2 = L H ;
  124. P3 = 0. H ;
  125. PS3 = (P0 PLUS P3)*0.5;
  126. PS31= (P0 PLUS P3)*0.2;
  127. PS32= (P3 MOINS PS31);
  128. entree= P0 d dini dcl dfin dm ps31 d nm ps32
  129. d dini dm dfin dcl P3;
  130. sortie=(entree plus (L 0.)) inve;
  131. par1 = p0 d dini dcx dfin dmx p1 ;
  132. par2 = (par1 plus (0. H)) inve;
  133.  
  134. pc= 1. 1.;
  135. ang= 43.;
  136. ang= 60.;
  137. ang= 0. ;
  138. entree=entree TOUR ang pC;
  139. sortie=sortie TOUR ang pC;
  140. par1 =par1 TOUR ang pC;
  141. par2 =par2 TOUR ang pC;
  142.  
  143. elim (entree et par1 et par2 et sortie) epsi;
  144. mt = daller entree par2 sortie par1;
  145. v1=1. 0. ;
  146. v2=0. -1.;
  147. v3=-1. 0.;
  148. v4=0. 1. ;
  149. vt1= tour v1 ang p0;
  150. vt2= tour v2 ang p0;
  151. vt3= tour v3 ang p0;
  152. vt4= tour v4 ang p0;
  153. list vt1;
  154. list vt2;
  155. list vt3;
  156. list vt4;
  157.  
  158. Mmt = chan mt QUAF ;
  159. Mentree= chan entree QUAF ;
  160. Msortie= chan sortie QUAF ;
  161. Mpar1 = chan par1 QUAF ;
  162. Mpar2 = chan par2 QUAF ;
  163.  
  164. elim (Mmt et Mentree et Msortie et Mpar1 et Mpar2) epsi ;
  165.  
  166. $mt = model Mmt 'NAVIER_STOKES' DISCR;
  167. $entree = model Mentree 'NAVIER_STOKES' DISCR;
  168. $sortie = model Msortie 'NAVIER_STOKES' DISCR;
  169. $par1 = model Mpar1 'NAVIER_STOKES' DISCR;
  170. $par2 = model Mpar2 'NAVIER_STOKES' DISCR;
  171.  
  172. doma $mt 'IMPR';
  173. doma $entree 'IMPR';
  174.  
  175. mt = doma $mt maillage;
  176. entree = doma $entree maillage;
  177. sortie = doma $sortie maillage;
  178. par1 = doma $par1 maillage;
  179. par2 = doma $par2 maillage;
  180. par2i = inve par2;
  181. axe = par1 plus (0. (H/2.));
  182. elim (axe et mt) epsi;
  183. entre1= chan entree poi1;
  184. entre1= elem entre1 (lect 2 pas 1 ((nbel entre1) - 1 ));
  185.  
  186. dparoi=(coor 2 mt);
  187. dparoi=dparoi*(H - dparoi);
  188. dparoi=dparoi+1.e-10;
  189.  
  190. Si Graph;
  191. trace mt TITR ' Maillage ';
  192. dess (evol chpo dparoi sortie) TITR ' Distance à la paroi';
  193.  
  194. * On vérifie l'allongement
  195. diamin=doma $mt 'DIAMIN';
  196. diamax=doma $mt 'DIAMAX';
  197. ksi=diamax*(inve diamin);
  198. ksi=elno $mt ksi centre;
  199. trace ksi mt (cont mt) TITR ' Facteur d allongemet du maillage';
  200. Finsi;
  201.  
  202. *------------------- Fin Maillage --------------------------------------
  203.  
  204. * on impose un profil de vitesse en entrée soit plat (nn=1.e3) soit
  205. * turbulent (nn=7).
  206. nn=1.e3;
  207. nn=7.;
  208. * La vitesse débitante est de 1.
  209. U0 = 1. ;
  210.  
  211. tasser entree;
  212. ye=coor 2 entree;
  213. Dgj=doma $entree 'XXDIAGSI';
  214. a=(SOMT (Dgj*((ye*(H - ye))**(1./nn ))));
  215. Ufr=U0/a*((ye*(H - ye))**(1./nn ));
  216. Si Graph;
  217. dess (evol chpo ufr entree) TITR 'Profil de vitesse en entrée';
  218. Finsi;
  219.  
  220. uux=(cos ang) * U0;
  221. uuy=(sin ang) * U0;
  222. KE=((0.02*Ufr)**2.);
  223. EE=KE**1.5/H;
  224.  
  225. MU = 3.14E-5;
  226. Ro = 1.;
  227. YP = 1.e-2 ;
  228. Nu = Mu /Ro ;
  229.  
  230. Rey= U0 *H * 2. / NU;
  231. mess ' Reynolds = ' Rey;
  232.  
  233. RV= EQEX 'OMEGA' 1. 'NITER' 1 ITMA NBIT 'FIDT' 1
  234. 'OPTI' 'EF' 'IMPL' KSUPG KPRES
  235. ZONE $mt 'OPER' 'CALYPLUS'
  236. ZONE $mt 'OPER' 'KEPSILON' 1. 'UN' 'NU' 'DT' 'INCO' 'KN' 'EN'
  237. ZONE $mt 'OPER' 'NS' 1. 'UN' 'MUF' 'INCO' 'UN'
  238. 'OPTI' 'EFM1' 'IMPL' 'CENTREE'
  239. ZONE $mt 'OPER' DFDT 1. 'UNM' 'DT' INCO 'UN';
  240.  
  241. rv.'ALGO_KEPSILON'=mots 'Chien';
  242. Mdl = chai 'Chien' ;
  243.  
  244. RV= EQEX RV CLIM
  245. UN UIMP entre1 Ufr UN VIMP entree (uuy + 1.e-4)
  246. UN UIMP (par1 et par2) 0. UN VIMP (par1 et par2) 0.
  247. KN TIMP entre1 KE EN TIMP entre1 EE
  248. KN TIMP (par1 et par2) 0. EN TIMP (par1 et par2) 0.
  249. ;
  250.  
  251. rv.'METHINV'.TYPINV=3 ;
  252. rv.'METHINV'.IMPINV=0 ;
  253. rv.'METHINV'.NITMAX=700;
  254. rv.'METHINV'.PRECOND=3 ;
  255. rv.'METHINV'.ILUTLFIL=4 ;
  256. rv.'METHINV'.ILUTDTOL=0.;
  257. rv.'METHINV'.RESID =1.e-8;
  258. rv.'METHINV' . 'FCPRECT'=1 ;
  259. rv.'METHINV' . 'FCPRECI'=1 ;
  260.  
  261. RVP= EQEX
  262. 'OPTI' 'EF' KPRES
  263. ZONE $mt 'OPER' KBBT (-1.) 'INCO' 'UN' 'PRES'
  264. ;
  265.  
  266. rvp.'METHINV'.TYPINV=1 ;
  267. rvp.'METHINV'.IMPINV=0 ;
  268. rvp.'METHINV'.NITMAX=5000;
  269. rvp.'METHINV'.PRECOND=3 ;
  270. rvp.'METHINV'.ILUTLFIL=10;
  271. rvp.'METHINV'.ILUTDTOL=0.;
  272. rvp.'METHINV'.RESID =1.e-10 ;
  273. rvp.'METHINV' . 'FCPRECT'=50000 ;
  274. rvp.'METHINV' . 'FCPRECI'=50000 ;
  275.  
  276.  
  277. RV.'PROJ'= RVP ;
  278.  
  279. rv.'INCO'= table inco ;
  280. rv.'INCO'.'UN' = kcht $mt vect sommet (1.e-5 1.e-5) ;
  281. rv.'INCO'.'KN' = kcht $mt scal sommet 1.e-5 ;
  282. rv.'INCO'.'EN' = kcht $mt scal sommet 1.e-5 ;
  283. rv.'INCO'.'dparoi'=kcht $mt scal sommet dparoi ;
  284. rv.'INCO'.'UNM' = kcht $mt vect sommet (1.e-5 1.e-5) ;
  285. rv.'INCO'.'PRES'= kcht $mt scal kpres 0.;
  286. rv.'INCO'.'MUF'=kcht $mt scal sommet nu;
  287. rv.'INCO'.'NU'=NU;
  288. rv.'INCO'.'MU'=MU;
  289. rv.'INCO'.'DT'=DT;
  290. rv.'INCO'.'DTINI'=DT;
  291.  
  292. rv.'LTPS' = PROG ;
  293. rv.'Tps' = 1. ;
  294. rv.'DT' = DT;
  295. rv.'NUPAT' =1;
  296.  
  297. exec rv ;
  298.  
  299. Si Complet
  300. opti sauv 'canalKEChien_1';
  301. sauv ;
  302. opti sauv 'bidon' ;
  303.  
  304. exec rv ;
  305. opti sauv 'canalKEChien_2';
  306. sauv ;
  307. opti sauv 'bidon' ;
  308.  
  309. exec rv ;
  310. opti sauv 'canalKEChien_3';
  311. sauv ;
  312. opti sauv 'bidon' ;
  313.  
  314. exec rv ;
  315. opti sauv 'canalKEChien_4';
  316. sauv ;
  317. opti sauv 'bidon' ;
  318.  
  319. exec rv ;
  320. opti sauv 'canalKEChien_5';
  321. sauv ;
  322. opti sauv 'bidon' ;
  323.  
  324. * On purge la mémoire de tous les objets MATRIK pour avoir un petit
  325. * fichier de résultats
  326. rv.'TABRES'=0.;
  327. rv.'PROJ'=0.;
  328. rv.'METHINV'=0;
  329. rv.'METHINV2'=0;
  330. rv.'METHINV3'=0;
  331. rv.'METH_KEP'=0;
  332. rvp=0.;
  333.  
  334. opti sauv 'canalKEChien';
  335. sauv ;
  336. Finsi;
  337.  
  338. un = rv.inco.'UN' ;
  339. qs=dbit un $sortie IMPR;
  340. um=(1./H)*qs;
  341. unn=(1./um)*un;
  342. *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  343. * POST-TRAITEMENT
  344. *-----------------------------------------------------------------------
  345. *--- Edition d'un profil de vitesse asymptotique de Référence ----------
  346. *--- Modèle de Buleev
  347. Debproc ANABU H*'FLOTTANT' Rey*'FLOTTANT' UM*'FLOTTANT' ;
  348. H2=H*H;
  349. p0=0. 0. ; p1=0. H. ; Pm=0. (H/2.); dpar=H/Rey*0.05; dctr=H*0.05;
  350. de= p0 d dini dpar dfin dctr pm d dini dctr dfin dpar p1 ;
  351. z= coor 2 de;
  352. Dh=2.*H;
  353. Rho=1.;
  354. mu=um/Rey*Rho*Dh;
  355. m=7.1;
  356. nu=mu/rho;
  357.  
  358. uet=um;
  359. REPETER CCP 15 ;
  360. fp=(uet/Um)**2.*8. ;
  361. F=fp/2/Dh*rho*(um*um);
  362. xi = z*(1./H);
  363. xiet = (1. - ((1. - (nu*m/h/Uet*4))**0.5))/2.;
  364. u1=H2*F/2./mu*xi*(1. - xi);
  365. ax=xi*(1. - xi)/xiet/(1. - xiet) + 1.e-10;
  366. ax=m*m*F*H/Rho* (log ax);
  367. ax =(abs ax) + 1.e-10;
  368. ax0=(h*h*F/mu/2*xiet*(1. - xiet))**2.;
  369. u2=(ax0+ax)**0.5;
  370. iua=masq xi 'INFERIEUR' xiet;
  371. iub=masq xi 'SUPERIEUR' (1. - xiet);
  372. iu1=iua+iub;
  373.  
  374. uref = (iu1 * u1) + ((1. - iu1)*u2) ;
  375. evuref = evol chpo uref de ;
  376. umn=INTG evuref ;
  377. umn=(extr 1 umn)/H; Reyn=rho*umn*Dh/mu;
  378. w=0.9;
  379. uet=(w*(uet*um/umn)) + ((1. - w)*uet);
  380. dumn=abs ((umn - um)/um);
  381. mess 'Iteration ' &ccp ' Umn=' umn ' Reyn=' Reyn ' Uet=' Uet
  382. ' dumn=' dumn;
  383. *dess evuref ;
  384. Si (dumn < 1.e-4) ; quitter CCP; Finsi ;
  385. Fin CCP;
  386. * Calcul des u+g et u+d
  387. yplus= (extr evuref 'ABSC')*uet/nu;
  388. evuplus=evuref*(1./uet);
  389. yy=extr evuplus ORDO ;
  390. lyz=lect (dime yy) pas -1 1;
  391. yyz=extr yy lyz;
  392. evuplud = (evol manu yplus yyz) coul verte;
  393. evuplug = (evol manu yplus yy) coul rouge ;
  394.  
  395. Resproc evuplug evuplud evuref uet;
  396. Finproc ;
  397.  
  398. DEBPROC KADER Pr*'FLOTTANT' Ret*'FLOTTANT' KOUL*'MOT';
  399. *--- Profil de Kader ---------------------------------------------------
  400.  
  401. yplusr= prog 0.1 pas 0.1 30 pas 1. 100. pas 50. 1.e3
  402. pas 500. 1.e4 ;
  403. unp = prog (dime yplusr)*1.;
  404. ysr=yplusr/Ret;
  405. Gamma=((Pr*yplusr)**4.)/(unp+(5.*(Pr**3.)*yplusr));
  406. Gamma=Gamma*(-0.01);
  407. tplusr=Pr*yplusr*(exp Gamma);
  408. beta=((3.85*(Pr**(1./3.)) - 1.3)**2.);
  409. beta=beta+(2.12*(log Pr));
  410. aa1=1.5*(2.*unp - ysr);
  411. aa2=2.5*(2.*unp - ysr);
  412. bb1=(unp - ysr)*(unp - ysr)*2. + unp;
  413. bb2=(unp - ysr)*(unp - ysr)*4. + unp;
  414. aa1=aa1/bb1 ;
  415. aa2=aa2/bb2 ;
  416. cc1= ((2.12*(Log ((unp+yplusr)*aa1))) + (beta*unp))
  417. *(exp(unp/Gamma));
  418. cc2= ((2.12*(Log ((unp+yplusr)*aa2))) + (beta*unp))
  419. *(exp(unp/Gamma));
  420. tplusr1=tplusr + cc1;
  421. tplusr2=tplusr + cc2;
  422.  
  423. evt1=evol manu yplusr tplusr1;
  424. evt2=evol manu yplusr tplusr2;
  425. evt1=evt1 coul KOUL;
  426. evt2=evt2 coul KOUL;
  427. *--- Profil de Kader ---------------------------------------------------
  428. FINPROC evt1 evt2;
  429.  
  430. DEBPROC POST ;
  431. tabk = table ;
  432. evupd1 evupg1 evuref1 uet1 = anabu 1. 2000. 1. ;
  433. evupd2 evupg2 evuref2 uet2 = anabu 1. 1.e4 1. ;
  434. evupd3 evupg3 evuref3 uet3 = anabu 1. 1.e5 1. ;
  435. evupd4 evupg4 evuref4 uet4 = anabu 1. 1.e6 1. ;
  436. evupd5 evupg5 evuref5 uet5 = anabu 1. 1.e7 1. ;
  437.  
  438. *--- Profil de Reichardt -----------------------------------------------
  439. Ka = 0.41;
  440. yplusr= prog 0.1 pas 0.1 30 pas 1. 100. pas 50. 1.e3
  441. pas 500. 1.e4 pas 1.e4 2.e5 ;
  442. unp = prog (dime yplusr)*1.;
  443.  
  444. E=9.5;
  445. uplusr=(1./Ka)*(Log (unp + (Ka*yplusr)));
  446. uplusr=uplusr + (7.8* (unp - (exp (yplusr*(-1./11))))
  447. - ( (yplusr*(-1./11)) * (exp (yplusr*(-1./3.))) ) );
  448.  
  449. evr1=evol manu yplusr uplusr;
  450. evr1=evr1 coul verte;
  451. *--- Profil de Reichardt -----------------------------------------------
  452.  
  453. *--- Profil de Référence pour le KLbr ----------------------------------
  454.  
  455. xrr=prog
  456. 2.99401E-06 1.24325E-03 4.78060E-03 1.05194E-02 1.83637E-02
  457. 2.82181E-02 3.99867E-02 5.35741E-02 6.88838E-02 8.58208E-02
  458. 0.10429 0.12419 0.14544 0.16793 0.19156
  459. 0.21625 0.24190 0.26841 0.29568 0.32363
  460. 0.35214 0.38114 0.41052 0.44019 0.47005
  461. 0.50000 0.52995 0.55981 0.58948 0.61886
  462. 0.64786 0.67637 0.70432 0.73159 0.75810 ;
  463. xrr = xrr et (prog
  464. 0.78375 0.80844 0.83207 0.85456 0.87581
  465. 0.89571 0.91418 0.93112 0.94643 0.96001
  466. 0.97178 0.98163 0.98948 0.99522 0.99875
  467. 1.00000);
  468. urr = prog
  469. 0.0000 9.36980E-02 0.35215 0.56346 0.68057
  470. 0.75493 0.80827 0.84978 0.88391 0.91302
  471. 0.93845 0.96103 0.98127 0.99955 1.0161
  472. 1.0311 1.0447 1.0569 1.0678 1.0774
  473. 1.0858 1.0927 1.0983 1.1024 1.1049
  474. 1.1058 1.1051 1.1027 1.0988 1.0934
  475. 1.0865 1.0783 1.0688 1.0580 1.0459 ;
  476. urr = urr et (prog
  477. 1.0325 1.0177 1.0013 0.98319 0.96315
  478. 0.94083 0.91571 0.88702 0.85347 0.81285
  479. 0.76100 0.68940 0.57826 0.37914 0.11368
  480. 5.00378E-04 );
  481. krr = prog
  482. 1.14242E-08 5.70695E-04 5.85036E-03 9.18812E-03 9.24352E-03
  483. 8.78015E-03 8.29986E-03 7.86419E-03 7.46515E-03 7.08857E-03
  484. 6.72369E-03 6.36405E-03 6.00640E-03 5.64984E-03 5.29542E-03
  485. 4.94455E-03 4.60029E-03 4.26604E-03 3.94641E-03 3.64662E-03
  486. 3.37300E-03 3.13278E-03 2.93380E-03 2.78421E-03 2.69096E-03
  487. 2.65941E-03 2.69096E-03 2.78421E-03 2.93380E-03 3.13278E-03
  488. 3.37300E-03 3.64662E-03 3.94641E-03 4.26604E-03 4.60029E-03 ;
  489. krr = krr et (prog
  490. 4.94455E-03 5.29542E-03 5.64984E-03 6.00640E-03 6.36405E-03
  491. 6.72369E-03 7.08857E-03 7.46515E-03 7.86419E-03 8.29986E-03
  492. 8.78015E-03 9.24352E-03 9.18812E-03 5.85036E-03 5.70695E-04
  493. 1.14242E-08);
  494. mrr = prog
  495. 2.0000 2.0031 2.4276 4.7639 9.0737
  496. 15.067 22.284 30.207 38.403 46.558
  497. 54.454 61.929 68.847 75.089 80.550
  498. 85.148 88.826 91.561 93.372 94.328
  499. 94.549 94.214 93.548 92.808 92.241
  500. 92.030 92.241 92.808 93.548 94.214
  501. 94.549 94.328 93.372 91.561 88.826;
  502. mrr = mrr et (prog
  503. 85.148 80.550 75.089 68.847 61.929
  504. 54.454 46.558 38.403 30.207 22.284
  505. 15.067 9.0737 4.7639 2.4276 2.0031
  506. 2.0000);
  507.  
  508. evkrr=evol manu xrr krr;
  509. evurr=evol manu xrr urr;
  510. evmrr=evol manu xrr mrr;
  511.  
  512. dess evurr TITR ' Profil de vitesse de référence (KL) en sortie';
  513. dess evkrr TITR ' Profil de K de référence (KL) en sortie';
  514. dess evmrr TITR ' Profil de Mueff/mu de référence (KL) en sortie';
  515.  
  516. *--- Profil de Référence pour le KLbr ----------------------------------
  517.  
  518. tabk.'Rey'=Rey;
  519. un = rv.inco.'UN' ;
  520.  
  521. qs=dbit un $sortie IMPR;
  522. um=(1./H)*qs;
  523. unn=(1./um)*un;
  524.  
  525. TAB1 = TABLE ;
  526. tab1.1 = 'MOT' ' ';
  527. tab1.2 = 'MOT' 'MARQ CROI REGU';
  528. tab1.3 = 'MOT' 'MARQ CARR REGU';
  529. tab1.4 = 'MOT' 'MARQ LOSA REGU';
  530. tab1.5 = 'MOT' 'MARQ PLUS REGU';
  531. tab1.6 = 'MOT' 'MARQ TRIA REGU';
  532. tab1.'TITRE' = TABLE ;
  533. tab1.'TITRE'. 1 = 'MOT' 'Re 2.e3' ;
  534. tab1.'TITRE'. 2 = 'MOT' 'Re 1.e4' ;
  535. tab1.'TITRE'. 3 = 'MOT' 'Re 1.e5' ;
  536. tab1.'TITRE'. 4 = 'MOT' 'Re 1.e6' ;
  537. tab1.'TITRE'. 5 = 'MOT' 'Re 1.e7' ;
  538. tab1.'TITRE'. 6 = 'MOT' 'Reichardt' ;
  539.  
  540. tit1=chai 'Comparaison Profils de vitesse Buleev à différents Reynolds';
  541. tit2=chai tit1 ' et Reichardt';
  542. dess (evupd1 et evupd2 et evupd3 et evupd4 et evupd5 et evr1)
  543. LOGX XBOR 0.1 5.e5 'GRIL' 'CARR' lege TAB1 titr tit2;
  544.  
  545. dess (evuref1 et evuref2 et evuref3 et evuref4 et evuref5)
  546. 'GRIL' 'CARR' lege TAB1 titr tit1;
  547. *-----------------------------------------------------------------------
  548.  
  549. unx =exco un 'UX';
  550. dudy=exco (kops 'GRADS' unx $mt) 'UY';
  551. uet=(mu*(abs (dudy + 1.e-5)))**0.5;
  552. uet1=redu uet par1;
  553. uet2=redu uet par2;
  554. evuet1= evol chpo uet1 par1;
  555. evuet2= evol chpo uet2 (inve par2);
  556.  
  557. dess (evuet1 et evuet2) TITR ' U* le long des deux parois'
  558. tity 'm/s' titx 'm';
  559.  
  560. mess ' Liste de U*';
  561. yevuet1=extr evuet1 'ORDO';
  562. yevuet2=extr evuet2 'ORDO';
  563. dl=(dime yevuet1) ;
  564. ll=lect (dl - 10) pas 1 dl;
  565. list (extr yevuet1 ll) ;
  566. list (extr yevuet2 ll) ;
  567.  
  568.  
  569. f1=8.*(((1./um)*uet1)**2.);
  570. f2=8.*(((1./um)*uet2)**2.);
  571. fiso = 0.202*(Rey**(-0.196));
  572. evf1=evol chpo f1 par1;
  573. evf1=evf1 coul rouge;
  574. evf2=evol chpo f2 (inve par2);
  575. evf2=evf2 coul verte;
  576. xx=extr evf1 'ABSC';
  577. yfiso= prog (dime xx)*fiso;
  578. evfiso=evol manu xx yfiso ;
  579. evfiso=evfiso coul bleue ;
  580.  
  581. TAB1 = TABLE ;
  582. tab1.1 = 'MOT' 'TIRR';
  583. tab1.2 = 'MOT' 'TIRC';
  584. tab1.3 = 'MOT' 'TIRM';
  585. tab1.'TITRE' = TABLE ;
  586. tab1.'TITRE'. 1 = 'MOT' 'Corr' ;
  587. tab1.'TITRE'. 2 = 'MOT' 'f paroi1' ;
  588. tab1.'TITRE'. 3 = 'MOT' 'f paroi2' ;
  589.  
  590. fmax = maxi yfiso;
  591.  
  592. dess (evfiso et evf2 et evf1) YBOR 0. (5.*fmax)
  593. TITR ' Coefficient de frottement' 'GRIL' lege TAB1;
  594.  
  595. tabk.'evfiso'=evfiso;
  596. tabk.'evf2' =evf2 ;
  597. tabk.'evf1' =evf1 ;
  598. tabk.'fmax' =fmax ;
  599.  
  600. yp1=norm ((poin 2 entre1) moins (poin 1 entre1));
  601. yp2=norm ((poin entre1 final) moins (poin ((nbno entre1) - 1) entre1));
  602.  
  603. mess ' YP1=' YP1 ' YP2=' YP2;
  604.  
  605. yplus1= yp1*uet1*(rv.inco.'MU'**(-1.));
  606. yplus2= yp2*uet2*(rv.inco.'MU'**(-1.));
  607.  
  608. evyplus1=evol chpo yplus1 par1;
  609. evyplus2=evol chpo yplus2 (inve par2);
  610.  
  611. dess (evyplus1 et evyplus2) TITR ' Y+ le long des deux parois'
  612. tity ' ' titx 'm';
  613.  
  614. sort2=elem sortie (lect 1 pas 1 ((nbel sortie)/2));
  615. sort1= syme sort2 'DROIT' (point 1 axe) (axe poin final);
  616. elim (sort1 et sort2 et sortie) epsi;
  617.  
  618. uet1=extr (nbno par1) (extr evuet1 'ORDO');
  619. uet2=extr (nbno par1) (extr evuet2 'ORDO');
  620. mess ' uet1 et uet2=' uet1 uet2;
  621. ypls1= evol chpo ((1./mu) * uet1 * (coor 2 sort1)) (inve sort1);
  622. ypls2= evol chpo ((1./mu) * uet2 * (H - (coor 2 sort2))) ( sort2);
  623.  
  624. upl1=(evol chpo unx (inve sort1))*(1./uet1);
  625. upl2=(evol chpo unx sort2)*(1./uet2);
  626. xypls1= ORDO (extr ypls1 'ORDO');
  627. yypls1= ORDO (extr upl1 'ORDO');
  628.  
  629. xypls1=xypls1 enlev 1;
  630. yypls1=yypls1 enlev 1;
  631. evupl1=evol manu xypls1 yypls1;
  632.  
  633.  
  634. xypls2=extr ypls2 'ORDO';
  635. yypls2=extr upl2 'ORDO';
  636. xypls2=xypls2 enlev 1;
  637. yypls2=yypls2 enlev 1;
  638. evupl2=evol manu xypls2 yypls2 ;
  639. evupl1=evupl1 coul rouge;
  640. evupl2=evupl2 coul verte;
  641.  
  642. TAB1 = TABLE ;
  643. tab1.1 = 'MOT' ' ';
  644. tab1.2 = 'MOT' 'TIRC';
  645. tab1.3 = 'MOT' 'TIRM';
  646. tab1.'TITRE' = TABLE ;
  647. tab1.'TITRE'. 1 = 'MOT' 'Reichardt' ;
  648. tab1.'TITRE'. 2 = 'MOT' 'U+ paroi1' ;
  649. tab1.'TITRE'. 3 = 'MOT' 'U+ paroi2' ;
  650.  
  651. dess (evr1 et evupl2 et evupl1) 'LOGX' 'XBOR' 1. 500.
  652. TITR ' U+ en sortie' 'GRIL' lege TAB1
  653. tity ' ' titx 'm';
  654.  
  655. tabk.'evr1' =evr1 ;
  656. tabk.'evupl1'=evupl1;
  657. tabk.'evupl2'=evupl2;
  658.  
  659. nutsnu=(rv.inco.'MUF')*(1./MU);
  660. trace nutsnu mt (cont mt) 'TITR' ' Nu effectif / nu ';
  661.  
  662. npl1=(evol chpo nutsnu (inve sort1));
  663. npl2=(evol chpo nutsnu sort2);
  664. npl1=ORDO (extr npl1 'ORDO');
  665. npl2=ORDO (extr npl2 'ORDO');
  666. npl1=npl1 enlev 1 ;
  667. npl2=npl2 enlev 1 ;
  668.  
  669. evnpl1=evol manu xypls1 npl1;
  670. evnpl2=evol manu xypls2 npl2;
  671. evnpl1=evnpl1 coul rouge;
  672. evnpl2=evnpl2 coul verte;
  673.  
  674. TAB1 = TABLE ;
  675. tab1.1 = 'MOT' 'TIRC';
  676. tab1.2 = 'MOT' 'TIRM';
  677. tab1.'TITRE' = TABLE ;
  678. tab1.'TITRE'. 1 = 'MOT' 'nt/n paroi1' ;
  679. tab1.'TITRE'. 2 = 'MOT' 'nt/n paroi2' ;
  680.  
  681. dess (evnpl2 et evnpl1) 'LOGX' 'XBOR' 1. 500.
  682. TITR ' Nut/nu en sortie' 'GRIL' lege TAB1
  683. tity ' ' titx 'm';
  684.  
  685. tabk.'evnpl1'=evnpl1;
  686. tabk.'evnpl2'=evnpl2;
  687.  
  688. ung = vect un 0.5 'UX' 'UY' jaune;
  689. trace ung mt 'TITR' ' Vitesses ';
  690.  
  691. pn = elno $mt rv.inco.PRESSION kpres;
  692. trace pn mt (cont mt) TITR 'Pression';
  693. evpaxe= evol chpo pn axe;
  694. dess evpaxe TITR ' Pression sur l axe';
  695.  
  696. *-----------------------------------------------------------------------
  697. evax= evol chpo (exco un 'UX') axe ;
  698. dess evax TITR 'U sur l axe'
  699. tity 'm/s' titx 'm';
  700. *-----------------------------------------------------------------------
  701.  
  702. *-----------------------------------------------------------------------
  703. evmuax= evol chpo nutsnu axe ;
  704. dess evmuax TITR 'Nut/Mu sur l axe'
  705. tity ' ' titx 'm';
  706. tabk.'evmuax'=evmuax;
  707. *-----------------------------------------------------------------------
  708.  
  709. *$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  710.  
  711. *profils de référence
  712. evupdr evupgr evusr uetr = anabu 1. Rey 1. ;
  713. mess '***************************************************************';
  714. mess '***************************************************************';
  715. mess ' UET1 = ' UET1 ' UET2 = ' UET2 ' UETR = ' UETR ;
  716. mess '***************************************************************';
  717. mess '***************************************************************';
  718.  
  719. evus= evol chpo (exco unn 'UX') sortie;
  720. usix = extr evusr 'ABSC';
  721. usi = ipol usix (extr evus 'ABSC') (extr evus 'ORDO');
  722. evusi = evol manu usix usi ;
  723. evdu = (evusi - evusr)*(evusi - evusr);
  724.  
  725. tab1 = table;
  726. tab1.1 = 'MOT' 'TIRC';
  727. tab1.1 = 'MOT' ' ';
  728. tab1.2 = 'MOT' ' ';
  729. tab1.3 = 'MOT' ' ';
  730. tab1.'TITRE' = TABLE ;
  731. tab1.'TITRE'. 1 = 'MOT' 'KL Référence';
  732. tab1.'TITRE'. 2 = 'MOT' Mdl ;
  733. tab1.'TITRE'. 3 = 'MOT' 'Buleev analytique' ;
  734. evusr=evusr coul rouge;
  735. evurr=evurr coul vert ;
  736.  
  737. dess (evurr et evus et evusr) TITR 'U en sortie' 'GRIL' LEGE TAB1
  738. tity 'm/s' titx 'm';
  739.  
  740. evkrr=evkrr coul verte;
  741. evks = evol chpo rv.inco.'KN' sortie;
  742.  
  743. dess (evkrr et evks) TITR 'K en sortie' 'GRIL' LEGE TAB1
  744. tity 'm2/s2' titx 'm';
  745.  
  746. evmrr=evmrr coul verte;
  747. evms = evol chpo ((1./MU)*(rv.inco.'MUF')) sortie;
  748.  
  749. dess (evmrr et evms) TITR 'Mueff en sortie' 'GRIL' LEGE TAB1
  750. tity 'm2/s' titx 'm';
  751.  
  752. tabk.'evus'=evus;
  753. tabk.'evusr'=evusr;
  754.  
  755. dess evdu TITR '|U - uref|**2';
  756.  
  757. du = extr 1 (INTG evdu);
  758. errn = (abs (du - 4.06931E-03));
  759. mess ' delta u = ' du ' errn = ' errn;
  760. Si (NON COMPLET);
  761. Si(errn > 0.0001); erreur 5 ; Finsi ;
  762. Finsi;
  763.  
  764. FINPROC tabk;
  765.  
  766. ******* Profils de T+ de Kader ***********************************
  767. Si FAUX;
  768.  
  769. evt2p1 evt1p1=kader 0.7 1.e4 'VERTE';
  770. evt2p2 evt1p2=kader 0.7 1.e5 'ROUGE';
  771. evt2p3 evt1p3=kader 0.7 1.e6 'BLEUE';
  772.  
  773. tab1 = table;
  774. tab1.1 = 'MOT' ' ';
  775. tab1.2 = 'MOT' 'TIRC';
  776. tab1.3 = 'MOT' ' ';
  777. tab1.4 = 'MOT' 'TIRC';
  778. tab1.5 = 'MOT' ' ';
  779. tab1.6 = 'MOT' 'TIRC';
  780. tab1.'TITRE' = TABLE ;
  781. tab1.'TITRE'. 1 = 'MOT' 'T+1 Ret=1.e4' ;
  782. tab1.'TITRE'. 2 = 'MOT' 'T+2 Ret=1.e4' ;
  783. tab1.'TITRE'. 3 = 'MOT' 'T+1 Ret=1.e5' ;
  784. tab1.'TITRE'. 4 = 'MOT' 'T+2 Ret=1.e5' ;
  785. tab1.'TITRE'. 5 = 'MOT' 'T+1 Ret=1.e6' ;
  786. tab1.'TITRE'. 6 = 'MOT' 'T+2 Ret=1.e6' ;
  787.  
  788. dess (evt1p1 et evt2p1 et evt1p2 et evt2p2 et evt1p3 et evt2p3)
  789. LOGX XBOR 0.1 1.E5 tity 'T+' titx 'Y+' 'GRIL' LEGE TAB1
  790. TITR ' Teta+ Cas 1 et 2 Fonction du Reynolds Turbulent';
  791.  
  792. evt2p1 evt1p1=kader 0.1 1.e4 'VERTE';
  793. evt2p2 evt1p2=kader 1. 1.e5 'ROUGE';
  794. evt2p3 evt1p3=kader 10. 1.e6 'BLEUE';
  795.  
  796. tab1.'TITRE'. 1 = 'MOT' 'T+1 Pr=0.1' ;
  797. tab1.'TITRE'. 2 = 'MOT' 'T+2 Pr=0.1' ;
  798. tab1.'TITRE'. 3 = 'MOT' 'T+1 Pr=1.' ;
  799. tab1.'TITRE'. 4 = 'MOT' 'T+2 Pr=1.' ;
  800. tab1.'TITRE'. 5 = 'MOT' 'T+1 Pr=10.' ;
  801. tab1.'TITRE'. 6 = 'MOT' 'T+2 Pr=10.' ;
  802.  
  803. dess (evt1p1 et evt2p1 et evt1p2 et evt2p2 et evt1p3 et evt2p3)
  804. LOGX XBOR 0.1 1.E5 tity 'T+' titx 'Y+' 'GRIL' LEGE TAB1
  805. TITR ' Teta+ Cas 1 et 2 Fonction du Prandtl';
  806. Finsi;
  807. ******* Profils de T+ de Kader FIN ******************************
  808.  
  809.  
  810. *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  811. *profils de référence
  812. evupdr evupgr evusr uetr = anabu 1. Rey 1. ;
  813. mess '***************************************************************';
  814. mess '***************************************************************';
  815. mess ' UET1 = ' UET1 ' UET2 = ' UET2 ' UETR = ' UETR ;
  816. mess '***************************************************************';
  817. mess '***************************************************************';
  818.  
  819. evus= evol chpo (exco unn 'UX') sortie;
  820. usix = extr evusr 'ABSC';
  821. usi = ipol usix (extr evus 'ABSC') (extr evus 'ORDO');
  822. evusi = evol manu usix usi ;
  823. evdu = (evusi - evusr)*(evusi - evusr);
  824.  
  825. Si GRAPH ;
  826. t1=POST;
  827.  
  828. tab1 = table;
  829. tab1.1 = 'MOT' 'TIRC';
  830. tab1.2 = 'MOT' ' ';
  831. tab1.'TITRE' = TABLE ;
  832. tab1.'TITRE'. 1 = 'MOT' 'modèle KL' ;
  833. tab1.'TITRE'. 2 = 'MOT' 'Buleev analytique' ;
  834. evusr=evusr coul rouge;
  835.  
  836. dess (evus et evusr) TITR 'U en sortie' 'GRIL' LEGE TAB1
  837. tity 'm/s' titx 'm';
  838.  
  839. dess evdu TITR '|U - uref|**2';
  840. Finsi;
  841.  
  842. du = extr 1 (INTG evdu);
  843. errn = (abs (du - 2.597E-4));
  844. mess ' delta u = ' du ' errn = ' errn;
  845. Si (NON COMPLET);
  846. Si(errn > 0.0001); erreur 5 ; Finsi ;
  847. Finsi;
  848.  
  849. FIN;
  850.  
  851.  
  852.  
  853.  
  854.  
  855.  
  856.  
  857.  
  858.  
  859.  
  860.  

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