Modelowanie matematyczne tercja dynamiczna

Zajęcia pierwsze

To są pierwsze zajęcia.

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

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

θtmp=π/4;
x0=1;
F[θtmp,x0,mod]
F[θtmp,%,mod]
F[θtmp,%,mod]
F[θtmp,%,mod]
F[θtmp,%,mod]
F[θtmp,%,mod]
F[θtmp,%,mod]
F[θtmp,%,mod]
F[θtmp,%,mod]
{%%%%%%%%%%,%%%%%%%%%,%%%%%%%%,%%%%%%%,%%%%%%,%%%%%,%%%%,%%%,%%,%}
ListPlot[%,Joined->True,Mesh->Full]

x0=0.5;
Manipulate[GraphicsRow[{Plot[F[θ,x,mod],{x,0,2π}],
ListPlot[NestList[F[θ,#,mod]&,x0,100],Joined->True,Mesh->Full],Graphics[Join[
{Black,Circle[{0,0},1]},
Disk[{Cos[#],Sin[#]},0.04]&/@NestList[F[θ,#,mod]&,x0,1000]]],Histogram[NestList[F[θ,#,mod]&,x0,100],{0,2π,0.1}]}],{{θ,π/2},0,2π}]

Histogram[NestList[F[θ,#,mod]&,x0,100],{0,2π,0.1}]

Disk[{Cos[#],Sin[#]},0.1]&/@NestList[F[θ,#,mod]&,x0,100]

Nest[F[θtmp,#,mod]&,x0,89];
AbsoluteTiming[Table[Nest[F[θtmp,#,mod]&,x0,i],{i,0,1000}];]
AbsoluteTiming[NestList[F[θtmp,#,mod]&,x0,1000];]

?F

Plot[x^2,{x,0,3.5}];
ListPlot[{1,4,9}];
Show[Plot[x^2,{x,0,3.5}],ListPlot[{1,4,9}]]
GraphicsGrid[{{Plot[x^2,{x,0,3.5}],ListPlot[{1,4,9}]}}]

(11/5)//N
N[(11/4)]

F[10,0,mod]

przyklad1=RandomReal[]
przyklad2:=RandomReal[]

przyklad1
przyklad1
przyklad2
przyklad2

Mod[10,mod]
%//N

?mod

π==3.14

(Sqrt[2])

D[Sin[x],x]
Integrate[%,x]

Out[266]

fgh