R (1)

V (1)

A (1)

V - A

b

B - N

B - N

C - R

R - V

V - A

bn = Point(yAxis)
T1 = Point(yAxis)
g_2 = Line(T1, xAxis)
T2 = Point(g_2)
R'': T2
Z' = Mirror(T2, yAxis)
polígono1, h_2, i_2, j_2, W = Polygon(T2, Z', 3)
f = Line(bn, xAxis)
A = Point(xAxis)
g = OrthogonalLine(A, f)
D = Intersect(g, f)
B = Point(xAxis)
R = Point(Segment[A, B])
rojo_2: Distance[A, R] / Distance[A, B]
G = Point(Segment[R, B])
azul_2: Distance[G, B] / Distance[A, B]
verde_2: Distance[R, G] / Distance[A, B]
Xcmb: (((rojo_2 * 100) * x(R'')) + ((verde_2 * 100) * x(Z')) + ((azul_2 * 100) * x(W))) / 100
Ycmb: (((rojo_2 * 100) * y(R'')) + ((verde_2 * 100) * y(Z')) + ((azul_2 * 100) * y(W))) / 100
CM: (Xcmb, Ycmb)
h = OrthogonalLine(B, f)
E = Intersect(h, f)
I = Point(Segment[D, E])
blanco_2: Distance[D, I] / Distance[A, B]
normalizacionblanco: 1 / blanco_2
C_1 = Point(xAxis)
f_1 = OrthogonalLine(C_1, f)
O = Intersect(f, f_1)
N: (x(C_1) + Distance[A, B], 0)
g_1 = OrthogonalLine(N, f)
P = Intersect(g_1, f)
V = Point(Segment[O, P])
blanco_1: Distance[O, V] / Distance[C_1, N]
blancocolor: (blanco_1 * normalizacionblanco)
i_1 = Segment(C_1, N)
R_1 = Point(i_1)
S = Point(Segment[R_1, N])
rojo_1: Distance[R_1, S] / Distance[C_1, N]
T = Point(Segment[S, N])
azul_1: Distance[T, N] / Distance[C_1, N]
verde_1: Distance[S, T] / Distance[C_1, N]
colornormalizado: blancocolor - rojo_1 - verde_1 - azul_1
Circunferencia = Point(Line[Midpoint[Segment[A, B]], yAxis])
c = Circle(Circunferencia, Distance[A, B] / 3)
i = Segment(A, B)
j = Line(Circunferencia, xAxis)
H = Intersect(c, j, 1)
r: (Distance[A, R] * 360 / Distance[A, B])
v: (Distance[R, G] * 360 / Distance[A, B])
H' = Rotate(H, r°, Circunferencia)
H'' = Rotate(H', v°, Circunferencia)
e = CircleSector(Circunferencia, H, H')
k = CircleSector(Circunferencia, H', H'')
d = Circle(Circunferencia, Distance[A, B] / 6)
b: (Distance[D, I] * 360 / Distance[A, B])
J = Intersect(d, j, 1)
K = (4.28, -8.8)
J' = Rotate(J, b°, Circunferencia)
q = CircleSector(Circunferencia, J, J')
s = CircleSector(Circunferencia, J', J)
rojo = Segment(A, R)
negro = Segment(I, E)
blanco = Segment(D, I)
azul = Segment(G, B)
M: (x(C_1) + Distance[A, B], 0)
h_1 = LineBisector(C_1, N)
Q = Intersect(h_1, j)
c_1 = Circle(Q, Distance[A, B] / 3)
d_1 = Circle(Q, Distance[A, B] / 6)
verde = Segment(R, G)
L = Intersect(c_1, j, 1)
U = Intersect(d_1, j, 1)
r_1: (Distance[R_1, S] * 360 / Distance[C_1, N])
v_1: (Distance[S, T] * 360 / Distance[C_1, N])
p = CircleSector(Circunferencia, H'', H)
p_1: (Distance[C_1, R_1] * 360 / Distance[C_1, N])
b_1: (Distance[O, V] * 360 / Distance[C_1, N])
L' = Rotate(L, p_1°, Q)
L'' = Rotate(L', r_1°, Q)
L''' = Rotate(L'', v_1°, Q)
U' = Rotate(U, b_1°, Q)
e_1 = CircleSector(Q, L, L')
k_1 = CircleSector(Q, L', L'')
q_1 = CircleSector(Q, L'', L''')
s_1 = CircleSector(Q, L''', L)
t_1 = CircleSector(Q, U, U')
c_2 = CircleSector(Q, U', U)
j_1 = Segment(C_1, R_1)
l_1 = Segment(R_1, S)
m_1 = Segment(S, T)
n_1 = Segment(T, N)
a_1 = Segment(O, V)
f_2 = Segment(V, P)
negro_2: Distance[I, E] / Distance[A, B]
rva: rojo_2 + verde_2 + azul_2
color: Distance[C_1, R_1] / Distance[C_1, N]
negro_1: Distance[V, P] / Distance[O, P]
texto1: "Coeficientes de la ecuación normalizadora:

         rojo: " + rojo_2 + "
         verde:" + verde_2 + "                          r + v + a = " + rva + "              
         azul: " + azul_2 + "

 Coeficiente de normalización del blanco: " + normalizacionblanco + "  

        blanco: " + blanco_2 + "                        X(cmb)=" + Xcmb + "
        negro: " + negro_2 + "                          Y(cmb)=" + Ycmb + ""
Ycolor: ((blancocolor * y(CM)) - (rojo_1 * y(R'')) - (verde_1 * y(Z')) - (azul_1 * y(W))) / colornormalizado
Xcolor: ((blancocolor * x(CM)) - (rojo_1 * x(R'')) - (verde_1 * x(Z')) - (azul_1 * x(W))) / colornormalizado
C: (Xcolor, Ycolor)
u = Vector(CM, C)
coeficientecolor: colornormalizado / color
texto2: " color x: " + color + "
 rojo: " + rojo_1 + "                                c + r + v + a = 1    
 verde: " + verde_1 + "
 azul: " + azul_1 + "

 blanco: " + blanco_1 + "                 blanco normalizado: " + normalizacionblanco + "  
 negro: " + negro_1 + "

  color x normalizado = " + colornormalizado + "           Xcmc = " + Xcolor + "  
  coeficiente del color x = " + coeficientecolor + "        Ycmc = " + Ycolor + ""