0
$\begingroup$

I have a mapping T as attached (hereenter image description here. Now for $x_{0}\in C$ the Mann iteration process read as $x_{n+1}=(1-\alpha_{n})x_{n}+\alpha_{n}Tx_{n}$ n=0,1,2,3,... Now I want to obtain a visualization of the paper and plot given in the paper https://www.mdpi.com/2073-8994/11/12/1441

I know only the techniques that Mann iteration converges to a fixed point of a certain mapping as

a[n]=0.9;
x[0]=0.5;
T[x_]:=T[x]=x^2;
x[n]=(1-a[n-1])x[n-1]+x[n-1]T[x[n-1]]

But I do not to get figure like in the given paper. The Matlab code there is given but I do not like Matlab. I will be thankful if anyone can suggest me this implementation in mathematica.

$\endgroup$

1 Answer 1

1
$\begingroup$

I use the map in graphic. If I have misunderstood please let me know.

func[a_, b_] := Module[{f, rp, res},
  f[{x_, y_}] := 
   Piecewise[{{{2 - x, y}, 0 <= x < 1/7}, {{(x + 12)/7, y}, 
      1/7 <= x <= 2}}];
  rp = RandomPoint[Rectangle[{a, 0}, {b, 1/7}], 10000];
  res = NestList[f /@ # &, rp, 3];
  GraphicsRow[
   ListPlot[#, PlotRange -> {{0, 2}, {0, 1/7}}, 
      GridLines -> {{2 - 1/7, (1/7 + 12)/7}, None}, Frame -> True, 
      GridLinesStyle -> Red] & /@ res]]

Visualizing iterates for various point sets:

Column[{func[0, 1/7], func[1/7, 2], func[0, 2]}]

enter image description here

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.