Télécharger indibeta.procedur

Retour à la liste

Numérotation des lignes :

  1. * INDIBETA PROCEDUR AM 98/07/08 21:15:25 3247
  2. 'DEBPROC' INDIBETA Binf*'FLOTTANT' Bsup*'FLOTTANT' Pf*'FLOTTANT' ;
  3. *|=====================================================================
  4. *|
  5. *| << OBJET >> :
  6. *|
  7. *| Calcul de l'indice de fiabilite connaissant la probabilite de
  8. *| defaillance
  9. *| (Le calcul est effectué par dichotomie)
  10. *|
  11. *| << ENTREE >> :
  12. *| -- ARGUMENTS OBLIGATOIRES DANS TOUS LES CAS --
  13. *|
  14. *| Binf = objet de type REEL designant la borne inferieure
  15. *| de l'encadrement de l'indice beta
  16. *|
  17. *| Bsup = objet de type REEL designant la borne superieure
  18. *| de l'encadrement de l'indice beta
  19. *|
  20. *| Pf = objet de type REEL designant la valeur moyenne
  21. *| de la variable aleatoire.
  22. *|
  23. *| << SORTIE >> :
  24. *|
  25. *| Beta = objet de type REEL designant l'indice de fiabilite
  26. *|
  27. *|=====================================================================
  28. *
  29. * ______________________
  30. *
  31. * DECLARATIONS GENERALES
  32. * ______________________
  33. *
  34. SI = 'MOT' 'SI' ; SINON = 'MOT' 'SINON' ; FINSI = 'MOT' 'FINSI' ;
  35. REPETER = 'MOT' 'REPETER'; QUITTER = 'MOT' 'QUITTER'; FIN = 'MOT' 'FIN';
  36. EXISTE = 'MOT' 'EXISTE' ; EGA = 'MOT' 'EGA' ;
  37. ERREUR = 'MOT' 'ERREUR' ;
  38. ENTIER = 'MOT' 'ENTIER ' ;
  39. FLOTTANT = 'MOT' 'FLOTTANT' ;
  40. MOT = 'MOT' 'MOT ' ;
  41. * _____
  42. *
  43. * TESTS
  44. * _____
  45. *
  46. * _________________
  47. *
  48. * DEBUT DES CALCULS
  49. * _________________
  50. *
  51. Bmid = (Bsup + Binf)/2;
  52. Pfmid = 1. - (PROB 0. 1. 0. 3. Bmid);
  53. SI (Pfmid < Pf);
  54. Bsup = Bmid;
  55. SINON;
  56. Binf = Bmid;
  57. FINSI;
  58. crtr = (Bsup-Binf);
  59. SI (crtr < 0.5e-03);
  60. Val = Binf;
  61. SINON;
  62. Val = INDIBETA Binf Bsup Pf;
  63. FINSI;
  64. 'FINPROC' Val;
  65.  
  66.  

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