COBOL - Funções intrínsecas


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF.

 FUNCTION STANDARD-DEVIATION

   
  A função "FUNCTION STANDARD-DEVIATION" retorna um valor numérico que é, aproximadamente, o DESVIO-PADRÃO.  
   
   Formato geral: FUNCTION STANDARD-DEVIATION (arg1 arg2 ......)
                             arg é um argumento numérico
 
   
   Regras:  
                               O tipo desta função é numérica.
                             O desvio-padrão é calculado da seguinte forma.


 
                               1. Apuração da média aritmética dos argumentos.  
                               2. Subtração da média aritmética de cada um dos argumentos.  
                               3. O resultado de cada subtração é elevado ao quadrado.  
                               4. Esta resultados são somados e o total dividido pelo número de argumentos.  
                               5. Extração da raiz quadrada do quociente apurado no item 4.

 
                               Este valor é o valor obsoluto da raiz quadrada, que é o desvio-padrão.
                             Se houver somente um argumento, o desvio-padrão será zero (0).
                             Veja a função VARIANCE.


 
   

 Exemplo

 
       
      *-----------------------------------------------------------------
       WORKING-STORAGE SECIOTN.
      *-----------------------------------------------------------------

       01  WS-AUXILIARES.  
           05  WS-ENTRADA                PIC X(021) VALUE SPACES. 
           05  WS-RESULTADO              PIC 9(005)V9(005).   
       
		 
      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------
* sintaxe do comando
Primeiro exemplo COMPUTE WS-RESULTADO = FUNCTION STANDARD-DEVIATION (4 7 9 13) DISPLAY 'FUNCTION STANDARD-DEVIATION - ' WSS-RESULTADO * Resultado: FUNCTION STANDARD-DEVIATION - 00010,68750

Segundo exemplo COMPUTE WS-RESULTADO = FUNCTION STANDARD-DEVIATION (1 2 12) DISPLAY 'FUNCTION STANDARD-DEVIATION - ' WSS-RESULTADO * Resultado: FUNCTION STANDARD-DEVIATION - 00024,66667

Terceiro exemplo COMPUTE WS-RESULTADO = FUNCTION STANDARD-DEVIATION (3 5 9) DISPLAY 'FUNCTION STANDARD-DEVIATION - ' WSS-RESULTADO * Resultado: FUNCTION STANDARD-DEVIATION - 00006,22222