数学图形(2.22) 帖在圆锥面上的曲线

与上一篇文章相似,这次写帖在圆锥面上的曲线.

Conical Rose

#http://www.mathcurve.com/courbes3d/rosaceconique/rosaceconique.shtml
vertices = 12000
t = from 0 to (80*PI)

a = 10
n = rand2(0.2, 10)
w = cos(t*n)

x = a*w*cos(t) 
z = a*w*sin(t)
y = a*w

Cyclic-harmonic_cone

vertices = 12000

t = from 0 to (40*PI)
a = 10
e = 1
n = rand2(0.1, 10);

p = a*(1 + e*cos(n*t))

x = p*cos(t)
z = p*sin(t)

k = rand2(0.0, 4.0)
y = -k*p

y = y - array_min(y)

folioide_cone

vertices = 12000
t = from (-20*PI) to (20*PI)
e = rand2(0.1, 10)
a = 10 / e
i = rand_int2(2, 10)
j = rand_int2(1, 10)
n = i/j
p = a*(e*cos(n*t) + sign(t)*e*sqrt(1 - pow(cos(n*t), 2)))
x = p*cos(t)
z = p*sin(t)
k = rand2(0.0, 4.0)
y = -k*abs(p)
y = y - array_min(y)