Télécharger la plaquette Cast3M


fr en

Télécharger cinimod.procedur

Retour à la liste

Numérotation des lignes : 

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

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