COMO CALCULAR O DESVIO PADRAO

HOSHIN 10/04/2012 14:38:54
#399473
Pessoal.
Como faço para calcular o desvio padrão de uma massa de dados?Existe alguma função?
Lembrando que estou utulizando o banco de dados SQL Server.
Fico no aguardo.
ROBIU 10/04/2012 15:03:15
#399482
STDEV() = Desvio padrão de todos os valores
STDEVP() = Desvio padrão da população

http://msdn.microsoft.com/pt-br/library/ms190474.aspx
HOSHIN 10/04/2012 15:14:59
#399484
Robiu não existe estas funções no visual basic.
AJSO 10/04/2012 22:52:40
#399530
Caro HOSHIN

Sevocê utilizar os objetos do EXCELL dentro do Visual Basic pode utilizar a formula do desvio padrão do office

Para utilizar siga estes passos

Marque uma referência (menu Project -> References...) ao Microsoft Excel x.0 Object Library, onde no lugar de x vai ter a versão disponível aí no seu computador.
Depois disso você vai ter as duas funções disponíveis em

Excel.WorksheetFunction.

Boa sorte
HOSHIN 11/04/2012 08:02:55
#399544
Pessoal ninguem tem um código pronto para o calculo do desvio padrão não?

Obrigado.
MARCELO.TREZE 11/04/2012 08:54:01
#399553 Resposta escolhida
veja esta função

[txt-color=#007100][ô]Calcula a média dos valores passados em um vetor
[ô]Obrigatoriamente, o vetor deve utilizar a posição 0 (zero)  (ex. 0..9)[/txt-color]
Function ValMedio(ByRef Vetor() As Double) As Double
Dim i As Integer
Dim cMedia As Double
Dim cSoma As Double
cSoma = 0
For i = LBound(Vetor) To UBound(Vetor) - 1
cSoma = cSoma + Vetor(i)
Next i
ValMedio = cSoma / UBound(Vetor)
cSoma = 0
End Function


[txt-color=#007100][ô]Calcula o desvio padrao dos valores passados
[ô]em um vetor. Obrigatoriamente, o vetor deve utilizar a posição 0 (zero) (ex. 0..9)[/txt-color]
Function DesvioP(ByRef Valores() As Double) As Double
Dim Media As Double
Dim Soma As Currency
Dim valor As Currency
Dim i As Integer
Media = ValMedio(Valores())
Soma = 0
For i = LBound(Valores) To UBound(Valores) - 1
valor = Valores(i)
valor = valor - Media
valor = valor ^ 2
Soma = Soma + valor
Next i

Soma = Soma / IIf((UBound(Valores) - 1) = 0, 1, (UBound(Valores) - 1))
If Soma < 0 Then
Soma = Soma * -1
End If
DesvioP = Sqr(Soma)
End Function


[txt-color=#007100][ô] exemplo de uso[/txt-color]
Private Sub Command1_Click()
Dim notas(0 To 5) As Double
notas(0) = 9
notas(1) = 9
notas(2) = 9
notas(3) = 1
notas(4) = 1
notas(5) = 1
MsgBox DesvioP(notas)
End Sub


Colega este código foi tirado da net após uma unica consulta no santo GOOGLE.
MORDENTI 11/04/2012 09:13:05
#399556
Deus abençoe o Santo Google e Santa Efigênia :)
Tópico encerrado , respostas não são mais permitidas
Voltar