Télécharger frepart.procedur

Retour à la liste

Numérotation des lignes :

  1. * FREPART PROCEDUR FANDEUR 11/04/12 21:16:07 6938
  2. ************************************************************************
  3. *
  4. * IMPOSIZIONE DI UNA FORZA RIPARTITA LUNGO UNA LINEA
  5. *
  6. ************************************************************************
  7. *
  8. DEBPROC FREPART FF*'POINT' LIGNE*'MAILLAGE' ;
  9. *
  10. NORMF1 = 'NORM' FF ;
  11. *
  12. P1 = 'POINT' LIGNE 'INITIAL' ;
  13. PN = 'POINT' LIGNE 'FINAL' ;
  14. *
  15. CHPF1 = 'FORCE' FF LIGNE ;
  16. CHPFE = 0.5 * ('REDU' CHPF1 (P1 'ET' PN)) ;
  17. CHPF3 = CHPF1 - CHPFE ;
  18. *
  19. CHPR = 'RESULTANTE' CHPF3 ;
  20. PTR = 'EXTRAIRE' CHPR 'MAIL' ;
  21. PTR = 'POINT' PTR 1 ;
  22. LCMP = 'EXTRAIRE' CHPR 'COMP' ;
  23. NORMF3 = 0. ;
  24. 'REPETER' Boucle ('DIME' LCMP) ;
  25. m_z = 'EXTRAIRE' LCMP &Boucle ;
  26. r_z = 'EXTRAIRE' CHPR m_z PTR ;
  27. NORMF3 = NORMF3 + (r_z * r_z) ;
  28. 'FIN' Boucle ;
  29. NORMF3 = NORMF3 ** 0.5 ;
  30. *
  31. AJUST = NORMF1 / NORMF3 ;
  32. CHPF4 = CHPF3 * AJUST ;
  33. *
  34. FINPROC CHPF4 ;
  35.  
  36.  
  37.  

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