Télécharger canalKLbr.dgibi

Retour à la liste

Numérotation des lignes :

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

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