解一元四次方程vb程序.docVIP

费拉里公式:一元四次方程 令，则 ，此方程是以下两个一元二次方程的解：；，其中；，。是一元三次方程的任一实根。盛金公式:一元三次方程 ， 重根判别式：；；，总判别式：。当时，盛金公式①：。 当＞时，盛金公式②：；, 其中， 。当时，盛金公式③：；， 其中， 。当＜时，盛金公式④：；， 其中，， （＞，＜＜)。一元四次方程先化成一元三次方程和两个一元二次方程，再根据费拉里公式和盛金公式求出四个根。Private Sub Command1_Click() Open C:\abc\ + Combo2.Text For Input As #3 Input #3, dy, cy, by, ay Input #3, B1(0), B1(1), B1(2), B1(3), B1(4) Input #3, B2(0), B2(1), B2(2), B2(3), B2(4) Input #3, B3(0), B3(1), B3(2), B3(3), B3(4) Input #3, B4(0), B4(1), B4(2), B4(3), B4(4) Close #3 WED = Val(Text2.Text) eh = B1(0) + B2(0) * WED + B3(0) * WED ^ 2 + B4(0) * WED ^ 3 dh = B1(1) + B2(1) * WED + B3(1) * WED ^ 2 + B4(1) * WED ^ 3 ch = B1(2) + B2(2) * WED + B3(2) * WED ^ 2 + B4(2) * WED ^ 3 bh = B1(3) + B2(3) * WED + B3(3) * WED ^ 2 + B4(3) * WED ^ 3 ah = B1(4) + B2(4) * WED + B3(4) * WED ^ 2 + B4(4) * WED ^ 3 If ah 0 Then ah = -ah bh = -bh ch = -ch dh = -dh eh = -eh Yli = -Yli Else: End If eh = eh - Yli KK = ah ah = ah / KK bh = bh / KK ch = ch / KK dh = dh / KK eh = eh / KK ay = 8 by = -4 * ch cy = -(8 * eh - 2 * bh * dh) dy = -eh * (bh ^ 2 - 4 * ch) - dh ^ 2 Call jiefangc xy1= Yli Mq = (8 * Yli + bh ^ 2 - 4 * ch) ^ (1 / 2) Nq = bh * Yli - dh ay = 2 by = bh + Mq cy = 2 * (Yli + Nq / Mq) Det = by ^ 2 - 4 * ay * cy If Det = 0 Then xy1 = -by / 2 * ay xy2 = xy1 Else: End If If Det 0 Then xy3 = (-by + (Det) ^ (1 / 2)) / 2 * ay xy4 = (-by - (Det) ^ (1 / 2)) / 2 * ay Else: End If ay = 2 by = bh - Mq cy = 2 * (Yli - Nq / Mq) Det = by ^ 2 - 4 * ay * cy If Det = 0 Then xy1 = -by / 2 * ay xy2 = xy