Regle a calcul
Author: Mentrard
Date: 10 juin 2008

+

Azul = 15 (slider from 0 to 15, step 1)
Rojo = 8 (slider from 0 to 15, step 1)
A = (0, 1)
B = Point(Circle[A, Azul])
c = Segment(A, B)
C = Point(Circle[B, Rojo])
d = Segment(B, C)
D = (0, 0)
E = Point(Circle[D, Azul])
e = Segment(D, E)
F = Point(Circle[E, Rojo])
f = Segment(E, F)
P, b_1, e_1, d_1, a_1 = Polygon(B, E, D, A)
Q, c_1, f_1, e_2, b_2 = Polygon(C, F, E, B)
O = Point(xAxis)
a = Line(F, xAxis)
G = (0, -2)
H = Point(xAxis)
I = (30, -2)
poly1, d_2, h, i, g = Polygon(D, H, I, G)
poly2, a_2, b, e_3, d_3 = Polygon(A, B, E, D)
poly3, b_3, c_2, f_2, e_4 = Polygon(B, C, F, E)
j = Line(B, E)
k = Line(C, F)
J = Intersect(j, i)
K = Midpoint(J, E)
L = Intersect(i, k)
M = Midpoint(L, F)
l = Segment(E, K)
N = (0.4341853913282539, 4.3092420806706535)
n = Line(A, D)
R = Midpoint(D, A)
S = Midpoint(B, E)
T = Midpoint(R, S)
U = Midpoint(C, F)
V = Midpoint(S, U)
T1: "" + Azul
T2: "" + Rojo
W = Midpoint(F, M)
p = Circle(W, F)
m = Segment(F, L)
u = Vector(T, S)
v = Vector(T, R)
w = Vector(V, S)
z = Vector(V, U)
Z = (13, -3)
A1 = (18, -3)
B1 = (18, -5)
C1 = (13, -5)
poly4, z_1, a1, b1, c1 = Polygon(Z, A1, B1, C1)
T4: "" + Azul + " + " + Rojo + " = " + (Azul + Rojo)