Items tagged with axis

> restart;


pr := .72; p := 0; n := [.5, 1, 1.5]; s := 0; a := .2; b := 0; L := [red, blue, green]; l := 0; k := 1;

for j to nops(n) do R1 := 2*n[j]/(1+n[j]); R2 := 2*p/(1+n);

sol1 := dsolve([diff(diff(diff(f(eta), eta), eta), eta)+f(eta)*(diff(diff(f(eta), eta), eta))+R1*(1-(diff(f(eta), eta))^2) = 0, diff(diff(theta(eta), eta), eta)+pr*k*f(eta)*(diff(theta(eta), eta))+R2*pr*k*(diff(f(eta), eta))*theta(eta)+(2*(a*(diff(f(eta), eta))+b*theta(eta)))/(1+n[j]) = 0, f(0) = 1, (D(f))(0) = b*((D@@2)(f))(0), (D(f))(1.8) = 0, theta(0) = 1+s*(D(theta))(0), theta(1.8) = 1], numeric, method = bvp);

fplt[j] := plots[odeplot](sol1, [eta, diff(diff(f(eta), eta), eta)], color = L[j], axes = boxed); tplt[j] := plots[odeplot](sol1, [[eta, theta(eta)]], color = L[j], axes = normal) end do; plots:-display([seq(fplt[j], j = 1 .. nops(n))]);

plots:-display([seq(tplt[j], j = 1 .. nops(n))]);

can we chage the axis sir ?? like  f'' vs eta to f'' vs lambda.



l := 1:







[blue, green, red, yellow]



for j to nops(p) do R1 := 2*n/(n+1); R2 := 2*p[j]/(n+1); R3 := 2/(n+1); sol1 := dsolve([diff(diff(diff(f(eta), eta), eta), eta)+f(eta)*(diff(diff(f(eta), eta), eta))+R1*(1-(diff(f(eta), eta))^2)-M*(diff(f(eta), eta)) = 0, diff(diff(theta(eta), eta), eta)+pr*f(eta)*(diff(theta(eta), eta))-R2*pr*(diff(f(eta), eta))*theta(eta)+R3*(A*(diff(f(eta), eta))+B*theta(eta)) = 0, f(0) = 1, (D(f))(0) = L+b*((D@@2)(f))(0), (D(f))(7) = 1, theta(0) = 1+s*(D(theta))(0), theta(7) = 0], numeric, method = bvp); plots[odeplot](sol1, [eta, ((D@@2)(f))(eta)], color = red); fplt[j] := plots[odeplot](sol1, [eta, f(eta)], color = K[j], axes = boxed); tplt[j] := plots[odeplot](sol1, [[eta, theta(eta)]], color = K[j], axes = normal); fplt[j] := plots[odeplot](sol1, [eta, diff(f(eta), eta)], color = K[j], axes = boxed) end do:



plots:-display([seq(fplt[j], j = 1 .. nops(n))]);






[eta = .1, f(eta) = 1.05958091104306206, diff(f(eta), eta) = .643210624614908300, diff(diff(f(eta), eta), eta) = .881482678165403044, theta(eta) = .623284688471349546, diff(theta(eta), eta) = -.578039450700496560]



[eta = .2, f(eta) = 1.12800452943200891, diff(f(eta), eta) = .722346769554029544, diff(diff(f(eta), eta), eta) = .706526135439307756, theta(eta) = .568123251856343492, diff(theta(eta), eta) = -.525530979400813946]



[eta = .3, f(eta) = 1.20351830506746449, diff(f(eta), eta) = .785511903074783246, diff(diff(f(eta), eta), eta) = .561442941644520022, theta(eta) = .518103974464032668, diff(theta(eta), eta) = -.475257424178228970]



[eta = .4, f(eta) = 1.28466826824405134, diff(f(eta), eta) = .835505660630676662, diff(diff(f(eta), eta), eta) = .442470716586289281, theta(eta) = .472985640642506311, diff(theta(eta), eta) = -.427567049032814172]



