Télécharger la plaquette Cast3M


fr en

Télécharger traduire.procedur

Retour à la liste

Numérotation des lignes : 

  1. * TRADUIRE  PROCEDUR  NOBODY    92/01/01    00:00:00     001                    
  2. *********************************************************************           
  3. *                                                                               
  4. *         La proc{dure TRADUIRE sert @ transformer :                            
  5. *               un objet SOLUTION en un objet TABLE                             
  6. *           ou, un objet TABLE en un objet SOLUTION.                            
  7. *                                                                               
  8. *********************************************************************           
  9. 'DEBPROC'  TRADUIRE   OBJ_SOL/SOLUTION  OBJ_TAB/TABLE ;                         
  10. *                                                                               
  11.    'SI' ('EXISTE' OBJ_SOL) ;                                                    
  12.       MOT_TYPE = 'TYPE' OBJ_SOL ;                                               
  13.    'FINSI' ;                                                                    
  14.    'SI' ('EXISTE' OBJ_TAB) ;                                                    
  15.       MOT_TYPE = 'TYPE' OBJ_TAB ;                                               
  16.    'FINSI' ;                                                                    
  17. *                                                                               
  18. *------------------------------------------------------                         
  19. * 1 - Traduire un objet SOLUTION en un objet TABLE                              
  20. *------------------------------------------------------                         
  21.    'SI' ('EGA' MOT_TYPE 'SOLUTION') ;                                           
  22.       NBMODE = 'DIMENSION' OBJ_SOL ;                                            
  23.       TTRAD= 'TABLE' 'BASE_DE_MODES' ;                                          
  24.       DEPG_1 = 'TIRE' OBJ_SOL 'DEPL' 'RANG' 1 ;                                 
  25.       MAILASS = 'EXTRAIRE' DEPG_1 MAIL ;                                        
  26.       TTRAD.'MAILLAGE' = MAILASS ;                                              
  27.       I = 0 ;                                                                   
  28.       'REPETER' BOUC_TAB NBMODE ;                                               
  29.          I = I '+' 1 ;                                                          
  30.          TMK = 'TABLE' 'MODE' ;                                                 
  31.          TTRAD.I = TMK ;                                                        
  32. *                                                                               
  33.          FREQ_I = 'TIRE' OBJ_SOL 'FREQ' 'RANG' I ;                              
  34.          MGEN_I = 'TIRE' OBJ_SOL 'MGEN' 'RANG' I ;                              
  35.          POIN_I = 'TIRE' OBJ_SOL 'POIN' 'RANG' I ;                              
  36.          DEPG_I = 'TIRE' OBJ_SOL 'DEPL' 'RANG' I ;                              
  37.          QQX_I  = 'TIRE' OBJ_SOL 'QX  ' 'RANG' I ;                              
  38.          QQY_I  = 'TIRE' OBJ_SOL 'QY  ' 'RANG' I ;                              
  39.          QQZ_I  = 'TIRE' OBJ_SOL 'QZ  ' 'RANG' I ;                              
  40. *                                                                               
  41.          T_DEPLG = 'TABLE' 'DEPLACEMENTS_GENERALISES' ;                         
  42.          T_DEPLG.1 = QQX_I ;                                                    
  43.          T_DEPLG.2 = QQY_I ;                                                    
  44.          T_DEPLG.3 = QQZ_I ;                                                    
  45. *                                                                               
  46.          TMK.'POINT_REPERE' = POIN_I ;                                          
  47.          TMK.'FREQUENCE' = FREQ_I;                                              
  48.          TMK.'MASSE_GENERALISEE' = MGEN_I ;                                     
  49.          TMK.'DEPLACEMENTS_GENERALISES' = T_DEPLG ;                             
  50.          TMK.'DEFORMEE_MODALE' = DEPG_I ;                                       
  51.       'FIN' BOUC_TAB ;                                                          
  52.    'FINSI' ;                                                                    
  53. *-----------------------------------------------------                          
  54. * 2 - Traduire un objet TABLE en un objet SOLUTION                              
  55. *-----------------------------------------------------                          
  56.    'SI' ('EGA' MOT_TYPE 'TABLE   ') ;                                           
  57.       'MESSAGE' '**************************************************' ;          
  58.       'MESSAGE' '   ' ;                                                         
  59.       'MESSAGE' '         ON NE TRAITE PAS L"OBJET TABLE.' ;                    
  60.       'MESSAGE' '   ' ;                                                         
  61.       'MESSAGE' '**************************************************' ;          
  62.    'FINSI' ;                                                                    
  63. 'FINPROC' TTRAD ;                                                               
  64.  

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