$f$

Zuordnung umkehren

y = x

Umkehrzuordnung spiegeln

f(x) =

f

f0(x) = (x + 2)^(2) + 1
X = Point(xAxis)
x0: x(X)
xL: -2
xR: Infinity
f(x) = If[xL ≤ x ≤ xR, f0(x)]
y0: f(x0)
PX: (x0, y0)
YX: (0, y0)
g = Segment(X, PX)
u = Vector(PX, YX)
Text1: "x = " + (LaTeX[x0]) + ""
Y = Point(yAxis)
y1: y(Y)
xR0 = If(xR ≟ Infinity, 100, xR)
xL0 = If(xL ≟ -Infinity, -100, xL)
A = Intersect(f0, y = y1, xL0, xR0)
x1: x(A)
PY: (x1, y1)
XY: (x1, 0)
h = Segment(Y, PY)
v = Vector(PY, XY)
bxy = true
byx: ¬bxy
Text4: "x =" + (LaTeX[x1]) + ""
Text3: "y = " + (LaTeX[y1]) + ""
Text2: "y = " + (LaTeX[y0]) + ""
Y': (y1, 0)
PY': (y1, x1)
XY': (0, x1)
i = Segment(Y', PY')
w = Vector(PY', XY')
p: y = x
Text5: "x = " + (LaTeX[y1]) + ""
Text6: "y = " + (LaTeX[x1]) + ""
bsp = false
Eingabefeld1 = Textfield(f0)
Eingabefeld2 = Textfield(xL)
Eingabefeld3 = Textfield(xR)
q: y = y1
gl1: x = x0
r: y = y0
gl2: x = x1
kf = CurveCartesian(t, f(t), t, -100, 100)
ky = CurveCartesian(t, y1, t, -100, 100)
AnzahlSchnittpunkte = 2
SPx = Sequence(x(Element[SP, i]), i, 1, Length[SP])
SP0 = Remove(Sequence[If[xL ≤ Element[SPx, i] ≤ xR, Element[SPx, i], Infinity], i, 1, Length[SPx]], {Infinity})
as = Length(SP0)
bu: as ≟ 1
symbolL = If(xL ≟ -Infinity, "<", "\leq")
Text8 = If(xR ≟ Infinity, "\le", "\leq")
symbolR = If(xR ≟ Infinity, "<", "\leq")
Text7: "" + (LaTeX[symbolL]) + " x " + (LaTeX[symbolR]) + ""