Télécharger la plaquette Cast3M


fr en

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