Arco de herradura
Author: José Antonio Mora

Fue muy utilizado en el arte visigodo y en el hispano musulmán. Está compuesto por dos pequeños arcos de circunferencia a los lados y un gran arco central en la parte superior. Lo encontramos en la iglesia de San Pedro de Balsemao en Lamego, Portugal.
Desplaza el deslizador Construcción de izquierda a derecha para que aparezca una guía visual de la construcción geométrica de este arco.

Reproduce en la fotografía derecha el arco. Sigue las instrucciones y utiliza las herramietnas de la parte superior de la pantalla.
Para practicar con otros tipos de arco, ver http://jmora7.com/Arcos/index.htm

1. Arco de medio punto

2. Arco rebajado

3. Arco ojival

4. Arco de herradura

Construcción

Construcción

4. Arco de herradura

Ver imagen

Intensidad imagen

Ángulo primer arco

zz = -0.8 (slider from -2 to 10, step 0.1)
u = If(zz ≤ 0, 10, zz)
ε = 0.45378560551852565 rad (slider from 0.17453292519943295 to 1.0471975511965976, step 0.017453292519943295)
a = 8 (slider from 1 to 10, step 0.1)
b = 6 (slider from 1 to 15, step 0.1)
A = (-3.5459238, -5.678434200000001)
B: A + (a, 0)
D: B + (0, b)
e = Segment(D, B)
C: A + (0, b)
K = Midpoint(C, D)
C'_2 = Rotate(C, Max[(-ε), ((-(u - 2)) * ε)], K)
f_1 = Circle(K, C)
F = Midpoint(C, D)
k = Line(F, e)
L = Intersect(f_1, k, 1)
g_1 = Circle(L, C'_2)
O = Center(g_1)
M = Intersect(f_1, g_1, 1)
M'_1 = Mirror(M, k)
j = 0 (slider from 0 to 10, step 0.1)
i = 1.8 (slider from 0 to 10, step 0.1)
c1 = false
c = 0 (slider from 0 to 10, step 0.1)
E = Midpoint(C, D)
d = Segment(A, C)
f = Segment(E, C)
C' = Rotate(C, Max[((-(c - 3)) * 180 / (5°)), 180°], E)
C'' = Rotate(C, 359.91000000000014°, E)
g = CircumcircleArc(C, C'', C')
h = Segment(C', E)
i1 = false
m1 = false
m = 1.1 (slider from 0 to 5, step 0.1)
n = 0 (slider from 0 to 10, step 0.1)
r = Segment(C, F)
D'_1 = Mirror(D, k)
u1 = true
N = Intersect(f_1, g_1, 2)
P = Intersect(g_1, k, 2)
δ = Angle(M, O, M'_1)
h_1 = Segment(K, C)
i_1 = Segment(K, C'_2)
k_1 = CircleArc(K, C'_2, C)
Q = Mirror(C'_2, k)
l_1 = Segment(K, Q)
q_1 = CircleArc(K, D, Q)
t_1 = CircumcircleArc(Q, O, M)
R = Rotate(M, Min[δ / 2, ((u - 4) * δ / 8)], L)
C'_3 = Rotate(C, (-ε), K)
p_1 = Circle(L, C'_3)
r_1 = CircleArc(L, M, R)
j_1 = Segment(L, R)
L' = Mirror(L, k)
R' = Mirror(R, k)
m_1 = Segment(L', R')
L'_1 = Mirror(L, k)
M' = Mirror(M, k)
R'_1 = Mirror(R, k)
s_1 = Arc(Mirror[Circle[L, M], k], M', R'_1)
c_2 = Circle(K, C)
S = (-5.542956200000001, -7.449995200000001)
o = 11.9 (slider from 0 to 15, step 0.1)
S1: S + (o, 0)
v_1 = true
w = 1 (slider from 0 to 2, step 1)
T = (7, -7)
T1: T + (0, 15)
n_1 = Segment(T, T1)
D'_2 = Mirror(D, n_1)
B' = Mirror(B, n_1)
e' = Segment(D'_2, B')
A' = Mirror(A, n_1)
C'_4 = Mirror(C, n_1)
d' = Segment(A', C'_4)
z = Vector(A, B')
pic1' = Translate(pic1, z)
pic1'_1 = Translate(pic1, z)
nada = 1 (slider from -5 to 5)
v = 1 (slider from 0 to 1, step 1)