restart: f:= ;#(* Funktion eingeben *) x0:= ;#(* Punkt um den entwickelt wird *) n:= ;#(* Maximale Ordnung der Entwicklung *) r:=series(f,x=x0,n); p:=convert(r,polynom); #(* konvertiert die Reihe in eine Polynom *) #(* Falls der Ordnungsterm stört, kann er entfernt werden *) p:=p-select(has,p,O); `(* berechnet die Reihe für den 'wert' *)`: wert:= ;# (* Wert eingeben *) evalf(subs(x=wert,p));