Interpolation/smoothing in Mathematica using Graphics -



Interpolation/smoothing in Mathematica using Graphics -

i trying smooth path draw between points.

please consider :

lespoints = {{41, 26}, {42, 29}, {41, 31}, {46, 30}, {48, 30}, {40, 30}, {43, 30}, {47, 30}, {48, 26}, {47, 20}}

those real eye fixations coordinates utilize trace temporal path.

this way plot them :

graphics[{ table[arrow[{lespoints[[i]], lespoints[[i + 1]]}], {i,length[lespoints] - 1}], mapthread[text[style[#1, large, fontfamily -> "impact"], {#2, #3}] &, prependto[transpose[lespoints], range[1, length@lespoints]]]}]

i not right in effort utilize interpolation.

would way smooth path, alternative ?

what this

lespoints = {{41, 26}, {42, 29}, {41, 31}, {46, 30}, {48, 30}, {40, 30}, {43, 30}, {47, 30}, {48, 26}, {47, 20}} interpolation = interpolation[table[{i, lespoints[[i]]}, {i, length[lespoints]}]]

the path becomes like

plot = parametricplot[interpolation[t], {t, 1, length[lespoints]}]; show[plot, graphics[{red, pointsize[0.02], point /@ lespoints}], axes -> false]

result:

graphics wolfram-mathematica interpolation

Comments

Popular posts from this blog

iphone - Dismissing a UIAlertView -

c# - Can ProtoBuf-Net deserialize to a flat class? -

javascript - Change element in each JQuery tab to dynamically generated colors -