Hier ist die PQ Formel mit der man quadratische Gleichungen lösen kann.
Public Sub PQ(ByVal P As Double, ByVal Q As Double, ByRef Positive As Double, ByRef Negative As Double)
Positive = -(P / 2) + Math.Sqrt(P * P / 4 - Q)
Negative = -(P / 2) - Math.Sqrt(P * P / 4 - Q)
End Sub
Kommentare zum Snippet