GraphicsRow[
MapThread[ParametricPlot[With[{r = 1, atd = #1, frq = #2},
(r + atd Cos[frq t]) {Cos...综上,最终得到的空间多边形曲线的参数式的生成函数如下:
trigCircleC[center_, zN_, xN_, r_, frq_, atd_] := With[{yN = Cross[zN, xN...]},
Function[t, center + (r + atd Cos[frq t]) (Cos[t] xN + Sin[t] yN)]]
上面这个函数有 6 个参数。...center 表示中心位置,zN 是环所在平面的法向量,xN 表示其中其中一个波峰的方向向量,r 是圆的半径,frq 是频率,也即有几个波峰,atd 是振幅,决定了肌肤的大小。..., faceNormals, faceCenters, xNs},
faceVCoords = Map[Part[vertices, #] &, faces, {2}];
frq = Length