(x,y)=%v

(u,v)=%v

maxu = 2
OBLR: (maxu, 0.0010)
CBR: (x(OBLR)^(2) - y(OBLR)^(2), 2 * x(OBLR) * y(OBLR))
maxv = 4
OBUR: (maxu, maxv)
CBT: (x(OBUR)^(2) - y(OBUR)^(2), 2 * x(OBUR) * y(OBUR))
OBUL: (-maxu, maxv)
CBB: (x(OBUL)^(2) - y(OBUL)^(2), 2 * x(OBUL) * y(OBUL))
list1 = Sequence((i^(2) * maxu^(2) / 100 - maxv^(2), 2 * i * maxu / 10 * maxv), i, -9, 9)
U = Point(list1)
T = Point(list1)
S = Point(list1)
R = Point(list1)
O = Point(list1)
N = Point(list1)
M = Point(list1)
L = Point(list1)
K = Point(list1)
I = Point(list1)
H = Point(list1)
G = Point(list1)
F = Point(list1)
E = Point(list1)
D = Point(list1)
C = Point(list1)
B = Point(list1)
A = Point(list1)
J = Point(list1)
list2 = Sequence((-i^(2) * maxv^(2) / 100 + maxu^(2), 2 * i * maxv / 10 * maxu), i, -9, 9)
P_3 = Point(list2)
O_3 = Point(list2)
N_3 = Point(list2)
O_1 = Point(list2)
N_1 = Point(list2)
M_1 = Point(list2)
L_1 = Point(list2)
K_1 = Point(list2)
J_1 = Point(list2)
I_1 = Point(list2)
H_1 = Point(list2)
G_1 = Point(list2)
F_1 = Point(list2)
E_1 = Point(list2)
D_1 = Point(list2)
C_1 = Point(list2)
B_1 = Point(list2)
A_1 = Point(list2)
Z = Point(list2)
W = Point(list2)
V = Point(list2)
K_3 = Point(list2)
L_3 = Point(list2)
M_3 = Point(list2)
cbigpoly, g, h, i, j, k, l, m, n, r, s, t, a_1, b_1, c_1, d_1, e_1, f_1, g_1, h_1, i_1, j_1, k_1, l_1, m_1, n_1, a_2, b_2, c_2, d_2, e_2, f_2, g_2, h_2, i_2, j_2, k_2, l_2, m_2, n_2, p_2, q_2, r_2, s_2, t_2, a_3, b_3 = Polygon(CBT, A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, R, S, T, U, CBB, M_3, L_3, K_3, V, W, Z, A_1, B_1, C_1, D_1, E_1, F_1, CBR, G_1, H_1, I_1, J_1, K_1, L_1, M_1, N_1, O_1, N_3, O_3, P_3)
C1 = PointIn(cbigpoly)
vofc1 = Max(sqrt((Length[C1] - x(C1)) / 2), 1.0E-5)
C2 = PointIn(cbigpoly)
vofc2 = Max(sqrt((Length[C2] - x(C2)) / 2), 1.0E-5)
uofc2: y(C2) / (2 * vofc2)
uofc1: y(C1) / (2 * vofc1)
OBLL: (-maxu, 0.0010)
uvtotrect, a, b, c, d = Polygon(OBLR, OBUR, OBUL, OBLL)
O2 = PointIn(uvtotrect)
O1 = PointIn(uvtotrect)
Q = PointIn(cbigpoly)
P = PointIn(uvtotrect)
OMT: (x(O1), maxv)
e = Segment(O1, OMT)
vofq = Max(sqrt((Length[Q] - x(Q)) / 2), 1.0E-5)
Osub2: (x(O1), y(O2))
uofq: y(Q) / (2 * vofq)
OML: (-maxu, y(O1))
q = Segment(OML, O1)
Osub1: (x(O2), y(O1))
uvrect, om, ot, otl, ol = Polygon(O1, Osub2, O2, Osub1)
Csub2: (uofc1^(2) - vofc2^(2), 2 * uofc1 * vofc2)
list4 = Sequence((uofc1^(2) - (i * (vofc2 - vofc1) / 5 + vofc1)^(2), 2 * uofc1 * (i * (vofc2 - vofc1) / 5 + vofc1)), i, 1, 5)
U_1 = Point(list4)
V_1 = Point(list4)
W_1 = Point(list4)
Z_1 = Point(list4)
p_1 = PolyLine(C1, U_1, V_1, W_1, Z_1, Csub2)
Csub1: (uofc2^(2) - vofc1^(2), 2 * uofc2 * vofc1)
list6 = Sequence(((i * (uofc2 - uofc1) / 10 + uofc1)^(2) - vofc1^(2), 2 * (i * (uofc2 - uofc1) / 10 + uofc1) * vofc1), i, 1, 10)
K_2 = Point(list6)
L_2 = Point(list6)
M_2 = Point(list6)
N_2 = Point(list6)
O_2 = Point(list6)
P_2 = Point(list6)
Q_2 = Point(list6)
R_2 = Point(list6)
S_2 = Point(list6)
r_1 = PolyLine(C1, K_2, L_2, M_2, N_2, O_2, P_2, Q_2, R_2, S_2, Csub1)
list7 = Sequence(((i * (uofc1 - uofc2) / 10 + uofc2)^(2) - vofc2^(2), 2 * (i * (uofc1 - uofc2) / 10 + uofc2) * vofc2), i, 1, 10)
T_2 = Point(list7)
U_2 = Point(list7)
V_2 = Point(list7)
W_2 = Point(list7)
Z_2 = Point(list7)
A_3 = Point(list7)
B_3 = Point(list7)
C_3 = Point(list7)
D_3 = Point(list7)
list8 = Sequence((uofc2^(2) - (i * (vofc2 - vofc1) / 5 + vofc1)^(2), 2 * uofc2 * (i * (vofc2 - vofc1) / 5 + vofc1)), i, 1, 5)
F_3 = Point(list8)
G_3 = Point(list8)
H_3 = Point(list8)
I_3 = Point(list8)
t_1 = PolyLine(Csub1, F_3, G_3, H_3, I_3, C2)
CWBL = (-17, -17)
CWTR = (5, 17)
OWLL = (-2.5, -0.8)
OWTR = (2.5, 4.5)
s_1 = PolyLine(Csub2, T_2, U_2, V_2, W_2, Z_2, A_3, B_3, C_3, D_3, C2)