Acerca

Aleja

Esfera

Casquete esférico

Zona esférica

Cuña esférica

Huso esférico

Radio

Circunferencia máxima

Diámetro

Eje de giro

Área

Volumen

Partes de la esfera

r = 4 (slider from 0.5 to 5, step 0.1)
B: (0, r, 0)
d = Circle(zAxis, B)
h = 1.13 (slider from 0 to π, step 0.01)
r': (1.01 * r)
esf: x^(2) + y^(2) + z^(2) = r^(2)
i = true
i1: false
O = (0, 0, 0)
P: (0, 0, r)
P' = Mirror(P, O)
g = Segment(P, P')
h' = 0.8 (slider from 0 to h, step 0.1)
i2: false
α = 2.2689280275926285 rad (slider from 0 to 6.283185307179586, step °)
i3: false
D: (0, (1.01 * r), 0)
h1 = CircumcircleSector(P, D, P')
D' = Rotate(D, (-α), zAxis)
h2 = CircumcircleSector(P, D', P')
i4: false
j1 = true
j2 = true
j3 = false
j = Segment((0, 0, (1.5 * r)), (0, 0, (-1.5 * r)))
j4 = true
E: (0, 0, (r' * cos(h)))
p = Circle(E, (r' * sin(h)), zAxis)
e = Surface((r' * ((sin(t) * sin(s)), (sin(t) * cos(s)), cos(t))), t, 0, h, s, 0, (2 * π))
a = Surface((r' * ((sin(t) * sin(s)), (sin(t) * cos(s)), cos(t))), t, h', h, s, 0, (2 * π))
F: ((r' * sin(h)), 0, 0)
volesf: ((4 / 3 * π) * r^(3))
texto1: "V_e=\frac{4·π·r^3}{3}≈\frac{4·3.14·" + (LaTeX[r]) + "^3}{3}≈" + (LaTeX[volesf]) + "\:cm^3"
aesf: ((4 * π) * r^(2))
texto2: "A_e=4·π·r^2≈4·3.14·" + (LaTeX[r]) + "^2≈" + (LaTeX[aesf]) + "\:cm^2"
β = 0 rad (slider from 0 to 6.283185307179586, step °)
h1' = Rotate(h1, (-β), zAxis)
b = Surface((r' * ((sin(t) * sin(s)), (sin(t) * cos(s)), cos(t))), t, 0, π, s, β, α + β)
h2' = Rotate(h2, (-β), zAxis)
E': (0, 0, (r' * cos(h')))
c = Circle(E', (r' * sin(h')), zAxis)
j5 = false
j6 = false
k = false
A = Point(d)
f = Segment(O, A)
C = Point(d)
C' = Mirror(C, O)
l = Segment(C, C')
texto3: "r = " + r + " cm"