O

B

A

Complementarios

C_2 (m_2)

C_1 (m_1)

C_1

C_2

C

Cm

D

Mezcla de Gassmann

Mezcla de Newton

Saturación

Posiciónespectro = Point(xAxis)
Tamañoespectro = Point(Ray[Posiciónespectro, Vector[(1, 0)]])
f = OrthogonalLine(Posiciónespectro, xAxis)
Altura13 = Point(f)
A_1: (x(Posiciónespectro), (Distance[Posiciónespectro, Tamañoespectro] * y(Altura13) / 13))
B_1: (x(Tamañoespectro), y(A_1))
h = Segment(A_1, B_1)
C_3 = Point(h)
D_1 = Point(h)
E_1 = Point(h)
F_1 = Point(h)
G_1 = Point(h)
H = Point(h)
I = Point(h)
J = Point(h)
g = OrthogonalLine(I, xAxis)
i = OrthogonalLine(J, xAxis)
j = OrthogonalLine(D_1, xAxis)
k = OrthogonalLine(E_1, xAxis)
l = OrthogonalLine(F_1, xAxis)
m = OrthogonalLine(G_1, xAxis)
n = OrthogonalLine(H, xAxis)
p = OrthogonalLine(C_3, xAxis)
c = Circle(I, (2 / 3 * Distance[I, J]))
K = Intersect(c, g, 2)
q = Line(K, h)
G = Intersect(i, q)
F = Intersect(j, q)
E = Intersect(k, q)
D = Intersect(l, q)
C = Intersect(m, q)
B = Intersect(n, q)
A = Intersect(p, q)
r = Segment(K, A)
s = Segment(I, K)
t = Segment(J, G)
a = Segment(D_1, F)
b = Segment(E_1, E)
d = Segment(F_1, D)
e = Segment(G_1, C)
f_1 = Segment(H, B)
g_1 = Segment(C_3, A)
h_1 = Segment(I, C_3)
l1: {A, B, C, D, E, F, G, K}
l2 = Sequence(Distance[Element[l1, w], Element[l1, w + 1]], w, 1, 7, 1)
l3 = Sequence((Element[l2, w] * 360 / Distance[A, K]), w, 1, 7, 1)
Centro = (8.84, 6.58)
i_1 = Line(Centro, yAxis)
Circunferencia = Point(i_1)
c_1 = Circle(Centro, Circunferencia)
B_3 = Intersect(c_1, i_1, 2)
L' = Rotate(B_3, ((-Element[l3, 1]))°, Centro)
L'' = Rotate(L', ((-Element[l3, 2]))°, Centro)
L''' = Rotate(L'', ((-Element[l3, 3]))°, Centro)
M = Rotate(L''', ((-Element[l3, 4]))°, Centro)
M' = Rotate(M, ((-Element[l3, 5]))°, Centro)
M'' = Rotate(M', ((-Element[l3, 6]))°, Centro)
d_1 = CircleArc(Centro, L', B_3)
e_1 = CircleArc(Centro, L'', L')
k_1 = CircleArc(Centro, L''', L'')
p_1 = CircleArc(Centro, M, L''')
q_1 = CircleArc(Centro, M', M)
r_1 = CircleArc(Centro, M'', M')
s_1 = CircleArc(Centro, B_3, M'')
j_1 = OrthogonalLine(Centro, i_1)
B' = Intersect(c_1, i_1, 1)
A_3, A' = Intersect(c_1, j_1)
l_1 = AngularBisector(B_3, Centro, L')
m_1 = AngularBisector(L'', Centro, L')
n_1 = AngularBisector(L''', Centro, L'')
t_1 = AngularBisector(M, Centro, L''')
a_1 = AngularBisector(M', Centro, M)
b_1 = AngularBisector(M'', Centro, M')
f_2 = AngularBisector(B_3, Centro, M'')
o = false
v = Vector(Centro, B')
w = Vector(Centro, B_3)
u_1 = Vector(Centro, A')
L = Point(c_1)
N = Point(c_1)
N1: N
L1: L
g_2 = Ray(Centro, N)
h_2 = Ray(Centro, L)
v_1 = Vector(Centro, L)
w_1 = Vector(Centro, N)
C_1 = 3.55 (slider from 0 to 10, step 0.01)
C_2 = 3.7 (slider from 0 to 10, step 0.01)
c_2 = Circle(Centro, C_1)
d_2 = Circle(Centro, C_2)
C_6 = Intersect(c_2, g_2)
C_4 = Intersect(d_2, h_2)
u_2 = Vector(Centro, C_4)
v_2 = Vector(Centro, C_6)
C_1': C_6
C_2': C_4
i_2 = Line(C_6, h_2)
j_2 = Line(C_4, g_2)
O_1 = Intersect(i_2, j_2)
w_2 = Vector(Centro, O_1)
k_2 = Segment(N, L)
l_2 = Ray(Centro, O_1)
P = Intersect(k_2, l_2)
Q = Intersect(c_1, l_2)
a_2 = Vector(Q, P)
Cocientem1m2: C_1 / C_2
C_1Cm = Distance(N, P)
Sumam1m2: C_1 + C_2
DCm = Distance(Q, P)
Saturación: (Sumam1m2 * DCm)
u = false
o_1 = false
b_2 = false
e_2 = Vector(Centro, P)
Q': Q
m_2 = Vector(Centro, A_3)
P': P
texto1: " m_1 = " + C_1 + " 
 m_2 = " + C_2 + " 
 m_1 / m_2 =  " + Cocientem1m2 + "  
 C_1Cm = " + C_1Cm + "  "
texto2: " m_1 + m_2 = " + Sumam1m2 + "   "
texto3: " Intensidad de saturación = " + (LaTeX[Saturación]) + "    "
O: Centro