Télécharger canal-Sharma.dgibi

Retour à la liste

Numérotation des lignes :

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

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