Télécharger la plaquette Cast3M


fr en

Télécharger t_@PASHIST.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : t_@PASHIST.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. *---------------------------------------------------------------------*
  5. *                       Test Procedure @PASHIST                       *
  6. *---------------------------------------------------------------------*
  7. *---------------------------------------------------------------------*
  8. *
  9. * IDESS1 = VRAI : dessin actifs :                                     *
  10. IDESS1   = FAUX ;
  11. *                                                                     *
  12. 'OPTI' 'ECHO' 0 ;
  13. *                                                                     *
  14. *---------------------- Construction Champ Test ----------------------*
  15. *                                                                     *
  16. 'OPTI' 'DIME' 2 'ELEM' 'QUA8' ;
  17. *                                                                     *
  18. * Maillage :                                                          *
  19. O1       = 0. 0. ;
  20. OX1      = 1. 0. ;
  21. OY1      = 0. 1. ;
  22. NE1      = 1000 ;
  23. L1       = O1  'DROI' NE1 OX1 ;
  24. S1       = L1 'TRAN' 1 ((1. / ('FLOT' NE1)) * OY1) ;
  25. *Trac S1 ; Opti Donn 5 ;
  26. *                                                                     *
  27. * Modele / Champ :                                                    *
  28. MOD0     = 'MODE' S1 'MECANIQUE' ;
  29. CHPO1    = 'CHAN' 'ATTRIBUT' ((S1 'COOR' 1) 'NOMC' 'X')
  30.   'NATURE' 'DISCRET' ;
  31. CHPO2    = ('BRUI' 'BLAN' 'GAUS' 5. 1.3 S1) 'NOMC' 'GAUS' ;
  32. CHPO3    = ('BRUI' 'BLAN' 'EXPO' -2. 1. S1) 'NOMC' 'EXPO' ;
  33. CHPO0    = CHPO1 'ET' CHPO2 'ET' CHPO3 ;
  34. CHAM0    = 'CHAN' 'CHAM' MOD0 CHPO0 'STRESSES' ;
  35. *Trac MOD0 CHAM0 ;
  36. *                                                                     *
  37. *------------------------ Tests fonctionnement -----------------------*
  38. *                                                                     *
  39. * Synthaxe par defaut :                                               *
  40. LHIST1   = @PASHIST MOD0 CHAM0 ;
  41. DDSIG1   = 'HIST' 'VERT' MOD0 CHAM0 LHIST1 ;
  42. 'SI' IDESS1 ;
  43.   'DESS' DDSIG1 'TITR' ' Verif. fonctionnement @PASHIST ' ;
  44. 'FINS' ;
  45. *                                                                     *
  46. * Donnee Noms de composantes par LISTMOTS :                           *
  47. LMOT1    = 'MOTS' 'EXPO' 'GAUS' ;
  48. LHIST1   = @PASHIST MOD0 CHAM0 LMOT1 ;
  49. DDSIG1   = 'HIST' 'VERT' MOD0 CHAM0 LHIST1 LMOT1 ;
  50. 'SI' IDESS1 ;
  51.   'DESS' DDSIG1 'TITR'
  52.     ' Verif. donnee Noms de composantes par LISTMOTS' ;
  53. 'FINS' ;
  54. *                                                                     *
  55. * Donnee Nom de composantes par un MOT :                              *
  56. MOT1     = 'MOT' 'X' ;
  57. LHIST1   = @PASHIST MOD0 CHAM0 MOT1 ;
  58. DDSIG1   = 'HIST' 'VERT' MOD0 CHAM0 LHIST1 MOT1 ;
  59. 'SI' IDESS1 ;
  60.   'DESS' DDSIG1 'TITR'
  61.     ' Verif. donnee Nom de composante par MOT (ici Coor 1 maillage)' ;
  62. 'FINS' ;
  63. *                                                                     *
  64. * Visualisation (donnee cachee) :                                     *
  65. 'SI' IDESS1 ;
  66.   LHIST1   = @PASHIST MOD0 CHAM0 VRAI ;
  67. 'FINS' ;
  68. *                                                                     *
  69. 'FIN' ;
  70.  
  71.  
  72.  
  73.  
  74.  

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