Télécharger la plaquette Cast3M


fr en

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

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