Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by 3_of_8,
3. Mai 2009
Naja, bei einer senkrechten Gerade/Strecke ist der Fall doch trivial.
Es sei eine Strecke/Gerade /P1P2 gegeben durch die Punkte P1(x1|y1), P2(x2,y2) und ein Kreis k(M,r) mit dem Mittelpunkt M(xm,ym). Es gelte x1=x2.
dx := x1-xm;
disc := r*r-dx*dx;
if disc > 0 then
begin
setlength(result, 2);
result.X := x1;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by 3_of_8,
2. Mai 2009
Jep, Analytik ist Chemie. :mrgreen:
(Der Ansatz über Vektoren führt aber im Endeffekt auch zum gleichen Ergebnis)
(Und wenn mans ganz genau nimmt, sind reelle Zahlen auch Vektoren, von daher ist der ursprüngliche Ansatz auch über Vektoren :lol: )