Procedures | Cast3M

   1 : * AFFICHE   PROCEDUR  NOBODY    92/01/01    00:00:00     001                    
   2 : *                                                                               
   3 : *  CETTE PETITE PROCEDURE  AFFICHE SUR L'ECRAN LA DEFORME D'UNE                 
   4 : *  STRUCTURE S DE MATRICE DE RIGIDITE RISOM SOUMISE AU CHARGEMENT               
   5 : *  FO. ELLE DEMANDE EGALEMENT LES COEEF D'AMPLIFICATION AMPDEF DE               
   6 : *  LA DEFORME ET AMPVEC DES FORCES                                              
   7 : *                                                                               
   8 : DEBPROC   AFFICHE                                                               
   9 : *                                                                               
  10 :  RISOM*RIGIDITE FO*CHPOINT S*MAILLAGE AMPDEF*FLOTTANT AMPVEC*FLOTTANT;          
  11 : *                                                                               
  12 : DE = RESOU  RISOM  FO  ;                                                        
  13 : RE = REAC DE RISOM ;                                                            
  14 : VE=VECT RE AMPVEC FX FY BLEU ; VF = VECT FO AMPVEC FX FY ROUGE;                 
  15 : VV=VE ET VF;                                                                    
  16 : DEF=DEFOR  AMPDEF DE S VV VERT ET (DEFOR 0 DE S ROUGE);                         
  17 : TRAC  S DEF;                                                                    
  18 :   FINPROC ;