Área \; cilindro =2 π R\;· \;h \\
Área \; cilindro = \; Generatriz \;· \; Recorrido= h \;· \;2 π R

Área \; cono =π Rg \\
Área \; cono = \; Generatriz \;· \; Recorrido= g \;· \;π R 

Área \; esfera = 4π R^{2} \\
Área \; esfera = \; Generatriz \;· \; Recorrido= π R \;·2 π (\frac{2R}{π})

Área

Volumen

Volumen \; cilindro =π R^2\;· h \\ 

Volumen \; cilindro = \; Rectángulo \;· \; Recorrido= Rh \;· 2 π (\frac{R}{2})

Volumen \; cono =π R^2\;· \frac{h}{3} \\ 

Volumen \; cono = \; Triángulo \;· \; Recorrido= Rh/2 \;· 2 π (\frac{R}{3})

Volumen \; esfera = \frac{4}{3}π R^3\\ 

Volumen \; esfera = \; Semicírculo \;· \; Recorrido= \frac{πR^2}{2} \;· 2 π (\frac{4R}{3π})

Área \; toro= 4π^2 Rr \\
Área \; toro = \; Generatriz \;· \; Recorrido= 2π r \;·2 πR

Volumen \; toro = 2π^2 Rr^2\\ 

Volumen \; toro = \; Círculo \;· \; Recorrido= πr^2 \;· 2 πR

R3: 4
C3: ((4 * R3 / ((3 * π))), R3)
h2: 8
R2: 6
c2pol: {Polygon[(0, 0), (R2, 0), (0, h2)]}
C2 = Centroid(c2pol(1))
h1: 6
R1: 4
c1pol: {Polygon[(0, 0), (R1, 0), (R1, h1), (0, h1)]}
C1 = Centroid(c1pol(1))
superficies: {"Cilindro", "Cono", "Esfera", "Toro"}
n = SelectedIndex(superficies)
R4: 4
B4: (R4, 4)
C4: B4
B1: (R1, h1 / 2)
B2: (R2 / 2, h2 / 2)
B3: ((2 * R3 / π), R3)
c2 = CurveCartesian((R2, 0) + (t * ((-R2), h2)), t, 0, 1)
c1 = CurveCartesian((R1, 0) + (t * (0, h1)), t, 0, 1)
c3a = CurveCartesian((0, R3) + (R3 * (cos(t), sin(t))), t, ((-π)) / 2, π / 2)
Area1: (((2 * π) * R1) * h1)
verÁrea = true
verVolumen = false
C = If(n ≟ 1, C1, n ≟ 2, C2, n ≟ 3, C3, C4)
B = If(n ≟ 1, B1, n ≟ 2, B2, n ≟ 3, B3, B4)
Br = Circle((0, y(B)), x(B), yAxis)
Cr = Circle((0, y(C)), x(C), yAxis)
dV = Segment(C, (0, y(C)))
MdV = Midpoint(dV)
dA = Segment(B, (0, y(B)))
MdA = Midpoint(dA)
eje: yAxis
t = 0.75 (slider from 0 to 1, step 0.01)
s1 = Surface(c1, ((2 * π) * t), yAxis)
s2 = Surface(c2, ((2 * π) * t), yAxis)
s3 = Surface(c3a, ((2 * π) * t), yAxis)
B' = Rotate(B, ((2 * π) * t), yAxis)
arcoBr = Arc(Br, 0, ((2 * π) * t))
dA' = Segment(B', (0, y(B)))
C' = Rotate(C, ((2 * π) * t), yAxis)
dV' = Segment(C', (0, y(C)))
arcoCr = Arc(Cr, 0, ((2 * π) * t))
c1pol' = Rotate(c1pol, ((2 * π) * t), yAxis)
c2pol' = Rotate(c2pol, ((2 * π) * t), yAxis)
c3 = Circle((0, R3), R3)
arcoc3 = Arc(c3, ((-π)) / 2, π / 2)
arcoc3' = Rotate(arcoc3, ((2 * π) * t), yAxis)
r4: 2
c4 = Circle((R4, 4), r4)
s4 = Surface(c4, ((2 * π) * t), yAxis)
tdA = If(n ≟ 1, "R", n ≟ 2, "R/2", n ≟ 3, "2R/π", "R")
c4' = Rotate(c4, ((2 * π) * t), yAxis)
tdV = If(n ≟ 1, "R/2", n ≟ 2, "R/3", n ≟ 3, "4/3 R/π", "R")