Courbe elliptique d'équation

a = 3.8 (slider from -5 to 5, step 0.1)
b = -2.5 (slider from -5 to 5, step 0.1)
c: y^(2) = x^(3) - (a * x) - b
texte1: "y^2=x^3-(" + (LaTeX[a]) + "x)-(" + (LaTeX[b]) + ")"
A = Point(c)
B = Point(c)
d = Line(A, B)
C' = Intersect(c, ((-(x(d) / y(d))) * x) - z(d) / y(d), 3)
e = Line(C', yAxis)
C: (x(C'), (-y(C')))
texte3: "" + A + "+" + B + "=" + C + ""

Tool: sommePoints
Input: a, b
Output: C

c: y^(2) = x^(3) - (a * x) - b
A = Point(c)
B = Point(c)
d = Line(A, B)
C' = Intersect(c, ((-(x(d) / y(d))) * x) - z(d) / y(d), 3)
e = Line(C', yAxis)
C = Intersect(c, ((-(x(e) / y(e))) * x) - z(e) / y(e), 1)