θ： xy 平面旋轉
α：z軸旋轉
r：三軸範圍
n：圖形格數

懸鍊面(Catenoid) : 
(cosh(t) cos(s),  cosh(t) sin(s), t)
 0≤t≤a, 0≤s≤b 

O = (0, 0)
θ = 4.014257279586958 rad (slider from 0 to 6.283185307179586, step 0.5*°)
α = 0.15707963267948966 rad (slider from 0*° to 180*°, step 0.5*°)
r = 4.43 (slider from 0 to 15, step 0.01)
U_x: (r * (cos(θ), (sin(θ) * sin(α))))
U_y: (r * ((-sin(θ)), (cos(θ) * sin(α))))
U_z: (r * (0, cos(α)))
u = Vector(O, U_z)
v = Vector(O, U_y)
w = Vector(O, U_x)
i: U_x / r
j: U_y / r
k: U_z / r
n = 39.8 (slider from 10 to 50, step 0.1)
a = 2.0522967083752417 (slider from 0 to 9.42477796076938, step π / n)
b = 6.283185307179586 (slider from 0 to 6.283185307179586, step π / n)
list1 = Sequence(CurveCartesian[x(O + ((cosh(t) * cos(s)) * i) + ((cosh(t) * sin(s)) * j) + (t * k)), y(O + ((cosh(t) * cos(s)) * i) + ((cosh(t) * sin(s)) * j) + (t * k)), s, 0, b], t, (-a), a, π / n)
list2 = Sequence(CurveCartesian[x(O + ((cosh(t) * cos(s)) * i) + ((cosh(t) * sin(s)) * j) + (t * k)), y(O + ((cosh(t) * cos(s)) * i) + ((cosh(t) * sin(s)) * j) + (t * k)), t, (-a), a], s, 0, b, π / n)