Polynom-Trendlinie Funktion für Vorfaktoren

[Fennek]

Hallo,

beim Testen hatte ich die Formel des Polynoms, aber nicht R² anzeigen lassen.

Mit der Korrektur

iFormel = Split(Ch.Chart.FullSeriesCollection(1).Trendlines(1).DataLabel.Text, Chr(11))(0)

sollte es laufen. Hier der gesamte Code:

Code:

Sub Makro1()
'
Dim Ch As ChartObject
Dim WS As Worksheet

Set WS = ActiveSheet
Set Ch = WS.ChartObjects(1)
R = intstr
iFormel = Split(Ch.Chart.FullSeriesCollection(1).Trendlines(1).DataLabel.Text, Chr(11))(0)

iFormel = Right(iFormel, Len(iFormel) - 2)
iFormel = Replace(iFormel, "x2", "x^2") ' weitere Zeile für x³, x^4 usw
iFormel = Replace(iFormel, "x", " * x")

iFormel = Replace(iFormel, "x", "ZS(-1)")

Debug.Print iFormel

Range("P2:P17").FormulaR1C1Local = iFormel


End Sub

Im Eröffnungspost stand etwas vom "Polynom 6.ten Grads", wegen des geringsten R². Da R² immer bei Polynomen höheren Grades steigt, halte ich dieses Kriterium für nicht sonderlich geeignet. Gesucht werden sollte der GRad "des optimale" Polynoms, z.B. analog zur Cluster-Analyse mit dem "elbow-" Kriterium. (wikipedia sollte helfen).

mfg

[Ego]

Hallo,

hier die Berechnung des Trends mit einem Polynom 6.Grades mit RGP, die ich aber für eine Absatzfunktion nicht für die richtige Trendfunktion halte.

[TheLuzl]

Guten Morgen,

Danke! Jetzt versteh ich wie die es haben wollen. Das die Funktion nicht gerade passend für eine Trendfunktion ist wurde mir auch schnell klar, aber mich hat es dennoch interessiert, wie es in Excel geht. :)

Ich hab außerdem noch, falles es jemanden interessiert, eine Seite gefunden, wo auch wege für die anderen Funktionen stehen.
http://spreadsheetpage.com/index.php/tip..._formulas/
Danke euch!