G

\partial G_1

\partial G_2

f(x)=1-\frac{x^2}{4}

g(x)=\frac{x^2}{4}-1

G

ymax = 1.2 (slider from -10 to 15, step 1)
ymin = -1.2 (slider from -20 to 15, step 1)
xmax = 2 (slider from -10 to 15, step 1)
xmin = -2 (slider from -20 to 15, step 1)
rr = 0.1
phi = 0.7235987755982988
f(x) = If[-2 ≤ x ≤ 2, 1 - x^(2) / 4]
g(x) = If[-2 ≤ x ≤ 2, -1 + x^(2) / 4]
A = Point(f)
B = Point(g)
rifeld = Sequence(Sequence[Vector[(i, j), ((i * (1 + rr)), (j * (1 - (2 * rr))))], i, xmin, xmax, 0.2], j, ymin, ymax, 0.1)
a = IntegralBetween(f, g, -2, 2)
s = 0.33
v_A = Vector(A, A + (s * (x(A), (-2 * y(A)))))
w = Vector(A, A + (s * (-1, ((-((-x(A))))) / 2)))
w_{sA} = Vector(A, A + (s * (x(A) / 2, 1)))
v_B = Vector(B, B + (s * (x(B), (-2 * y(B)))))
w_{sB} = Vector(B, B + (s * (x(B) / 2, -1)))
w_B = Vector(B, B + (s * (1, x(B) / 2)))
C = (-2.7216400898463777, 0.749784623366919)
D = (-2.307315001548342, 0.749784623366919)