Télécharger hrcav.procedur

Retour à la liste

Numérotation des lignes :

  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.  
  42.  

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