Télécharger peche.procedur

Retour à la liste

Numérotation des lignes :

  1. * PECHE PROCEDUR PASCAL 20/07/30 21:15:25 10672
  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. SI (EGA NOM 'MODELES') ;
  38. TOTO = NOM0 ;
  39. SINON ;
  40. NOM1 = TT1.ICOMP ;
  41. TOTO = (VAL - VAL0) / (VAL1 - VAL0) * (NOM1 - NOM0) ;
  42. TOTO = NOM0 + TOTO ;
  43. FINSI ;
  44. ISUCCES = 1 ;
  45. 'SI' ( 'NEG' JIMPRIM 0 ) ;
  46. 'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1 ;
  47. 'FINSI';
  48. 'QUITTER' BOUC ;
  49. FINS ;
  50. 'FINS' ;
  51. 'FINSI' ;
  52. 'FIN' BOUC ;
  53. 'SINON';
  54. TOTO = TT1.(NDIM - 1) ;
  55. ISUCCES = 1 ;
  56. 'FINSI' ;
  57. 'SI' ( ISUCCES 'EGA' 0 ) ;
  58. 'ERREUR' '*** On n a pas trouve le résultat cherché.' ;
  59. 'FINSI' ;
  60.  
  61. 'SINON';
  62.  
  63. 'SI' ( 'EXIS' TT 'RESUDEPL' );
  64.  
  65. *------------ TRAITEMENT D'UNE TABLE ISSUE DE NONLIN --------------
  66.  
  67. TT1 = TT . NOM ;
  68. TTIND = 'INDEX' TT1 ;
  69. NDIM = 'DIME' TTIND ;
  70. JIMPRIM = 'VALEUR' 'IMPI' ;
  71. 'SI' ( 'EXIS' VAL ) ;
  72. ICOMP = 0 ;
  73. ISUCCES = 0 ;
  74. VALREF = TTIND . NDIM * 1.E-6 ;
  75. 'REPETER' BOUC NDIM ;
  76. ICOMP = ICOMP + 1 ;
  77. VAL1 = TTIND . ICOMP ;
  78. 'SI' ( 'EGA' VAL1 VAL VALREF ) ;
  79. TOTO = TT1 . ( TTIND . ICOMP ) ;
  80. ISUCCES = 1 ;
  81. 'SI' ( 'NEG' JIMPRIM 0 ) ;
  82. 'MESS' ' ON A TROUVE UN RESULTAT AU TEMPS ' VAL1;
  83. 'FINSI';
  84. 'QUITTER' BOUC ;
  85. 'FINSI' ;
  86. 'FIN' BOUC ;
  87. 'SINON';
  88. TOTO = TT1 . ( TTIND . NDIM ) ;
  89. ISUCCES = 1 ;
  90. 'FINSI' ;
  91. 'SI' ( ISUCCES 'EGA' 0 ) ;
  92. 'ERREUR' '*** On n a pas trouve le résultat cherché.' ;
  93. 'FINSI' ;
  94. 'SINON';
  95. 'ERRE' '*** La table fournie ne convient pas';
  96. 'FINSI';
  97. 'FINSI';
  98. 'FINPROC' TOTO ;
  99.  

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