Konvergenz einer Folge
> restart; with(plots):
Definition der Folge (bn ):
> b:= n -> (13 - 2*n)/(16 - 3*n);
Graphische Darstellung der ersten m Folgenglieder:
> zeige:= proc(b, m, ymin, ymax)
local Folge, i;
Folge:= seq(plot([[-1, b(i)], [1, b(i)]],
x = -2..2, y = ymin..ymax),
i = 0..m);
display(Folge, font = [Courier, 12],
size = [300, 300],
thickness = 0);
end:
Folge:= seq(plot([[-1, b(i)], [1, b(i)]],
x = -2..2, y = ymin..ymax),
i = 0..m);
display(Folge, font = [Courier, 12],
size = [300, 300],
thickness = 0);
end:
> zeige(b, 5, -1, 4);
> zeige(b, 15, -1, 4);
> zeige(b, 50, -1, 4);
> zeige(b, 50, 0.3, 1);
> zeige(b, 50, 0.5, 0.7);
> zeige(b, 150, 0.5, 0.7);