Télécharger la plaquette Cast3M


fr en

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.  

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