Aa

aa

AA

génération 0

génération 1

p (fréquence du génotype AA)

q (fréquence du génotype Aa)

r (fréquence du génotype aa)

génération 2

génération 3

Fréquence de l'allèle A

Fréquence de l'allèle a

génération 4

$1$

Bougez le gros point triangulaire noir dans le triangle pour faire varier les fréquences p, q, r.

C: (1 / sqrt(3), 1)
B: (2 / sqrt(3), 0)
A: (0, 0)
t1, c, a, b = Polygon(A, B, C)
M = PointIn(t1)
h = OrthogonalLine(M, a)
E = Intersect(h, a)
p = Segment(M, E)
B2: p
g = OrthogonalLine(M, c)
F = Intersect(g, c)
q = Segment(M, F)
B3: q
C2: (B2 + B3 / 2)^(2)
f = OrthogonalLine(M, b)
D = Intersect(f, b)
r = Segment(M, D)
B4: r
C4: (B4 + B3 / 2)^(2)
C3: ((2 * (B2 + B3 / 2)) * (B4 + B3 / 2))
D4: (C4 + C3 / 2)^(2)
D2: (C2 + C3 / 2)^(2)
D3: ((2 * (C2 + C3 / 2)) * (C4 + C3 / 2))
E4: (D4 + D3 / 2)^(2)
E3: ((2 * (D2 + D3 / 2)) * (D4 + D3 / 2))
E2: (D2 + D3 / 2)^(2)
B6: B2 + B3 / 2
B7: B4 + B3 / 2
C6: C2 + C3 / 2
C7: C4 + C3 / 2
D6: D2 + D3 / 2
D7: D4 + D3 / 2
E6: E2 + E3 / 2
E7: E4 + E3 / 2
G = (1.6, 0)
H = (1.6, 1)
I = (1.8, 1)
J = (1.8, 0)
q1, g_1, h_1, i_1, bb = Polygon(G, H, I, J)
J' = Translate(J, (0, r))
G' = Translate(G, (0, r))
bb' = Segment(J', G')
J'_1 = Translate(J, (0, r + q))
G'_1 = Translate(G, (0, r + q))
bb'_1 = Segment(J'_1, G'_1)
q2, g_2, j, j', g' = Polygon(G, J, J', G')
q3, k, l, j'_1, g'_1 = Polygon(G', J', J'_1, G'_1)
q4, m, n, i_2, h_2 = Polygon(G'_1, J'_1, I, H)
K = Midpoint(J'_1, I)
L = Midpoint(J', J'_1)
N = Midpoint(J, J')
text1: "$r\approx " + (LaTeX[r]) + "$"
text2: "$q\approx  " + (LaTeX[q]) + "$"
text3: "$p\approx  " + (LaTeX[p]) + "$"
O = (1.4, 0)
P = (1.4, 1)
u = Vector(O, P)
v = Vector(P, O)
Q = Midpoint(P, O)
d: (B2 + B3 / 2)^(2)
e: ((2 * (B2 + B3 / 2)) * (B4 + B3 / 2))
t2, c_1, a_1, b_1 = Polygon(A, B, C)