C

B

c = CurveCartesian(t^(2), 2 * (t - 2)^(3), t, 1, 3)
p = CurveCartesian(1 + 8 * t, -2 + 4 * t, t, 0, 1)
A = Point(p)
B = Point(p)
scale = 0.02
xa = 0
xb = 10
ya = -4
yb = 4
xstep = 0.5
ystep = 0.5
list1 = Sequence(Sequence[Vector[(i, j), (i, j) + (j^(2), 2 * i * j) * scale], i, xa, xb, xstep], j, ya, yb, ystep)
C = Point(p)
D = Point(p)
u = Vector(C, D)
E = Point(c)
F = Point(c)
v = Vector(E, F)