Procedures | Cast3M

   1 : * HRCAV     PROCEDUR  CHAT      12/06/07    21:15:20     7389           
   2 : *-----------------------------------------------------
   3 :  'DEBPROC' HRCAV   mrt*'MMODEL'
   4 :               emis*'MCHAML' te*'MCHAML' trad*'MCHAML'
   5 :               stefan/'FLOTTANT' ;
   6 : *-----------------------------------------------------
   7 : * rayonnement en cavite:
   8 : * calcul du coefficient d'échange équivalent: hrad
   9 : * correspondant à la linéarisation du flux rayonné
  10 : *
  11 : * mrt : modèle de rayonnement
  12 : * emis: emissivité
  13 : * te  : température dans la cavité
  14 : * trad: température resultat de l'operateur RAYE
  15 : *       fonction de te, emis et des facteurs de forme
  16 : * hrad: coefficient d'échange
  17 : *-----------------------------------------------------
  18 : 
  19 :        'SI' ('NON' ('EXIS' stefan));
  20 :         stefan = 5.67e-8;
  21 :        'FINSI';
  22 :        emm= exco emis 'EMIS';
  23 :        em = 'CHAN' mrt emm 'GRAVITE';
  24 :        e_scal1 = 'NOMC' em 'SCAL';
  25 :        e_scal = 'CHAN' 'TYPE' e_scal1 'SCAL';
  26 : 
  27 :        te_cavi = 'NOMC' te 'SCAL';
  28 :        trad    = 'NOMC' trad    'SCAL';
  29 :        te2 = te_cavi * te_cavi;
  30 :        trad2 = trad*trad;
  31 :        hrad1 = stefan * (te2 + trad2) * (te_cavi + trad);
  32 :        hrad = e_scal * hrad1;
  33 : 
  34 :        hrad2= 'NOMC' hrad  'H' ;
  35 :        hrad  = 'CHAN' 'TYPE' hrad2 'CARACTERISTIQUES';
  36 : *      mess ' hrad ' (mini hrad) (maxi hrad);
  37 : 
  38 : 'FINPROC' hrad;
  39 :  
  40 :  
  41 :