A

B

C

D

E

Lemmx=(x(A') R0(t)+x(B') R1(t)+x(C') R2(t)+x(D') R3(t)+x(E') R4(t))\NenP(t)

a: 4
gl1:=(x^(2) + y^(2))^(2) = (a^(2) * (x^(2) - y^(2)))
NenP(t) = 1 + (6 * t^(2)) + t^(4)
R0(t) = (1 - t)^(4)
R1(t) = ((4 * (1 - t)^(3)) * t)
R2(t) = ((12 * (1 - t)^(2)) * t^(2))
R3(t) = ((16 * (1 - t)) * t^(3))
R4(t) = (8 * t^(4))
A = (4, 2)
B = (3, 5)
C = (2, 0)
D = (1, 0)
E = (1, 1.5)
f = Segment(E, D)
g = Segment(D, C)
h = Segment(C, B)
i = Segment(B, A)
te = 20 (slider from -20 to 20)
b = CurveCartesian((a * (1 - t^(4)) / (1 + (6 * t^(2)) + t^(4))), (a * ((2 * t) - (2 * t^(3))) / (1 + (6 * t^(2)) + t^(4))), t, (-10 * pi), te)
yy(t) = ((y(A) * R0(t)) + (y(B) * R1(t)) + (y(C) * R2(t)) + (y(D) * R3(t)) + (y(E) * R4(t))) / NenP(t)
xx(t) = ((x(A) * R0(t)) + (x(B) * R1(t)) + (x(C) * R2(t)) + (x(D) * R3(t)) + (x(E) * R4(t))) / NenP(t)
c = CurveCartesian(xx(t), yy(t), t, -20, te)
PA: (4, 0)
PB: (4, 2)
PC: (2, 2)
PD: (1, 1)
PE: (0, 0)
j = Segment(PA, A)
k = Segment(PB, B)
l = Segment(PC, C)
m = Segment(PA, A)
n = Segment(PE, E)
s = 1 (slider from 0 to 1, step 0.05)
aa = Vector(PA, A)
bb = Vector(PB, B)
cc = Vector(PC, C)
dd = Vector(PD, D)
ee = Vector(PE, E)
A': PA + (s * aa)
B': PB + (s * bb)
C': PC + (s * cc)
D': PD + (s * dd)
E': PE + (s * ee)
Lemmx(t) = (x(A') * R0(t)) + (x(B') * R1(t)) + (x(C') * R2(t)) + (x(D') * R3(t)) + (x(E') * R4(t))
Lemmy(t) = (y(A') * R0(t)) + (y(B') * R1(t)) + (y(C') * R2(t)) + (y(D') * R3(t)) + (y(E') * R4(t))
d = CurveCartesian(Lemmx(t) / NenP(t), Lemmy(t) / NenP(t), t, -20, te)
p = Segment(PB, PC)
q = Segment(PC, PD)