L5-TangentLines.mws

Calculo I

Lição 5:  Linhas Tangentes e Differenciais

Exemplo 1
Para cada uma das seguintes funções, nós desenhamos o gráfico de f(x) junto com a linha secante e tangente para  x = a.

a) f(x) = cos(x)

>    restart:  

>    a := 1;

a := 1

>    f := x->cos(x);

f := cos

>    h := 2.2;
q:= (f(a+h) - f(a))/h;
secline:= x -> f(a) + q*(x - a);
m:= D(f)(a);
tanline:= x -> f(a) + m*(x - a);

h := 2.2

q := -.4537703526-.4545454545*cos(1)

secline := proc (x) options operator, arrow; f(a)+q*(x-a) end proc

m := -sin(1)

tanline := proc (x) options operator, arrow; f(a)+m*(x-a) end proc

>    plot([tanline(x), f(x), secline(x)], x=-5..5, color=[blue,green,magenta]);

[Maple Plot]

b)   f(x) = x^4-1  and a = 3.

>    f:= x -> x^4 -1;

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

>    q:= (f(a+h) - f(a))/h;
secline:= x -> f(a) + q*(x - a);
m:= D(f)(a);
tanline:= x -> f(a) + m*(x - a);

q := 47.20800000

secline := proc (x) options operator, arrow; f(a)+q*(x-a) end proc

m := 4

tanline := proc (x) options operator, arrow; f(a)+m*(x-a) end proc

>    a:= 3;

a := 3

>    h:= 2;

h := 2

>    plot({f(x), secline(x), tanline(x)}, x = a-1..a+3, color=[blue,red,magenta]);

[Maple Plot]

c)   f(x) = sqrt(x)   and a = 5.

>    f:= x -> sqrt(x) ;

f := sqrt

>    q:= (f(a+h) - f(a))/h; secline:= x -> f(a) + q*(x - a); m:= D(f)(a); tanline:= x -> f(a) + m*(x - a);

q := 1/2*5^(1/2)-1/2*3^(1/2)

secline := proc (x) options operator, arrow; f(a)+q*(x-a) end proc

m := 1/6*3^(1/2)

tanline := proc (x) options operator, arrow; f(a)+m*(x-a) end proc

>    a:=5;

a := 5

>    h:=7;

h := 7

>    plot({f(x), secline(x), tanline(x)}, x= a-4..a+6, color=[blue,violet,magenta]);

[Maple Plot]

Exemplo 2
Para cada uma das seguintes funções, desenhe f(x) e Df(x) nos mesmos eixos.

a)   f(x) = x^3-7*x^2+12*x  .  

>    f:= x -> x^3 - 7* x^2 + 12*x;

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

>    D(f);

proc (x) options operator, arrow; 3*x^2-14*x+12 end proc

>    plot({D(f)(x), f(x)}, x = 0..5, color=[magenta,brown]);

[Maple Plot]

b)  f(x) = |x|.  

>    f:= x -> abs(x);

f := abs

>    D(f);

proc (a) options operator, arrow; abs(1,a) end proc

>    plot({D(f)(x), f(x)}, x = -4..4, color=[magenta,brown]);

[Maple Plot]

Exemplo 3
Seja    f(x) = 2*sin(x)-cos(3*x) ; onde x está entre [-14,14].  

a)  Desenhe  f(x)  para x em [-14,1 4].  Qaul é o período de  f(x)?

>    restart:

>    f:= x -> 2 *sin(x) - cos(3*x);

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

>    plot(f(x), x = -14..14);

[Maple Plot]

Periodo é 2*Pi .  

b)  Desde o período de f(x) é 2*Pi , desenhe f(x) e D(f) no mesmo eixo

para x entre [-1,7].

>    D(f);

proc (x) options operator, arrow; 2*cos(x)+3*sin(3*x) end proc

>    plot({f(x), D(f)(x)}, x = -.1..7, color=[magenta,brown]);

[Maple Plot]

c)  Quando f(x) tem um max ou um min em x = a, O que é D(f)(a)?

d)  Quando f(x) é crescente (diminuindo) Qual é o traço de f D(f)?

Quando f é crescente D(f) >0, e quando f is decrescente D(f) <0.

Exemplo 4
Seja f(x) = x*sin(1/x)  if x > 0 e 0 se x <= 0 .

Desenhe f(x).  Use o gráfico para determinar aonde D(f)(0) existe.

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

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

>    plot(f(x), x = -0.1..0.1);

[Maple Plot]

>    plot(f(x), x = -.0001...0001);

[Maple Plot]

Baseado nos desenhos, nós presumimos que aquele f não é differente quando x = 0.

Exemplo 5
Seja f(x) = x^2*sin(1/x)  for x > 0 e 0 para x <= 0.

Desenhe f(x).  Use o gráfico para determinar se D(f)(0) exite.  

>    f:= x -> piecewise(x>0, x^2 * sin(1/x), 0);

f := proc (x) options operator, arrow; piecewise(0 < x,x^2*sin(1/x),0) end proc

>    plot(f(x), x = -.00001...00001);

[Maple Plot]

Baseado no desenho nós presumimos que D(f)(0) = 0.  

Exemplo 6
Seja f(x) =   3-2*x^2 .  Desenhe f(x), a linh tangente quando x = .5 e

a linha normal quando x =.5 no mesmo eixo.  

>    restart:  

>    f:=x ->  3 - 2*x^2;

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

>    D(f)(.5);

-2.0

>    f(.5);

2.50

>    t:= x -> -2*(x - .5) + 2.5;

t := proc (x) options operator, arrow; -2*x+3.5 end proc

>    n:= x -> (1/2)*(x - .5) + 2.5;

n := proc (x) options operator, arrow; 1/2*x+2.250000000 end proc

>    plot({f(x), t(x), n(x)}, x = -1..1, color=[magenta,brown, wheat]);

[Maple Plot]

Exemplo 7
Seja f(x) = |cos(x)|.  Determine aonde f(x) não é diferente.

>    restart:

>    f:= x -> abs(cos(x));

f := proc (x) options operator, arrow; abs(cos(x)) end proc

>    plot(f(x), x = -7..7);

[Maple Plot]

>   

A partir do desenho nós consideramos que (x) não é diferente nos múltiplos de   Pi/2  e   3*Pi/2 .