Luz

Auxiliares

Jambas y alfiz

Arco de herradura islámico

ANG

all

Ancho

radio

Radios paralelos

vector

A2: 0°
A3: A2 + (180°) / 17
A4: A3 + (180°) / 17
A5: A4 + (180°) / 17
A6: A5 + (180°) / 17
A7: A6 + (180°) / 17
A8: A7 + (180°) / 17
A9: A8 + (180°) / 17
A10: A9 + (180°) / 17
B10: (1, 0, tan(A10))
O: (0, 0, 0)
C10 = Vector(O, B10)
vy: (0, 1, 0)
denfac2 = 5 (slider from 1 to 5, step 0.1)
fac2: 1 / denfac2
ancho = 1.995806514494018 (slider from (fancho1 * radio) to 2, step 0.01)
denfac = 2 (slider from 1.3 to 5, step 0.1)
fac: 1 / denfac
luz = 3.4 (slider from 0.1 to 5, step 0.1)
radio: luz / sqrt(1 - fac^(2))
A: (0, 0, ((-fac) * radio))
D10 = Line(A, C10)
AA: (0, 0, (fac2 * radio))
radio2: radio + ancho
c2 = Circle(AA, radio2, vy)
B9: (1, 0, tan(A9))
C9 = Vector(O, B9)
D9 = Line(A, C9)
B8: (1, 0, tan(A8))
C8 = Vector(O, B8)
D8 = Line(A, C8)
B7: (1, 0, tan(A7))
C7 = Vector(O, B7)
D7 = Line(A, C7)
B6: (1, 0, tan(A6))
C6 = Vector(O, B6)
D6 = Line(A, C6)
B5: (1, 0, tan(A5))
C5 = Vector(O, B5)
D5 = Line(A, C5)
B4: (1, 0, tan(A4))
C4 = Vector(O, B4)
D4 = Line(A, C4)
α = 1.7627825445142729 rad (slider from 0° to 180°, step 1°)
vr: (x(A) + cos(α), 0, z(A) + sin(α) + (fac * radio))
i = Line(A, vr)
H, I = Intersect(i, c2)
c1 = Circle(O, radio, vy)
D, E = Intersect(i, c1)
vx: (1, 0, 0)
r2 = Line(A, xAxis)
vz: (0, 0, 1)
β = If(α < 0°, 0°, If[α > 180°, 180°, α])
pizca: 0.001°
u: (0, 0, (-2 * radio))
a = true
b = false
l = Segment(A, O)
h = Segment(O, D)
d_{2} = If(α > 179°, true, false)
g = Segment(O, AA)
j = Segment(AA, O)
f = Segment(AA, H)
B, C = Intersect(r2, c1)
F, G = Intersect(r2, c2)
vr2: (x(A) + cos(α / 2), 0, z(A) + sin(α / 2) + (fac * radio))
i2 = Line(A, vr2)
J, K = Intersect(i2, c2)
L, M = Intersect(i2, c1)
c = CircumcircleArc(B, L, D)
e = CircumcircleArc(F, J, H)
k = Segment(A, H)
m = Segment(G, F)
fancho1: -1 + sqrt(1 + fac2^(2) + ((2 * fac) * fac2))
fancho2: fac2 / fac
n = Line(O, m)
N, P = Intersect(n, c1)
Q, R = Intersect(n, c2)
p = Line(P, l)
q = Line(N, l)
S = Intersect(p, m)
SS: S - ((0.4 * radio) * vz)
GG: G - ((0.4 * radio) * vz)
GGG: GG - ((2 * radio) * vz)
SSS: SS - ((2 * radio) * vz)
polígono1, d_1, h_1, ggg, sss, ss = Polygon(D, H, GGG, SSS, SS)
polígono1' = Mirror(polígono1, zAxis)
r = OrthogonalPlane(SSS, zAxis)
s = Line(AA, m)
T, U = Intersect(s, e)
t = Line(U, l)
f_1 = Line(T, l)
V = Intersect(i, t)
W = Intersect(i, f_1)
g_1 = Line(J, m)
i_1 = Line(U, l)
j_1 = Line(T, l)
Z = Intersect(g_1, i_1)
A_1 = Intersect(j_1, g_1)
m_1 = Segment(G, V)
n_1 = Segment(V, Z)
p_1 = Segment(A_1, Z)
q_1 = Segment(A_1, W)
r_1 = Segment(W, I)
texto3: "Centro\ exterior = \frac{1}{" + (LaTeX[denfac2]) + " }"
texto1: "Línea\ de\ impostas = \frac{1}{" + (LaTeX[denfac]) + ""
d = If(α > 179°, true, false)
B3: (1, 0, tan(A3))
C3 = Vector(O, B3)
D3 = Line(A, C3)
E3 = Intersect(D3, c1, 1)
F3 = Intersect(D3, c2, 1)
G3 = Segment(E3, F3)
E4 = Intersect(D4, c1, 1)
F4 = Intersect(D4, c2, 1)
G4 = Segment(E4, F4)
E5 = Intersect(D5, c1, 1)
F5 = Intersect(D5, c2, 1)
G5 = Segment(E5, F5)
E6 = Intersect(D6, c1, 1)
F6 = Intersect(D6, c2, 1)
G6 = Segment(E6, F6)
E7 = Intersect(D7, c1, 1)
F7 = Intersect(D7, c2, 1)
G7 = Segment(E7, F7)
E8 = Intersect(D8, c1, 1)
F8 = Intersect(D8, c2, 1)
G8 = Segment(E8, F8)
E9 = Intersect(D9, c1, 1)
F9 = Intersect(D9, c2, 1)
G9 = Segment(E9, F9)
E10 = Intersect(D10, c1, 1)
F10 = Intersect(D10, c2, 1)
G10 = Segment(E10, F10)
I3 = Mirror(E3, zAxis)
J3 = Mirror(F3, zAxis)
H3 = Segment(I3, J3)
I4 = Mirror(E4, zAxis)
J4 = Mirror(F4, zAxis)
H4 = Segment(I4, J4)
I5 = Mirror(E5, zAxis)
J5 = Mirror(F5, zAxis)
H5 = Segment(I5, J5)
I6 = Mirror(E6, zAxis)
J6 = Mirror(F6, zAxis)
H6 = Segment(I6, J6)
I7 = Mirror(E7, zAxis)
J7 = Mirror(F7, zAxis)
H7 = Segment(I7, J7)
I8 = Mirror(E8, zAxis)
J8 = Mirror(F8, zAxis)
H8 = Segment(I8, J8)
I9 = Mirror(E9, zAxis)
J9 = Mirror(F9, zAxis)
H9 = Segment(I9, J9)
I10 = Mirror(E10, zAxis)
J10 = Mirror(F10, zAxis)
H10 = Segment(I10, J10)
B_1, C_1 = Intersect(n, c)
k_1 = Line(B_1, l)