Splines, durch kubische [url=https://de.wikipedia.org/wiki/B%E9zierkurve]Bezier-Segmente [/url] stückweise zusammengesetzt. Jedem Stützpunkt füge ich 2 Kontrollpunkte hinzu. Den Verlauf eines Segments steuert der Parameter [b]Tension[/b] (Spannung), er gibt an wie stark abgerundet die Spline-Kurve an den Stützpukten ist. [br][b]Tension[/b] = 0 die Kurve an den Stützstellen ist nicht gerundet, bildet Ecken. Der Spline degradiert zu einem gewöhnlichen Polygonzug. [b]Tension[/b] gibt an, wie weit die Kontrollpunkte auf dieser Linie vom Stützpunkt entfernt sind. Je grösser der Tensionswert, umso weiter entfernt sind die Kontrollpunkte vom Stützpunkt und umso mehr schmiegt sich die Kurve an diesem Stützpunkt an. Ein Wert von 0,5 ergibt eine ausgeglichene Kurve. Ein negativer Wert für Tension bewirkt, dass die Kontrollpunkte auf der Linie vertauscht sind. Dadurch macht die Kurve am Stützpunkt eine Schleife.[br]Der Slider k markiert eine Stützstelle und aktiviert deren Kontrollpunkte.[br][br]Splines, composed piecewise by cubic Bezier segments. The path of the segments is controlled by the Tension parameter, which determines how rounded the spline curve is at the nodes. [br]Tension = 0 the curve at the nodes is not rounded, it forms corners. The spline degrades to an ordinary polygonal curve. Tension indicates how far the control points on this line are from the nodes. The larger the Tension value, the further away the control point are from the nodes and the more the curve hugs this node. A value of 0.5 results in a balanced curve. A negative value for Tension causes the control points on the line to be reversed. This causes the curve to make a loop at the node. Translated with www.DeepL.com/Translator. [br][br]Basiert auf [url=http://walter.bislins.ch/blog/index.asp]Walter Bislin's Blog-De[/url][math]\nearrow[/math][br]Alles über Bezierkurven (pomax): [url=https://pomax.github.io/bezierinfo/]A Primer on Bezier Curves[/url][math]\nearrow[/math][br]

Bernsteinpolynom-user-function[br][br][math]B_{poly}(nn) \, := \, \left\{ Sequence \left(nCr \left(nn,i \right) \; t^{i} \; \left(1 - t \right)^{nn - i},i,0,nn \right) \right\} [/math][br][br][math]B_{poly}(3)=\left(\begin{array}{rrrr}\left(-t + 1 \right)^{3}&3 \; t \; \left(-t + 1 \right)^{2}&3 \; t^{2} \; \left(-t + 1 \right)&t^{3}\\\end{array}\right)[/math][br][br][url=https://www.geogebra.org/m/urfejea4]Quartic curve (a fourth degree Bézier curve)[/url][math]\nwarrow[/math][br]B_x(t):=Sum(B_{poly}(4)* ({A, B, C, D, E} (1,0)))[br]B_y(t):=Sum(B_{poly}(4)* ({A, B, C, D, E} (0,1))) [br][br]Command-Version[br][size=85]TFig=0.5 (Tension)[/size][br]Input-Point-List [br][size=85]Fig={(-6, 4), (-9, 3), (-8, 6), (-1, 6), (6, 6), (6, 4), (2, 4), (2, -7), (4, -7), (0, -10), (-0.5, 4), (-4, 4), (-4, -8), (-6, -10)}[/size][br]Point list Closed-Spline[br][size=85]XY=Flatten({Fig(Length(Fig)), Fig, Fig(1), Fig(1)})[/size][br]Control-Points[br][size=85]C_a=Sequence(XY(j+1) - (XY(j+2) - XY(j)) TFig sqrt((XY(j) - XY(j+1))²) / (sqrt((XY(j) - XY(j+1))²) + sqrt((XY(j+2) - XY(j+1))²)), j, 2, Length(XY)-2)[br][/size][size=85]C_b=Sequence(XY(j+1) + (XY(j+2) - XY(j)) TFig sqrt((XY(j+2) - XY(j+1))²) / (sqrt((XY(j) - XY(j+1))²) + sqrt((XY(j+2) - XY(j+1))²)), j, 1, Length(XY)-2)[br][/size]Bezier-Spline-List[br][size=85]BezierSplineCurve=Sequence(Curve((1-t)³ XY(j) + 3t (1-t)² C_b(j-1) + 3t² (1-t) C_a(j-1) + t³ XY(j+1), t, 0, 1), j, 2, Length(XY) - 2)[br][/size][br]Manipulate control points [br]Static copy of C_a->CA, C_b->CB, Exchange BezierSplineCurve C_a->CA, C_b->CB)[br](Update-Script Fig: [size=85]Execute({"CA="+C_a,"CB="+C_b})[/size])[br]Slider k ([size=85]Update-Script Execute({"Ca="+CA(If(k == 1, Length(C_a), k - 1)),"Cb="+CB(k),"D0="+XY(k+1)})[/size])[br]Ca ([size=85]Update-Script: SetValue(CA,Mod(k - 2, Length(CA)) + 1,Ca)[/size])[br]Cb ([size=85]Update-Script: SetValue(CB,k,Cb)[/size])[br][br][color=#ff0000]Bug:[/color] Es kommt immer wieder vor, daß die Bezier-Spline-List-Variable bei Änderungen/Anpassungen verschwindet - kein Undo, Neustart[br][br]--- [br]Flächen-Fill, Flächenmaß [br]cubicSpline -> xyAreaSpline -> poly2 (Polygon)[br]