Mostrar proceso de construcción

Mostrar pentagrama

A

B

C

D

E

Pentágono interior

F

G

H

I

A,B: dos vértices consecutivos 
del pentágono

Recta AB

Cuadrado ABFG

Segmento que une el punto medio
del lado AB con F

I: intersección de la recta AB con la 
circunferencia de centro H y radio HF

Circunferencia de centro A y radio AI

C: intersección de la circunferencia anterior, con 
la que tiene por centro B y radio BA

AC: diagonal del pentágono

Circunferencia de centro C y radio CA

E: intersección de la circunferencia anterior con 
la que tiene por centro A y radio AB

D: intersección de la circunferencia de centro A 
y radio AC con la que tiene por centro E y radio EA

Pentágono regular ABCDE

P

Q

R

S

T

Φ= \frac{ AC }{ AB} 

Φ= \frac{ AC }{AB }= \frac{ AB }{ AS}  

Φ= \frac{ AC }{AB } = \frac{ AB }{ AS} = \frac{ AS }{ST } 

Rectángulos

pasos1 = 11 (slider from 0 to 11, step 1)
A = (-1, -2)
B = (3, -2)
cuadrado1, cuad1, cuad2, cuad3, cuad4, F, G = Polygon(A, B, 4.0)
H = Midpoint(cuad1)
e = Line(A, B)
diagcuad = Segment(H, F)
g = Circle(H, F)
I = Intersect(g, e, 2.0)
h = Circle(A, I)
k = Circle(B, A)
C = Intersect(h, k, 1.0)
diagpenta = Segment(A, C)
p = Circle(C, A)
q = Circle(A, B)
E = Intersect(p, q, 2.0)
r = Circle(E, A)
D = Intersect(h, r, 2.0)
pentagono1, lad1, lad2, lad3, lad4, lad5 = Polygon(A, B, C, D, E)
diagpenta1 = Segment(C, E)
diagpenta5 = Segment(E, B)
diagpenta4 = Segment(B, D)
diagpenta3 = Segment(D, A)
diagpenta2 = Segment(A, C)
pasos: 10.0 - pasos1
ver1 = false
ver2 = false
Q = Intersect(diagpenta1, diagpenta4)
R = Intersect(diagpenta4, diagpenta2)
S = Intersect(diagpenta5, diagpenta2)
T = Intersect(diagpenta5, diagpenta3)
P = Intersect(diagpenta1, diagpenta3)
pentagono2, ladp3, ladp2, ladp1, ladp5, ladp4 = Polygon(S, R, Q, P, T)
ver3 = false
rec1 = 0 (slider from 0 to 1, step 0.01)
Base = (6.98, -3.92)
A1: A + rec1 * (Base - A)
B1 = Rotate(A1 + B - A, (rec1 * 90.0)°, A1)
C1 = Rotate(A1 + C - A, -(rec1) * Angle[B, A, C], A1)
rectaureo1, a1, c2, b, b2 = Polygon(A1, C1, C1 + B1 - A1, B1)
rec2 = 0 (slider from 0 to 1, step 0.01)
rec3 = 0 (slider from 0 to 1, step 0.01)
A11: A + rec2 * (Base - A)
B11 = Rotate(A11 + B - A, (rec2 * 90.0)°, A11)
S1 = Rotate(A11 + S - A, -(rec2) * Angle[B, A, C], A11)
rectaureo2, a11, s1, f, b11 = Polygon(A11, S1, S1 + B11 - A11, B11)
S12: S + rec3 * (Base - S)
A112 = 0
S11 = Rotate(S12 + A - S, -(rec3) * (Angle[B, A, C] + 180.0°), S12)
T1 = Rotate(S12 + T - S, -(rec3) * Angle[C, S, T] / 2.0, S12)
rectaureo3, s12, s11, i, t1 = Polygon(S12, S11, S11 + T1 - S12, T1)
J = (8.68, 1.68)
ver4 = false