Télécharger ipolspli.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : ipolspli.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. *
  5. 'OPTI' 'ECHO' 0 ;
  6. ************************************************************************
  7. * NOM : IPOLSPLI
  8. * DESCRIPTION : Compare les différentes interpolations d'une fonction
  9. * Linéaire et Spline.
  10. *
  11. *
  12. * LANGAGE : GIBIANE-CAST3M
  13. * AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  14. * mél : gounand@semt2.smts.cea.fr
  15. **********************************************************************
  16. * VERSION : v1, 07/09/2012, version initiale
  17. * HISTORIQUE : v1, 07/09/2012, création
  18. * HISTORIQUE :
  19. * HISTORIQUE :
  20. ************************************************************************
  21. *
  22. *
  23. graph = FAUX ;
  24. interact= FAUX ;
  25. 'OPTION' 'DIME' 1 'ELEM' 'SEG2' ;
  26. 'SI' ('NON' interact) ;
  27. 'OPTION' 'TRAC' 'PS' ;
  28. 'SINON' ;
  29. 'OPTION' 'TRAC' 'X' ;
  30. 'FINSI' ;
  31. *
  32. lx = 'PROG' 0. 0.5 1. 1.5 2. ;
  33. ly = 'PROG' 0. 1. 0. 1. 0. ;
  34. *
  35. lxf = 'PROG' -0.3 'PAS' 0.01 2.3 ;
  36. ly1 = 'IPOL' lxf lx ly ;
  37. ly2 = 'IPOL' lxf lx ly 'SPLINE' ;
  38. ly3 = 'IPOL' lxf lx ly 'SPLINE' 'DGAU' 2. ;
  39. ly4 = 'IPOL' lxf lx ly 'SPLINE' 'DDRO' -2. ;
  40. ly5 = 'IPOL' lxf lx ly 'SPLINE' 'DGAU' 2. 'DDRO' -2. ;
  41. *
  42. ev1 = 'EVOL' jaun 'MANU' lxf ly1 ;
  43. ev2 = 'EVOL' roug 'MANU' lxf ly2 ;
  44. ev3 = 'EVOL' vert 'MANU' lxf ly3 ;
  45. ev4 = 'EVOL' bleu 'MANU' lxf ly4 ;
  46. ev5 = 'EVOL' turq 'MANU' lxf ly4 ;
  47. *
  48. evt = ev1 'ET' ev2 'ET' ev3 'ET' ev4 'ET' ev5 ;
  49. tt = 'TABLE' ;
  50. tt . 'TITRE' = 'TABLE' ;
  51. ttt = tt. 'TITRE' ;
  52. tt . 1 = 'CHAINE' 'MARQ ROND REGU' ; ttt . 1 = 'Lineaire' ;
  53. tt . 2 = 'CHAINE' 'MARQ CROI REGU' ; ttt . 2 = 'Spline nat' ;
  54. tt . 3 = 'CHAINE' 'MARQ BARR REGU' ; ttt . 3 = 'Spline dxg' ;
  55. tt . 4 = 'CHAINE' 'MARQ CARR REGU' ; ttt . 4 = 'Spline dxd' ;
  56. tt . 5 = 'CHAINE' 'MARQ LOSA REGU' ; ttt . 5 = 'Spline dxgd' ;
  57. 'DESSIN' evt 'LEGE' tt 'TITR'
  58. 'Comparaison interpolations : lineaire et spline cubique+cond. limites';
  59. *
  60. dx1 = 'ABS' ('-' ly2 ly1) ;
  61. dx2 = 'ABS' ('-' ly3 ly1) ;
  62. dx3 = 'ABS' ('-' ly4 ly1) ;
  63. dx4 = 'ABS' ('-' ly5 ly1) ;
  64. *
  65. lmin = 'PROG' ('MINI' dx1) ('MINI' dx2) ('MINI' dx3) ('MINI' dx4) ;
  66. lmax = 'PROG' ('MAXI' dx1) ('MAXI' dx2) ('MAXI' dx3) ('MAXI' dx4) ;
  67. *
  68. crit1 = '>' ('MAXI' lmin) 1.D-10 ;
  69. *'LISTE' lmax ;
  70. lmaxr = 'PROG' 0.28 0.28 0.28 0.19 ;
  71. crit2 = '<' ('MAXIMUM' ('-' lmaxr lmax)) 0. ;
  72. lok = 'NON' ('OU' crit1 crit2) ;
  73. *
  74. * Fin du jeu de donnees
  75. *
  76. 'SAUTER' 2 'LIGNE' ;
  77. 'SI' lok ;
  78. 'MESSAGE' 'Tout sest bien passe' ;
  79. 'SINON' ;
  80. 'MESSAGE' 'Il y a eu des erreurs' ;
  81. 'FINSI' ;
  82. 'SAUTER' 2 'LIGNE' ;
  83. 'SI' interact ;
  84. 'OPTION' 'DONN' 5 'ECHO' 1 ;
  85. 'FINSI' ;
  86. 'SI' ('NON' lok) ;
  87. 'ERREUR' 5 ;
  88. 'FINSI' ;
  89. *
  90. * End of dgibi file IPOLSPLI
  91. *
  92. 'FIN' ;
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  

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