Polynom 2.Grades aus drei Wertepaaren als Tab.fkt?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Benjamin

Wenn 'Trend2k' für Deine Zwecke nicht funzt, dann schau mal auf meiner Webseite unter 'C++ AddIns'. Dort gibt es ein xll mit den Trend-Funktionen, das unter allen xl-Versionen laufen sollte (ist auch noch um ein Vielfaches schneller).

Sonst versuch's mal damit ...

Option Explicit
Public Function qPolynom(xData As Range, yData As Range, xValue As Double) As Double

    Dim a(4) As Double
    Dim c(1 To 4) As Double
    Dim d(1 To 3) As Double
    Dim Teiler#
    Dim i&, n&

    n = xData.Count

    For i = 1 To 4
        c(i) = 0
    Next i
    For i = 1 To n
        c(1) = yData(i) + c(1)
    Next i
    For i = 1 To n
        c(2) = yData(i) * xData(i) + c(2)
    Next i
    For i = 1 To n
        c(3) = yData(i) * xData(i) ^ 2 + c(3)
    Next i

    For i = 0 To 4
        a(i) = 0
    Next i
    For i = 1 To n
        a(3) = xData(i) + a(3)
    Next i
    For i = 1 To n
        a(2) = xData(i) ^ 2 + a(2)
    Next i
    For i = 1 To n
        a(1) = xData(i) ^ 3 + a(1)
    Next i
    For i = 1 To n
        a(0) = xData(i) ^ 4 + a(0)
    Next i
    a(4) = n

    Teiler = a(0) * a(4) * a(2) - a(0) * a(3) ^ 2 - a(2) ^ 3 - a(1) ^ 2 * a(4) + 2 * a(1) * a(3) * a(2)
    d(1) = (c(3) * a(4) * a(2) - c(3) * a(3) ^ 2 - a(2) ^ 2 * c(1) - a(1) * a(4) * c(2) + a(1) * a(3) * c(1) + a(3) * a(2) * c(2)) / Teiler
    d(2) = (-1) * (a(4) * a(1) * c(3) - a(4) * c(2) * a(0) + c(2) * a(2) ^ 2 - a(2) * a(1) * c(1) - a(2) * a(3) * c(3) + a(3) * c(1) * a(0)) / Teiler
    d(3) = (a(3) * a(1) * c(3) - a(3) * c(2) * a(0) - a(2) ^ 2 * c(3) + a(2) * a(1) * c(2) + c(1) * a(0) * a(2) - c(1) * a(1) ^ 2) / Teiler

    qPolynom = d(1) * xValue ^ 2 + d(2) * xValue + d(3)

End Function

Code eingefügt mit Syntaxhighlighter 1.15

Gruß

Thomas

Risi Thomas Softwareentwicklung

... etwas kürzer ;))

Public Function qPolynom(xData As Range, yData As Range, xValue As Double) As Double

    Dim a(4) As Double
    Dim c(1 To 4) As Double
    Dim d(1 To 3) As Double
    Dim Teiler#
    Dim i&

    For i = 1 To 3

        a(0) = xData(i) ^ 4 + a(0)
        a(1) = xData(i) ^ 3 + a(1)
        a(2) = xData(i) ^ 2 + a(2)
        a(3) = xData(i) + a(3)

        c(1) = yData(i) + c(1)
        c(2) = yData(i) * xData(i) + c(2)
        c(3) = yData(i) * xData(i) ^ 2 + c(3)

    Next i

    a(4) = 3

    Teiler = a(0) * a(4) * a(2) - a(0) * a(3) ^ 2 - a(2) ^ 3 - a(1) ^ 2 * a(4) + 2 * a(1) * a(3) * a(2)
    d(1) = (c(3) * a(4) * a(2) - c(3) * a(3) ^ 2 - a(2) ^ 2 * c(1) - a(1) * a(4) * c(2) + a(1) * a(3) * c(1) + a(3) * a(2) * c(2)) / Teiler
    d(2) = (-1) * (a(4) * a(1) * c(3) - a(4) * c(2) * a(0) + c(2) * a(2) ^ 2 - a(2) * a(1) * c(1) - a(2) * a(3) * c(3) + a(3) * c(1) * a(0)) / Teiler
    d(3) = (a(3) * a(1) * c(3) - a(3) * c(2) * a(0) - a(2) ^ 2 * c(3) + a(2) * a(1) * c(2) + c(1) * a(0) * a(2) - c(1) * a(1) ^ 2) / Teiler

    qPolynom = d(1) * xValue ^ 2 + d(2) * xValue + d(3)

End Function

Code eingefügt mit Syntaxhighlighter 1.15

Gruß

Thomas

Risi Thomas Softwareentwicklung

Beliebteste Forumthreads (12 Monate)

Polynom 2.Grades aus drei Wertepaaren als Tab.fkt?

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

5 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Polynom 2.Grades aus drei Wertepaaren als Tab.fkt?

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread