10. Arco rampante
Author: José Antonio Mora

1. Arco de medio punto

2. Arco rebajado

3. Arco ojival

4. Arco de herradura

Construcción

Intensidad Imagen

10. Arco rampante

Radio arco pequeño

q = 1 (slider from 0.1 to 3, step 0.1)
a = 6
A_1 = (-3.5781340000000004, -1.9098407999999998)
B_1: A_1 + (a, 0)
b = 6 (slider from 4 to 9, step 0.1)
C: A_1 + (0, b)
k = Line(A_1, C)
D: B_1 + (0, b)
h = Line(B_1, D)
g = Circle(D, q)
F = Intersect(g, h, 2)
l = OrthogonalLine(F, h)
G = Intersect(k, l)
p = Circle(C, G)
f = Segment(C, D)
H = Intersect(p, f, 1)
s = Circle(H, D)
r = OrthogonalLine(H, f)
J = Intersect(s, r, 2)
t = OrthogonalLine(J, r)
L = Intersect(k, t)
c_1 = Circle(J, L)
M, N = Intersect(c_1, r)
a_1 = OrthogonalLine(M, r)
K = Intersect(a_1, k)
zz = -0.6 (slider from -2 to 12, step 0.1)
c = If(zz < 0, 10, zz)
ε = 0.5235987755982988 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
u = 0 (slider from 0 to 10, step 0.1)
e = Segment(D, B_1)
K_1 = Midpoint(C, D)
j = 0 (slider from 0 to 10, step 0.1)
i = 1.8 (slider from 0 to 10, step 0.1)
c1 = true
d = Segment(A_1, C)
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)
u1 = false
c_2 = Circle(K_1, C)
S = (-5.961688800000001, -6.1615872000000005)
o = 10.700000000000001 (slider from -5 to 13, step 0.1)
S1: S + (o, 0)
T = (4.6998874000000015, -7.127893200000001)
T1: T + (0, 16)
n_1 = Line(T, T1)
w = 1 (slider from 0 to 2, step 1)
a_2 = Segment(T1, T)
A' = Mirror(A_1, a_2)
B = Mirror(C, a_2)
d' = Segment(A', B)
A = Mirror(D, a_2)
B' = Mirror(B_1, a_2)
e' = Segment(A, B')
v_1 = Vector(A_1, B')
pic1'_1 = Translate(pic1, v_1)
pic1' = Translate(pic1, v_1)
E = Intersect(g, f, 1)
I = Intersect(l, r)
O = Intersect(a_1, k)
d_1 = CircleArc(H, D, J)
e_1 = CircleArc(M, J, O)
b_1 = Segment(O, C)
f_1 = Segment(O, M)
g_1 = Segment(M, F)
h_1 = Segment(J, D)
distanciaDJ = Distance(D, J)
TextoDJ: "\overline{" + (Name[D]) + (Name[J]) + "} \, = \, " + distanciaDJ
p1 = Min(Distance[D, J], ((c - 2) * Distance[D, J] / 3))
k_1 = Circle(D, p1)
p2 = Min(Distance[K, J], ((c - 5) * Distance[K, J] / 2))
p_1 = Circle(J, p2)
p3 = Min(Distance[C, O], ((c - 7) * Distance[C, O] / 2))
U = Intersect(s, d_1)
V, D_1 = Intersect(k_1, d_1)
W = Intersect(p_1, e_1)
i_1 = Segment(V, H)
r_1 = CircleArc(H, D, V)
j_1 = Segment(W, M)
s_1 = CircleArc(M, J, W)
q_1 = Circle(O, p3)
R, Z = Intersect(q_1, b_1)
l_1 = Segment(O, R)
t_1 = CircleArc(H, D, D_1)
m_1 = Segment(K, Z)
b_2 = Segment(H, D_1)
d_2 = CircleArc(D, F, E)
e_2 = CircleArc(H, D, J)
f_2 = CircleArc(M, J, O)
g_2 = Segment(O, C)
i_2 = Segment(W, R)
j_2 = Segment(W, R)
h_2 = Segment(O, R)
nada = -4.33 (slider from -5 to 5)
v = 1 (slider from 0 to 1, step 1)