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!
