Gegeben sind ein Punkt durch seine Koordinaten und ein Kreis in Ursprungslage durch seinen Radius. Eine Gerade y = kx + d durch den Punkt ist eine Tangente, wenn die Berührungsbedingung d² = r² (1 + k²) erfüllt ist.
[b]Maxima-Programm dazu:[/b]
kill(all);
r:5;
punkt:[7,-3];
kreis:x^2+y^2=r^2;
gerade:y=k*x+d;
beruehrbedingung:d^2=r^2*(1+k^2);
g1:gerade,x=punkt[1],y=punkt[2];
g2:beruehrbedingung;
l:solve([g1,g2],[k,d]),numer;
gerade,l[1];
gerade,l[2];
