Télécharger la plaquette Cast3M


fr en

Télécharger legende.procedur

Retour à la liste

Numérotation des lignes : 

  1. * LEGENDE   PROCEDUR  SP204843  24/08/27    21:15:02     11993          
  2. debproc legende ;
  3.  
  4. * Quelle syntaxe ?
  5. inuag1   = faux ;
  6. ievol1   = faux ;
  7. argu nua1/nuage ;
  8. si (exis nua1) ;
  9.   inuag1   = vrai ;
  10. sino ;
  11.   argu ev1*evolution ;
  12.   ievol1   = vrai ;
  13. fins ;  
  14.  
  15. * Table de sortie :
  16. ttitr1   = table ;
  17. tableg1  = table ;
  18. tableg1 . titre = ttitr1 ;
  19.  
  20. *-------------------------------- NUAGE -------------------------------*
  21.  
  22. si inuag1 ;
  23.  
  24. * Nom de la composante indexant les differentes evolutions du nuage :
  25. argu mot1*mot ;
  26.  
  27. * Lecture arguments optionnels (FORMAT et specif. trace courbes) :
  28. ifmt1    = faux ;
  29. ilign1   = faux ;
  30. repe barg1 2 ;
  31.   argu mot2/mot ;
  32.   si (exis mot2) ;
  33.     si (ega mot2 'FORMAT') ;
  34.       ifmt1    = vrai ;
  35.       argu mot4*mot ;
  36.     sino ;
  37.       ilign1   = vrai ;
  38.       mot3     = mot2 ;
  39.     fins ;
  40.   fins ;
  41. fin barg1 ;
  42.  
  43. * Liste de valeurs de la composante mot1
  44. lval1    = extr nua1 mot1 ;
  45.  
  46. typ1     = type lval1 ;
  47. Si ((neg typ1 listreel) et (neg typ1 listenti) et (neg typ1 listmots) ) ;
  48.   si (ega typ1 'FLOTTANT') ;
  49.     si ifmt1 ;
  50.       ttitr1 . 1 = chai mot1 ' =' ' ' 'FORMAT' mot4 lval1 ;
  51.     sino ;
  52.       ttitr1 . 1 = chai mot1 ' =' ' ' lval1 ;
  53.     fins ;
  54.     si ilign1 ;
  55.       tableg1 . 1 = mot3 ;
  56.     fins ;
  57.     quit legende ;
  58.   fins ;
  59.   si (ega typ1 'ENTIER') ;
  60. *    si ifmt1 ;
  61. *      ttitr1 . 1 = chai mot1 ' =' ' ' 'FORMAT' mot4 lval1 ;
  62. *    sino ;
  63.       ttitr1 . 1 = chai mot1 ' =' ' ' lval1 ;
  64. *    fins ;
  65.     si ilign1 ;
  66.       tableg1 . 1 = mot3 ;
  67.     fins ;
  68.     quit legende ;
  69.   fins ;
  70.   si (ega typ1 'MOT') ;
  71. *    si ifmt1 ;
  72. *      ttitr1 . 1 = chai mot1 ' =' ' ' 'FORMAT' mot4 lval1 ;
  73. *    sino ;
  74.       ttitr1 . 1 = chai mot1 ' =' ' ' lval1 ;
  75. *    fins ;
  76.     si ilign1 ;
  77.       tableg1 . 1 = mot3 ;
  78.     fins ;
  79.     quit legende ;
  80.   fins ;
  81. *  mess ' **** ERREUR ***** dans la procedure LEGENDE :' ;
  82.   moterr1  = chai '*****  La composante' ' ' mot1 ' du NUAGE ne contient pas de FLOTTANT, d''ENTIER ou de MOT' ;
  83.   erreur moterr1 ;
  84. fins ;
  85.  
  86. * Table des titres :
  87. iflot1   = ega typ1 flottant ;
  88. repe bval1 (dime lval1) ;
  89.   vali1    = extr lval1 &bval1 ;
  90.   si (ifmt1 et iflot1) ;
  91.     ttitr1 . &bval1 = chai mot1 ' =' ' ' 'FORMAT' mot4 vali1 ;
  92.   sino ;
  93.     ttitr1 . &bval1 = chai mot1 ' =' ' ' vali1 ;
  94.   fins ;
  95.   si ilign1 ;
  96.     tableg1 . &bval1 = mot3 ;
  97.   fins ;
  98. fin bval1 ;
  99.  
  100. * finsi nuage :
  101. fins ;
  102.  
  103. *------------------------------ EVOLUTION -----------------------------*
  104.  
  105. si ievol1 ;
  106.  
  107. argu mot3/mot ;
  108.  
  109. ilign1   = exis mot3 ;
  110.  
  111. repe bcourb1 (dime ev1) ;
  112.   i1       = &bcourb1 ;
  113.   ttitr1 . i1 = extr ev1 legy i1 ;
  114.   si ilign1 ;
  115.     tableg1 . i1 = mot3 ;
  116.   fins ;
  117. fin bcourb1 ;
  118.  
  119. * finsi evolution :
  120. fins ;
  121.  
  122. *-------- ERREUR 5 si aucun cas prevu : ne doit jamais arriver --------*
  123.  
  124. si (non (inuag1 ou ievol1)) ;
  125.   erre 5 ;
  126. fins ;
  127.  
  128. finproc tableg1 ;
  129.  
  130.  
  131.  
  132.  
  133.  

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