Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ausgleichkurve mit Hilfe von VBA hinzufügen

Ausgleichkurve mit Hilfe von VBA hinzufügen
31.05.2017 20:39:44
VBA
Guten Tag Liebe Forummitglieder,
zuerst vielen Dank das es dieses Forum gibt, weil ich mir schon viele Tipps herholen konnte. Nun zu meinem Problem:
mit Hilfe von VBA werden meine Messpunkte in eine Datenreihe hinzugefügt und verbunden. Da die Werte zwischen den Messpunkten jeweils Interpolationen sind, brauche ich eine Ausgleichkurve(Bleistift), so wie man es auf dem Foto sieht. Ich habe es bereits mit der RGP Gleichung und einem Spline versucht, komme jedoch damit nicht zum Ziel. Mit der Funktion regress kann ich mir eine 'Kurve' zeichnen lassen, aber dies ist lediglich eine Ausgleichsgerade. Mit der Trendlinienfunktion in Excel komme ich leider auch nicht ans Ziel. Ich weiß das es sich hier um die Methode der kleinsten Quadrate handelt, aber ich stehe wirklich auf dem Schlauch, wie man das auf VBA anwenden könnte. Hat jemand von euch irgendeine Idee, oder vielleicht ein Code parat? Bin für jede Hilfe sehr dankbar :)
Ich brauche es um fehlerhafte Messpunkte schneller zu erkennen.
Da ich das Foto nicht geschafft habe, hier hochzuladen, habe ich es unter folgendem Link ins Internet hochgeladen.
http://www.bilder-upload.eu/show.php?file=d9b348-1496255595.png

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

Betreff
Datum
Anwender
Anzeige
AW: Ausgleichkurve mit Hilfe von VBA hinzufügen
01.06.2017 07:20:30
VBA
Hallo Max,
ohne Kenntnis deiner Messdaten ist alles nur Spekulation.
Das ist auch kein VBA-Problem, sondern eher die Methode.
Hier ist mal ein Beispiel mit 200 Messwerten. Diese interpoliere (FIT) ich mit einem Polynom 6. Grades. Dann berechne ich die Residuenquadratsumme (https://de.wikipedia.org/wiki/Residuenquadratsumme) um Ausreiser zu finden. Dazu musst du einen Grenzwert selber festlegen, ab wann es als Ausreißer zählt.
In Bezug auf deine Messdaten ist es auch notwendig zu wissen:
- folgen die Messwerte einem vorhersagbaren Trend?
- Wie lang ist das Interval, in dem man diesen Trend vorhersagen kann?
In meinem Beispiel "200" klappt es eben noch mit dem Polynom 6. Grades.
Im zweiten Blatt habe ich 400 Werte, aber eigentlich die ersten 200 einfach nochmal kopiert. Hier ist das Polynom 6. Grades schon ungeeignet. Hier müsste man nun das Interval beschränken und für mehrere Intervalle das Polynom 6. Grades bestimmen und vergleichen.
https://www.herber.de/bbs/user/113939.xlsx
Gruß,
Rainer
Anzeige
AW: Ausgleichkurve mit Hilfe von VBA hinzufügen
02.06.2017 10:41:31
VBA
Hallo Rainer,
vielen Dank für deine schnelle Antwort. Ich habe meine x und y Werte unten aufgelistet. Des Weiteren habe ich meine y-Werte mit dem Polynom 7.Grades Interpoliert. Meine Frage ist nun, wie ich auf die RSS Werte komme. Meine Werte folgen immer den Trend wie auf dem Foto in meinem vorigen Beitrag. Der Graph sieht immer in etwa so aus. Ab einer Abweichung von 5%, würde ich die Werte als Ausreißer bezeichnen, oder was meinst du mit Grenzwert für Ausreißer? Die Werte variieren ja stark voneinander. Das Intervall wäre in dem Fall meine x Werte.
x y INT Y
0,16 4069 4075,22
0,24 4083 4077,98
0,63 4092 4089,26
0,81 4094 4092,61
1,2 4095 4097,39
2,4 4097 4098,7
4,01 4095 4093,39
6,41 4090 4090,2
8 4086 4087,37
9,6 4083 4082,77
11,18 4080 4078,78
12,81 4076 4076,63
14,39 4073 4074,02
16,01 4069 4068,68
16,8 4068 4068,19
x^0 x^1 x^2 x^3 x^4 x^5 x^6 x^7
0 -0,0026 0,0671 -0,8981 6,5861 -25,9041 47,3321 4068,1998
Gruß
Max
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige