Intrecci armoniosi (moto piano, equazioni orarie. Mathematica)

Luglio 11th, 2022 | by Marcello Colozzo |

moto piano, particella,equazioni orarie
Fig. 1


Una particella compie in moto piano. Le equazioni orarie sono x(t)=cos(t)+1/2*cos(7*t)+1/3*cos(17*t+π/2)
y(t)=sin(t)+1/2*sin(7*t)+1/3*sin(17*t+π/2).
Di seguito il codice Mathematica per plottare la traiettoria. Lasciamo come parametro libero tmax, in modo da creare l'animazione grafica in fig. 1.

plot[tmax_] := ParametricPlot[
{x[t], y[t]},
{t, 0, tmax},
PlotRange -> {{-1.8, 1.8}, {-1.8, 1.8}},
PlotStyle -> Thickness[0.0035],
Epilog ->
{
Red,
AbsolutePointSize[5.4],
Point[{x[tmax], y[tmax]}]
},
ImageSize -> {500, 500}
]

No TweetBacks yet. (Be the first to Tweet this post)
Articoli correlati

Commenta l'esercizio