Télécharger peche.procedur

Retour à la liste

Numérotation des lignes :

  1. * PECHE PROCEDUR PASCAL 13/01/29 21:16:09 7685
  2. 'DEBPROC' PECHE TT*TABLE NOM*MOT VAL/FLOTTANT MOT1/'MOT';
  3.  
  4. 'SI' ( 'EXIS' TT 'TEMPS' );
  5.  
  6. *----------- TRAITEMENT D'UNE TABLE FORMAT DE PASAPAS ---------------
  7.  
  8. 'SI' ('EXIS' MOT1) ;
  9. IPOL1 = 'EGA' MOT1 'IPOL' ;
  10. 'SINO' ;
  11. IPOL1 = FAUX ;
  12. 'FINS' ;
  13. TT1 = TT . NOM ;
  14. TT2 = TT . 'TEMPS';
  15. NDIM = 'DIME' TT2 ;
  16. JIMPRIM = 'VALEUR' 'IMPI' ;
  17. 'SI' ( 'EXIS' VAL ) ;
  18. ICOMP = -1 ;
  19. ISUCCES = 0 ;
  20. VALREF = VAL * 1.E-10 ;
  21. 'REPETER' BOUC NDIM ;
  22. ICOMP = ICOMP + 1 ;
  23. VAL1 = TT2.ICOMP;
  24. 'SI' ( 'EGA' VAL1 VAL VALREF) ;
  25. TOTO = TT1.ICOMP ;
  26. ISUCCES = 1 ;
  27. 'SI' ( 'NEG' JIMPRIM 0 ) ;
  28. 'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1 ;
  29. 'FINSI';
  30. 'QUITTER' BOUC ;
  31. 'SINO' ;
  32. 'SI' IPOL1 ;
  33. SI (VAL1 '>' VAL) ;
  34. ICOMPM1 = ICOMP - 1 ;
  35. VAL0 = TT2.ICOMPM1 ;
  36. NOM0 = TT1.ICOMPM1 ;
  37. NOM1 = TT1.ICOMP ;
  38. TOTO = (VAL - VAL0) / (VAL1 - VAL0) * (NOM1 - NOM0) ;
  39. TOTO = NOM0 + TOTO ;
  40. ISUCCES = 1 ;
  41. 'SI' ( 'NEG' JIMPRIM 0 ) ;
  42. 'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1 ;
  43. 'FINSI';
  44. 'QUITTER' BOUC ;
  45. FINS ;
  46. 'FINS' ;
  47. 'FINSI' ;
  48. 'FIN' BOUC ;
  49. 'SINON';
  50. TOTO = TT1.(NDIM - 1) ;
  51. ISUCCES = 1 ;
  52. 'FINSI' ;
  53. 'SI' ( ISUCCES 'EGA' 0 ) ;
  54. 'ERREUR' '*** On n a pas trouve le résultat cherché.' ;
  55. 'FINSI' ;
  56.  
  57. 'SINON';
  58.  
  59. 'SI' ( 'EXIS' TT 'RESUDEPL' );
  60.  
  61. *------------ TRAITEMENT D'UNE TABLE ISSUE DE NONLIN --------------
  62.  
  63. TT1 = TT . NOM ;
  64. TTIND = 'INDEX' TT1 ;
  65. NDIM = 'DIME' TTIND ;
  66. JIMPRIM = 'VALEUR' 'IMPI' ;
  67. 'SI' ( 'EXIS' VAL ) ;
  68. ICOMP = 0 ;
  69. ISUCCES = 0 ;
  70. VALREF = TTIND . NDIM * 1.E-6 ;
  71. 'REPETER' BOUC NDIM ;
  72. ICOMP = ICOMP + 1 ;
  73. VAL1 = TTIND . ICOMP ;
  74. 'SI' ( 'EGA' VAL1 VAL VALREF ) ;
  75. TOTO = TT1 . ( TTIND . ICOMP ) ;
  76. ISUCCES = 1 ;
  77. 'SI' ( 'NEG' JIMPRIM 0 ) ;
  78. 'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1;
  79. 'FINSI';
  80. 'QUITTER' BOUC ;
  81. 'FINSI' ;
  82. 'FIN' BOUC ;
  83. 'SINON';
  84. TOTO = TT1 . ( TTIND . NDIM ) ;
  85. ISUCCES = 1 ;
  86. 'FINSI' ;
  87. 'SI' ( ISUCCES 'EGA' 0 ) ;
  88. 'ERREUR' '*** On n a pas trouve le résultat cherché.' ;
  89. 'FINSI' ;
  90. 'SINON';
  91. 'ERRE' '*** La table fournie ne convient pas';
  92. 'FINSI';
  93. 'FINSI';
  94. 'FINPROC' TOTO ;
  95.  
  96.  

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