March 08, 2006 5:15 am
Larson ch 1.3, p. 64 - 66
23.

y = Sec[2  x]

Limit[y, x -> 0]

Plot[y, {x, -2 π, 2  π}, 
        PlotStyle -> Red];

24.

Clear[y]

y = Cos[3  x]

Limit[y, x -> π]

Plot[y, {x, 0,  3  π},  PlotStyle -> Blue];

25.

Clear[y]

y = Sin[x]

Limit[y, x -> 5  π/6]

Plot[y, {x, 0, 5  π/6}, PlotStyle  -> Red];

Sin[π/6]

Plot[Sin[x], {x, 0, 2  π}, PlotStyle -> Blue]

26.

Clear[y]

y = Cos[x]

Limit[y, x -> 5  π/3]

Plot[y, {x, 0, 5  π/3},  PlotStyle -> Blue];

Cos[5  π/3]

Cos[π/6]

27.

Clear[y]

y = Tan[(π) x/4]

Limit[y, x -> 3]

Plot[y, {x, 0, 3  π/4}, PlotStyle -> Red];

28.

Clear[y]

y = Sec[(π) x/6]

Limit[y, x -> 7]

Plot[y, {x, 0, 7  π/6}, PlotStyle -> Blue];

37.

Clear[y]

y = (x^2 - 1)/(x + 1)

Limit[y, x -> -1]

Plot[y, {x, -5, 5}, PlotStyle -> Red];

38.

Clear[y]

y = (2  x^2 - x - 3)/(x + 1)

Limit[y, x -> -1]

Plot[y, {x, -5, 5}, PlotStyle -> Blue];