Télécharger projgril_1.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : projgril_1.dgibi
  2. OPTI 'DIME' 2 'ECHO' 1 ;
  3.  
  4. ************************************************************************
  5. * Test de la procedure PROJGRIL *
  6. * Projection dans 2 dimensions d'un nuage representant une grille *
  7. * de n dimensions *
  8. * utilise dans le cas de l'operateur IPOL option 'GRILL' *
  9. * *
  10. * - test avec fonction de 2, 3, 4 et meme 5 variables *
  11. ************************************************************************
  12. MESS ; MESS ; MESS ;
  13.  
  14.  
  15.  
  16.  
  17. ** Tolerance pour les tests et indicateur de trace
  18. ** -----------------------------------------------
  19. tol1 = 1.E-14 ;
  20. itrac = FAUX ;
  21.  
  22.  
  23.  
  24.  
  25. ** TEST sur une grille de dimension 2
  26. ** ----------------------------------
  27. MESS 'Grille de dimension 2' ;
  28. l1 = PROG 1. 5. 12. ;
  29. l2 = PROG 0. 2.5 ;
  30. lf = PROG 4. 8. 15. 16. 23. 42. ;
  31. nu1 = NUAG 'COMP' 'JIN' l1
  32. 'COMP' 'SUN' l2
  33. 'COMP' 'JACK' lf ;
  34. mail1 chp1 = PROJGRIL nu1 ;
  35. tp = TABL ;
  36. tf = TABL ;
  37. tp . 1 = 1. 0. ;
  38. tf . 1 = 4. ;
  39. tp . 2 = 5. 0. ;
  40. tf . 2 = 8. ;
  41. tp . 3 = 12. 0. ;
  42. tf . 3 = 15. ;
  43. tp . 4 = 1. 2.5 ;
  44. tf . 4 = 16. ;
  45. tp . 5 = 5. 2.5 ;
  46. tf . 5 = 23. ;
  47. tp . 6 = 12. 2.5 ;
  48. tf . 6 = 42. ;
  49. MESS ' Point | Valeur | Valeur | Erreur' ;
  50. MESS ' | theorique | interpolee | ' ;
  51. MESS '--------|----------------|----------------|-------' ;
  52. REPE b1 (DIME tp) ;
  53. ft = tf . &b1 ;
  54. pt = mail1 POIN 'PROC' (tp . &b1) ;
  55. fc = EXTR chp1 'JACK' pt ;
  56. err1 = ABS ((fc - ft) / ft) ;
  57. MESS &b1 '|' ft '|' fc '|' err1 ;
  58. SI (err1 > tol1) ;
  59. MESS ; MESS ;
  60. MESS 'ECHEC DU CAS TEST !' ;
  61. ERREUR 4 ;
  62. FINSI ;
  63. FIN b1 ;
  64. SI itrac ;
  65. TRAC chp1 mail1 'TITR' 'Test sur une grille en dimension 2' ;
  66. FINSI ;
  67. MESS ; MESS ; MESS ;
  68.  
  69.  
  70.  
  71.  
  72. ** TEST sur une grille de dimension 3
  73. ** ----------------------------------
  74. MESS 'Grille de dimension 3' ;
  75. l3 = PROG 0. 10. ;
  76. lf = lf ET (PROG 8. 42. 4. 16. 15. 23.) ;
  77. nu1 = NUAG 'COMP' 'EKO' l1
  78. 'COMP' 'BEN' l2
  79. 'COMP' 'BOON' l3
  80. 'COMP' 'KATE' lf ;
  81. mail1 chp1 = PROJGRIL nu1 (MOTS 'BEN') (PROG 1.25) ;
  82. tp = TABL ;
  83. tf = TABL ;
  84. tp . 1 = 1. 0. ;
  85. tf . 1 = 10. ;
  86. tp . 2 = 5. 0. ;
  87. tf . 2 = 15.5 ;
  88. tp . 3 = 12. 0. ;
  89. tf . 3 = 28.5 ;
  90. tp . 4 = 1. 10. ;
  91. tf . 4 = 12. ;
  92. tp . 5 = 5. 10. ;
  93. tf . 5 = 28.5 ;
  94. tp . 6 = 12. 10. ;
  95. tf . 6 = 13.5 ;
  96. MESS ' Point | Valeur | Valeur | Erreur' ;
  97. MESS ' | theorique | interpolee | ' ;
  98. MESS '--------|----------------|----------------|-------' ;
  99. REPE b1 (DIME tp) ;
  100. ft = tf . &b1 ;
  101. pt = mail1 POIN 'PROC' (tp . &b1) ;
  102. fc = EXTR chp1 'KATE' pt ;
  103. err1 = ABS ((fc - ft) / ft) ;
  104. MESS &b1 '|' ft '|' fc '|' err1 ;
  105. SI (err1 > tol1) ;
  106. MESS ; MESS ;
  107. MESS 'ECHEC DU CAS TEST !' ;
  108. ERREUR 4 ;
  109. FINSI ;
  110. FIN b1 ;
  111. SI itrac ;
  112. TRAC chp1 mail1 'TITR' 'Test sur une grille en dimension 3' ;
  113. FINSI ;
  114. MESS ; MESS ; MESS ;
  115.  
  116.  
  117.  
  118. ** TEST sur une grille de dimension 4
  119. ** ----------------------------------
  120. MESS 'Grille de dimension 4' ;
  121. l4 = PROG 1977. 2004. ;
  122. lf = lf ET (PROG 42. 4. 23. 8. 15. 16.
  123. 4. 23. 16. 8. 15. 42.) ;
  124. nu1 = NUAG 'COMP' 'WALT' l1
  125. 'COMP' 'ROSE' l2
  126. 'COMP' 'JACO' l3
  127. 'COMP' 'SAYI' l4
  128. 'COMP' 'HUGO' lf ;
  129. mail1 chp1 = PROJGRIL nu1 (MOTS 'ROSE' 'WALT') (PROG 1.25 8.5) ;
  130. tp = TABL ;
  131. tf = TABL ;
  132. tp . 1 = 0. 1977. ;
  133. tf . 1 = 22. ;
  134. tp . 2 = 10. 1977. ;
  135. tf . 2 = 21. ;
  136. tp . 3 = 0. 2004. ;
  137. tf . 3 = 14.5 ;
  138. tp . 4 = 10. 2004. ;
  139. tf . 4 = 24. ;
  140. MESS ' Point | Valeur | Valeur | Erreur' ;
  141. MESS ' | theorique | interpolee | ' ;
  142. MESS '--------|----------------|----------------|-------' ;
  143. REPE b1 (DIME tp) ;
  144. ft = tf . &b1 ;
  145. pt = mail1 POIN 'PROC' (tp . &b1) ;
  146. fc = EXTR chp1 'HUGO' pt ;
  147. err1 = ABS ((fc - ft) / ft) ;
  148. MESS &b1 '|' ft '|' fc '|' err1 ;
  149. SI (err1 > tol1) ;
  150. MESS ; MESS ;
  151. MESS 'ECHEC DU CAS TEST !' ;
  152. ERREUR 4 ;
  153. FINSI ;
  154. FIN b1 ;
  155. SI itrac ;
  156. TRAC chp1 mail1 'TITR' 'Test sur une grille en dimension 4' ;
  157. FINSI ;
  158. MESS ; MESS ; MESS ;
  159.  
  160.  
  161.  
  162.  
  163. ** TEST sur une grille de dimension 5
  164. ** ----------------------------------
  165. MESS 'Grille de dimension 5' ;
  166. l5 = PROG 1. 4. 6. ;
  167. lf = lf ET (PROG 4. 23. 15. 4. 8. 15. 4. 8. 15. 42. 23. 16.
  168. 8. 42. 16. 42. 23. 16. 16. 23. 16. 15. 8. 15.
  169. 15. 4. 23. 4. 8. 15. 15. 42. 23. 16. 4. 8.
  170. 16. 8. 42. 42. 23. 16. 8. 4. 42. 23. 42. 4.) ;
  171. nu1 = NUAG 'COMP' 'ALEX' l1
  172. 'COMP' 'ANA' l2
  173. 'COMP' 'SAWY' l3
  174. 'COMP' 'CHAN' l4
  175. 'COMP' 'DESM' l5
  176. 'COMP' 'JOHN' lf ;
  177. mail1 chp1 = PROJGRIL nu1 (MOTS 'ALEX' 'CHAN' 'SAWY' )
  178. (PROG 5. 1984. 10. ) ;
  179. xb = (1984. - 1977.) / (2004. - 1977.) ;
  180. xbb = 1. - xb ;
  181. tp = TABL ;
  182. tf = TABL ;
  183. tp . 1 = 0. 1. ;
  184. tf . 1 = (42. * xbb) + (23. * xb) ;
  185. tp . 2 = 2.5 1. ;
  186. tf . 2 = 15. ;
  187. tp . 3 = 0. 4. ;
  188. tf . 3 = (8. * xbb) + (23. * xb) ;
  189. tp . 4 = 2.5 4. ;
  190. tf . 4 = (23. * xbb) + (8. * xb) ;
  191. tp . 5 = 0. 6. ;
  192. tf . 5 = (42. * xbb) + (4. * xb) ;
  193. tp . 6 = 2.5 6. ;
  194. tf . 6 = (4. * xbb) + (42. * xb) ;
  195. MESS ' Point | Valeur | Valeur | Erreur' ;
  196. MESS ' | theorique | interpolee | ' ;
  197. MESS '--------|----------------|----------------|-------' ;
  198. REPE b1 (DIME tp) ;
  199. ft = tf . &b1 ;
  200. pt = mail1 POIN 'PROC' (tp . &b1) ;
  201. fc = EXTR chp1 'JOHN' pt ;
  202. err1 = ABS ((fc - ft) / ft) ;
  203. MESS &b1 '|' ft '|' fc '|' err1 ;
  204. SI (err1 > tol1) ;
  205. MESS ; MESS ;
  206. MESS 'ECHEC DU CAS TEST !' ;
  207. ERREUR 4 ;
  208. FINSI ;
  209. FIN b1 ;
  210. SI itrac ;
  211. TRAC chp1 mail1 'TITR' 'Test sur une grille en dimension 5' ;
  212. FINSI ;
  213. MESS ; MESS ; MESS ;
  214.  
  215.  
  216.  
  217.  
  218. MESS 'SUCCES DU CAS TEST' ;
  219.  
  220.  
  221.  
  222.  
  223. FIN ;
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  

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