Items tagged with labels

plot(A[1](t),,labels=["Time t","n times derivative of X[1](t)"]);

I have a code like above. I run it. Then,

in the labels; it was written "n times derivative of X[1](t)"] why not "2 times derivative of X[1](t)"]) ? and why was not the subscript appeared ? I mean that I want to see X1 instead of  X[1]?

Help me please.

Thank you.



How can I rotate vertically label of vertical axis ? Can you help me ?

Thank you.

How do you put labels on individual columns in ColumnGraph?

This post is my attempt to answer the question from here .  

The procedure  ContoursWithLabels  has 2 required parameters: Expr  is an expression in  x  and  y  variables,  Range1  and  Range2  are ranges for  x  and  y . In this case, the output is the list of floats for the contours and 8 black contours (with labels) (the axis of coordinates as a box). 

The optional parameters: Number is positive integer - the number of contours (by default Number=8),  S is a set of real numbers  C  for contours (for which Expr=C) (by default  S={}),  GraphicOptions  is a list of graphic options for plotting (by default  GraphicOptions=[color = black, axes = box]),  Coloring  is an equality  Coloring=list of color options for  plots[dencityplot]  command (by default Coloring=NULL). 

The code of the procedure:


ContoursWithLabels := proc (Expr, Range1::(range(realcons)), Range2::(range(realcons)), Number::posint := 8, S::(set(realcons)) := {}, GraphicOptions::list := [color = black, axes = box], Coloring::`=` := NULL)

local r1, r2, L, f, L1, h, S1, P, P1, r, M, C, T, p, p1, m, n, A, B, E;

uses plots, plottools;

f := unapply(Expr, x, y);

if S = {} then r1 := rand(convert(Range1, float)); r2 := rand(convert(Range2, float));

L := [seq([r1(), r2()], i = 1 .. 205)];

L1 := convert(sort(select(a->type(a, realcons), [seq(f(op(t)), t = L)]), (a, b) ->is(abs(a) < abs(b))), set);

h := (L1[-6]-L1[1])/Number;

S1 := [seq(L1[1]+(1/2)*h+h*(n-1), n = 1 .. Number)] else

S1 := convert(S, list)  fi;

print(Contours = evalf[2](S1));

r := k->rand(20 .. k-20); M := []; T := [];

for C in S1 do

P := implicitplot(Expr = C, x = Range1, y = Range2, op(GraphicOptions), gridrefine = 3);

P1 := [getdata(P)];

for p in P1 do

p1 := convert(p[3], listlist); n := nops(p1);

if n < 500 then m := `if`(40 < n, (r(n))(), round((1/2)*n)); M := `if`(40 < n, [op(M), p1[1 .. m-11], p1[m+11 .. n]], [op(M), p1]); T := [op(T), [op(p1[m]), evalf[2](C)]] else

if 500 <= n then h := floor((1/2)*n); m := (r(h))(); M := [op(M), p1[1 .. m-11], p1[m+11 .. m+h-11], p1[m+h+11 .. n]]; T := [op(T), [op(p1[m]), evalf[2](C)], [op(p1[m+h]), evalf[2](C)]]

fi; fi; od; od;

A := plot(M, op(GraphicOptions));

B := plots:-textplot(T);

if Coloring = NULL then E := NULL else E := ([plots:-densityplot])(Expr, x = Range1, y = Range2, op(rhs(Coloring)))  fi;

display(E, A, B);

end proc:


Examples of use:

ContoursWithLabels(x^2+y^2, -3 .. 3, -3 .. 3);




ContoursWithLabels(x^2-y^2, -5 .. 5, -5 .. 5, {-20, -15, -10, -5, 0, 5, 10, 15, 20}, [color = black, thickness = 2, axes = box], Coloring = [colorstyle = HUE, colorscheme = ["White", "Red"], style = surface]);




The next example, I took from here:

ContoursWithLabels(sin(1.3*x)*cos(.9*y)+cos(.8*x)*sin(1.9*y)+cos(.2*x*y), -5 .. 0, 2 .. 5, {seq(-2 .. 2, 0.5)}, [color = black, axes = box], Coloring = [colorstyle = HUE, colorscheme = ["Cyan", "Red"], style = surface]);



There are many more examples can be found in the attached file.


Edit. The attached file has been corrected.

