Télécharger pas_helm.procedur

Retour à la liste

Numérotation des lignes :

  1. * PAS_HELM PROCEDUR AM 17/12/20 21:15:27 9675
  2. DEBPROC PAS_HELM PRECED*'TABLE';
  3. *
  4. * objet de la procedure :
  5. * preparation des calculs en NON_LOCAL, modele HELM
  6. *
  7. WTAB = PRECED . 'WTABLE' ;
  8. TAHELM = WTAB . 'HELMHOLTZ' ;
  9. NHELM = TAHELM . 'N_VARI_NL' ;
  10. MCA = TAHELM . 'H_CAPA' ;
  11. MATHELM = 'REDU' WTAB.'NLOC_MODL' WTAB.'MAT1' ;
  12. *
  13. 'REPE' BH NHELM ;
  14. LEMO = TAHELM . &BH. 'NOM' ;
  15. LOGCTE = TAHELM . &BH. 'CTE' ;
  16. MOPRE = 'EXTR' LEMO 1 3 ;
  17.  
  18. * le cas autre que ERFi
  19.  
  20. 'SI' ('NEG' MOPRE 'ERF') ;
  21. 'SI' (('NON' LOGCTE) 'OU'
  22. (LOGCTE 'ET' ('NON' ('EXIS' TAHELM . &BH 'H_OPER'))));
  23. LWL2= 'EXCO' MATHELM 'LCAR' 'SCAL' ;
  24. KWL2= 0.5*(LWL2**2);
  25. MOWL2= TAHELM . &BH . 'H_MODELE' ;
  26. MAWL2= 'MATE' MOWL2 'K' KWL2 ;
  27. COWL2= 'COND' MOWL2 MAWL2 ;
  28. TAHELM .&BH.'H_OPER' = COWL2 ET MCA ;
  29. 'FINS' ;
  30.  
  31. * les cas ERFi
  32.  
  33. 'SINON' ;
  34. 'SI' (('NON' LOGCTE) 'OU'
  35. (LOGCTE 'ET' ('NON' ('EXIS' TAHELM . &BH 'H_OPER'))));
  36. MOPOS ='EXTR' LEMO 4;
  37. MOVR = 'CHAI' 'VR' MOPOS;
  38. MOLCAR= 'CHAI' 'LCF' MOPOS;
  39. LRF1='EXCO' MATHELM MOLCAR 'SCAL' ;
  40. ver1='EXCO' MATHELM ('CHAI' MOVR '1') 'SCAL';
  41. ver2='EXCO' MATHELM ('CHAI' MOVR '2') 'SCAL';
  42. ver3='EXCO' MATHELM ('CHAI' MOVR '3') 'SCAL';
  43. KRF1=0.5*(LRF1**2);
  44. kr11=KRF1*(ver1*ver1);
  45. kr22=KRF1*(ver2*ver2);
  46. kr33=KRF1*(ver3*ver3);
  47. kr21=KRF1*(ver1*ver2);
  48. kr31=KRF1*(ver3*ver1);
  49. kr32=KRF1*(ver3*ver2);
  50. MORF1= TAHELM . &BH . 'H_MODELE' ;
  51. MARF1='MATE' MORF1 'DIRECTION' (1. 0. 0.)
  52. ( 0. 1. 0.) 'K11' kr11 'K22' kr22 'K33' kr33
  53. 'K21' kr21 'K31' kr31 'K32' kr32 ;
  54. CORF1 = 'COND' MORF1 MARF1 ;
  55. TAHELM .&BH.'H_OPER' = CORF1 ET MCA ;
  56. 'FINS' ;
  57. 'FINS' ;
  58. 'FIN' BH ;
  59.  
  60. 'FINPROC' ;
  61.  
  62.  
  63.  
  64.  

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