Télécharger operad.dgibi

Retour à la liste

Numérotation des lignes :

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

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