Polar Rose
Author: 藍邦偉  老師

玫瑰線

u = Vector((x(Corner[1.0]), 0.0), (x(Corner[3.0]), 0.0))
v = Vector((0.0, y(Corner[1.0])), (0.0, y(Corner[3.0])))
f(x) = 2.0 * sin(x) + cos(2.0 * x) + 2.0
r = 2.4 (slider from -5 to 5, step 0.1)
n = -5 (slider from -5 to 5, step 0.1)
a = CurveCartesian(r * sin(n * t) * cos(t), r * sin(n * t) * sin(t), t, 0.0, 6.28319)