Télécharger la plaquette Cast3M


fr en

Télécharger angle.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  angle.dgibi
  2. 'OPTI' echo 0 ;
  3. ************************************************************************
  4. ************************************************************************
  5. ************************************************************************
  6. * NOM         : ANGLE
  7. * DESCRIPTION : Cas-test operateur angle
  8. *               (pas de test d'angle solide pour l'instant)
  9. *
  10. *
  11. *
  12. * LANGAGE     : GIBIANE-CAST3M
  13. * AUTEUR      : Stephane GOUNAND (CEA/DES/ISAS/DM2S/SEMT/LTA)
  14. *               mel : stephane.gounand@cea.fr
  15. **********************************************************************
  16. * VERSION    : v1, 03/09/2026, version initiale
  17. * HISTORIQUE : v1, 03/09/2026, création
  18. * HISTORIQUE :
  19. * HISTORIQUE :
  20. ************************************************************************
  21. *
  22. interact=faux ;
  23. complet =faux ;
  24. lok = vrai ;
  25. *
  26. *
  27. xprec = '*' ('VALE' 'PREC')  2. ;
  28. xpang = '*' xprec 360. ;
  29. *
  30. 'SI' complet ;
  31.    nsamp = 300000 ;
  32. 'SINO' ;
  33.    nsamp = 3000 ;
  34. 'FINS' ;
  35. *
  36. *
  37. 'OPTION' 'DIME' 1 ;
  38. 'MESS' '********* TEST 1D ************' ;
  39. 'MESS' 'nsamp=' nsamp ;
  40. *
  41. Lx1 = 'BRUI' 'BLAN' 'UNIF' 0. 1. nsamp ;
  42. Lx2 = 'BRUI' 'BLAN' 'UNIF' 0. 1. nsamp ;
  43. 'REPE' bcl nsamp ;
  44.    x1 = 'EXTR' lx1 &bcl ;
  45.    p1 = 'POIN' x1 ;
  46.    x2 = 'EXTR' lx2 &bcl ;
  47.    p2 = 'POIN' x2 ;
  48.    np1 = 'NORM' p1 ;
  49.    np2 = 'NORM' p2 ;
  50.    'SI' ('ET' ('>' np1 xprec) ('>' np2 xprec)) ;
  51.       ang1 = ('SIGN' (x1 '*' x2) '-' 1.) '*' -90. ;
  52.       ang2 = angl p1 p2 ;
  53.       dang = 'ABS' ('-' ang1 ang2) ;
  54.       'SI' ('>' dang xpang) ;
  55.          'MESS' 'isamp=' &bcl ' ang1=' ang1 ' ang2=' ang2 ' dang=' dang ' tol =' xpang ;
  56.          lok = faux ;
  57.       'FINS' ;
  58.    'FINS' ;
  59. 'FIN' bcl ;
  60. *
  61. 'OPTION' 'DIME' 2 ;
  62. 'MESS' '********* TEST 2D ************' ;
  63. 'MESS' 'nsamp=' nsamp ;
  64. *
  65. Lx1 = 'BRUI' 'BLAN' 'UNIF' 0. 1. nsamp ;
  66. Ly1 = 'BRUI' 'BLAN' 'UNIF' 0. 1. nsamp ;
  67. Lang = 'BRUI' 'BLAN' 'UNIF' 0. 180. nsamp ;
  68. 'REPE' bcl nsamp ;
  69.    x1 = 'EXTR' lx1 &bcl ;
  70.    y1 = 'EXTR' ly1 &bcl ;
  71.    ang = 'EXTR' lang &bcl ;
  72.    p1 = 'POIN' x1 y1 ;
  73.    p2 = 'TOUR' p1 ang (0. 0.) ;
  74.    np1 = 'NORM' p1 ;
  75.    np2 = 'NORM' p2 ;
  76.    'SI' (('>' np1 xprec) 'ET' ('>' np2 xprec) 'ET' ('>' (ang '+' 180.) xprec)) ;
  77.       ang2 = angl p1 p2 ;
  78.       dang = 'ABS' ('-' ang ang2) ;
  79.       'SI' ('>' dang xpang) ;
  80.          'MESS' 'isamp=' &bcl ' ang1=' ang ' ang2=' ang2 ' dang=' dang ' tol =' xpang ;
  81.          lok = faux ;
  82.       'FINS' ;
  83.    'FINS' ;
  84. 'FIN' bcl ;
  85. *
  86. 'OPTION' 'DIME' 3 ;
  87. 'MESS' '********* TEST 3D ************' ;
  88. 'MESS' 'nsamp=' nsamp ;
  89. *
  90. Lx1 = 'BRUI' 'BLAN' 'UNIF' 0. 1. nsamp ;
  91. Ly1 = 'BRUI' 'BLAN' 'UNIF' 0. 1. nsamp ;
  92. LZ1 = 'BRUI' 'BLAN' 'UNIF' 0. 1. nsamp ;
  93. Lx3 = 'BRUI' 'BLAN' 'UNIF' 0. 1. nsamp ;
  94. Ly3 = 'BRUI' 'BLAN' 'UNIF' 0. 1. nsamp ;
  95. LZ3 = 'BRUI' 'BLAN' 'UNIF' 0. 1. nsamp ;
  96. Lang = 'BRUI' 'BLAN' 'UNIF' 90. 90. nsamp ;
  97. 'REPE' bcl nsamp ;
  98.    x1 = 'EXTR' lx1 &bcl ;
  99.    y1 = 'EXTR' ly1 &bcl ;
  100.    z1 = 'EXTR' lz1 &bcl ;
  101.    x3 = 'EXTR' lx3 &bcl ;
  102.    y3 = 'EXTR' ly3 &bcl ;
  103.    z3 = 'EXTR' lz3 &bcl ;
  104.    ang = 'EXTR' lang &bcl ;
  105.    p1 = 'POIN' x1 y1 z1 ;
  106.    p3 = 'POIN' x3 y3 z3 ;
  107. *   p1 = 'POIN' x1 y1 0. ;
  108.    np1 = 'NORM' p1 ;
  109.    'SI' ('>' np1 xprec) ;
  110. *      p3 = 'POIN' x3 y3 0. ;
  111.       prot = 'MOIN' p3 ('*' ('PSCA' p3 p1) p1 '/' (np1 '**' 2)) ;
  112.       nprot = 'NORM' prot ;
  113.       'SI' ('>' nprot xprec) ;
  114.          p2 = 'TOUR' p1 ang (0. 0. 0.) prot ;
  115.          np1 = 'NORM' p1 ;
  116.          np2 = 'NORM' p2 ;
  117.          'SI' ('>' np2 xprec) ;
  118.             ang2 = angl p1 p2 ;
  119.             dang = 'ABS' ('-' ang ang2) ;
  120.             'SI' ('>' dang xpang) ;
  121.                'MESS' 'isamp=' &bcl ' ang1=' ang ' ang2=' ang2 ' dang=' dang ' tol =' xpang ;
  122.                lok = faux ;
  123.             'FINS' ;
  124.          'FINS' ;
  125.       'FINS' ;
  126.    'FINS' ;
  127. 'FIN' bcl ;
  128. *
  129. 'SI' ('NON' lok) ;
  130.    'MESSAGE' ('CHAINE' 'Il y a eu des erreurs') ;
  131.    'ERREUR' 5 ;
  132. 'SINON' ;
  133.    'MESSAGE' ('CHAINE' 'Tout sest bien passe !') ;
  134. 'FINSI' ;
  135. *
  136. 'SI' interact ;
  137.    'OPTION' 'ECHO' 1 'DONN' 5 ;
  138. 'FINSI' ;
  139. *
  140. * End of dgibi file ANGLE
  141. *
  142. 'FIN' ;
  143.  
  144.  
  145.  

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