L1-Limits.mws

Calculo I

Lição 1:  Limite

Nós temos visto que o limte limit((f(x+h)-f(x))/h,h = 0)  dá a valor instantâneo da mudança da função f  em x .  No calculo deste limite, o ponto x  é fixo, nós achamos que o quociente de diferença é a função de h , h e nós perguntamos como isto é possível h é próximo de 0.  Certamente, nós não podemos realmente colocar h = 0 , para isso o quociente poderia ser indefinido.  Pegando o limite em   proc (h) options operator, arrow; 0 end proc  não é o mesmo que substituindo h = 0 . Neste worksheet, nós exploraremos a idéia de limite em uma maneira geral; mais tarde os worksheets, voltará ao tipo especial do limite acima.. Nós dizemos que uma função f , definida em um intervalo próximo de um ponto a , a mas não necessariamente como em si mesmo, tem um limite   limit   L  com x  aproximações a , escrevendo

limit(f(x),x = a) = L ,

se nós podemos fazer f(x)  tão próximo de L  como gostariamos pegando x  suficientemente próximo a (mas não igual a ) a .  (Isto é uma boa definição para se começar; nós veremos um ponto mais preciso mais tarde .)

Vamos olhar limites de um ponto de vista geométrico. O conceito de limites podem parecer difíceis, mas a idéia é completamente simples quando você vê o que acontece geometricamente. Nós construiremos um diagrama que mostra uma função e pontos de aproximação da esquerda e da direita.

>    restart; with(plots):

Warning, the name changecoords has been redefined

>    f := x -> 3 + (x-2)*cos((x-2));   a := 2:   left := -1:   right :=5:

f := proc (x) options operator, arrow; 3+(x-2)*cos(x-2) end proc

>     display( plot( f(x),  x = left..right, color = green),
          plot( {[[a,0],[a,f(a)]],[[0,f(a)],[a,f(a)]] },  x = left..right,
            linestyle=3,color = gold, thickness = 2),
          plot([[ a - 1/n, f(a - 1/n)] $n=1..20], x = left..right,
            style=point, symbol=circle, color = red),  
          plot(  [[ a+1/n, f(a + 1/n)] $n=1..20], x = left..right,  
            style=point, symbol=circle, color = blue));

[Maple Plot]

A linha verde é a função. A linha amnarela indica onde (a,f(a)) é. Os pontos azuis indicam pontos em f(x) com x abordando pela direita, e os pontos verdes indicam pontos no f(x) onde x está convergindo pelo lado esquerdo. Por olhar este diagrama, você pode advinhar o limite correto por olhar que valor de y os pontos parecem convergir para. Em um caminho parecido, você pode advinhar o limite esquerdo por olhar que valor os pontos vermelhos parecem convergir para. Se os pontos vermelhos e azuis aparecem convergindo ao mesmo valor, então o limite existe e os valores iguais são convergindos também.

Aqui é um outro exemplo onde a função é deixada e limites a direita não são os mesmos. Após redefinir f(x), copie e cole o comando display no bloco acima e execute de novo.

>    f := x -> Heaviside(x-1) - Heaviside(1-x); a := 1:  left := -2:  right :=4:

f := proc (x) options operator, arrow; Heaviside(x-1)-Heaviside(1-x) end proc

>    display( plot( f(x),  x = left..right, color = green),
          plot( {[[a,0],[a,f(a)]],[[0,f(a)],[a,f(a)]] },  x = left..right,
            linestyle=3,color = gold, thickness = 2),
          plot([[ a - 1/n, f(a - 1/n)] $n=1..20], x = left..right,
            style=point, symbol=circle, color = red),  
          plot(  [[ a+1/n, f(a + 1/n)] $n=1..20], x = left..right,  
            style=point, symbol=circle, color = blue));

[Maple Plot]

