Improper Integrals

> restart:libname:=`C:\\PROGRAMS\\MAPLEV/lib`,`C:\\PROGRAMS\\MAPLEV/lib/CalcP`:with(CalcP):

Note: The F.T.C. says that [Maple Math] where F is any antiderivative of f. It follows from this that [Maple Math] = F(1) - F(-1) = -2 where [Maple Math] . Does the plot of [Maple Math] below show this as a sensible answer?

> plot(1/x^2,x=-4..4,y=0..8,discont=true,colour=black);

[Maple Plot]

Recall: The F.T.C. says that [Maple Math] only if a and b are numbers and f is continuous on [a,b].

Type 1. Integrals over infinite intervals

e.g. Evaluate [Maple Math] .

> f:=x->1/x^2:plot(f(x),x=0..10,y=0..1,discont=true,colour=black,title=`y = 1/x^2`);

[Maple Plot]

Define F(b) = the area under y = f(x) from x = 1 to x = b:

> F:=b->Int(1/x^2,x=1..b);

[Maple Math]

> some_areas:=value([F(1),F(2),F(3),F(4),F(10),F(100),F(10000),F(b)]);

[Maple Math]

Clearly, the bigger b gets, the closer [Maple Math] gets to 1. It seems natural to define [Maple Math] to be the limit as b -> [Maple Math] . That is: [Maple Math] = [Maple Math] .

Definitions

a) If [Maple Math] exists for every t bigger than or equal to a then [Maple Math] if the limit exists.

b) If [Maple Math] exists for every t less than or equal to b then [Maple Math] if the limit exists.

If the limits exist then the integrals are convergent. Otherwise, they are divergent .

c) [Maple Math] if both the intgrals are convergent .

e.g.s

[Maple Math]

> assume(b<-1);f:=int(1/x,x=b..-1);Limit(f,b=-infinity)=limit(f,b=-infinity);Int(1/x,x=-infinity..-1)=int(1/x,x=-infinity..-1);

[Maple Math]

[Maple Math]

[Maple Math]

[Maple Math]

> f:=x*exp(1)^(-x^2);

[Maple Math]

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

[Maple Plot]

> F:=int(f,x);

[Maple Math]

> leftside:=int(f,x=-infinity..0);rightside:=int(f,x=0..infinity);

[Maple Math]

[Maple Math]

> Int(f,x=-infinity..infinity)=int(f,x=-infinity..infinity);

[Maple Math]

Determine p so that [Maple Math] is convergent.

> f:=1/(x^p);

[Maple Math]

> Int(f,x=1..t):%=value(%);

[Maple Math]

> f1:=simplify(%);

[Maple Math]

The results are easier to see if you write the above expression as [Maple Math] [Maple Math]

Fact: [Maple Math] converges if p > 1 and diverges if [Maple Math] . Now, the hard part, prove it!

Show that Gabriel's Horn can be filled with paint but not painted!

> `f:=1/x;

[Maple Math]

> revolve(f,x=1..10,nocap);

[Maple Plot]

1. Find the volume of Gabriel's Horn:

> V:=Int(Pi*(1/x)^2,x=1..infinity);volume:=value(V)*`cubic units`;

[Maple Math]

[Maple Math]

Note: part 1 "says" that we can fill Gabe's horn with about 3 cubic meters of paint.

2. Find the surface area of Gabriel's Horn.

In order to do part 2 we will need the following goft from the God of Calculus: If f is positive on [a,b] and has a continuous derivative on [a,b] then the surface area of the surface obtained by rotating [Maple Math] between a and b about the x-axis is [Maple Math] .

> g:=2*Pi*f*sqrt(1+diff(f,x)^2);

[Maple Math]

> S:=Int(g,x=1..infinity);surface:=value(S);

[Maple Math]

[Maple Math]

Go figure!!

Type 2. Integrals with discontinuous integrands.

e.g. Find [Maple Math]

> f:=1/surd((x-1),3):plot(f,x=-1..2,y=-5..5,discont=true,colour=black,title=`y = 1/(x-1)^(1/3)`);

[Maple Plot]

Note that the function is discontinuous at x = 1 so the FTC does not apply .

Let's experiment:

> A:=t->Int(f,x=t..2);

[Maple Math]

> value([A(1.5),A(1.1),A(1.01),A(1.001),A(1.0001),A(1.00000001)]);

[Maple Math]

=> it looks like [Maple Math] is getting closer and closer to 1.5 and it seems like we should define [Maple Math] = [Maple Math] (and we will!).

Definitions:

a) If f is continuous on [a,b) and discontinuous at b then [Maple Math] if the limit exists.

b) If f is continuous on (a,b] and discontinuous at a then [Maple Math] if the limit exists.

If the limits above exist the integrals are convergent . Otherwise they are divergent.

c) If f is discontinuous at c, a < c < b, then [Maple Math] if both the integrals converge .

e.g.s

1.

> f:=1/x^2;Int(f,x=-1..0)=int(f,x=-1..0);

[Maple Math]

[Maple Math]

2.

> g:=2/(x^2-2*x);convert(g,parfrac,x);plot(g,x=-4..4,y=-4..4,discont=true,colour=black);I1:=Int(g,x=1..2)=int(g,x=1..2);

[Maple Math]

[Maple Math]

[Maple Plot]

[Maple Math]

3. N.B. There are two types of improper integrals in the next one!!

> f:=1/(sqrt(x)*(1+x));plot(f,x=0..10,colour=blue,thickness=2);

[Maple Math]

[Maple Plot]

> Int(f,x=0..1)+Int(f,x=1..infinity)=int(f,x=0..1)+int(f,x=1..infinity);

[Maple Math]