Télécharger cinimod.procedur

Retour à la liste

Numérotation des lignes :

  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.  
  64.  

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