Remove["Global`*"] f= (* Funktion eingeben *) x0= (* Punkt um den entwickelt wird *) n= (* Ordnung der Reihe *) f1[x_]=Series[f,{x,x0,n}] f1n[x_]=Normal[f1[x]] (* Umrechnen der Reihe in eine normale Formel *) (* Einsetzen von Werten in die Reihe *) x= (* Wert eingeben *) f1n[x]
Wird zu der Reihe eine andere Funktion addiert, subtrahiert bzw. wird die Reihe mit einer anderen Funktion multipliziert oder dividiert, so wird diese Funktion um den Entwicklungspunkt der Reihe automatisch entwickelt. Z.B.:
x:=x f1[x]+Sin[x-1]