Unless I'm missing something where are the closed integral symbols? 

I couldn't find them but you can create them if you wanted to.  Then I tried adding them to a palette with DocumentTools and couldn't get it to work. 

`∮` `∯` `∰`
                                                        

Creating the double and triple symbols can be done  easily by concatenating as many ∫  as you desire. But can't seem to add them to a palette.

DocumentTools:-AddPalette("Integral Symbols");

AddIcon("Closed Integral",`∮`)

I suppose you need to create a png file for that to work.  However the above would be simpler.

Maybe add functional closed integral operator symbols for the palette? 

When the new Beta application center becomes active and the old one is obsoleted (sigh) many links to the applications centers from here (mapleprimes) will be broken.  Or will the links be directed to the proper location?

Kitonum had provided us the basis for a solution to this question.  I created a proc to make it versatile. 
The problem was how to force Maple to display the RHS of :

Here is the proc(I've condensed the variables)

extract := proc(a, expr) 
  local f:
  f := a: 
  ``(f)*expand(expr/f); 
end proc:

eq := 1/cao - 1/caa:
extract(1/cao, eq);
                     

 Now suppose we had an trigonometric expresssion and we extract cos(x) out of it

expr := cos(x) - sin(x)/(x^2*y) + 3*x*y
                       
bb := extract(cos(x), expr)
                       

ok, that's good, now we would like to keep the order but simplify the middle term sin/cos to tan.  The best way about it is to use algsubs and manually substitute the relation with the option exact.  I don't Maple can achieve this without the manual help.

algsubs(sin(x)/cos(x) = tan(x), bb, exact)
                   

Now we're at the mercy of Maple here.  Maple always likes to throw negative terms out front.  The premise of Maple is to show it as it would appear on paper.  I mentioned exact and it shouldn't have changed the order but it did.  So maybe if we use sort we can right it. 

sort(%)
             

Ok, good but now Maple has thrown the single term multiplier at the end. 

Can anyone get maple to put the cos(x) term out front?

Who deleted my post - "How to factor out specific parts from expression"

So I just noticed that if you want to animate something in real time, the best you can achieve is something close but not exact.

For example lets say we have a ball travelling 22 m/s over 1000 m and I want to animate that in real time. 

ball := proc(x, y) plots[pointplot]([[x, y]], color = blue, symbol = solidcircle, symbolsize = 40); end proc:
animate(ball, [22*t, 0], t = 0 .. 1000/22, frames = floor(1000/22));

frames has to be an integer value so determining how long it will take and adjusting the frames to 1 frame per second.  It requires a bit of manipulation to get it right.  Is there a better way?  I suppose boosting the frame rate and increasing the number of frames would work but then it becomes cumbersome and any large period of times would use a high number of frames and consume enormous amounts of memory.