x

y

ymin = -4.88087612679467
ymax = 4.88087612679467
yscale: ymax - ymin
threshold = 0.03
xmax = 5.039603805714821
xmin = -5.039603805714822
xscale: xmax - xmin
LL = Corner(1)
UR = Corner(3)
threshold_x: (threshold * xscale)
threshold_y: (threshold * yscale)
xlabeldisplayed: "" + (LaTeX[xlabel]) + ""
ylabeldisplayed: "" + (LaTeX[ylabel]) + ""
nv = 9
vecfraction = 0.9
dxvec: ((xmax - xmin) * vecfraction / (nv - 1))
vecposX: xmin + ((0.5 * (1 - vecfraction)) * (xmax - xmin)) + (Sequence[i, i, 0, nv - 1] * dxvec)
dyvec: ((ymax - ymin) * vecfraction / (nv - 1))
vecposY: ymin + ((0.5 * (1 - vecfraction)) * (ymax - ymin)) + (Sequence[i, i, 0, nv - 1] * dyvec)
vecmag = 0.1
A = (3, -3)
B = (2, 4)
f(t) = ((-1) / 7 * (t + 3)) + 3
g(t) = f(t) + (0.4 * ((t - 0.5)^(2) - 3.5^(2))) - (3 * sin(((3 * π) * (t + 3) / 7)))
h(t) = f(t) - (0.01 * ((t - 0.5)^(4) - 3.5^(4))) + (0.5 * sin(((11 * π) * (t + 3) / 7)))
inttot: (0.5 * (x(B)^(2) + y(B)^(2) - x(A)^(2) - y(A)^(2)))
slidery = -4
I: ((0.5 * inttot), slidery)
a: y = slidery
sliderdy = 0.1
vecfield = Sequence(Sequence[Vector[(Element[vecposX, i], Element[vecposY, j]), ((Element[vecposX, i] * (1 + vecmag)), (Element[vecposY, j] * (1 + vecmag)))], i, 1, nv], j, 2, nv)
sliderdx = 1
list1 = Sequence(Segment[(i, slidery - sliderdy), (i, slidery + sliderdy)], i, -6, 6, sliderdx)
list2 = Sequence(Text[(2 * i), (i - 0.1, slidery - (6 * sliderdy))], i, -6, 6, sliderdx)