Télécharger trac_chpoint.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : trac_chpoint.dgibi
  2. *
  3. ** Options generales
  4. OPTI 'DIME' 2 'ELEM' 'QUA4' 'DENS' 0.1 'TRAC' 'PSC' ;
  5.  
  6. ** Maillage
  7. l1 = DROI (1. 0.) (2. 0.) ;
  8. s1 = l1 ROTA 180. (0. 0.) ;
  9. s2 = s1 PLUS (0. 3.) ;
  10. s = s1 ET s2 ;
  11.  
  12. ** Champs de coordonnees et trace
  13. x1 y1 = COOR s1 ;
  14. x2 y2 = COOR s2 ;
  15. chp1 = (NOMC 'X' x1) ET (NOMC 'Y' y1) ;
  16. chp2 = (NOMC 'X' x2) ET (NOMC 'Y' y2) ;
  17. chp = chp1 ET chp2 ;
  18. TRAC chp 'TITR' 'Trace de CHPOINT sur les noeuds' ;
  19.  
  20. FIN ;
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  

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