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