Modelowanie matematyczne labotatoria 1

Plot[Sin[x],{x,0,2π},Frame->True,FrameLabel->{"a","b"}]

Plot[Sin[x],{x,0,2π},AxesLabel->{"bla","bla"}]

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

θ=1;
Plot[F[x,θ],{x,0,2π}]

θ=5;
x0=0;
{x0,F[x0,θ],F[F[x0,θ],θ],F[F[F[x0,θ],θ],θ],F[F[F[F[x0,θ],θ],θ],θ],F[F[F[F[F[x0,θ],θ],θ],θ],θ]}

x0=0;
θ=5;
NestList[F[#,θ]&,x0,60]

x0=0.;
θ=5;
NestList[F[#,θ]&,x0,60]

x0=0.;
Manipulate[ListPlot[NestList[F[#,θ]&,x0,60]],{θ,0,2π}]

Manipulate[ListPlot[NestList[F[#,θ]&,x0,60]],{{θ,1},0,2π},{x0,0,2}]

Manipulate[Plot[Mod[x0+n θ,2π],{n,0,60}],{{θ,1},0,2π},{x0,0,2}]

Manipulate[

Show[ListPlot[NestList[F[#,θ]&,x0,60]],Plot[Mod[x0+(n-1) θ,2π],{n,0,60}]]


,{{θ,1},0,2π},{x0,0,2}]

Manipulate[

GraphicsGrid[{{ListPlot[NestList[F[#,θ]&,x0,60],Joined->True],Plot[Mod[x0+(n-1) θ,2π],{n,0,60}]}}]


,{{θ,1},0,2π},{x0,0,2}]

Manipulate[
lista=NestList[F[#,θ]&,x0,200];
GraphicsGrid[{{ListPlot[lista,Joined->True],Histogram[lista,{0,2π,0.1}]}}]


,{{θ,1},0,2π},{x0,0,2}]