WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

Bスプライン曲線に高機能の結び目のコントロールを使う

Bスプライン曲線は，結び目設定のすべての可能な組合せをサポートする．

Wolfram Language code: SeedRandom[111];pts = {{0, 0}, {1, 1}, {2, -1}, {3, 0}, {4, -2}, {5, 1}}; GraphicsGrid[Partition[Table[With[{knots = Sort[RandomInteger[10, 10]]}, Graphics[{Green, Line[pts], Red, Point[pts], Thick, Orange, BSplineCurve[pts, SplineKnots -> knots]}, PlotRange -> {{0, 5}, {-2, 2}}, PlotRangePadding -> Scaled[.04], PlotLabel -> Style[knots, 9]]], {9}], 3], Frame -> All, ImageSize -> {500, 500}]