f(x,y) =0 ⇔ 0=

refresh

$\scalebox{1.5}{\fgcolor{ff0000}{fxx(x) = f(x, y_0)} } $
$\scalebox{1.5}{\fgcolor{ff0000}{Bxx = Wenn[fxx(x_0 - ε / 2)\cdot fxx(x_0 + ε / 2) < 0 , (x_0, y_0)]$
$\scalebox{1.5}{\fgcolor{ff0000}{locxx = Ortslinie[Bxx, y_0]}$

$\scalebox{1.5}{fyy(x) = f(x_0, x)$
$\scalebox{1.5}{Byy = Wenn[fyy(y_0 - ε / 2)\cdot fyy(y_0 + ε / 2) < 0 , (x_0, y_0)]$
$\scalebox{1.5}{locyy = Ortslinie[Byy, x_0]$

x-Scan

y-Scan

Genauigkeit:

Animationsgeschwindigkeit: 

$\scalebox{1.0}\text{ RootsByLocus\;- Nullstellensuche\; mit \;Ortslinien 2D $

$\scalebox{1.4} \text{\copyright Roman Chijner, Heidelberg 2012}$
$\scalebox{1.3} \text{    Gestaltungshilfe:}\scalebox{1.3}\text{ Werner Knobloch}$

f(x, y) = ((x^(2) / 50 + y^(2) / 200 - 1) * (x^(2) + y^(2) - 100))
y_0 = -15 (slider from -15 to 15, step 0.01)
fxx(x) = f(x, y_0)
llx: {Intersect[fxx, xAxis]}
x_0 = -15 (slider from -15 to 15, step 0.01)
fyy(x) = f(x_0, x)
lly: {Intersect[fyy, xAxis]}
ε = 0 (slider from 0 to 0.4, step 0.05)
v = 0 (slider from 0 to 0.5, step 0.1)
Textfeld1 = Textfield(f)
Bxx = If((fxx(x_0 - ε / 2) * fxx(x_0 + ε / 2))  <  0, (x_0, y_0))
locxx = Locus(Bxx, y_0)
Tx_0: (x_0, 0)
a = OrthogonalLine(Tx_0, xAxis)
Lx = Length(locxx)
Px = RemoveUndefined(First[locxx, Lx])
llly = Sequence((x_0, x(Element[lly, i])), i, 1, Length[lly])
Byy = If((fyy(y_0 - ε / 2) * fyy(y_0 + ε / 2))  <  1.0E-7, (x_0, y_0))
locyy = Locus(Byy, x_0)
Ly = Length(locyy)
Py = RemoveUndefined(First[locyy, Ly])
b = false
h = true
Ty_0: (0, y_0)
i = OrthogonalLine(Ty_0, yAxis)
lllx = Sequence((x(Element[llx, i]), y_0), i, 1, Length[llx])
j: ¬h
k: ¬b
l: ¬b
m: ¬b
n: ¬b