Raíz Cúbica em VB

[BelSelf (Silvano Soares) 0]

Olá to fazendo um sistema pra uma clínica e um dos módulos precisa de uma fórmula q usa uma raíz cúbica, alguém sabe como destrinchar isso pra mim poder usar ?? o caracter ^3 funciona no VB ???Obrigado

[Graymalkin 0]

Sim, o operador ^ existe no VB, mas é ele para potência e não para determinar a raíz. Para determinar a raíz quadrada você tem a função Sqr(), mas para a raíz cúbica você pode utilizar o método de Newton:

 

n = 27	r = 1		Do While Val(r ^ 3) <> Val(n)		r = (n / (r ^ 2) + 2 * r) / 3	Loop	Debug.Print r

Onde "n" é o valor do qual queremos a raíz cúbica. No caso, "r" (após o loop), terá o valor da raíz.

 

Certo? ;)

 

Graymalkin

[BelSelf (Silvano Soares) 0]

Obrigado, vou testar pra ver se funciona no meu sistema :)abrax

[Cypher 0]

corrija-me se eu estiver enganado...

 

veja http://programmers.iphorum.com/viewtopic.php?p=11#11

 

Cypher :)

[Graymalkin 0]

Claro que não... você quer a raíz cúbica de 27 que é 3 (isso porque 3^3 = 27). E, o valor final de "r" vai ser justamente o 3 e em nenhuma parte do programa isso está sendo informado. Se você está achando que esse 3 da resposta é o mesmo 3 que está na conta, experimente pedir a raíz cúbica de outros valores (como 64, por exemplo, que dá 4 - isso porque 4^3=64).E, por que você não postou a pergunta aqui? A idéia é fazer propaganda do seu fórum?Abraços,Graymalkin

[Jeff_henrique 0]

Ae desculpa me intrometer... Eu testei aqui e deu certo!!na matematica tirar a raiz cubica de um numero é a mesma coisa que elevar o mesmo a 1/3.Ou seja r = n ^ (1/3) Isso é um pouco mais simples

[Cypher 0]

E, por que você não postou a pergunta aqui? A idéia é fazer propaganda do seu fórum?

é obvioCypher :)realmente elevar a 1/3 é bastante mais simplesbasta fazer a potencia..Voçes e as voças manias de complicar tudo... é assim que quereis aprender :)um bom post de jeff melhor que o vossoCypher :)

[thigo 0]

E, por que você não postou a pergunta aqui? A idéia é fazer propaganda do seu fórum?

 

esse tbm e muito bom e com uma amaraço em while

Public Class Form2

Dim numer As Integer = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

 

Dim n1 As Double

 

 

n1 = TextBox1.Text

 

Do While numer ^ 3 <> n1

If numer ^ 3 = n1 Then

 

Else : numer = numer + 1

End If

 

Loop

 

TextBox2.Text = numer

End Sub

End Class

e serve para qualquer raiz e so no lugar onde esta (^3) trocar pelo numero da raiz desejada por ex: raiz quinta (^5)

[Claudio Neto 3]

Olá Thigo, primeramente seja bem vindo ao fórum.

 

Caso não tenha lido nossas regras, clique aqui. Aradecemos sua presteza em tentar ajudar, mas procure tópicos mais recentes para isso. Em tópicos muito antigos é bem provável que o membro que solicitou nem sequer participe mais do fórum, como é esse caso.

 

Sinta-se a vontade para continuar ajudando e pedindo ajuda no quer precisar.

 

Abraço.