wie lassen sich 2 Geraden (eine Sekante und eine Tangente) für bestimmte Bereiche automatisch in ein Diagramm hinzufügen, sodass sich diese Funktion immer wieder auf verschiedene Datensätze anwenden lässt (VBA Code)?
Grundlage ist ein Datensatz, dessen Kurve ähnlich einer exponentiellen Funktion ist. Die Kurve zeigt einen Ersten, annährend linearen Bereich und einen zweiten Bereich mit starkem Anstieg. Der erste Bereich soll durch eine Sekante (Ausgleichsgerade) angenähert werden, der Zweite durch ein Tangente in einem Punkt P. Dabei dürfen die Punkte, die für den ersten Bereich (Sekante) in Frage kommen, keine Abweichung z.B. größer 5% zu dem Punkt davor haben, damit sie den linearen Bereich der Kurve abdecken. Der Punkt P befindet sich an der Stelle der Kurve, an dem der Y-Wert 50% Abweichung vom linearen Bereich hat.
Am Ende soll im Diagramm die ursprüngliche Kurve, die Sekante, welche den linearen Bereich annähert und die Tangente im Punkt P zu sehen sein, wenn ein Auswertungs-Button gedrückt wird.
In der eingefügten Datei habe ich die beiden Gerade zur Veranschaulichung des Problems von Hand eingefügt.
Vielen Dank.
Matt
https://www.herber.de/bbs/user/77668.xls