I tried to draw a normal boxplot for the a simple data using Maple. My attempt is in below.

X := [13, 15, 16, 16, 19, 20, 21, 21, 22, 22, 25, 25, 25, 25, 30, 33, 33, 35, 35, 35, 35, 36, 40, 45, 46, 52, 70]:
P1 := Statistics[BoxPlot](X, offset = 1, distance = 1, width = 1, orientation = horizontal, outliers = true);
plots[display](P1, view = [1 .. 80, 0.5 .. 2.5]);

But I am not happy from the result.

1. It seems the box-plot range doesn't include the max, 70, instead it puts a circle there!

      2. What are the small rectangles and circles? I just need a simple box-plot with the line-range starting from min and ending at max, then a box starting from the first quartile and ending at the third quartile and a vertical line at the median. No extra feature and not ignoring any data.

      3. I don't want the vertical axis which is for the index of the data, I just have one data and that vertical axis is just distracting the audience.

How to resolve these three issues?

I was trying to plot a simple degree two curve but with one point removed. My first attempt was the following;

p1 := plot(x^2 - 1, x = -2 .. 2);
p2 := plot([[0, -1]], style = point, symbol = circle, symbolsize = 20);
plots[display](p1, p2);

But the curve line is shown even inside the circle of the removed point. Changing order of `p1` and `p2` in `plots[display]` doesn't make any changes on the output.

My second attempt was the following.

p3 := plots[display](plottools[disk]([0, -1], 0.1, color = white)):
plots[display](p1,p3);

This didn't help either.

Let's say you make a tabulate of plots (using tabulate, because you don't want equal space for your plots as in array-plot etc). Then how should one save or export the final result as one eps or pdf file? When I right click and choose export, it only save one cell of the tabulate alone.

I have some difficulties with exporting a 3d plot from Maple in a pdf format without loosing the whole settings. As a simple example consider the following.

plot3d(sin(x)*10^y, x = -4 .. 4, y = -2 .. 2, view = [-4 .. 4, -2 .. 2, 0 .. 2], labelfont = ["TimesNewRoman", 26], labels = [x, Typesetting:-Typeset(log[10](y)), typeset()])

I tried two approaches, each has a drawback.

1- Right clicking on the figure, choosing `Export`, then `PDF`. Unfortunately, Maple changes the font size of labels!

2- Right clicking on the figure, choosing `Export`, then `Encapsulated Postcript`. Then I open the resulted `eps` file in GSview. Convert it to pdf. The result is a large-size pdf file which is heavy to render. Even when it gets rendered, scrolling up and down (for example in Adobe reader) is not good, because it seems the picture is going to get rendered again!

So how should one export a 3d plot from Maple in a pdf format, But not loosing the settings of the plot such as the font size of the labels and also not ending up with a heavy file?

Assume we have an expression in several variables, x,y,z,..., where all of them are function of one parameter, t, for an example consider the following simple expression;

f := 2*y(t)*(diff(x(t), t))^2+3*(diff(x(t), t$3))-3*x(t)*(diff(y(t), t));

Is there any command or a way to ask Maple to give the highest order of derivation of x or y with respect to t in the expression? For example in the above example, the answer for x is 3 and for y is 1. If we remove the second term, then the answer for x should be 1.