Télécharger la plaquette Cast3M


fr en

Télécharger chan_poi1_lenti.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  chan_poi1_lenti.dgibi
  2.  
  3. ************************************************************************
  4. ************************************************************************
  5.  
  6. ************************************************************************
  7. *                  Test manu_lenti.dgibi : Jeux de données             *
  8. *                  ---------------------------------------             *
  9. ************************************************************************
  10. * CAS TEST DU 2016/06/09                                               *
  11. *
  12. * Cas-test de Verification pour la syntaxe : 
  13. *  MAIL2 = CHAN 'MOT1' MAIL1 LENTI1 ;
  14. * 
  15. * Le LISTENTI LENTI1 contient la connectivité des noeuds de MAIL1 qu'il
  16. * faut mettre en place.
  17. *
  18. * SI MOT1 n'est pas defini le type d'element pris celui de OPTI ELEM
  19. * MAIL1 doit être de type POI1
  20. *
  21. * Ce cas-test permet de creer un element TET4 a partir d'un MAILLAGE de
  22. * POI1 et d'une connectivite donnee dans un LISTREEL.
  23. *
  24. * SI GRAPH = N PAS DE GRAPHIQUE AFFICHE
  25. * SINON SI GRAPH DIFFERENT DE N TOUS
  26. * LES GRAPHIQUES SONT AFFICHES
  27. ************************************************************************
  28. OPTI DIME 3 ELEM 'TET4';
  29. GRAPH = 'N' ;
  30. SI ('NEG' GRAPH 'N');
  31.   OPTI TRAC 'OPEN';
  32. SINO;
  33.   OPTI TRAC 'PSC';
  34. FINS;
  35.  
  36. LX    = PROG 0. 0.5 1. 0.5;
  37. LY    = PROG 0. 1.  0. 0.5;
  38. LZ    = PROG 0. 0.  0. 1. ;
  39.  
  40. CONN1 = LECT 1 2 3 4 ;
  41.  
  42. M1    = POIN LX LY LZ ;
  43.  
  44. MAIL1 = CHAN 'TET4' M1 CONN1;
  45. MAIL2 = CHAN        M1 CONN1;
  46.  
  47. TRAC 'FACE' MAIL1;
  48. TRAC 'CACH' MAIL2;
  49.  
  50. FIN;
  51.  
  52.  
  53.  
  54.  

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