Neste caso, a função não é contínua. Isto tem um pulo no x = 1. Os pontos vermelhos vem da aproximação esquerda do -1 enquanto os pontos azuis vem da aproximação direita do +1. Neste caso nós dizemos que o limite é indefinido desde há não exista um valor único para o limite..

Aqui são mais algumas funções de exemplo.  Para cada uma delas, faça o seguinte:

(1) advinhe não importando se a função tem um limite no ponto indicado (a)  e tente avaliando f(a).  (Em a maioria dos casos, isto não funcionará.)

(2) cheque (ou formule) seu convidado numericamente por avaliar a função em vários pontos próximos de a ;

(3) desenhe a função e confirme que o gráfico tem o procedimento esperado próximo de x = a .

(4) use o Maple para avaliar o limite de f(x) com x abordanado a .

>    f := x-> (x-1)/(x^2 - 1) ;  
a := 1;

f := proc (x) options operator, arrow; (x-1)/(x^2-1) end proc

a := 1

>    f(a);

Error, (in f) numeric exception: division by zero

>    plot( f(x), x=a-1..a+1);

[Maple Plot]

>    limit(f(x), x=a);

1/2

>    f := x-> sin(x)/x ;  
a := 0;

f := proc (x) options operator, arrow; sin(x)/x end proc

a := 0

>    f(a);

Error, (in f) numeric exception: division by zero

>    plot( f(x), x=a-5..a+5);

[Maple Plot]

>    limit(f(x), x=a);

1

>    f := x-> (1 - cos(x))/x ;  
a := 0;

f := proc (x) options operator, arrow; (1-cos(x))/x end proc

a := 0

>    f(a);

Error, (in f) numeric exception: division by zero

>    plot( f(x), x=a-5..a+5);

[Maple Plot]

>    limit(f(x), x=a);

0

>    f := x-> (1 - cos(x))/x^2 ;  
a := 0;

f := proc (x) options operator, arrow; (1-cos(x))/x^2 end proc

a := 0

>    f(a);

Error, (in f) numeric exception: division by zero

>    plot( f(x), x=a-5..a+5);

[Maple Plot]

>    limit(f(x), x=a);

1/2

>    f := x-> if (x<0) then 0 else 1 fi:  
a := 0;

a := 0

>    f(a);

1

>    plot( f, -1..1);

[Maple Plot]

>    f := x-> piecewise(x<=2, x^2, 6-x);
a := 2;

f := proc (x) options operator, arrow; piecewise(x <= 2,x^2,6-x) end proc

a := 2

>    f(a);

4

>    plot( f, -3..7, discont=true);

[Maple Plot]

>    limit(f(x), x=2, right);

Error, (in limit) directional argument ('left', 'right', 'real' or 'complex') needs to be quoted

>    f := x-> sin(Pi/x) ;  
a := 0;

f := proc (x) options operator, arrow; sin(Pi/x) end proc

a := 0

>    f(a);

Error, (in f) numeric exception: division by zero

>    plot( f(x), x=a-5..a+5);

[Maple Plot]

>    limit(f(x), x=a);

-1 .. 1

>    f := x-> abs(x+1)/(x+1) ;  
a := -1;

f := proc (x) options operator, arrow; abs(x+1)/(x+1) end proc

a := -1

>    plot( f(x), x=a-5..a+5, discont=true);

[Maple Plot]

>    limit(f(x), x=a);

undefined

>    f := x-> abs(x+1)^3/(x+1) ;  
a := -1;

f := proc (x) options operator, arrow; abs(x+1)^3/(x+1) end proc

a := -1

>    f(a);

Error, (in f) numeric exception: division by zero

>    plot( f(x), x=a-5..a+5);

[Maple Plot]

>    limit(f(x), x=a);

0

>    f := x-> x*sin(1/x) ;  a := 0;

f := proc (x) options operator, arrow; x*sin(1/x) end proc

a := 0

>    f(a);

Error, (in f) numeric exception: division by zero

>    plot( f(x), x=a-5..a+5);

[Maple Plot]

>    limit(f(x), x=a);

0

>