animar

Esfera

Cúpula

Prisma

Arcos

Base cúpula

Plano

Pechinas

Crucero

Centro

swarcopechina

u: (0, 0, 1)
radioarcos = 5 (slider from 0 to 5)
alturaprisma: (sqrt(2) * radioarcos)
cimpilar1: (radioarcos, radioarcos, 0)
O: (0, 0, 0)
baspilar2 = Rotate(cimpilar1, 90°, zAxis)
MAB = Midpoint(cimpilar1, baspilar2)
v: (radioarcos * u)
OO: (0, 0, 0) + v
cimpilar3 = Rotate(cimpilar1, 180°, zAxis)
cimpilar4 = Rotate(cimpilar1, -90°, zAxis)
MAB2: MAB + v
MBC = Midpoint(baspilar2, cimpilar3)
MBC2: MBC + v
a_{1}: true
MCD = Midpoint(cimpilar3, cimpilar4)
MCD2: MCD + v
esfera = Sphere(O, cimpilar1)
c = true
A3: cimpilar1 - (alturaprisma * u)
B3: baspilar2 - (alturaprisma * u)
D3: cimpilar4 - (alturaprisma * u)
C3: cimpilar3 - (alturaprisma * u)
A2: cimpilar1 + (alturaprisma * u)
i = false
d = false
e = false
g = true
f = false
h = true
baspilar1: cimpilar1 - (radioarcos * u)
cimpilar2 = Rotate(baspilar1, 90°, zAxis)
baspilar3 = Rotate(baspilar1, 180°, zAxis)
baspilar4 = Rotate(baspilar1, -90°, zAxis)
pilar4 = Segment(cimpilar4, baspilar4)
pilar1 = Segment(cimpilar1, baspilar1)
pilar3 = Segment(cimpilar3, baspilar3)
pilar2 = Segment(baspilar2, cimpilar2)
a = false
b = true
argpech = 4.9 (slider from 1 to radioarcos - 0.1)
PuntoZ: (0, 0, argpech)
j = false
A: MAB + v
B: MBC + v
r = Plane(O, B, A)
C = Rotate(cimpilar1, 90°, zAxis)
p_1 = Plane(C, O, A)
q_1 = Plane(O, C, B)
triángulo = Surface((((1.02 * sqrt(2)) * radioarcos); arg(((s * t) * A) + (((1 - s) * t) * B) + ((1 - t) * C)); alt(((s * t) * A) + (((1 - s) * t) * B) + ((1 - t) * C))), s, 0, 1, t, 0, 1)
s = IntersectPath(p_1, esfera)
t = IntersectPath(q_1, esfera)
d_1 = IntersectPath(r, esfera)