Télécharger operad.dgibi

Retour à la liste

Numérotation des lignes :

  1. opti echo 0;
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5.  
  6.  
  7. ************************************************************************
  8. * Cas test pour la deuxième syntaxe de l'operateur + *
  9. ************************************************************************
  10. opti dime 2 elem seg2;
  11. pta = 0 0;
  12. ptb = 0 1;
  13. lab = droi ((3 * (vale assi) ) - 1 ) pta ptb;
  14. mod1 = mode lab mecanique elastique;
  15.  
  16.  
  17. 'MESS' 'Test chpoint';
  18. chp = table esclave;
  19. 'REPE' idom (vale assi);
  20. chp. &idom = manu chpo lab scal 1;
  21. fin idom;
  22. chpr = + chp;
  23. *list chpr;
  24. chpv = manu chpo lab scal (vale assi);
  25. 'SI' ('>' ('MAXI' 'ABS' (chpr - chpv)) 1e-5);
  26. erreur 'Erreur avec les CHPOINTs';
  27. 'FINSI';
  28.  
  29. 'MESS' 'Test evolutio';
  30. chevo = table esclave;
  31. repe idom (vale assi);
  32. chevo. &idom = evol chpo chp. &idom lab;
  33. fin idom;
  34. chevor = + chevo;
  35. *list chevor;
  36. chevov = evol chpo chpv lab;
  37. 'SI' ('>' ('MAXI' 'ABS' (extr (chevor - chevov )ordo)) 1e-5);
  38. erreur 'Erreur avec les EVOLUTIOs';
  39. 'FINSI';
  40.  
  41. 'MESS' 'Test mchaml';
  42. chm = table esclave;
  43. repe idom (vale assi);
  44. chm. &idom = chan cham chp . &idom mod1;
  45. fin idom;
  46. chmr = + chm;
  47. *list chmr;
  48. chmv = chan cham chpv mod1;
  49. 'SI' ('>' ('MAXI' 'ABS' (chmr - chmv)) 1e-5);
  50. erreur 'Erreur avec les MCHAMLs';
  51. 'FINSI';
  52.  
  53. 'MESS' 'Test entier';
  54. chen = table esclave;
  55. 'REPE' idom (vale assi);
  56. chen. &idom = 1;
  57. fin idom;
  58. chenr = + chen;
  59. *list chenr;
  60. chenv = vale assi;
  61. 'SI' ('>' ('ABS' (chenr - chenv)) 1e-5);
  62. erreur 'Erreur avec les ENTIERs';
  63. 'FINSI';
  64.  
  65. 'MESS' 'Test flottant';
  66. chflo = table esclave;
  67. 'REPE' idom (vale assi);
  68. chflo. &idom = 1.0;
  69. fin idom;
  70. chflor = + chflo;
  71. *list chflor;
  72. chflov = vale assi;
  73. 'SI' ('>' ('ABS' (chflor - chflov)) 1e-5);
  74. erreur 'Erreur avec les FLOTTANTs';
  75. 'FINSI';
  76.  
  77. 'MESS' 'Test listenti';
  78. chlien = table esclave;
  79. 'REPE' idom (vale assi);
  80. chlien. &idom = LECT 1 1 1;
  81. chlienr = + chlien;
  82. fin idom;
  83. *list chlienr;
  84. chlienv = lect 3 * (vale assi);
  85. 'SI' ('>' ('MAXI' 'ABS' (chlienr - chlienv)) 1e-5);
  86. erreur 'Erreur avec les LISTENTIs';
  87. 'FINSI';
  88.  
  89. 'MESS' 'Test listreel';
  90. chlire = table esclave;
  91. 'REPE' idom (vale assi);
  92. chlire. &idom = PROG 1.0 1.0 1.0;
  93. fin idom;
  94. chlirer = + chlire;
  95. *list chlirer;
  96. chlirev = prog 3 * (vale assi);
  97. 'SI' ('>' ('MAXI' 'ABS' (chlirer - chlirev)) 1e-5);
  98. erreur 'Erreur avec les LISTREELs';
  99. 'FINSI';
  100. 'MESS' 'Tous test OK';
  101. fin;
  102.  
  103.  
  104.  

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