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

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

#http://www.mathcurve.com/courbes3d/cycloidspheric/cycloidspheric.shtml
vertices =
t = from  to (*PI)
a =
q = rand2(0.5, )
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*( - cos(q*t))