Rešujemo enačbo x=1 + x/2:

Solve[x==1+x/2,x]

h[x_]:=1+x/2

Solve[x==h[x],x]

NestList[g,y,5]

NestList[h,5,10]//N

f[x_]:=1+Sin[x+Exp[x]]/2

Plot[{f[x],x},{x,-3,3}]

Solve[x==f[x],x]

NestList[f,1.0,9]

ClearAll[iteriraj]
iteriraj[f_,x0_,n_,a_,b_]:=Module[{graf,crta,x,s},
graf=Plot[{f[x],x},{x,a,b},AspectRatio->Automatic];
s=Flatten[{#,{#[[2]],#[[2]]}}&/@Partition[NestList[f,x0,n],2,1],1];
crta=Graphics[{Red,Line[s]}];
Show[graf,crta]
]

Manipulate[iteriraj[Function[x,4x*(1-x)],k,30,0,1],{{k,0.5},0,1}]

Split

ClearAll[f]

Thread[{{a,b,c},{d,e,f}}]