I am creating a plot but the numbers on the horizontal axis overlap.  Is there a way to change the directions of the numbers displayed under the horizontal axis (tickmark labels) from horizontal to vertical?

The picture below shows how the numbers are bunched together under the horizontal axis.  I'd like them to be displayed vertical



Thank you


I am trying to use implicit plot. The plot is OK but I want to put labels such as what Latex produces :

$\frac{\Omega}{\omega_n}$ for x axis and $a_0 \mathrm{(m)}$ for y axis

How can I apply this in my maple code as below:

plot1:=implicitplot(a3, Omega_r=1.5..2.5, a=0.00000001..0.1, labeldirections=[horizontal, horizontal], axes=boxed, labels=["W/w_n",typeset("a_0 (m)")], labelfont=[SYMBOL]):

What I have put as bold does not work for me, it is making everything in Greek :) . I want combination of Greek and math.








I want to plot curves with Japanese title and labels. I want to plot through an external java program. Is it possible?

When I tried, I am getting control character unexpected error.

I found some codes for drawing my Graph in Maple:

[>  with(GraphTheory);

     W := Graph(undirected, {{0, 1}, {0, 2}, {0, 3}}):

     HighlightEdges(W, W, black):

     HighlightVertex(W, [1, 2, 3, 0], gray):

     DrawGraph( W);

 The way that the graph was plotted was not what I wanted to have. In fact, I expected to have something like this one:

I mean the vertexes are shaped by circles not by boxs. Moreover, one may want to see labels below (or above) the circled nodes. My question is 

" Is there any certain codes we can use to have this graph like the picture above? Can we manage the labels to be appeared near the nodes in Maple?

Thanks for your time!

I'm trying to add a label to a plot and need the derivative to be represented as a dot. My typesetting rules are set to extended, and it works in a worksheet but not in the plot. See attached image. The code to generate it is:

#the output is shown with a dot over phi

#derivative in label not shown as a dot
plot(sin( t), t=0..10, labels=["t", typeset(diff(phi(t),t))], labeldirections=[horizontal, vertical]);

any ideas?



this seems to work... ( i will leave this question here as it might come in handy to someone else).

plot(sin( t), t=0..10, labels=["t", Typesetting:-Typeset(diff(phi(t),t))], labeldirections=[horizontal, vertical]);

Is it a bug that using the first variant does not work? any ideas from the experts?

I'm sharing this in the hope it might help someone (my future self being the most likely). Since my suggestions are not perfect and a little messy, feel free to suggest better ways.

I spend a great deal of time tweaking my plots. Oftentimes I want to add labels to the curves right onto the plot. Most of the time it's easy to do. Occasionally I struggle. Sometimes I succeed, sometimes I give up.

Below is an example of the kind of plot I sometimes create. It's not perfect.

Dear sir i  want the contour values  automatically display on the contour.

Hear is the code and sample contour plot. 



I have a plot using plot() function. I would like to label the x-axis using math symbol (example a_subscript 0).

Is there any way I could do this. I tried label=["a[0]", "some text"]. However, the label on x-axis appears as a[0].


I am using Maple 15 Worksheet.

Thanks in advance.

Hi  Mapleprime community.
I would like to know, how can I  put a label for each in this procedure I write below. 
I need to  show  values for  the parameter q. If this possible ?¿
Here it is the procedure I already did.
> M:= q^(1-q)*MM;
> N:= ( 1 - ( 1 - (N0/M)^(1-q))*exp(- q*t))^(1/(1-q));
> F:= subs(N0=0.65,q= 0.2,MM=25, N);
> G:= subs(N0=0.65,q= 0.5,MM=25, N);

When exporting plots some labels are occasionally cropped. This is true when exporting via the context menu or with plotsetup('gif', etc.) for instance (plotsetup also drops the third label in 3D plots, the context menu keeps it).

I discovered that scaling the plot from the context menu can help: is there a programmatic way to control the plot scale?

From the context menu: Manipulator -> Scale, the plot can be rescaled to ensure that all...

I'd like to increase the vertical space for the x-axis and horizontal space for the y-axis, between the tick marks on the axes and the labels (e.g. 1, 2, 3, etc.) of the tickmarks.

Is there a way to do this?

Thanks for any help!


1 2 Page 1 of 2