Procedures | Cast3M

   1 : * CINIMOD   PROCEDUR  IANIS     94/10/21    21:15:07     1276           
   2 : * CINIMOD      PROCEDUR 
   3 : *-----------------------------------------------------------            
   4 : ******             PROCEDURE CINIMOD                  ******            
   5 : *-----------------------------------------------------------            
   6 : *
   7 : *
   8 : *
   9 : *
  10 : *-----------------------------------------------------------            
  11 : *        CETTE PROCEDURE PERMET DE PROJETER SUR UNE BASE
  12 : *            MODALE DONNEE UN CHAMP DE DEPLACEMENT
  13 : *
  14 : *                CHPO2 = CINIMOD TAB1 MAS1 CHPO1 
  15 : *
  16 : *                CHPO1 : CHAMP DE DEPLACEMENT(VITESSES) DES NOEUDS
  17 : *                TAB1  : TABLE DE SOUSTYPE 'BASE_MODALE'
  18 : *                MAS1  : MATRICE DE MASSE ( OBJET DE TYPE RIGIDITE
  19 : *                                           SOUSTYPE MASSE )
  20 : *                CHPO2 : CHAMP DE DEPLACEMENT (VITESSES) GENERALISEES 
  21 : *-----------------------------------------------------------            
  22 : 'DEBP' CINIMOD ZTAB1*'TABLE' ZMAS1*'RIGIDITE' ZCHPO1*'CHPOINT'  ;
  23 : 
  24 : 'SI' ( 'EXISTE' ZTAB1 'MODES' ) ;
  25 : ZTAB2 = ZTAB1.'MODES' ;
  26 : 
  27 : 'SI' ( 'EXISTE' ZTAB2 'SOUSTYPE' ) ;
  28 : ZTAB2 = 'ENLEVE' ZTAB2 'SOUSTYPE' ;
  29 : 'FINSI' ;    
  30 : 
  31 : 'SI' ( 'EXISTE' ZTAB2 'MAILLAGE' ) ;
  32 : ZTAB2 = 'ENLEVE' ZTAB2 'MAILLAGE' ;
  33 : 'FINSI' ;    
  34 : 
  35 : ZNMOD = 'DIME' ZTAB2 ;
  36 : ZTAB3 = 'INDEX' ZTAB2 ;
  37 : 
  38 : ZK = 0 ;
  39 : 
  40 : 'REPETER' ZBOUC ZNMOD ;
  41 : 
  42 : ZK = ZK '+' 1 ;
  43 : ZMOD = ZTAB3.ZK ;
  44 : ZPHI = ZTAB2.ZMOD.'DEFORMEE_MODALE' ;
  45 : ZMI  = ZTAB2.ZMOD.'MASSE_GENERALISEE' ;
  46 : ZALFA = ( 'YTMX' ZPHI ZCHPO1 ZMAS1 ) '/' ZMI  ;
  47 : ZPR = ZTAB2.ZMOD.'POINT_REPERE' ;
  48 : ZCHPO21 = 'MANU' 'CHPO' ZPR 1 'ALFA' ZALFA 'NATURE' 'DISCRET' ;
  49 : 
  50 : 'SI' ( 'EGA' ZK 1 ) ;
  51 : ZCHPO2 = ZCHPO21 ;
  52 : 'SINON' ;
  53 : ZCHPO2 = ZCHPO2 '+' ZCHPO21 ;
  54 : 'FINSI' ;
  55 : 
  56 : 'FIN' ZBOUC ;
  57 : 
  58 : 'SINON' ;
  59 : MESS 'on veut une table de sous-type BASE_MODALE' ;
  60 : 'FINSI' ;
  61 : 'FINP' ZCHPO2 ;
  62 : 
  63 :