Vector Fields 1
Author: LFS

Enter the x and y components of your vector field in the input fields.

Change xs=xSteps and ys=ysteps as well as the plotted mins/maxs

Change v=VectorScale and vh=VectorHead

My thanks to Mike May and Russell Blyth and to Mike Borcherds for pointing me in their direction.

Vx(x,y)=

Vy(x,y)=

yn = 11 (slider from 1 to 21, step 1)
ymin = -2 (slider from -5 to 5, step 1)
ymax = 2 (slider from -5 to 5, step 1)
ys: (ymax - ymin) / yn
xn = 8 (slider from 1 to 21, step 1)
xmin = -2 (slider from -5 to 5, step 1)
xmax = 2 (slider from -5 to 5, step 1)
xs: (xmax - xmin) / xn
v = 0.14 (slider from 0 to 1, step 0.01)
vh = 0.1 (slider from 0 to 1, step 0.01)
f = Function(x, 0, 1)
g = Function(x^(3), 0, 1)
h = Function(sin((x * π / 2)), 0, 1)
Vx(x, y) = x
Vy(x, y) = y
list1 = Sequence(Sequence[Segment[(j, k) - ((Vx(j, k), Vy(j, k)) * v), (j, k) + ((Vx(j, k), Vy(j, k)) * v)], k, ymin, ymax, ys], j, xmin, xmax, xs)
lista1 = Sequence(Sequence[Rotate[Segment[(j, k) + ((Vx(j, k), Vy(j, k)) * v) - ((Vx(j, k), Vy(j, k)) / sqrt(Vx(j, k)^(2) + Vy(j, k)^(2)) * vh), (j, k) + ((Vx(j, k), Vy(j, k)) * v)], 330*°, (j, k) + ((Vx(j, k), Vy(j, k)) * v)], k, ymin, ymax, ys], j, xmin, xmax, xs)
lista2 = Sequence(Sequence[Rotate[Segment[(j, k) + ((Vx(j, k), Vy(j, k)) * v) - ((Vx(j, k), Vy(j, k)) / sqrt(Vx(j, k)^(2) + Vy(j, k)^(2)) * vh), (j, k) + ((Vx(j, k), Vy(j, k)) * v)], 30*°, (j, k) + ((Vx(j, k), Vy(j, k)) * v)], k, ymin, ymax, ys], j, xmin, xmax, xs)
inputBox1 = Textfield(Vx)
inputBox2 = Textfield(Vy)
text1: "Vector field <" + Vx + "," + Vy + ">"
xplus: (0.1 * (xmax - xmin))
yplus: (0.1 * (ymax - ymin))
a = CurveCartesian(t, t, t, 0, 1)