> #plotting dynamic sequences
> with(plots):   #for listplot and display
> f:=proc(n, x0, lambda)
>  option remember;    # makes the code faster -- it remembers old values
>  if ( n = 0 ) then
>     x0; 
>  else 
>     f(n-1,x0,lambda) +lambda; # recursive call 
>  fi; 
> end;

  f := proc(n, x0, lambda)
option remember;
    if n = 0 then x0
    else f(n - 1, x0, lambda) + lambda
    end if
end proc

> A:=[seq([i,f(i,0.5,0.3)],i=0..100)];

  A := [[0, 0.5], [1, 0.8], [2, 1.1], [3, 1.4], [4, 1.7], [5, 2.0],

        [6, 2.3], [7, 2.6], [8, 2.9], [9, 3.2], [10, 3.5], [11, 3.8],

        [12, 4.1], [13, 4.4], [14, 4.7], [15, 5.0], [16, 5.3],

        [17, 5.6], [18, 5.9], [19, 6.2], [20, 6.5], [21, 6.8],

        [22, 7.1], [23, 7.4], [24, 7.7], [25, 8.0], [26, 8.3],

        [27, 8.6], [28, 8.9], [29, 9.2], [30, 9.5], [31, 9.8],

        [32, 10.1], [33, 10.4], [34, 10.7], [35, 11.0], [36, 11.3],

        [37, 11.6], [38, 11.9], [39, 12.2], [40, 12.5], [41, 12.8],

        [42, 13.1], [43, 13.4], [44, 13.7], [45, 14.0], [46, 14.3],

        [47, 14.6], [48, 14.9], [49, 15.2], [50, 15.5], [51, 15.8],

        [52, 16.1], [53, 16.4], [54, 16.7], [55, 17.0], [56, 17.3],

        [57, 17.6], [58, 17.9], [59, 18.2], [60, 18.5], [61, 18.8],

        [62, 19.1], [63, 19.4], [64, 19.7], [65, 20.0], [66, 20.3],

        [67, 20.6], [68, 20.9], [69, 21.2], [70, 21.5], [71, 21.8],

        [72, 22.1], [73, 22.4], [74, 22.7], [75, 23.0], [76, 23.3],

        [77, 23.6], [78, 23.9], [79, 24.2], [80, 24.5], [81, 24.8],

        [82, 25.1], [83, 25.4], [84, 25.7], [85, 26.0], [86, 26.3],

        [87, 26.6], [88, 26.9], [89, 27.2], [90, 27.5], [91, 27.8],

        [92, 28.1], [93, 28.4], [94, 28.7], [95, 29.0], [96, 29.3],

        [97, 29.6], [98, 29.9], [99, 30.2], [100, 30.5]]

> B:=[seq([i,f(i,0.5,0.31)],i=0..100)]:
> display(listplot(A,color=blue),listplot(B,color=green));
>