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
Post a Comment