zmienna=3.1415
zmiennaprawdziwa=π

zmienna

Plot[{Sin[x],Sin[2x],Sin[3x]},{x,0,2Pi},PlotLegends->"Expressions",Frame->True,FrameStyle->20,PlotStyle->Thick,FrameLabel->{"x","ψ(x)"}]

Zajęcia I

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

F[5,3]

RandomExample[]=RandomReal[{0,1},5]
RandomExample2[]:=RandomReal[{0,1},5]

RandomExample[]
RandomExample2[]

Plot[F[0.3,θ],{θ,0,20},Frame->True,FrameLabel->{"θ","F[0.3,θ]"}]

theta=2;
Plot[F[x,theta],{x,0,2π}]
Plot[F[x,theta],{x,0,2π},Frame->True,FrameStyle->Directive[20,Bold,FontFamily->"Courier"],FrameLabel->{"x","F[x,θ]"},GridLines->Automatic,PlotStyle->Thick]

Manipulate[
orbita=(*{x0,F[x0,theta],F[F[x0,theta],theta],F[F[F[x0,theta],theta],theta],F[F[F[F[x0,theta],theta],theta],theta],F[F[F[F[F[x0,theta],theta],theta],theta],theta]};*)
NestList[Function[x,F[x,theta]],x0,100];
Grid[{{
Plot[F[x,theta],{x,0,2π},Frame->True,FrameStyle->Directive[20,Bold,FontFamily->"Courier"],FrameLabel->{"x","F[x,θ]"},GridLines->Automatic,PlotStyle->Thick],

ListPlot[orbita,Joined->True,Mesh->Automatic,PlotMarkers->{Automatic,Large},Frame->True,FrameStyle->Directive[20,Bold,FontFamily->"Courier"],FrameLabel->{"n","O[x,F]"},GridLines->Automatic,PlotRange->{0,2π}]
}}],{theta,0,5},{{x0,0.5},0,2π}]

NestList[Function[x,F[x,theta]],0.5,100];
Histogram[NestList[Function[x,F[x,π/9]],0.5,1000],{0,2π,0.01},AxesOrigin->0]

S[x_]:=(x^2)

S[u]

S2=Function[x,(x^2)]

S2[v]