|
|
Postada em 15/05/2007 21:06 hs
Gnt é o seguinte...A formula não esta voltando o valor correto! Já fiz e refiz e não tem jeito! por favor..se alguem puder dar uma maozinha eu ficaria mto grato!
segue como eu parei e a formula original.
Private Sub TxtIdade_LostFocus()
Dim nTS As Single
Dim nSR As Single
Dim nTA As Single
Dim nAM As Single
Dim nSA As Single
Dim nAL As Single
Dim nCA As Single
nTS = TxtTriceps.Text
nSR = TxtSubscapular.Text
nTA = TxtToraxica.Text
nAM = TxtAxilar.Text
nSA = TxtSupraIliaca.Text
nAL = TxtAbdominal.Text
nCA = TxtCoxa.Text
Dim nSomatorio As Single
nSomatorio = nTS + nSR + nTA + nAM + nSA + nAL + nCA
Dim nidade As Single
nidade = TxtIdade.Text
TxtDc = 1.112 - (0.00043499 * (nSomatorio) + (0.00000055 * ((nSomatorio) * (nSomatorio))) - (0.0002882 * (nidade)))
End Sub
'O resultado que aparece em TxtDc é 1,076134 e o correto é 1.070435
Segue os variaveis e a formula orginal:
nTS=11
nSR=11
nTA=10
nAM=14
nSA=12
nAL=14
nCA=17
nidade=25
Formula original:
1,11200000 - [0,00043499 (ST) + 0,00000055 (ST)²] - [0,0002882 (idade)]
OBS:. ST=nTS + nSR + nTA + nAM + nSA + nAL + nCA
obrigado!
|
|
|
|
|
|
|
|
Postada em 16/05/2007 11:51 hs
Segundo sua fórmula o resultado correto é: 1,06172434 TxtDc = 1.112 - ((0.00043499 * nSomatorio) + (0.00000055 * (nSomatorio ^ 2))) - (0.0002882 * nidade) Fiz no vb e no papel e bateu com o número acima. |
|
|
|
DaniloH
|
RECIFE
PE - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 16/05/2007 13:00 hs
Pois eh. Aqui tbm deu esse valor. O pior que a formula correta é msm:
1,11200000 - [0,00043499 (ST) + 0,00000055 (ST)²] - [0,0002882 (idade)]
como foi colocado acima. Já confirmei em varios artigos cientificos batendo com essa dai.
O engraçado é que aqui tem um exemplo e os valores encontrados são outros!
http://www.cdof.com.br/gordura.htm
Se voce usar os valores para:
7 pregas
Masculino
idade= 25
peso= 71
triceps= 11
Peito= 10
Sub-Axilar= 14
Subescapular= 11
Abdominal= 14
SupraIliaca= 12
Coxa= 17
No site acima o valor da Densidade Corporal vai ser 1.070435 que é o que desejo encontrar!
Isso esta me enloquecendo! 
Obrigado mais uma vez
|
|
|
|
|
|
Postada em 16/05/2007 15:36 hs
Bom, a matemática é exata... a fórmula ou não é esta ou está calculada de maneira errada...  Não tem outro site não? |
|
|
|
|
|
Postada em 16/05/2007 15:55 hs
Mas, no link não mostra qual fórmula está sendo usada. A transformação da fórmula para o vb que o ghost_jlp mostrou está correta. |
|
|
|
|
|
Postada em 16/05/2007 17:12 hs
pois eh..isso que esta me deixando doido. Pq a formula que o ghost colocou esta correta e eh aquela mesma.
aqui esta o link com a formula usada pelo site.
http://www.cdof.com.br/protocolos1.htm
é o 6º nome vermelho---> Protocolo de Pollock e col., 1984--->7 Dobras cutâneas (DC)---> Masculino
|
|
|
|
