Taylorpolynome mit epsilon-Intervall
Author: Prof. Dr. Dörte Haftendorn

Wähle epsilon und ziehe L und R .
Variiere Entwickungspunkt A und Grad n

Ha 2013

n = 4 (slider from 0 to 20, step 1)
f(x) = sin(x)
A = Point(f)
epsilon = 0.12 (slider from 0 to 2, step 0.001)
R = Point(f)
e = OrthogonalLine(R, xAxis)
tay = TaylorSeries(f, x(A), n)
C = Intersect(tay, e)
re = Segment(R, C)
L = Point(f)
d = OrthogonalLine(L, xAxis)
F = Intersect(tay, d)
Text1: "△y_r = " + re + ""
li = Segment(L, F)
a: x(L) < x < x(A)
b: x(A) < x < x(R)
Text2: "△y_l = " + li + ""