Modelowanie Matematyczne laboratorium 1

Plot[Sin[x],{x,0,2π}]

Plot[Mod[x,2π],{x,0,6π}]

F[x_,θ_]:=Mod[x+θ,2π]

Manipulate[Plot[F[x,θ],{x,0,6π}],{{θ,1},0,2π}]

x0=2;
t=3/2;
{x0,F[x0,t],F[F[x0,t],t],F[F[F[x0,t],t],t],F[F[F[F[x0,t],t],t],t],F[F[F[F[F[x0,t],t],t],t],t]}

ListPlot[{2,(7/2),5,(13/2)-2 π,8-2 π,(19/2)-2 π}]

x0=2;
Manipulate[
ListPlot[{x0,F[x0,t],F[F[x0,t],t],F[F[F[x0,t],t],t],F[F[F[F[x0,t],t],t],t],F[F[F[F[F[x0,t],t],t],t],t]},PlotRange->{0,2π},Joined->True],{t,0,2π}]

x0=2;
Manipulate[
Show[

ListPlot[{x0,F[x0,t],F[F[x0,t],t],F[F[F[x0,t],t],t],F[F[F[F[x0,t],t],t],t],F[F[F[F[F[x0,t],t],t],t],t]},PlotRange->{0,2π}],

Plot[Mod[x0+(n-1) t,2π],{n,0,6}]
]

,{t,0,2π}]

x0=2;
Manipulate[
GraphicsGrid[ {{

Show[

ListPlot[{x0,F[x0,t],F[F[x0,t],t],F[F[F[x0,t],t],t],F[F[F[F[x0,t],t],t],t],F[F[F[F[F[x0,t],t],t],t],t]},PlotRange->{0,2π}],

Plot[Mod[x0+(n-1) t,2π],{n,0,6}]
],
Plot[F[x,t],{x,0,6π}]}}
]
,{t,0,2π}]