[RESOLVED] Fourth Degree Equation Solver :)
Is anybody good with math?
I'm not sure if this is the right thread for this. I am also not sure what I am doing wrong. Any suggestions?Code:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As String = Me.TextBox1.Text Dim b As String = Me.TextBox2.Text Dim c As String = Me.TextBox3.Text Dim d As String = Me.TextBox4.Text Dim f As String = Me.TextBox5.Text Me.lblFirst.Text = -b / (4 * a) - 1 / 2 * Math.Sqrt(b ^ 2 / (4 * a ^ 2) - _ 2 * c / (3 * a) + 2 ^ (1 / 3) * (c ^ 2 - 3 * b * d + 12 * a * f) / (3 * _ a * (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * _ c * f + Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - _ 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * _ f) ^ 2)) ^ (1 / 3)) + 1 / (3 * 2 ^ (1 / 3) * a) * (2 * c ^ 3 - 9 * b * c * d + _ 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + Math.Sqrt(-4 * (c ^ 2 - _ 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + _ 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3)) - 1 / 2 * Math.Sqrt(b ^ 2 / (2 * _ a ^ 2) - 4 * c / (3 * a) - 2 ^ (1 / 3) * (c ^ 2 - 3 * b * d + 12 * a * f) / (3 * _ a * (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * _ c * f + Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - _ 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * _ f) ^ 2)) ^ (1 / 3)) - 1 / (3 * 2 ^ (1 / 3) * a) * (2 * c ^ 3 - 9 * b * c * d + 27 * _ a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + Math.Sqrt(-4 * (c ^ 2 - _ 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + 27 * a * _ d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3) - (-b ^ 3 / a ^ 3 + _ 4 * b * c / a ^ 2 - 8 * d / a) / (4 * Math.Sqrt(b ^ 2 / (4 * a ^ 2) - 2 * _ c / (3 * a) + 2 ^ (1 / 3) * (c ^ 2 - 3 * b * d + 12 * a * f) / (3 * a * _ ((2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * _ c * f + Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * _ b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * _ f) ^ 2))) ^ (1 / 3)) + 1 / (3 * 2 ^ (1 / 3) * a) * (2 * c ^ 3 - 9 * b * c * d + 27 * _ a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + Math.Sqrt(-4 * (c ^ 2 - _ 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + _ 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3)))) Me.lblSecond.Text = -b / (4 * a) - 1 / 2 * Math.Sqrt(b ^ 2 / (4 * a ^ 2) - _ 2 * c / (3 * a) + 2 ^ (1 / 3) * (c ^ 2 - 3 * b * d + 12 * a * f) / (3 * _ a * (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * _ c * f + Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - _ 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * _ f) ^ 2)) ^ (1 / 3)) + 1 / (3 * 2 ^ (1 / 3) * a) * (2 * c ^ 3 - 9 * b * c * d + _ 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + Math.Sqrt(-4 * (c ^ 2 - _ 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + _ 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3)) + 1 / 2 * Math.Sqrt(b ^ 2 / (2 * _ a ^ 2) - 4 * c / (3 * a) - 2 ^ (1 / 3) * (c ^ 2 - 3 * b * d + 12 * a * f) / (3 * _ a * (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * _ c * f + Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - _ 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * _ f) ^ 2)) ^ (1 / 3)) - 1 / (3 * 2 ^ (1 / 3) * a) * (2 * c ^ 3 - 9 * b * c * d + 27 * _ a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + Math.Sqrt(-4 * (c ^ 2 - _ 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + 27 * a * _ d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3) - (-b ^ 3 / a ^ 3 + _ 4 * b * c / a ^ 2 - 8 * d / a) / (4 * Math.Sqrt(b ^ 2 / (4 * a ^ 2) - 2 * _ c / (3 * a) + 2 ^ (1 / 3) * (c ^ 2 - 3 * b * d + 12 * a * f) / (3 * a * _ ((2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * _ c * f + Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * _ b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * _ f) ^ 2))) ^ (1 / 3)) + 1 / (3 * 2 ^ (1 / 3) * a) * (2 * c ^ 3 - 9 * b * c * d + 27 * _ a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + Math.Sqrt(-4 * (c ^ 2 - _ 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + _ 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3)))) Me.lblThird.Text = -b / (4 * a) + 1 / 2 * Math.Sqrt(b ^ 2 / (4 * a ^ 2) - 2 * c / _ (3 * a) + 2 ^ (1 / 3) * (c ^ 2 - 3 * b * d + 12 * a * f) / (3 * a * (2 * c ^ 3 - _ 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + Math.Sqrt(-4 * _ (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ _ 2 + 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3)) + 1 / (3 * 2 ^ (1 / 3) * a) _ * (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + _ Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + _ 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3)) - 1 / 2 * 8 * _ Math.Sqrt(b ^ 2 / (2 * a ^ 2) - 4 * c / (3 * a) - 2 ^ (1 / 3) * (c ^ 2 - 3 * b * d + _ 12 * a * f) / (3 * a * (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * _ f - 72 * a * c * f + Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ _ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / _ 3)) - 1 / (3 * 2 ^ (1 / 3) * a) * (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * _ b ^ 2 * f - 72 * a * c * f + Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + _ (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ _ (1 / 3) + (-b ^ 3 / a ^ 3 + 4 * b * c / a ^ 2 - 8 * d / a) / (4 * Math.Sqrt(b ^ 2 / _ (4 * a ^ 2) - 2 * c / (3 * a) + 2 ^ (1 / 3) * (c ^ 2 - 3 * b * d + 12 * a * f) / (3 * _ a * ((2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + _ Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + _ 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f) ^ 2))) ^ (1 / 3)) + 1 / (3 * 2 ^ _ (1 / 3) * a) * (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * _ a * c * f + Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * _ b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3)))) Me.lblFourth.Text = -b / (4 * a) + 1 / 2 * Math.Sqrt(b ^ 2 / (4 * a ^ 2) - 2 * c / (3 * _ a) + 2 ^ (1 / 3) * (c ^ 2 - 3 * b * d + 12 * a * f) / (3 * a * (2 * c ^ 3 - 9 * b * _ c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + Math.Sqrt(-4 * (c ^ 2 - _ 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ _ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3)) + 1 / (3 * 2 ^ (1 / 3) * a) * (2 * c ^ 3 - _ 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + Math.Sqrt(-4 * _ (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + _ 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3)) + 1 / 2 * 8 * Math.Sqrt(b ^ 2 / (2 * _ a ^ 2) - 4 * c / (3 * a) - 2 ^ (1 / 3) * (c ^ 2 - 3 * b * d + 12 * a * f) / (3 * a * _ (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + _ Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + _ 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3)) - 1 / (3 * 2 ^ (1 _ / 3) * a) * (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c _ * f + Math.Sqrt(-4 * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * _ d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3) + (-b ^ 3 / a ^ _ 3 + 4 * b * c / a ^ 2 - 8 * d / a) / (4 * Math.Sqrt(b ^ 2 / (4 * a ^ 2) - 2 * c / _ (3 * a) + 2 ^ (1 / 3) * (c ^ 2 - 3 * b * d + 12 * a * f) / (3 * a * ((2 * c ^ 3 - 9 * _ b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + Math.Sqrt(-4 * (c ^ _ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * _ b ^ 2 * f - 72 * a * c * f) ^ 2))) ^ (1 / 3)) + 1 / (3 * 2 ^ (1 / 3) * a) * (2 * c ^ _ 3 - 9 * b * c * d + 27 * a * d ^ 2 + 27 * b ^ 2 * f - 72 * a * c * f + Math.Sqrt(-4 _ * (c ^ 2 - 3 * b * d + 12 * a * f) ^ 3 + (2 * c ^ 3 - 9 * b * c * d + 27 * a * d ^ _ 2 + 27 * b ^ 2 * f - 72 * a * c * f) ^ 2)) ^ (1 / 3)))) End Sub
Reply With Quote