Author: Daniel Mentrard
Date: 17 mars 2008

GADGET A GOGO

A = (0, 0)
B = (0, 5)
Altura = 2.7 (slider from 0.5 to 4, step 0.1)
T1: " " + (If[Altura > 1.0 ∨ Altura ≟ 1.0, "k =  \frac{ " + (10.0 * Altura) + " }{10}  ", "k = \frac{" + (Altura * 10.0) + "}{10 }"])
Desplazamiento = 9 (slider from 0 to 20, step 1)
c: 1.0 - Altura + Desplazamiento
C = (4, 0)
d = Line(A, C)
D: (x(A) + Desplazamiento, 0.0)
E: (x(D) + 4.0 * Altura, 0.0)
F: (x(D), y(D) + 5.0 * Altura)
f = Line(B, F)
u = Vector(B, F)
g = Line(B, xAxis)
h = Line(C, yAxis)
G = Intersect(h, g)
H: (x(D) + 4.0 * Altura, y(D) + 5.0 * Altura)
poly1, f_1, h_1, e_1, d_1 = Polygon(F, H, E, D)
poly2, b_1, g_1, c_1, a_1 = Polygon(B, G, C, A)
e = Segment(A, D)
a = Line(F, H)
k = Circle(H, 2.0)
p = Circle(E, 2.0)
I, J = Intersect(k, a)
K, L = Intersect(p, xAxis)
M = Midpoint(J, L)
v = Vector(M, J)
w = Vector(M, L)
b = Line(H, h_1)
N, O = Intersect(k, b)
q = Circle(F, 2.0)
i = Line(N, a)
P, Q = Intersect(q, i)
R = Midpoint(P, N)
z = Vector(R, P)
j = Vector(R, N)
T3: " x  " + Altura
T4: " x  " + Altura
l = Segment(N, H)
m = Segment(H, J)
n = Segment(P, F)
r = Segment(E, L)
coef: Altura * Altura
T5: "Las longitudes se multiplican por " + Altura
T6: "Las áreas se multiplican por " + coef
Textepoly1: "Área = " + poly1
Textepoly2: "Área = " + poly2