Télécharger la plaquette Cast3M


fr en

Télécharger ray.procedur

Retour à la liste

Numérotation des lignes : 

  1. * RAY       PROCEDUR  ANNE      02/12/20    21:15:25     4531           
  2.  
  3. *---------------------------PROCEDURE RAYONNEMENT--------------------------*
  4.  
  5.  'DEBPROC' ray ;
  6.  
  7. ****************************************************************************
  8. * Procédure pérmettant de prendre en compte le rayonnement dans            *
  9. * les operateurs equex et exec (couplage convection-rayonnement);          *
  10. * Se couple aux équations habituelles de Navier_Stokes (cf. conv_ray.dgibi)*    
  11. ****************************************************************************
  12.  
  13.  
  14.  
  15. **** création d'une table **** 
  16.  
  17.  'ARGU' rvx * 'TABLE' ;
  18.  rv = rvx . 'EQEX' ;
  19.  
  20.  
  21. **** récuperation du champ par points des températures ****
  22.  
  23. line =rvx.'LISTINCO';
  24. noinco = 'EXTR' line 1 ;
  25. t = rv.'INCO'.noinco;
  26. tray = rvx . 'ARG1';
  27.  
  28.  
  29. **** traitements ****
  30.  
  31. *maillage rayonnement*
  32.  cavi = tray  . 'MA_RAI';
  33.  
  34. *modele rayonnement* 
  35.  mrt =  tray  . 'MM_RAI' ;
  36.  
  37. *chamelem (issu de l'opérateur rayonnement)*
  38.  mre  = tray  . 'MR_RAI' ;
  39.  mrn  = rvx . 'DOMZ' ;
  40.  
  41.  
  42. tc = 'REDU' t cavi ;
  43. tc = 'EXCO' tc scal 'T' ;
  44. tre = 'CHAN' 'CHAM' tc mrt 'GRAVITE' ;
  45. mrs = 'RAYN' mrt mre tre     ;
  46.  
  47.  
  48. pcav = 'DOMA' mrn 'SOMMET' ;
  49.  
  50.  
  51. ** mrfs, matrice de rayonnement **
  52. mrfs = 'KOPS' 'RIMA' mrs pcav ('MOTS' noinco) ;
  53.  
  54.  
  55.  
  56.  as af = 'KOPS' 'MATRIK' ;
  57.  
  58.  'FINP' as mrfs ;
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  

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