Cf a pour équation y=x^n

Trouver l'équation de 
la courbe rouge : y=

n = 2 (slider from -2 to 5, step 1)
Cf = Function(x^(n), -3, 3)
A = (-3, 0)
B = (3, 0)
a = Segment(A, B)
X = Point(a)
b = OrthogonalLine(X, a)
M = Intersect(Cf, b, (1.9490755453274113, 3.798895481393346))
i = Integral(Cf, 1, x(X))
P: (x(X), i)
CF = Locus(P, X)
I = (1, 0)
J = (0, 1)