Tangente durch Punkt an Kreis

Programmcode:

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];

Die Richtigkeit der Rechnung kann mit Geogebra kontrolliert werden!