Talking about trees all the time does not always make one very poplar.

John

The easiest option is to build your expression using the 2D math palettes and when done highlight the whole thing and select the context menu: 2-D Math > Convert To > Atomic Identifier

If you lprint() the result, and play around a little bit, you will see that something similar could also be entered programmaticly in Maple's typsetting markup:

`#msubsup(mi("σ"),mrow(mi("θ"),mi("θ")),mi("S"))`

Displayed as: 

John

The easiest option is to build your expression using the 2D math palettes and when done highlight the whole thing and select the context menu: 2-D Math > Convert To > Atomic Identifier

If you lprint() the result, and play around a little bit, you will see that something similar could also be entered programmaticly in Maple's typsetting markup:

`#msubsup(mi("σ"),mrow(mi("θ"),mi("θ")),mi("S"))`

Displayed as: 

John

It is hard to give an answer to this sort of question without having the actual input.  "Linear and nonlinear equations with inequalities" covers a lot of ground.

Here is a good collection of images of planets that map nicely to spheres: http://www.vendian.org/mncharity/dir3/planet_globes/

Here is my Earth:

im:=ImageTools:-Read("PathfinderMap.jpg");
n := 128;
p:=ImageTools:-Preview(ImageTools:-Transpose(im),2*n,n):

q:=plot3d(1, x=0..2*Pi, y=0..Pi, coords=spherical, style=surface,
          grid=[2*n,n]):

plots:-display(PLOT3D(MESH(op([1,1],q), op([1,4..-1],p)), op(2..-1,q)));

John

From now on, all my plots will be textured in classy woodgrain:

using this texture:

John

I had neglected to include it in the original post, but someone requested it, so here is the Maple code I used to generate the second set of plots.

plot3d(
[(3/5-(3/100)*(1-2*t/Pi)^10*cos(20*s)-(1/2)*sin(t)^(3/5))*cos(2*s)
   +(1/1024)*s^10*((2/25)*sin(2*t)+(3/100)*cos(16*t))/Pi^10,
(3/5+(3/100)*(1-2*t/Pi)^10*sin(20*s)-(1/2)*sin(t)^(3/5))*(sin(2*s)
   +(1/1024)*s^10*((2/25)*sin(2*t)+(3/100)*sin(16*t))/Pi^10),
(11/5)*t/Pi+7/10-(7/10)*cos((1/4)*s)],
s=0..2*Pi, t=0..Pi/2, scaling=constrained, color="Khaki", grid=[225,225]);

John

@roman_pearce The plots for spaghetti were not nearly as interesting.

@alex_01 It wasn't too bad to set up all those buttons.  Most of the logic in defined in the central initialization button.  To actually create the grid of buttons, I just setup one of them and then copy'n'pasted it 48 times.

Unfortunately, if the points are not in general position, I think you'll need to manually sweep the points to remove all the ones that sit (numerically) on the convex hull.

Unfortunately, if the points are not in general position, I think you'll need to manually sweep the points to remove all the ones that sit (numerically) on the convex hull.

@PatrickT Yikes!  I was only able to test my code on Mac and Linux before I posted it and apparently it does not work on Windows with the zlib DLL shipped with Maple 15.  I am looking into a good workaround for Windows, and will post it when I fix the code.

@Joe Riel Nice.  I had originally started with a seq using =, but removing the assignment to p was needed to really make it work.

@Alec Mihailovs Perhaps you meant:

(**) a := 5*x^2-4*x+3: hh := v^x*a+v^x: collect(hh,[v,x]);
                               x  2      x        x
                            5 v  x  - 4 v  x + 4 v

Putting two names in the calling sequence for ?collect treats the second as a post-processing procedure:

(**) a := 5*x^2-4*x+3: hh := v^x*a+v^x: collect(hh,v,cos);
                              x     2               x
                        cos( v  (5 x  - 4 x + 3) + v  )

If you hunger for a bigger challenge, here is a new version of the quiz which allows 4 choices: ColorQuiz-new.mw