Télécharger s3nbar.eso

Retour à la liste

Numérotation des lignes :

  1. C S3NBAR SOURCE CHAT 05/01/13 03:10:52 5004
  2. SUBROUTINE S3NBAR(NBN,NBAR)
  3. C *****************************************************************
  4. C OBJET S3NBAR : RENVOI LE NOMBRE D'ARETES D'UN ELEMENT
  5. C *****************************************************************
  6. IMPLICIT INTEGER(I-N)
  7. INTEGER NBN,NBAR
  8. C
  9. GOTO(1,1,1,4,5,6,1,8) NBN
  10. 1 NBAR = -1
  11. GOTO 9999
  12. C --- TETRAEDRE ---
  13. 4 NBAR = 6
  14. GOTO 9999
  15. C --- PYRAMIDE ---
  16. 5 NBAR = 8
  17. GOTO 9999
  18. C --- PRISME ---
  19. 6 NBAR = 9
  20. GOTO 9999
  21. C --- HEXAEDRE ---
  22. 8 NBAR = 12
  23. GOTO 9999
  24. C
  25. 9999 END
  26.  
  27.  
  28.  

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