Trendlinie
Peter
ich habe ein kleines Problem bei der Berechnung von Werten mithilfe einer Polynom-Funktion.
Um eine Funktion an die Werte (s. Tabelle) anzupassen, benutze ich ein Polynom 5. Ordnung. Excel gibt hierzu als Trendlinie auch eine Funktion an: y = 5E-23x^5 - 5E-18x^4 + 2E-13x^3 - 3E-09x^2 + 3E-05x + 0,0202. Die Kurve stimmt offensichtlich gut mit den Originalwerten überein. Wenn ich jedoch mithilfe der Funktion die Kurvenpunkte neu berechnen will, bekomme ich ganz andere Werte, die mit der Kurve im Diagramm nicht übereinstimmen.
Berechneten
x y Werte
0 0% 2,02%
436 3% 3,27%
512 4% 3,48%
640 5% 3,82%
1023 6% 4,80%
1407 7% 5,70%
2200 8% 7,37%
3350 9% 9,39%
4347 10% 10,86%
5697 12% 12,58%
6903 14% 13,96%
8309 15% 15,52%
10354 16% 17,97%
15468 17% 26,47%
20580 18% 39,79%
25693 19% 58,37%
26000 19% 59,66%
30000 19% 78,52%
Zur Berechnun habe ich die x-Werte in die Formel eingesetzt, z B.
für x = 30000 (= B22)
=5E-23*B22^5 - 0,000000000000000005*B22^4 + 0,0000000000002*B22^3 - 0,000000003*B22^2 + 0,00003*B22 + 0,0202
Da es sich bei den Parametern um sehr keine Werte handelt, hatte ich gedacht, es handelt sich _ um einen Rundungsfehler. Mit folgenden Anweisungen hatte ich versucht, Parameter mit höhere Genauigkeit zu erhalten, also statt 5E-23 vielleicht 4,895E-23.
Sub trendparam()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SeriesCollection(1).Select
With ActiveChart.SeriesCollection(1).Trendlines(1)
.Border.ColorIndex = 3
.DataLabel.NumberFormat = "0.00000000000000000000000000E+00"
'ActiveSheet.Cells(1, 1) = .DataLabel.Text
MsgBox .DataLabel.Caption
End With
End Sub
Aber sowohl mit der Anweisung DataLabel.Text und auch mit der Msgbox bekomme ich die gleichen Angaben. Der berechnet Wert für x = 30000 ist aber klar falsch, in der Grafik wird alles richtig angezeigt.
Kann mir jemand der Tipp geben, wo ich einen Denkfehler gemacht habe, oder was ich tun muss?
Grüße
Peter