Eine Möglichkeit, die Geometrie zu vermeiden, besteht darin, die Gleichungen wie folgt neu zu parametrisieren:
%Vor% in Bezug auf ihren Schnittpunkt (x0, y0)
und führen dann die Anpassung beider gleichzeitig mit nls
durch, so dass die zurückgegebenen Werte von x0
und y0
das Ergebnis liefern:
BEARBEITEN: Beachten Sie, dass die Zeilen xx<-...
und yy<-...
neu sind und die nls
-Zeile als solche angegeben und korrigiert wurde.
Ich bin ein wenig überrascht, dass es dafür keine eingebaute Funktion gibt.
Hier ist eine rudimentäre Funktion (für lm-Ergebnisse), die die gleiche allgemeine Methode wie Tommy verwendet. Dies verwendet die einfache Ersetzungsmethode für zwei Zeilen in der Form "y = mx + b", um den gemeinsamen Schnittpunkt bei y zu finden (y1 = y2; m1 * x + b1 = m2 * x + b2) und löst für x:
Funktionsdefinition
%Vor%Test:
%Vor%Tags und Links r lm intersection