Pierwsze laboratoria z modelowania

Plot[Sin[x],{x,0,2π},Frame->True,GridLines->Automatic,PlotStyle->Directive[Thick,Pink],FrameStyle->Directive[Thick,14],FrameLabel->{"oś 1","2"}]

π Pi

E

(Sqrt[23])

(2^3)

(1/2)

Fun[x_,c_]:=c (x^2)

Fun[x,2]

Table[0,200]

Table[i,{i,20}]

Table[i,{i,10,20}]

Table[i,{i,10,20,2}]

Właściwy projekt

Mod[7,2π]
%//N

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

f[3,4]

t0=1;
Plot[f[x,t0],{x,0,2π}]

Manipulate[Plot[f[x,t0],{x,0,2π}],{{t0,1},0,5}]

x0

t0=3/4π;
{x0,f[t0,x0],f[t0,f[t0,x0]],f[t0,f[t0,f[t0,x0]]]}

t0=3/4π;
ListPlot[{x0,f[t0,x0],f[t0,f[t0,x0]],f[t0,f[t0,f[t0,x0]]]}]

Nest[f[#,t0]&,x0,10]

?f

Table[Nest[f[#,t0]&,x0,k],{k,200}]

t0=3π;
ListPlot[NestList[f[#,t0]&,x0,200],Joined->True]

t0=2;
ListPlot[NestList[f[#,t0]&,x0,200],Joined->True]

Out[178]

t0=3;
Histogram[ NestList[f[#,t0]&,x0,200],{0.2}]
t0=3/4π;
Histogram[ NestList[f[#,t0]&,x0,200],{0.2}]

GraphicsGrid[{{ListPlot[NestList[f[#,t0]&,x0,200],Joined->True],Histogram[ NestList[f[#,t0]&,x0,200],{0.2}]}}]

Manipulate[GraphicsGrid[{{ListPlot[NestList[f[#,t0]&,x0,200],Joined->True],Histogram[ NestList[f[#,t0]&,x0,200],{0.2}]}}],{{t0,1},0,2π}]