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)
C = Rotate(cimpilar1, 90°, zAxis)
MAB = Midpoint(cimpilar1, C)
v: (radioarcos * u)
OO: (0, 0, 0) + v
cimpilar3 = Rotate(cimpilar1, 180°, zAxis)
cimpilar4 = Rotate(cimpilar1, -90°, zAxis)
A: MAB + v
MBC = Midpoint(C, cimpilar3)
B: MBC + v
a_{1}: true
MCD = Midpoint(cimpilar3, cimpilar4)
MCD2: MCD + v
basecup = Circle(A, B, MCD2)
esfera = Sphere(O, cimpilar1)
c = true
A3: cimpilar1 - (alturaprisma * u)
B3: C - (alturaprisma * u)
D3: cimpilar4 - (alturaprisma * u)
C3: cimpilar3 - (alturaprisma * u)
A2: cimpilar1 + (alturaprisma * u)
i = false
d = false
e = false
g = true
f = false
pechina1 = Surface((sqrt((2 * radioarcos^(2)) - β^(2)) * cos(pi / 2 + (α * atan2(radioarcos, sqrt(radioarcos^(2) - β^(2)))) + ((1 - α) * atan2(sqrt(radioarcos^(2) - β^(2)), radioarcos)))), (sqrt((2 * radioarcos^(2)) - β^(2)) * sin(pi / 2 + (α * atan2(radioarcos, sqrt(radioarcos^(2) - β^(2)))) + ((1 - α) * atan2(sqrt(radioarcos^(2) - β^(2)), radioarcos)))), β, β, 0, radioarcos, α, 0, 1)
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(C, cimpilar2)
a = false
b = true
argpech = 4.9 (slider from 1 to radioarcos - 0.1)
PuntoZ: (0, 0, argpech)
j = false
r = Circle(cimpilar1, A, C)
s = Rotate(r, 90°, zAxis)
p_1 = Plane(B, C, cimpilar3)
q_1 = Plane(B, MCD2, A)
r_1 = Plane(A, cimpilar1, C)