Koeffizienten einer Regression auslesen!

Hallo!
Ich versuche schon seit einiger Zeit Bereiche eines Kurvenverlaufs mit einer polynomischen Funktion anzunähern und daraus dann die Fläche des Bereiches integrativ zu ermitteln. (Datei: https://www.herber.de/bbs/user/99575.xlsm
, mit dem Go Knopf beginnt die Auswertung)
Aktuell probiere ich gerade die Koefizienten der Regressionsfunktion im Graphen als Text auszulesen, nicht Relevantes(+;-;usw.) zu löschen um an die Koefizienten des Ausgleichs-Polynom zu kommen.
Problem hierbei ist, dass die Werte stark gerundet sind. (Ausgabe in den einzelnen "Peak-Arbeitsblättern" Spalte D.) Im Graphen jedoch werden die Richtigen Werte abgebildet.
Ist diese herangehensweise prizipiell nicht möglich?
Ich freue mich auf Antworten!
Grusz Carlo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub gehWeiter() Dim von&, bis&, i&, z& Dim a As Variant von = Sheets("Tabelle1").Range("E1").Value + 2 bis = Sheets("Tabelle1").Range("E2").Value + 2 ' wegen 0 bzw. Überschriften a = Sheets("Tabelle1").Range("A" & von & ":E" & bis).Value For i = 2 To bis - von + 1 a(i, 3) = a(i - 1, 1) - a(i, 1) a(i, 4) = (a(i - 1, 2) + a(i, 2)) / 2 a(i, 5) = Abs(a(i, 3) * a(i, 4)) Next Sheets("Tabelle5").Range("A1:E" & bis - von + 1) = a End Sub

Hi Carlo,
Du würdigst mich zwar keiner Antwort, aber ich bin ja nicht so:
Du hast zwar nach der Zeile 74 (" co.Chart.SeriesCollection(1).Trendlines(1).Dat" usw.) ein debug.print, aber das ist auskommentiert.
Schiebe mal das dazwischen:

Debug.Print "1: " & (co.Chart.SeriesCollection(1).Trendlines(1).DataLabel.Characters.Text)
Debug.Print "2: " & .SeriesCollection(1).Trendlines(1).DataLabel.Characters.Text
Debug.Print "3: " & .SeriesCollection(1).Trendlines(1).DataLabel.Caption
Stop

und Du wirst in Deinem Direktfenster sehen:

1:
2:
3: y = -5E-10x6 + 2E-06x5 - 0,002x4 + 1,378x3 - 536,1x2 + 11115x - 1E+07

Mit


Sub KoeffTest()
Dim arrB() As Double
Dim i&
arrB = Koeff("y = -5E-10x6 + 2E-06x5 - 0,002x4 + 1,378x3 - 536,1x2 + 11115x - 1E+07", 6)
For i = UBound(arrB) To LBound(arrB) Step -1
Debug.Print i & ": " & arrB(i)
Next
End Sub

sieht es dann schon freundlicher aus:

6: -0,0000000005
5: 0,000002
4: -0,002
3: 1,378
2: -536,1
1: 11115
0: -10000000

Ok?
Außerdem gibst Du nur 6 der 7 Werte aus, richtig muß es heißen:

objSh.Cells(2, 4).Resize(UBound(arrB) + 1, 1)

Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Koeffizienten einer Regression auslesen!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Koeffizienten einer Regression auslesen!

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread