Télécharger la plaquette Cast3M


fr en

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.  

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