[eta = .5, f(eta) = 1.37026161183094430, diff(f(eta), eta) = .874752886901313142, diff(diff(f(eta), eta), eta) = .345911467377074400, theta(eta) = .432494259338694842, diff(theta(eta), eta) = -.382764248064397461]



[eta = .6, f(eta) = 1.36678221814533528, diff(f(eta), eta) = .771028661281065508, diff(diff(f(eta), eta), eta) = .407805382194403932, theta(eta) = .876413930517023876, diff(theta(eta), eta) = -.197648778495384870]



[eta = 2., f(eta) = 2.66120522956795602, diff(f(eta), eta) = .991532161353848585, diff(diff(f(eta), eta), eta) = 0.251405465681268682e-1, theta(eta) = .635967939441598018, diff(theta(eta), eta) = -.144641270049362308]















Coordinate axis

6th class (in Russia)

Guidance manual for use at lessons (at school)


(It is possible bad English)


I would like to know how one would add a superscript in maple? For example, I need to label an axis with unit cm^-1 but it shows 1/cm (like a fraction) when executed. How could I avoid this so the graph label would output cm^-1? Thank you for your help in advance!

Gambia Man

Good evening all,

How can I plot a straightline with points 

LogAt = - 0.097,  -0.20, -0.22, -0.25, -0.30 ,-0.40, -0.45, -1.01 and

t = 0, 20, 40, 60, 80, 100, 120, 140

Where LogA[t] on y-axis and t on x-axis. 

I have try this before . 

plot([[0,-0.097], [20,-0.20], [40,-0.22], [60,-0.25], [80,-0.30], [100,-0.40],  [120,-0.45],  [140,-1.01]]);

I have a function c(k), I want to graph it where the x-axis has the units k/K (where K is a constant, about 0.0027). I was wondering how that is possible to do because for the life of me I can't figure out how to get maple to allow for relative units like that. Here's my code:



c := sqrt(9.8*K/k+0.7197e-1*k/K*(1/1000))



plot(C, k = 0 .. 4, 0 .. 4)





i want a plot with labels = ["x values", "y values"] but without displaying y-axis


thanks in advance!

Dear all,

I like to plot a function, let's say x^2 in a boxed axis mode; i.e. 



Howeve, I want the plot to have tickmarks on all four axises, and not only the normal x and y axis.

Can anyone help me with this please? 




I'm trying to use the stats graph feature in Maple 17, but I do not know how to change the x-axis in a bar graph. The values that are default are 1, 2, 3,... but I would like to have words instead. Any idea how to do this?


I have a simple list:

xlist := [150, 250, 500, 800, 1300, 2500, 5000]:

ylist := [.3, .5, .8, 1.0, 1.2, 1.4, 1.6]:

where after i said x:=plot(xlist,ylist);

What I want to do is ask maple" At what x value does the graph intersect with 1.5 on the y axis" or "at what y value does the graph intersect with 3000 on the x axis". 

The data points are just that, I've been looking for commands to ask these questions but have been without luck. You don't need to give me the answer if you can point me to somewhere where this information is written, that would be very helpful!


Thank you.

Can the spacing between gridlines on a plot be modified? i.e., can I have more lines?

How can I link the axes in two or more separate plots so that when I zoom in one, the others are also zoomed. Also when I want to link the 'x' or the 'y' axis only.

Thank you

Hi there,

I would like to know whether there is some way to print non-integer axis numbers for a given plot.

Let's say I have an array for an independent variable such as [0.5 1 1.5 2]. I would like Maple to use these values in the corresponding axis instead of printing the array indices [1, 2, 3, 4].

I would like to know how this is done for a surface plot.


Attached is the worksheet where "b" is such a parameter/independent variable:


Thank you,


Hi,I'm using Maple 15. When I plot with the command

