Télécharger la plaquette Cast3M


fr en

Télécharger pointcylsph.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : pointcylsph.dgibi
  2. ** Petit test simple sur les procedures POINTCYL et POINTSPH
  3.  
  4. ** Precision pour les comparaisons de POINTs (critere de distance)
  5. dprec = 'VALE' 'PREC' ; 'LISTER' dprec ;
  6.  
  7. ** En 1D
  8. 'OPTION' 'DIME' 1 ;
  9.  
  10. pt1 = POINT 0. 'DENS' 1. ;
  11. pt2 = POINT 0. 'DENS' 2. ;
  12.  
  13. SI ('>' (DIST pt1 pt2) dprec) ;
  14.   ERRE 5 ;
  15. FINSI ;
  16.  
  17. ** En 2D
  18. OPTI 'DIME' 2 ;
  19.  
  20. * POINTCYL syntaxe avec des FLOTTANTs
  21. p1 = POINTCYL 0. 0. ;
  22. p2 = POINTCYL 4. 80. ;
  23. p3 = POINTCYL 1. 280. ;
  24. p4 = POINTCYL 3. 180. ;
  25. p5 = POINTCYL 2. 120. ;
  26. mp1 = p1 ET p2 ET p3 ET p4 ET p5 ;
  27.  
  28. * POINTCYL syntaxe avec des LISTREELs
  29. mp2 = POINTCYL (PROG 0. 4. 1. 3. 2.) (PROG 0. 80. 280. 180. 120.) ;
  30.  
  31. * test d'egalite des points engendres
  32. REPE b1 (NBEL mp1) ;
  33.   pt1 = mp1 POIN &b1 ;
  34.   pt2 = mp2 POIN &b1 ;
  35.   SI ('>' (DIST pt1 pt2) dprec) ;
  36.     ERRE 5 ;
  37.   FINSI ;
  38. FIN b1 ;
  39.  
  40. ** En 3D
  41. OPTI 'DIME' 3 ;
  42.  
  43. * POINTCYL syntaxe avec des FLOTTANTs
  44. p1 = POINTCYL 0. 0. 0. ;
  45. p2 = POINTCYL 4. 80. 12. ;
  46. p3 = POINTCYL 1. 280. -1. ;
  47. p4 = POINTCYL 3. 180. 42. ;
  48. p5 = POINTCYL 2. 120. -7. ;
  49. mp1 = p1 ET p2 ET p3 ET p4 ET p5 ;
  50.  
  51. * POINTCYL syntaxe avec des LISTREELs
  52. mp2 = POINTCYL (PROG 0. 4. 1. 3. 2.) (PROG 0. 80. 280. 180. 120.) (PROG 0. 12. -1. 42. -7.) ;
  53.  
  54. * test d'egalite des points engendres
  55. REPE b1 (NBEL mp1) ;
  56.   pt1 = mp1 POIN &b1 ;
  57.   pt2 = mp2 POIN &b1 ;
  58.   SI ('>' (DIST pt1 pt2) dprec) ;
  59.     ERRE 5 ;
  60.   FINSI ;
  61. FIN b1 ;
  62.  
  63. * POINTSPH syntaxe avec des FLOTTANTs
  64. p1 = POINTSPH 0. 0. 0. ;
  65. p2 = POINTSPH 4. 80. 12. ;
  66. p3 = POINTSPH 1. 280. -80. ;
  67. p4 = POINTSPH 3. 180. 76. ;
  68. p5 = POINTSPH 2. 120. -12. ;
  69. mp1 = p1 ET p2 ET p3 ET p4 ET p5 ;
  70.  
  71. * POINSPHE syntaxe avec des LISTREELs
  72. mp2 = POINTSPH (PROG 0. 4. 1. 3. 2.) (PROG 0. 80. 280. 180. 120.) (PROG 0. 12. -80. 76. -12.) ;
  73.  
  74. * test d'egalite des points engendres
  75. REPE b1 (NBEL mp1) ;
  76.   pt1 = mp1 POIN &b1 ;
  77.   X1 = COOR 1 pt1 ;
  78.   Y1 = COOR 2 pt1 ;
  79.   Z1 = COOR 3 pt1 ;
  80.   pt2 = mp2 POIN &b1 ;
  81.   X2 = COOR 1 pt2 ;
  82.   Y2 = COOR 2 pt2 ;
  83.   Z2 = COOR 3 pt2 ;
  84.   DX = X1 - X2 ;
  85.   DY = Y1 - Y2 ;
  86.   DZ = Z1 - Z2 ;
  87.   SI ('>' ( 'ABS' DX ) dprec) ;
  88.     ERRE 5 ;
  89.   FINSI ;
  90.   SI ('>' ( 'ABS' DY ) dprec) ;
  91.     ERRE 5 ;
  92.   FINSI ;
  93.   SI ('>' ( 'ABS' DZ ) dprec) ;
  94.     ERRE 5 ;
  95.   FINSI ;
  96. FIN b1 ;
  97.  
  98. FIN ;
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  

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