Arco ojival
Author: José Antonio Mora

Está compuesto por dos arcos de circunferencia simétricos. Se ha utilizado una fotografía de la iglesia de San Pantaleón en Cuenca.

Desplaza el botón 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 siguiendo las instrucciones y las herramietnas de la parte superior de la pantalla

1. Arco de medio punto

2. Arco rebajado

3. Arco ojival

4. Arco de herradura

Construcción

Altura

Radio de los arcos

3. Arco ojival

Ver imagen

Intensidad imagen

zz = -1.96 (slider from -2 to 10, step 0.01)
ε = 0.5235987755982988 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
u = 0 (slider from 0 to 10, step 0.1)
a = 8 (slider from 1 to 10, step 0.1)
b = 6 (slider from 1 to 15, step 0.1)
A = (-3.6747646000000005, -4.8731792)
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)) * ε) * 180 / 3.14 / (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)
p = Circle(F, i)
G = Intersect(p, k, 2)
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
l = Segment(G, C)
m1 = true
n = If(zz < 0, 10, zz)
m = 1.6 (slider from 0 to 4, step 0.1)
r = Segment(C, F)
s = Circle(C, m)
H = Intersect(s, r, 1)
t = Circle(H, D)
I, J = Intersect(t, k)
β = Angle(D, H, I)
a_1 = Segment(H, D)
D' = Rotate(D, Min[β, ((n - 3) * β / 2)], H)
b_1 = Segment(H, D')
c_1 = CircleArc(H, D, D')
H' = Mirror(H, k)
D'' = Mirror(D', k)
d_1 = Segment(H', D'')
H'_1 = Mirror(H, k)
D'_1 = Mirror(D, k)
D''_1 = Mirror(D', k)
e_1 = Arc(Mirror[Circle[H, D], k], D'_1, D''_1)
u1 = false
N = Intersect(f_1, g_1, 2)
P = Intersect(g_1, k, 2)
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)
C'_3 = Rotate(C, (-ε), K)
p_1 = Circle(L, C'_3)
L' = Mirror(L, k)
L'_1 = Mirror(L, k)
M' = Mirror(M, k)
c_2 = Circle(K, C)
S = (-5.285274600000001, -5.871695400000001)
o = 10.8 (slider from 0 to 15, step 0.1)
S1: S + (o, 0)
v = true
T = (7, -6)
T1: T + (0, 15)
w = 1 (slider from 0 to 2, step 1)
n_1 = Segment(T1, T)
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)
v1 = 1 (slider from 0 to 1)
nada = -3.1 (slider from -5 to 5)