Has anyone written a MAPLE program to solve sudoku puzzles?

I want to ask about a small problem. I will present a paper at a conference in February. Because it involves time consuming calculations of numerical solutions for several onerous systems, I will do the calculations at home before the talk, save the results, and show the output to the conference. The folks attending the conference are not necessarily Maple Folks, so I do not want to have to explain the tilde after characters for which I have made assumptions. Of course, I know about

interface(showassumed=0);

After making the calculations here at home, traveling to the meeting, opening the file to make the presentation then, alas, the tildes are back again. Try this.

> assume(a, real):
> interface(showassumed=0):
> equa:=a^2+a-1;

Run this file. No tilde. Close the file saving the output. Open the file. There is the tilde after each “a".

My question:is there some way to make the tilde stay gone when I save such a file and reopen it without recalculation the worksheet?

Is it possible with Maple 10 to change a document so that in the middle, there are two columns? One might imagine having some text describing how data was gathered where the text is spread over the usual six inches or so. Reading on down the document, the style might change to two columns: a graph of the data in the right column and comments on the data in the left. After this, the document could revert to the normal six inch, full line text. Did I not see something such as this in a demo at the Maple Summer Conference?

Of course, there are big differences in dsolve and dsolve numeric. But also there is a difference that is subtle. It would be nice if this subtle one were not there. It may be that there is an easy work-around. Of course, the complication that is at the root of the problem may not be subtle at all. Look at the results of these two situations. First situation. > restart; > h[0]:=t->(1+t)*t^2*cos(t): > sol1:=dsolve({diff(y(t),t)=-h[0](t-1),y(0)=h[0](0)},y(t)): > h[1]:=unapply(rhs(sol1),t): > sol2:=dsolve({diff(y(t),t)=-h[1](t-1),y(1)=h[1](1)},y(t)): > h[2]:=unapply(rhs(sol2),t): > plot([[t,h[0](t),t=-1..0],[t,h[1](t),t=0..1], [t,h[2](t),t=1..2]],color=blue); Second situation

A student in my PDE class asked about having two functions in animation at the same time. Here is how I suggested doing this: > f:=(t,x)->sin(t)*x*(1-x); > g:=(t,x)->cos(t)*x*(1-x); > N:=50; > for n from 0 to N do J[n]:=plot([f(2*Pi*n/N,x),g(2*Pi*n/N,x)],x=0..1): od: n:='n': > plots[display]([seq(J[n],n=0..N)],insequence=true); Is there a simpler way? Jim Herod