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