animar

Esfera

Cúpula

Prisma

Arcos

Base cúpula

Plano

Pechinas

Crucero

Centro

Borrar todo

Borrar auxliares

Crea pechina

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
arco1 = CircumcircleArc(baspilar2, MAB2, cimpilar1)
MBC = Midpoint(baspilar2, cimpilar3)
MBC2: MBC + v
a_{1}: true
MCD = Midpoint(cimpilar3, cimpilar4)
MCD2: MCD + v
basecup = Circle(MAB2, MBC2, MCD2)
cúpula(x, y) = (radioarcos^(2) - x^(2) - y^(2))^(1 / 2) + radioarcos
esfera = Sphere(O, cimpilar1)
c = false
A3: cimpilar1 - (alturaprisma * u)
B3: baspilar2 - (alturaprisma * u)
D3: cimpilar4 - (alturaprisma * u)
C3: cimpilar3 - (alturaprisma * u)
baseprisma, a3, b3, c3, d3 = Polygon(A3, B3, C3, D3)
A2: cimpilar1 + (alturaprisma * u)
prisma, L, M, N, caraA2A3B3L, caraB3C3ML, caraC3D3NM, caraA2A3D3N, caraA2LMN, aristaA2A3, aristaB3L, aristaC3M, aristaD3N, aristaA2L, aristaLM, aristaMN, aristaA2N = Prism(baseprisma, A2)
i = false
d = false
e = false
planobasecúpula = OrthogonalPlane(MAB2, zAxis)
g = false
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 = false
baspilar1: cimpilar1 - (radioarcos * u)
arco2 = Rotate(arco1, 90°, zAxis)
arco3 = Rotate(arco1, 180°, zAxis)
arco4 = Rotate(arco1, -90°, zAxis)
pechina2 = Rotate(pechina1, -90°, zAxis)
pechina3 = Rotate(pechina1, 90°, zAxis)
pechina4 = Rotate(pechina1, 180°, zAxis)
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)
k = Line(baspilar4, baspilar1)
l = Line(baspilar3, cimpilar2)
p = Line(baspilar4, baspilar3)
q = Line(baspilar1, cimpilar2)
a = false
b = false
argpech = 4.9 (slider from 1 to radioarcos - 0.1)
planopech = OrthogonalPlane((0, 0, argpech), u)
Aarcopech, B = Intersect(planopech, arco1)
C, Earcopech = Intersect(planopech, arco2)
PuntoZ: (0, 0, argpech)
arcopechina = CircleArc(PuntoZ, Aarcopech, Earcopech)
j = false