Télécharger @rayo.procedur

Retour à la liste

Numérotation des lignes :

  1. * @RAYO PROCEDUR CB215821 15/12/02 21:15:02 8719
  2.  
  3. 'DEBPROC' @RAYO PF*POINT P1*POINT NBC*ENTIER ;
  4. * Procedure pour generer un maillage rayonnant autour du
  5. * fond de fissure
  6. &DIME = 'VALEUR' DIME ;
  7. 'SI' (&DIME 'NEG' 2) ;
  8. MESS 'PROCEDURE @RAYO : DIMENSION 2 OBLIGATOIRE' ;
  9. SAUT LIGNE;
  10. 'QUITTER' @RAYO;
  11. 'FINSI';
  12. OPTI ELEM QUA8 COUL ROUGE;
  13. PFP1 = P1 'MOINS' PF ;
  14. 'SI' ((NBC * PI / 8.) > 4);
  15. MESS 'PROCEDURE @RAYO : ELEMENTS TROP DISTORDUS : DIMINUEZ LE '
  16. 'NOMBRE DE COURONNES !' ;
  17. SAUT LIGNE;
  18. 'QUITTER' @RAYO;
  19. 'FINSI';