# Tangente in einem Punkt

## Problembeschreibung

******************************************
Dokumentnummer: D1083
Quelle: Johann Weilharter,
             Analysis
******************************************

An eine gegebene Funktion ist in einem gegebenen Punkt
eine Tangente zu legen und das ganze ist dann grafisch
darzustellen.

## Problemlösung

EINGABE

f:read("Gib die Funktion f(x):= ein");

x0:read("Gib die x-Koordinate eines Punktes ein");

VERARBEITUNG

y0:f(x0);

ab:diff(f(x),x);

k:ab,x=x0;

g(x,y):=y=k*x+d;

g:g(x0,y0);

l:solve(g,d);

abschnitt:d,l[1];

steigung:k;

y(x):=steigung*x+abschnitt;

AUSGABE

print("Tangente y =",y(x));

wxplot2d([f(x),y(x)], [x,x0-5,x0+5], [gnuplot_preamble, "set size ratio 1; set zeroaxis;"])$