Télécharger test_debi.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : tedebi.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. *******************************************************
  6. * Test tedebi.dgibi: Jeux de données *
  7. * --------------------------------- *
  8. *******************************************************
  9.  
  10. * SI GRAPH = N PAS DE GRAPHIQUE AFFICHE
  11. * SINON SI GRAPH DIFFERENT DE N TOUS
  12. * LES GRAPHIQUES SONT AFFICHES
  13.  
  14. GRAPH = 'N' ;
  15.  
  16. SAUT PAGE;
  17. SI (NEG GRAPH 'N') ;
  18. OPTI ECHO 1 ;
  19. OPTI TRAC PSC ;
  20. SINO ;
  21. OPTI ECHO 1 ;
  22. FINSI ;
  23.  
  24. *______________________________________________________
  25. * TEST TEDEBI
  26. *
  27. * verification du fonctionnement correct de DEBI
  28. *______________________________________________________
  29. TITRE 'VERIFICATION DU FONCTIONNEMENT DE DEBIT';
  30. OPTION DIME 2 ELEM QUA8 MODE PLAN DEFO ;
  31.  
  32. *______________________________________________________
  33. *------------------ DEFINITION DE LA GEOMETRIE --------
  34. *______________________________________________________
  35. *
  36. *
  37. SI (NEG GRAPH 'N');
  38. TRAC (L1 ET O) 'QUAL' ;
  39. FINSI;
  40.  
  41. XL=10. ;
  42. XD = 0.2 ;
  43. NX = 5 ;
  44. NY = 2;
  45. P1 = 0. 0.;
  46. P2 = XL 0. ;
  47. L1 = P1 D NX P2 ;
  48. SU = TRAN NY L1 (0. 1.) ;
  49. *______________________________________________________
  50. * DEFINITION DU MODELE
  51.  
  52. MO1 = MODE SU POREUX ;
  53.  
  54. *______________________________________________________
  55. *------- APPEL A DEBIT -------------
  56. DD = DEBIT MO1 XD L1 ;
  57. *______________________________________________________
  58. *------- CALCUL DE LA RESULTANTE -------------
  59. RR = RESU DD ;
  60. GEO = EXTR RR 'MAIL';
  61. PR = POINT GEO 1 ;
  62. VAD= EXTR RR 'FP' PR;
  63.  
  64. VREF = XL * XD;
  65.  
  66. *______________________________________________________
  67. *--------- CODE DE BON FONCTIONNEMENT -----------------
  68. *______________________________________________________
  69.  
  70. ERR = (ABS(VREF - VAD))/VREF ;
  71. SI (ERR < 1.E-6);
  72. ERRE 0;
  73. SINON;
  74. ERRE 5;
  75. FINSI;
  76.  
  77. FIN;
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  

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