Sequences
Limit Demo
restart:with(plots):
k:=18: L:=1:
a:=n->(n+sin(n*Pi/4))/n:
b:= [[ n, a(n)] $n=1..k]:
c:=plot(b, x=0..k,y=0..2,style=point,symbol=circle):
d:=plot(L, x=0..k,color=blue):
display(c,d);
Squeeze Theorem Demo
restart:with(plots):
k:=18: L:=1:
a:=n->(n+sin(n*Pi/4))/n:
b:=n->(n+1)/n:
c:=n->(n-1)/n:
d:= [[n,a(n)] $n=1..k]:
e:=[[n,b(n)] $n=1..k]:
f:=[[n,c(n)] $n=1..k]:
g:=plot(d, x=0..k,y=0..2,style=point,symbol=circle):
h:=plot(L, x=0..k,color=blue):
i:=plot(e, x=0..k,y=0..2,style=point,symbol=circle,color=green):
j:=plot(f, x=0..k,y=0..2,style=point,symbol=circle,color=green):
display(g, h, i, j);
Last Update: 2006/05/30