Télécharger pointcylsph.dgibi

Retour à la liste

Numérotation des lignes :

  1. ** Petit test simple sur les procedures POINTCYL et POINTSPH
  2.  
  3. ** En 2D
  4. OPTI 'DIME' 2 ;
  5.  
  6. * POINTCYL syntaxe avec des FLOTTANTs
  7. p1 = POINTCYL 0. 0. ;
  8. p2 = POINTCYL 4. 80. ;
  9. p3 = POINTCYL 1. 280. ;
  10. p4 = POINTCYL 3. 180. ;
  11. p5 = POINTCYL 2. 120. ;
  12. mp1 = p1 ET p2 ET p3 ET p4 ET p5 ;
  13.  
  14. * POINTCYL syntaxe avec des LISTREELs
  15. mp2 = POINTCYL (PROG 0. 4. 1. 3. 2.) (PROG 0. 80. 280. 180. 120.) ;
  16.  
  17. * test d'egalite des points engendres
  18. REPE b1 (NBEL mp1) ;
  19. pt1 = mp1 POIN &b1 ;
  20. pt2 = mp2 POIN &b1 ;
  21. SI (NEG pt1 pt2) ;
  22. ERRE 5 ;
  23. FINSI ;
  24. FIN b1 ;
  25.  
  26.  
  27.  
  28.  
  29.  
  30. ** En 3D
  31. OPTI 'DIME' 3 ;
  32.  
  33. * POINTCYL syntaxe avec des FLOTTANTs
  34. p1 = POINTCYL 0. 0. 0. ;
  35. p2 = POINTCYL 4. 80. 12. ;
  36. p3 = POINTCYL 1. 280. -1. ;
  37. p4 = POINTCYL 3. 180. 42. ;
  38. p5 = POINTCYL 2. 120. -7. ;
  39. mp1 = p1 ET p2 ET p3 ET p4 ET p5 ;
  40.  
  41. * POINTCYL syntaxe avec des LISTREELs
  42. mp2 = POINTCYL (PROG 0. 4. 1. 3. 2.) (PROG 0. 80. 280. 180. 120.) (PROG 0. 12. -1. 42. -7.) ;
  43.  
  44. * test d'egalite des points engendres
  45. REPE b1 (NBEL mp1) ;
  46. pt1 = mp1 POIN &b1 ;
  47. pt2 = mp2 POIN &b1 ;
  48. SI (NEG pt1 pt2) ;
  49. ERRE 5 ;
  50. FINSI ;
  51. FIN b1 ;
  52.  
  53.  
  54.  
  55. * POINTSPH syntaxe avec des FLOTTANTs
  56. p1 = POINTSPH 0. 0. 0. ;
  57. p2 = POINTSPH 4. 80. 12. ;
  58. p3 = POINTSPH 1. 280. -80. ;
  59. p4 = POINTSPH 3. 180. 76. ;
  60. p5 = POINTSPH 2. 120. -12. ;
  61. mp1 = p1 ET p2 ET p3 ET p4 ET p5 ;
  62.  
  63. * POINTCYL syntaxe avec des LISTREELs
  64. mp2 = POINTSPH (PROG 0. 4. 1. 3. 2.) (PROG 0. 80. 280. 180. 120.) (PROG 0. 12. -80. 76. -12.) ;
  65.  
  66. * test d'egalite des points engendres
  67. REPE b1 (NBEL mp1) ;
  68. pt1 = mp1 POIN &b1 ;
  69. pt2 = mp2 POIN &b1 ;
  70. SI (NEG pt1 pt2) ;
  71. ERRE 5 ;
  72. FINSI ;
  73. FIN b1 ;
  74.  
  75.  
  76. FIN ;
  77.  
  78.  
  79.  

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