Nullstellen von Polynomen

http://maxima-online.org/?inc=r-758721334

Programmcode:

T:expand((x+5)*(x+1)*(x-2)*(x+6)/20);
NS:realroots(T);
X:map(rhs,NS);
f(x):=''T;
f(X);
N:[transpose(X),transpose(f(X))];
map(f,X);

Den Code kann man u.a. auswerten, indem man ihn mit dem Messenger Telegram (http://www.telegram.org) an Telemaxima schickt.

ber1

Ausführliche Kurvendiskussion: http://maxima-online.org/?inc=r1684735793