Procedures | Cast3M

   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 :