|
Hi, ich arbeite das 1.mal mit vba und möchte ein Programm schreiben zur Lösung einer kubischen Gleichung
x³+ax²+bx+c=0
Ich habe zuerst eine Funktion zur Diskriminanten geschrieben:
Public Function Disc(ByVal p As Double, ByVal q As Double) As Double
Disc = (p / 3) ^ 3 + (q / 2) ^ 2
End Function
Nun sollen in excel a,b und c mit Werten gefüllt werden und danach die Diskriminante berechnet werden. Ist D>0 gibt es eine reele Lösung, die ausgegeben werden soll, und hier hängt des. Bis hierhin sieht dann mein main-Programm so aus:
Sub Loesung()
Dim u As Double, v As Double
Dim x_1 As Double
Dim a, b, c As Double
a = Tabelle1.Cells(10, 3)
b = Tabelle1.Cells(11, 3)
c = Tabelle1.Cells(12, 3)
p = (3 * b - a ^ 2) / 3
q = (2 * a ^ 3) / 27 - (a * b) / 3 + c
If Disc(p, q) > 0 Then
u = ((-q / 2) + (Disc(p, q)) ^ (1 / 2)) ^ (1 / 3)
v = ((-q / 2) - (Disc(p, q)) ^ (1 / 2)) ^ (1 / 3)
x_1 = u + v - a / 3
Tabelle1.Cells(17, 3) = x_1
ElseIf Disc(p, q) <= 0 Then
MsgBox "3 Lösungen"
End If
End Sub
Ich bekomme nun beim Debuggen "Lautzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument. Der Fehler liegt irgendwo in der Zeile
v = ((-q / 2) - (Disc(p, q)) ^ (1 / 2)) ^ (1 / 3)
Ändere ich das "-" vor der Funktion Disc z.b. in ein "+" , dann ist der Fehler weg und mein Wert wird berechnet, natürlich ist er dann falsch, aber es funktioniert alles. Nach gleichem Schema habe ich übrigens das für eine quadratische Gleichung gemacht, und hier funktioniert alles einwandfrei.
Danke für eure Hilfe!
|