Dr. John May

## 2616 Reputation

16 years, 342 days
Maplesoft

## Social Networks and Content at Maplesoft.com

I have been a part of the Mathematical Software Group at Maplesoft since 2007. I have a Ph.D in Mathematics from North Carolina State University as well as Masters and Bachelors degrees from the University of Oregon. I have been working on research in computational mathematics since 1997. I currently work on symbolic solvers and visualization as well as other subsystems of Maple.

## The easiest option is to build your expr...

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 expr...

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

## Actual Input...

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.

## Earth...

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:

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

## Classy Wood Grain...

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

using this texture:

John

## Plot command...

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 we...

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

## @alex_01 It wasn't too bad to set up all...

@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 ...

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 ...

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 t...

@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 s...

@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: (**)...

@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  )

## Need Something Harder?...

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

## @acer According to Wikipedia the color N...

@acer According to Wikipedia the color Navaho White refers to the background color of the Navajo Nation flag.  Of course, Wikipedia also claims that the X11 Color name Indian Red is named after the red laterite soil found in India.  Crayola, at least, decdided that the later might be racially insensitive and now calls it "Chestnut".

 2 3 4 5 6 7 8 Last Page 4 of 19
﻿