Télécharger @p_boit2.procedur

Retour à la liste

Numérotation des lignes :

  1. * @P_BOIT2 PROCEDUR PASCAL 12/10/18 21:15:02 7532
  2. *---------------------------------------------------------------------*
  3. * *
  4. * NOM : @P_BOIT2 *
  5. * *
  6. * DESCRIPTION : Procedure determinant l'intersection d'un maillage de *
  7. * polyedres de Voronoi construit par la procedure *
  8. * @P_VORO avec le cube de cote 1. @P_BOIT2 utilise la *
  9. * PROCEDURE @COUPLAN pour realiser les coupes avec les *
  10. * faces du CUBE, contairement a @P_BOIT. *
  11. * *
  12. * SYNTAXE : TAB2 = @P_BOIT TAB1 (IVISU1) ; *
  13. * *
  14. * - TAB1 = TABLE, resultat de la procedure @P_VORO ; *
  15. * - TAB2 = TABLE, sa structure est similaire a celle de TAB1 *
  16. * (voir notice @P_VORO) ; *
  17. * - IVISU1 = LOGIQUE, active des traces (pour DeBogage). *
  18. * *
  19. * REMARQUE : Fait appel a la procedure @COUPLAN. *
  20. * *
  21. * LANGAGE : GIBIANE-CAST3M *
  22. * AUTEUR : S. PASCAL (CEA/DEN/DM2S/SEMT/LM2S) *
  23. * COURRIEL : serge.pascal@cea.fr *
  24. *---------------------------------------------------------------------*
  25. 'DEBP' @P_BOIT2 ;
  26. * *
  27. 'ARGU' THO7U*'TABLE' ;
  28. * *
  29. 'ARGU' ITRAC1/'LOGIQUE' ;
  30. 'SI' ('NON' ('EXIS' ITRAC1)) ;
  31. ITRAC1 = FAUX ;
  32. 'FINS' ;
  33. * *
  34. * Decoupage : *
  35. TG1 TD1 = @COUPLAN THO7U (0. 0. 0.) (0. 1. 0.) (0. 0. 1.) ;
  36. TG1 TD1 = @COUPLAN TD1 (1. 0. 0.) (1. 1. 0.) (1. 0. 1.) ;
  37. TG1 TD1 = @COUPLAN TG1 (0. 0. 0.) (0. 0. 1.) (1. 0. 0.) ;
  38. TG1 TD1 = @COUPLAN TD1 (0. 1. 0.) (0. 1. 1.) (1. 1. 0.) ;
  39. TG1 TD1 = @COUPLAN TG1 (0. 0. 0.) (1. 0. 0.) (0. 1. 0.) ;
  40. TG1 TD1 = @COUPLAN TD1 (0. 0. 1.) (1. 0. 1.) (0. 1. 1.) ;
  41. * *
  42. * Recuperation des faces : *
  43. MAIL1 = TG1 . 'MAV' ;
  44. TOL1 = 1.E-6 ;
  45. TG1.FACE1 = MAIL1 'POIN' 'PLAN' (0. 0. 0.) (1. 0. 0.) (0. 1. 0.) TOL1 ;
  46. TG1.FACE2 = MAIL1 'POIN' 'PLAN' (0. 0. 0.) (0. 0. 1.) (1. 0. 0.) TOL1 ;
  47. TG1.FACE3 = MAIL1 'POIN' 'PLAN' (0. 0. 0.) (0. 1. 0.) (0. 0. 1.) TOL1 ;
  48. TG1.FACE4 = MAIL1 'POIN' 'PLAN' (1. 0. 0.) (1. 1. 0.) (1. 0. 1.) TOL1 ;
  49. TG1.FACE5 = MAIL1 'POIN' 'PLAN' (0. 1. 0.) (0. 1. 1.) (1. 1. 0.) TOL1 ;
  50. TG1.FACE6 = MAIL1 'POIN' 'PLAN' (0. 0. 1.) (1. 0. 1.) (0. 1. 1.) TOL1 ;
  51. * *
  52. * Trace resultat : *
  53. 'SI' ITRAC1 ;
  54. NBC1 = 'NBNO' TG1 . 'MPT' ;
  55. 'TITR' ('CHAI' ' Polyedre a ' NBC1 ' cellules') ;
  56. 'TRAC' TG1 . 'MAV' ;
  57. 'FINS' ;
  58. * *
  59. * Sortie : *
  60. 'RESP' TG1 ;
  61. * *
  62. 'FINP' ;
  63. *---------------------------------------------------------------------*
  64. * FIN DE LA PROCEDURE @P_BOIT2 *
  65.  
  66.  

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