Télécharger la plaquette Cast3M


fr en

Télécharger bgmo_bcn.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  bgmo_bcn.dgibi
  2. ****************************************************
  3. ** TESTING FILE FOR THE OPERATOR BGMO EVALUATING   *        
  4. ** THE FUNCIONS INVOLVED IN THE BRUNO GERARD MODEL *
  5. ****************************************************
  6. GRAPH='N';                                                                     
  7.  
  8. nn1 = 100;
  9. tkk = PROG;
  10. cokk = PROG;
  11. t=0.;
  12. repeter kk1 nn1;
  13.   con1 = BGMO 'COND' t 20. .8e-3;
  14.   tkk = tkk INSE &kk1 t;
  15.   cokk = cokk INSE &kk1 con1;
  16.   t= t + (.5 / 50.);
  17. fin kk1;
  18. num1 = EXTR cokk 50 ;
  19. flag1 = ABS(num1 - 1.6577);
  20. evol1 = EVOL MANU 'temps' tkk 'COND' cokk;
  21. SI (NEG GRAPH 'N');
  22. dess evol1;
  23. FINSI;
  24.  
  25. nn1 = 100;
  26. tkk = PROG;
  27. cokk = PROG;
  28. t=0.;
  29. repeter kk1 nn1;
  30.   con1 = BGMO 'DCON' t 20. .8e-3;
  31.   tkk = tkk INSE &kk1 t;
  32.   cokk = cokk INSE &kk1 con1;
  33.   t= t + (.5 / 50.);
  34. fin kk1;
  35. num1 = EXTR cokk 50 ;
  36. flag2 =  ABS(num1 + 2.4476);
  37. evol1 = EVOL MANU 'temps' tkk 'COND' cokk;
  38. SI (NEG GRAPH 'N');
  39. dess evol1;
  40. FINSI;
  41.  
  42. nn1 = 100;
  43. tkk = PROG;
  44. cokk = PROG;
  45. t=0.;
  46. repeter kk1 nn1;
  47.   con1 = BGMO 'CAPA' t 20. 700.;
  48.   tkk = tkk INSE &kk1 t;
  49.   cokk = cokk INSE &kk1 con1;
  50.   t= t + (.5 / 50.);
  51. fin kk1;
  52. num1 = EXTR cokk 50 ;
  53. flag3 = ABS(num1 - 0.33457);
  54. evol1 = EVOL MANU 'temps' tkk 'COND' cokk;
  55. SI (NEG GRAPH 'N');
  56. dess evol1;
  57. FINSI;
  58.  
  59. nn1 = 100;
  60. tkk = PROG;
  61. cokk = PROG;
  62. t=0.;
  63. repeter kk1 nn1;
  64.   con1 = BGMO 'DCAP' t 20. 700.;
  65.   tkk = tkk INSE &kk1 t;
  66.   cokk = cokk INSE &kk1 con1;
  67.   t= t + (.5 / 50.);
  68. fin kk1;
  69. num1 = EXTR cokk 50 ;
  70. flag4 =  ABS(num1 + 0.65976);
  71. evol1 = EVOL MANU 'temps' tkk 'COND' cokk;
  72. SI (NEG GRAPH 'N');
  73. dess evol1;
  74. FINSI;
  75.  
  76. flag5 = (flag1+flag2+flag3+flag4);
  77. SI (flag5 < 1.e-4);
  78. ERRE 0;
  79. SINON;
  80. ERRE 5;
  81. FINSI;
  82.  
  83.  
  84. FIN;
  85.  
  86.  
  87.  

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