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