Télécharger puevol.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : puevol.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. *---------------------------------------------------------------------*
  5. * Cas-test de l'operateur '**' *
  6. * *
  7. * Ce cas-test verifie l'elevation a la puissance d'un objet de *
  8. * type EVOLUTION : *
  9. * 1. Elevation a la puissance ENTIERE POSITIVE ; *
  10. * 2. Elevation a la puissance ENTIERE NEGATIVE ; *
  11. * 3. Elevation a la puissance REELLE POSITIVE ; *
  12. * 4. Elevation a la puissance REELLE NEGATIVE ; *
  13. * *
  14. *---------------------------------------------------------------------*
  15. * *
  16. * Pour avoir les messages, mettre IMES1 a VRAI : *
  17. IMES1 = FAUX ;
  18. *
  19. 'OPTI' 'ECHO' 0 ;
  20. 'OPTI' 'DIME' 2 'ELEM' QUA4 ;
  21. * *
  22. *------------------- 1. PUISSANCE ENTIERE POSITIVE -------------------*
  23. * *
  24. * Construction d'une EVOLUTION : *
  25. LX1 = 'PROG' 0. 1. 2. ;
  26. LY1 = 'PROG' 2. 3. 5. ;
  27. EVK1 = 'EVOL' 'MANU' 'T' LX1 'K' LY1 ;
  28. * *
  29. * Elevation a la puissance : *
  30. N1 = 2 ;
  31. EVK2 = EVK1 ** N1 ;
  32. * *
  33. * Verification du resultat : *
  34. ERR1 = 0. ;
  35. 'SI' ('NEG' ('TYPE' EVK2) 'EVOLUTIO') ;
  36. ERR1 = 1. ;
  37. 'FINS' ;
  38. LEGX1 = 'EXTR' EVK1 'LEGX' 1 ;
  39. 'SI' ('NEG' ('EXTR' EVK2 'LEGX' 1) LEGX1) ;
  40. ERR1 = ERR1 + 1. ;
  41. 'FINS' ;
  42. LX2 = 'EXTR' EVK2 'ABSC' ;
  43. LY2 = 'EXTR' EVK2 'ORDO' ;
  44. ERR1 = ERR1 + ('MAXI' (LX1 - LX2)) + ('MAXI' ((LY1 ** N1) - LY2)) ;
  45. * *
  46. * Message de sortie : *
  47. IERR1 = 'NEG' ERR1 0. ;
  48. VECH1 = 'VALE' 'ECHO' ;
  49. 'OPTI' 'ECHO' 0 ;
  50. 'SI' IMES1 ;
  51. 'SI' IERR1 ;
  52. 'SAUT' 1 'LIGN' ;
  53. 'MESS'
  54. '*** Erreur dans l"elevation a la puissance entiere positive' ;
  55. 'MESS'
  56. ' d"un objet de type EVOLUTIOn.' ;
  57. 'FINS' ;
  58. 'FINS' ;
  59. 'OPTI' 'ECHO' VECH1 ;
  60. * *
  61. * Gestion de l'erreur : *
  62. 'SI' IERR1 ;
  63. 'SAUT' 1 'LIGN' ;
  64. 'ERRE' 5 ;
  65. 'FINS' ;
  66. * *
  67. *------------------- 2. PUISSANCE ENTIERE NEGATIVE -------------------*
  68. * *
  69. * Elevation a la puissance : *
  70. N1 = -1 ;
  71. EVK2 = EVK1 ** N1 ;
  72. * *
  73. * Verification du resultat : *
  74. 'SI' ('NEG' ('TYPE' EVK2) 'EVOLUTIO') ;
  75. ERR1 = 1. ;
  76. 'FINS' ;
  77. LEGX1 = 'EXTR' EVK1 'LEGX' 1 ;
  78. 'SI' ('NEG' ('EXTR' EVK2 'LEGX' 1) LEGX1) ;
  79. ERR1 = ERR1 + 1. ;
  80. 'FINS' ;
  81. LX2 = 'EXTR' EVK2 'ABSC' ;
  82. LY2 = 'EXTR' EVK2 'ORDO' ;
  83. ERR1 = ERR1 + ('MAXI' (LX1 - LX2)) + ('MAXI' ((LY1 ** N1) - LY2)) ;
  84. * *
  85. * Message de sortie : *
  86. IERR1 = 'NEG' ERR1 0. ;
  87. VECH1 = 'VALE' 'ECHO' ;
  88. 'OPTI' 'ECHO' 0 ;
  89. 'SI' IMES1 ;
  90. 'SI' IERR1 ;
  91. 'SAUT' 1 'LIGN' ;
  92. 'MESS'
  93. '*** Erreur dans l"elevation a la puissance entiere negative' ;
  94. 'MESS'
  95. ' d"un objet de type EVOLUTIOn.' ;
  96. 'FINS' ;
  97. 'FINS' ;
  98. 'OPTI' 'ECHO' VECH1 ;
  99. * *
  100. * Gestion de l'erreur : *
  101. 'SI' IERR1 ;
  102. 'SAUT' 1 'LIGN' ;
  103. 'ERRE' 5 ;
  104. 'FINS' ;
  105. * *
  106. *------------------- 3. PUISSANCE REELLE POSITIVE --------------------*
  107. * *
  108. * Elevation a la puissance : *
  109. X1 = 2.5 ;
  110. EVK2 = EVK1 ** X1 ;
  111. * *
  112. * Verification du resultat : *
  113. 'SI' ('NEG' ('TYPE' EVK2) 'EVOLUTIO') ;
  114. ERR1 = 1. ;
  115. 'FINS' ;
  116. LEGX1 = 'EXTR' EVK1 'LEGX' 1 ;
  117. 'SI' ('NEG' ('EXTR' EVK2 'LEGX' 1) LEGX1) ;
  118. ERR1 = ERR1 + 1. ;
  119. 'FINS' ;
  120. LX2 = 'EXTR' EVK2 'ABSC' ;
  121. LY2 = 'EXTR' EVK2 'ORDO' ;
  122. ERR1 = ERR1 + ('MAXI' (LX1 - LX2)) + ('MAXI' ((LY1 ** X1) - LY2)) ;
  123. * *
  124. * Message de sortie : *
  125. IERR1 = 'NEG' ERR1 0. ;
  126. VECH1 = 'VALE' 'ECHO' ;
  127. 'OPTI' 'ECHO' 0 ;
  128. 'SI' IMES1 ;
  129. 'SI' IERR1 ;
  130. 'SAUT' 1 'LIGN' ;
  131. 'MESS'
  132. '*** Erreur dans l"elevation a la puissance reelle positive' ;
  133. 'MESS'
  134. ' d"un objet de type EVOLUTIOn.' ;
  135. 'FINS' ;
  136. 'FINS' ;
  137. 'OPTI' 'ECHO' VECH1 ;
  138. * *
  139. * Gestion de l'erreur : *
  140. 'SI' IERR1 ;
  141. 'SAUT' 1 'LIGN' ;
  142. 'ERRE' 5 ;
  143. 'FINS' ;
  144. * *
  145. *------------------- 4. PUISSANCE REELLE NEGATIVE --------------------*
  146. * *
  147. * Elevation a la puissance : *
  148. X1 = -1.2 ;
  149. EVK2 = EVK1 ** X1 ;
  150. * *
  151. * Verification du resultat : *
  152. 'SI' ('NEG' ('TYPE' EVK2) 'EVOLUTIO') ;
  153. ERR1 = 1. ;
  154. 'FINS' ;
  155. LEGX1 = 'EXTR' EVK1 'LEGX' 1 ;
  156. 'SI' ('NEG' ('EXTR' EVK2 'LEGX' 1) LEGX1) ;
  157. ERR1 = ERR1 + 1. ;
  158. 'FINS' ;
  159. LX2 = 'EXTR' EVK2 'ABSC' ;
  160. LY2 = 'EXTR' EVK2 'ORDO' ;
  161. ERR1 = ERR1 + ('MAXI' (LX1 - LX2)) + ('MAXI' ((LY1 ** X1) - LY2)) ;
  162. * *
  163. * Message de sortie : *
  164. IERR1 = 'NEG' ERR1 0. ;
  165. VECH1 = 'VALE' 'ECHO' ;
  166. 'OPTI' 'ECHO' 0 ;
  167. 'SI' IMES1 ;
  168. 'SI' IERR1 ;
  169. 'SAUT' 1 'LIGN' ;
  170. 'MESS'
  171. '*** Erreur dans l"elevation a la puissance reelle positive' ;
  172. 'MESS'
  173. ' d"un objet de type EVOLUTIOn.' ;
  174. 'FINS' ;
  175. 'FINS' ;
  176. 'OPTI' 'ECHO' VECH1 ;
  177. * *
  178. * Gestion de l'erreur : *
  179. 'SI' IERR1 ;
  180. 'SAUT' 1 'LIGN' ;
  181. 'ERRE' 5 ;
  182. 'FINS' ;
  183. * *
  184. *---------------------------------------------------------------------*
  185. * *
  186. * Message de sortie si test reussi : *
  187. VECH1 = 'VALE' 'ECHO' ;
  188. 'OPTI' 'ECHO' 0 ;
  189. 'SI' IMES1 ;
  190. 'SAUT' 1 'LIGN' ;
  191. 'MESS'
  192. '*** TEST REUSSI ***'
  193. ;
  194. 'FINS' ;
  195. 'OPTI' 'ECHO' VECH1 ;
  196. * *
  197. 'FIN' ;
  198. 'OPTI' 'ECHO' 1 ;
  199.  
  200.  
  201.  
  202.  
  203.  

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