Télécharger la plaquette Cast3M


fr en

Télécharger temps.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : temps.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. * Presentation : Ce  cas-test  de  Verification  permet  de  tester  les
  6. *                differentes  syntaxes de la  directive / operateur TEMP
  7. *                qui mesure des duree.
  8. *
  9. * Creation     : 09/07/2015
  10. * Createur     : C. BERTHINIER
  11. * Modification : 04/04/2019 -- Ajout de la mesure du temps dans les PROCEDURES et les BOUCLES
  12. *
  13. ************************************************************************
  14.  
  16. OPTI ELEM QUA4;
  17. x = prog 0. PAS 1. 2.E6;
  18. y = x + x;
  20.  
  21.  
  22. ************** TEMPS PASSE : IMPRESSION ECRAN ****************
  23.  
  24. * Simple message du temps passe
  26.  
  27. * Impression a l'ecran des valeurs des temps passes dans les operateurs
  28. TEMP 'IMPR';
  29.  
  30. * Impression resumee des valeurs des temps passes dans les operateurs
  31. * ordonne en sens decroissant
  32. TEMP 'IMPR' 'SOMM' 'CPU';
  33.  
  34.  
  35. ************** MEMOIRE ****************
  36.  
  37. * Impression a l'ecran de l'occupation memoire ESOPE
  39.  
  40. * Recuperation du nombre de segments actifs et taille correspondante
  41. A B = TEMP 'SGAC';
  42.  
  43. * Impression a l'ecran du nombre de segments laisses actifs apres les
  44. * passages dans les operateurs
  45. TEMP 'SGAC' 'IMPR';
  46.  
  47.  
  48. ************** TEMPS PASSE : RECUPERATION ****************
  49.  
  50. * Recuperation du temps passe dans un ENTier
  51. tcpu = TEMP 'CPU';
  52. tclk = TEMP 'HORLOGE';
  53. mess 'MESSAGE PERSO: temps HORLOGE =' tclk  ' / temps CPU =' tcpu ;
  54.  
  55. * Recuperation dans une table de ces valeurs
  56. TAB1 = TEMP 'NOEC' ;
  57.  
  58. * Listage de tous les indices de la table devant exister
  59. LIST TAB1;
  60. LIST TAB1.'TEMPS_HORLOGE';
  61. LIST TAB1.'TEMPS_CPU'    ;
  62. LIST TAB1.'APPELS'       ;
  63. LIST TAB1.'EFFICACITE'   ;
  64.  
  65. * Listage du nombre d'appels a OPTI (2 sur le MAITRE ==> ASSISTANT 0)
  66. LIST TAB1.'APPELS'.'OPTI';
  67.  
  68. * Verification pour ERREUR dans Cast3M
  69. OPTI ECHO 0;
  70. ENTI1 = EXTR TAB1.'APPELS'.'OPTI' 1;
  71. SI (NEG ENTI1 2);
  72.   MESS 'Disfonctionnement dans l"operateur TEMP';
  73.   MESS 'Valeur attendue :' 2 ' Valeur extraite :' ENTI1;
  74.   ERRE 5;
  75. FINS;
  76. OPTI ECHO 1;
  77.  
  78.  
  79. ************** TEMPS PASSE : RAZ + RECUPERATION ****************
  80.  
  81. * Remise a zero du temps
  83. TAB1  = TEMP 'NOEC' ;
  84.  
  85. * Listage du nombre d'appels a TEMP (1 sur le MAITRE ==> ASSISTANT 0)
  86. LIST TAB1.'APPELS'.'TEMP';
  87.  
  88. * Verification pour ERREUR dans Cast3M
  89. OPTI ECHO 0;
  90. ENTI2 = EXTR TAB1.'APPELS'.'TEMP' 1;
  91. SI (NEG ENTI2 1);
  92.   MESS 'Disfonctionnement dans l"operateur TEMP ZERO';
  93.   MESS 'Valeur attendue :' 1 ' Valeur extraite :' ENTI2;
  94.   ERRE 5;
  95. FINS;
  96. OPTI ECHO 1;
  97.  
  98.  
  99. ************** TEMPS PROCEDURES & BOUCLES ****************
  100.  
  101. * realisation de "FACTORIELLE N" en récursif avec des procedures
  102. DEBP FACTOR ENTI1*'ENTIER';
  103.   SI(ENTI1 'EGA' 1);
  104.     RES1=1;
  105.   SINO;
  106.     RES1=ENTI1*(FACTOR (ENTI1-1));
  107.   FINS;
  108. FINP RES1;
  109.  
  110. * Boucles imbriquees qui invoque la procedure FACTOR (!IDEB)
  111.   IDEB=20;
  112.   REPE SURI 2 ;
  113.     IRES=FACTOR IDEB;
  114.     REPE SURJ 3   ;
  115.       IRES=FACTOR IDEB;
  116.       IRES=FACTOR IDEB;
  117.       REPE SURK 4   ;
  118.         IRES=FACTOR IDEB;
  119.         IRES=FACTOR IDEB;
  120.         IRES=FACTOR IDEB;
  121.         REPE SURL 5   ;
  122.           IRES=FACTOR IDEB;
  123.           IRES=FACTOR IDEB;
  124.           IRES=FACTOR IDEB;
  125.           IRES=FACTOR IDEB;
  126.         FIN SURL;
  127.       FIN SURK;
  128.     FIN SURJ;
  129.   FIN SURI;
  130.  
  131. * Impression du temps
  132. 'TEMP' 'IMPR' 'PROC' 'HORL';
  133. 'TEMP' 'IMPR' 'BOUC' 'HORL';
  134.  
  135. * Fin du cas-test
  136. FIN;
  137.  
  138.  
  139.  
  140.  
  141.  

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