# Extremwertaufgabe

**********************************************
Dokumentnummer: D1266
**********************************************

HB:read("Gib den Funktionsterm der Zielfunktion ein");

NB:read("Gib die Nebenbedingung ein");

solve(NB,y);

l:solve(NB,y);

f:HB,l[1];

ab:diff(f,x);

g:ab=0;

s:solve([g,NB],[x,y]);

extremwert:f,s[1][1];

print("Gesuchter x-Wert:",s[1][1])$

print("Gesuchter y-Wert:",s[1][2])$

print("Der Extremwert ist",extremwert)$