a:=plots:-pointplot({[1,2],[4,3]},view=[0..5,0..5],symbol=solidcircle,symbolsize=20,color=[blue,red]):
b:= plottools:-line([1,2],[4,3],color=green,thickness=7):
plots:-display(b,a);

with(LinearAlgebra):

a:=Matrix([[1,2,3],[4,5,6]]);

[seq(Column(a,i),i=1..3)];

d := s*x*(E*K*q-K*r+K*sigma[1]+r*x)*(1-x*(E*K*q-K*r+K*sigma[1]+r*x)/(K*sigma[2]*L))/(K*sigma[2])+sigma[1]*x-x*(E*K*q-K*r+K*sigma[1]+r*x)/K;

e:=collect(d,x,factor);

f:=collect(e/x,x,factor)*x;

The result is not so much factorized as in the answer by acer.

I didn't know that u->simplify(u,size) can be used in the place of factor which is used often. Thank you for telling me it, acer.

b:=diff((1),x);
Optimization[Maximize](b, x = -6 .. 6);

[seq([x,sqrt(x)],x=0..10)];
plots[pointplot](%);

is written in help page.

x:=t -> t^2+t-10;

a1:=proc(n::positive)
local k,j;
k:=-n+j-1;
seq(eval([j,x(k)]),j=1..2*n+1);
end proc;

a1(1);

b1:=n->[seq(a1(1)[j][2],j=1..2*n+1)];
b1(1);

getCoeff:=proc(a,b)
select(has,a,b);
%/b;
end proc;

getCoeff(f,a^2*b^2); #which returns 2, and
getCoeff(f,a*b);# returns - 6;

Adding to nm's answer, you can use lprint, like this:

> x^2-1=0;
                                 2
                                x  - 1 = 0

> lprint(%);
x^2-1 = 0

You can use implicitplot3d.

example.pptx

you can export a maple file with an animation into a html file.
And, with power point, you can read that file with inserting a movie botton.

To have a slide show with multiple pages, you have to add chapters 
to your maple file. Each chapter is presented as a slide page.

Explore(plot3d(a*x/b-a^2/b+b,a=0.1..1,b=0.1..1),x=0.1..1);

Please see the term of User Interface in
?updates,v2016

From maple2016, it got possible to make equations unexecutable, by checking the radio button. But, to me, it is a little worrying to check it for each equation. So, for at the top of each comment line, I write #.
 

A simple answer is

A:=2*Pi^2*(-1+delta)/r^(1+delta);
(-1)*applyop(`*`,3,A,(-1));

I think what you have to do is to create the jpg.file of the text below or above  the line.

To insert the jpg.file of the line, though it is not exactly the same as what you want,

First, you have to make a line, for example with Keynote, a presentation software.

Then, save the page of it as a picture. But, as the whole page of Keynote became a picture, so

 you have to cut out the line part with for example Toyviewer. And, after saving it as a jpg file,

you can use View->Header Footer in the menu bar of maple. And, click the 'Custom Header' tab there, and

after selecting the leftiest box, you can click the 'Insert Picture' and chooze the jpg file you created above.

http://www.maplesoft.com/support/training/

And, in my country, the salse representative in this country, the parent company cybernet, often holds conferences like this.

http://www.cybernet.co.jp/maple/mi2016/

though this is not a training and I haven't been to it.

Best wishes.

taro