Aplot:= Plot2D(Q[2 .. 26, 13], Q[2 .. 26, 14], style = point, color = blue, symbol = solidcircle, symbolsize = 16, font = [Arial, Bold, 13], axes = box, axis = [thickness = 1, tickmarks = [5, subticks = 5]]);

There is the report of problem

Error, (in plot/options2d) unexpected axis suboption: thickness = 1

Thank you for helping me.


When I plot an expresion I would the graphics be framed. What I am getting, instead, is the curve and the axis, whith no frame at all. How can I force Maple to make the graphic surrounded by a frame? 

Someone asked on about plotting x*y*z=1 and, while it's easy enough to handle it with implicitplot3d it raised the question of how to get nice constained axes in the case that the x- or y-range is much less than the z-range.

Here's what WolframAlpha gives. (Mathematica handles it straight an an plot of the explict z=1/(x*y), which is interesting although I'm more interested here in axes scaling than in discontinuous 3D plots)

Here is the result of a call to implicitplot3d with default scaling=unconstrained. The axes appear like in a cube, each of equal "length".


Here is the same plot, with scaling=constrained. This is not pretty, because the x- and y-range are much smalled than the z-range.


How can we control the axes scaling? Resizing the inlined plot window with the mouse just affects the window. The plot itself remains  rendered in a cube. Using right-click menus to rescale just makes all axes grow or shrink together.

One unattractive approach it to force a small z-view on a plot of a much larger z-range, for a piecewise or procedure that is undefined outisde a specific range.

                        if abs(z)>200 then undefined;
                        else x*y*z-1; end if;
                      end proc,
                      -1..1, -1..1, -200..200, view=[-1..1,-1..1,-400..400],
                      style=surfacecontour, grid=[30,30,30]);

Another approach is to scale the x and y variables, scale their ranges, and then force scaled tickmark values. Here is a rough procedure to automate such a thing. The basic idea is for it to accept the same kinds of arguments are implicitplot3d does, with two extra options for scaling the axis x-relative-to-z, and axis y-relative-to-z.

implplot3d:=proc( expr,
                  {scalex::numeric:=1, scaley::numeric:=1} )
   local d1, d2, dz, n1, n2, r1, r2, rngs, scx, scy;
   uses plotfn=plots:-implicitplot3d;
   (n1,n2) := lhs(rng1), lhs(rng2);
   dz := rhs(rhs(rng3))-lhs(rhs(rng3));
   (scx,scy) := scalex*dz/(rhs(rhs(rng1))-lhs(rhs(rng1))),
   (r1,r2) := map(`*`,rhs(rng1),scx), map(`*`,rhs(rng2),scy);
   (d1,d2) := rhs(r1)-lhs(r1), rhs(r1)-lhs(r1);
   plotfn( subs([n1=n1/scx, n2=n2/scy], expr),
           n1=r1, n2=r2, rng3, _rest[],
end proc:

The above could be better. It could also detect user-supplied custom x- or y-tickmarks and then scale those instead of forming new ones.

Here is an example of using it,

implplot3d( x*y*z=1, x=-1..1, y=-1..1, z=-200..200, grid=[30,30,30],
            style=surfacecontour, shading=xy, orientation=[-60,60,0],
            scalex=1.618, scaley=1.618 );

Here is another example

implplot3d( x*y*z=1, x=-5..13, y=-11..5, z=-200..200, grid=[30,30,30],
            style=surfacecontour, orientation=[-50,55,0],
            scaley=0.5 );

Ideally I would like to see the GUI handle all this, with say (two or three) additional (scalar) axis scaling properties in a PLOT3D structure. Barring that, one might ask whether a post-processing routine could use plots:-transform (or friend) and also force the tickmarks. For that I believe that picking off the effective x-, y-, and z-ranges is needed. That's not too hard for the result of a single call to the plot3d command. Where it could get difficult is in handling the result of plots:-display when fed a mix of several spacecurves, 3D implicit plots, and surfaces.

Have I overlooked something much easier?


1 2 3 Page 1 of 3