Hiperboloide de una hoja
generado por la propia 
parametrización de la 
circunferencia superior (d)

r: 2
h: 3
α = 0 rad (slider from 0 to 180°, step 1°)
c = CurveCartesian((r * cos(t)), (r * sin(t)), (-h), t, 0, (2 * π))
d = CurveCartesian((r * cos(t + α)), (r * sin(t + α)), h, t, 0, (2 * π))
b = Surface(c(t) + ((d(t) - c(t)) * k), t, 0, (2 * π), k, 0, 1)
B: b(0, 1)