# Tangentengleichung

## Problembeschreibung

*****************************************
Dokumentnummer: D1217
*****************************************
Die Tangentengleichung in einem bestimmten
Punkt einer Kurve ist zu bestimmen.

## Problemlösung

EINGABE

f:read("Gib eine Funktionsgleichung ein");

f:rhs(f);

f(x):=''f;

x0:read("Gib den x-Wert des Punktes ein");

VERARBEITUNG

y0:f(x0);

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

a(x):=''ab;

k:a(x0);

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

g:g(x0,y0);

l:solve(g,d);

d:ev(d,l[1]);

tangente:y=k*x+d,numer;

AUSGABE

print("Die Gleichung der Tangente ist",tangente)$