Chaikin'i algoritm kõverate joonestamiseks.

Seda on keeruline seletada aga ma olen lisanud lingi algoritmi kirjeldusele.

“n” on algoritmi aste, mitu korda algoritmi evalveeritakse punktihulga “pts” peal.

https://www.cs.unc.edu/~dm/UNC/COMP258/LECTURES/Chaikins-Algorithm.pdf

F = (9.352727272727277, 1.3618181818181798)
E = (8.534545454545459, 3.998181818181815)
D = (7.84, 2.38)
C = (4.98, 1.16)
B = (2.64, 2.36)
A = (1.1, 0.78)
q(j, k) = (0.75 * j) + (0.25 * k)
r(j, k) = (0.25 * j) + (0.75 * k)
pts: {A, B, C, D, E, F}
n = 0 (slider from 0 to 7, step 1)
chaikin = Iteration(Flatten[Sequence[{(0.75 * Element[t, k]) + (0.25 * Element[t, k + 1]), (0.25 * Element[t, k]) + (0.75 * Element[t, k + 1])}, k, 1, Length[t] - 1]], t, {pts}, n)
pl = PolyLine(Flatten[{First[pts], chaikin, Last[pts]}])
m = Length(chaikin)
tekst3: "Punktihulk = " + m + "
Murdjoone pikkus = " + pl + ""