Procedures | Cast3M

   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 :