Télécharger la plaquette Cast3M


fr en

Télécharger @INTLIN.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @INTLIN   PROCEDUR  BR232186  14/06/03    21:15:01     8061           
  2. DEBP @INTLIN LI1 * LISTREEL LI2 * LISTREEL X0 * FLOTTANT;
  3. **********************************************
  4. * PROCEDURE @INTLIN.PROCEDUR
  5. **********************************************
  6. * Entree :      LI1 (type LISTREEL)
  7. *               LISTE D ABSCISSES 
  8. *
  9. *               LI2 (type LISTREEL)
  10. *               LISTE D ORDONNEES
  11. *
  12. *               X0 (type FLOTTANT)
  13. *               VALEUR D ABSCISSE A INTERPOLER
  14. **********************************************
  15. * Sortie :      Y0 (type FLOTTANT)
  16. *               VALEUR INTERPOLEE 
  17. **********************************************
  18. * Commentaire : Interpolation lineaire
  19. *               a partir de la valeur X0
  20. **********************************************
  21. * Developpeur : COMPUTATIONAL ENGINEERING 
  22. *               AND STRUCTURES SAS
  23. *               contact@c-e-s.fr
  24. **********************************************
  25.  
  26. NLON = DIME LI1;
  27.  
  28. I = 0;
  29. REPETER BOU1 (NLON - 1);
  30. I = I + 1;
  31.  
  32. SI (ET (X0 >EG (EXTR LI1 I)) (X0 <EG (EXTR LI1 (I + 1))));
  33. X1 = EXTR LI1 I;
  34. Y1 = EXTR LI2 I;
  35.  
  36. X2 = EXTR LI1 (I + 1);
  37. Y2 = EXTR LI2 (I + 1);
  38.  
  39. XA = ((Y2 - Y1) / (X2 - X1));
  40. XB = ((X2 * Y1) - (X1 * Y2)) / (X2 - X1);
  41.  
  42. Y0 = (XA * X0) + XB;
  43.  
  44. FINSI;
  45. FIN BOU1;
  46.  
  47. RESPRO Y0;
  48.  
  49. FINP;
  50.  
  51.  

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