# Koordinaten Extremwerte

## Problembeschreibung

******************************************
Dokumentnummer: D1259
Quelle: Johann Weilharter,
             Analysis
******************************************
Gegeben ist ein Funktionsterm. Man berechne die
Koordinaten möglicher Extremwerte.

## Problemlösung

numer:true;

EINGABE

f:read("Gib den Funktionsterm ein");

VERARBEITUNG

ab:diff(f,x);

g:solve(ab=0,x);

n:length(g);

for i:1 thru n do l[i]:ev(f,g[i]);

AUSGABE

for i:1 thru n do print(g[i],"y =",l[i])$