Round[100/(Range[-80/3, 80, 80/6]*Degree // Cos // N)]

?Degree

E

Rasterize[
ParametricPlot3D[{
Sech[u]Cos[v],
Sech[u]Sin[v],
u-Tanh[u]
},{u,0,E}, {v, 0, 2π}]
]

Rasterize[
ParametricPlot3D[{
Sin[u]Cos[v],
Sin[u]Sin[v],
Cos[u]
},{u,0, π}, {v, 0, 2π}]
]

DSolve[{θ'[t]==Sin[θ[t]], θ[0]==π/2}, θ, t]