WOLFRAM

Wolfram 语言与系统参考资料中心
自动选择复合贝塞尔曲线的次数

自动选择复合贝塞尔曲线的次数

自动次数控制同样适用于二维和三维复合贝塞尔曲线.

    
Wolfram Language code: pts1 = Tuples[{Range[4], Range[4]}]; pts2 = Tuples[{Range[3], Range[3], Range[3]}]; Grid[{ {Graphics[{Green, Line[pts1], Red, Point[pts1], Blue, BezierCurve[pts1, SplineDegree -> 5]}], Graphics3D[{BezierCurve[pts2, SplineDegree -> 4], Green, Opacity[.5], Line[pts2], Red, Point[pts2]}]}, {Graphics[BezierCurve[Table[{Cos[2k Pi / 13], Sin[2 k Pi / 13]}, {k, 0, 156, 4}]]], Graphics3D[BezierCurve[Table[{Cos[2k Pi / 13], Sin[2 k Pi / 13], k / 156}, {k, 0, 156, 4}]]]}}]