数学图形(2.12)spherical cycloid球面外摆曲线

查了半天也没搜到其具体的定义,先把脚本代码和截图发下.

#http://www.mathcurve.com/courbes3d/cycloidspheric/cycloidspheric.shtml
vertices = 12000
t = from 0 to (80*PI)
a = 10
q = rand2(0.5, 10)
w = rand2(PI*0.1, PI*0.9)
s = sin(w)
c = cos(w)
 
x = a*[(q - c)*cos(t) + c*cos(t)*cos(q*t) + sin(t)*sin(q*t)]
z = a*[(q - c)*sin(t) + c*sin(t)*cos(q*t) - cos(t)*sin(q*t)]
y = a*s*(1 - cos(q*t))