# Nullstellen einer Polynomfunktion

## Problembeschreibung

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

Die Nullstellen einer Polynomfunktion sind zu bestimmen.

## Problemlösung

EINGABE

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

VERARBEITUNG

g:rhs(f)=0;

l:realroots(g);

n:length(l);

X:makelist(ev(x,l[i]),i,1,n);

X:makelist(floor(X[i]*1000+0.5)/1000.0,i,1,n);

P:makelist([X[i],0],i,1,n);

Nullstellen:makelist(N[i]=P[i],i,1,n);

Nullstellen:transpose(Nullstellen);

AUSGABE

print("Die Nullstellen sind",Nullstellen)$