Level Curves
Author: Joseph Lo

$ f(x,y) = \dfrac{1}{\sqrt{1-x^2-y^2}} $

z0 = 0 (slider from 0 to 4, step 0.05)
R(x) = sqrt(1 - 1 / x^(2))
Surface1 = Surface((R(s) * cos(t)), (R(s) * sin(t)), s, s, 1, 5, t, -3.14159, 3.141592653589793)
LevelCurves1 = Sequence(Circle[(0, 0, 0), (R(i / 5 + 1), 0, 0), xOyPlane], i, 0, 20)
LevelCurves2 = Sequence(Circle[(0, 0, 0), (R(i + 1), 0, 0), xOyPlane], i, 5, 20)
lCurvexy = Circle((0, 0, 0), (R(z0), 0, 0), xOyPlane)
lCurve = Circle((0, 0, z0), (R(z0), 0, z0), xOyPlane)
zPlane = Surface(s, t, z0, s, -1.5, 1.5, t, -1.5, 1.5)
LevelCurve = Circle((0, 0, 0), R(z0), xOyPlane)
Cylinder = Surface((R(z0) * cos(t)), (R(z0) * sin(t)), s, s, 0, z0, t, -3.141592653589793, 3.141592653589793)
Point = (0, 0)
text1: "





Level Curve at z = " + z0 + " 
 "
P: (0, 0, z0)