Hello everyone,

I have an ODE for which I want to show that any initial condition leads to a convergence towards a point. So far I made a sequence of dsolve procedure, each with a distinct random initial condition, and I can plot everything on the same plot without a problem with display.

The parameter of the ode is the time t, so that the system of ode is some d/dt x(t) = f(x(t),y(t),z(t)), etc. To show time passing, I have two solutions in a sense, either by color, or by an animation. But the latter is not very convenient as I am already planning of to animate the rotation of the camera since the plot is 3D. What I would like, is the color of the curve to be say blue at time 0 then go to green as t goes to 5, for example.

I know something should be possible as there is somehow an example given in plot3d documentation,
plot3d(x*exp(−x^2−y^2),x=−2..2,y=−2..2,color=x)
but I can't seem to make it work, no matter where I put my "color = t" option. Would one have an idea on how to achieve that?

Thank you for your time,
Cryme

is there a way to change the color of just the labels on the axis ticks only? 

I wanted to do this for DEplot, but I started with normal plot since it is easier. I could change the colors of the axis, but this changes not only the tick labels but the whole axis itself:

restart;
plot(sin(x),x=-Pi..Pi,axis=[tickmarks=[color=red]], color=blue);

So the axis itself changed color as well. It is OK for the ticks as well as the ticks labels (the numbers of the ticks). But prefer the axis itself not to be red.

Once there is a way to do the above, I wanted to apply to DEtools:-DEplot. Why? Becuase it is hard to read the Axis tick labels on DEplot. I thought that changing the color of the tick labels will it easy. But DEtools:-DEplot does not even accept axis command:

ode:= diff(y(x),x)=2*x:
DEtools:-DEplot(ode,y(x),x = -2 .. 2,y = -2 .. 2, [[0.1,0]],
               labels=["",""],
               linecolour = red,
               color = blue,
               'arrows' = 'medium',
               axesfont=['Times', 'bold', 12]
               );

You can see it is hard to read the axis tick labels above, as arrows go over some of them,. If I make them say RED, I think it will make it more clear.

Now when adding the axis options, it gives error

DEtools:-DEplot(ode,y(x),x = -2 .. 2,y = -2 .. 2, [[0.1,0]],
               linecolour = red,
               color = blue,
               arrows = MEDIUM,
               axesfont=['Times', 'bold', 10],
               axis=[tickmarks=[color=red]]
               );

Error is generated, axis is not supported command.

Any idea how to make tick labels red for DEtools:-DEplot? It will be OK if I can get both the axis and the ticks RED, at least it will be better than it is now.

One workaround way I currently use is this:

ode:= diff(y(x),x)=2*x:
p1:=DEtools:-DEplot(ode,y(x),x = -2 .. 2,y = -2 .. 2, [[0.1,0]],
               labels=["",""],
               linecolour = red,
               color = blue,
               'arrows' = 'medium'                    
               );
p2:=plot(0,x=-2..2,y=-2..2,axis=[tickmarks=[color=red]]);
plots:-display([p2,p1]);

But this seems like a hack to me. There should be a way to directly set tickmarks color in DEplot?

Letter_M.mwsLetter_M.txt

Attached are two similar files: one written in Maple 7 code, and a similar text file.

    My original intention was to have the two dimensional letter M do an animated "knees up" in just one color.  However the program works - but not as I intended.  The individual four sections danced around - and I thought it was rather novel - but decided to make each one a different color - red, blue, white and turquoise.  I was surprised to find the polygons were all the same turquise color - that of the fourth polygon.   Is there an easy fix, or must I write four separate procs for the four polygons?

Thanks in advance for any advice.  David 

how to change the ode polt color for the below code

with(plots); 

R1 := .1; R0 := .1; m := .1; a := .1; Ha := .1; Nt := .1; Nb := .1; Pr := 6.2; Le := .6; Bi := 1; Ec := .1; k := 1; r := .1; A := 1; 

fcns := {C(y), T(y), U(y), W(y)};

 sys := diff(U(y), `$`(y, 2))+(R1*(diff(U(y), y))-2*R0*W(y))*exp(a*T(y))-a*(diff(U(y), y))*(diff(T(y), y))-Ha = 0, diff(W(y), `$`(y, 2))+(R1*(diff(W(y), y))+2*R0*U(y))*exp(a*T(y))-a*(diff(W(y), y))*(diff(T(y), y))-Ha = 0, diff(T(y), `$`(y, 2))+R1*Pr*(diff(T(y), y))+Pr*Ec*exp(-a*T(y))*((diff(U(y), y))*(diff(U(y), y))+(diff(W(y), y))*(diff(W(y), y)))+Pr*Ha*Ec = 0, diff(C(y), `$`(y, 2))+Pr*Le*R1*(diff(C(y), y))+Nt*(diff(C(y), `$`(y, 2)))/Nb = 0;

bc := U(0) = 0, W(0) = 0, C(0) = 0, (D(T))(0) = Bi*(T(0)-1), U(1) = 0, W(1) = 0, C(1) = 1, T(1) = 0; 

L := [.5, 1.0, 1.5, 2.0]; AP := NULL; 

for k to 4 do R := dsolve(eval({bc, sys}, Ha = L[k]), fcns, type = numeric, AP); AP := approxsoln = R; p1u[k] := odeplot(R, [y, U(y)], 0 .. 1, numpoints = 100, labels = ["y", "U"], style = line, color = ["black", "blue", "red", "pink"]) end do; 

display({p1u[1], p1u[2], p1u[3], p1u[4]})

cone_rail_track_Maple.mws

The attached program is of a point moving along a conical path of a cone, then doing a descent back to the start.   For values R=60, r=20, h=10 the animation seems to work reasonably well.  However when r=19 - only a small change - the development plot of the cone is only partially shown?   Also, I have some variables nameP1, nameP2 which I would like to alter the color of.  Howdo I do this?

  Any comments or help most appreciated. 

Color_letterD.mws

The attached program shows a convex shape viz the letter D made of an implicit curve and a straight upright line.  I'd like to color the interior.  I was thinking of trying to make a polygon from the points of the curve - but I don't know how to access them.  If I could access them I could put the coordinates in a list L:=[[x1,y1],[x2,y2]...[xn,yn]]  and then just use plots( polygon(L).).

Any suggestions appreciated.   ...and please keep it simple - I'm only using Maple 7.

Dearz

I draw multiple graphs in singal coordinate with same line style. I don't know how to change the line style and color for g[1], g[2] and g[3] becuase of loop. Please some fix my problem to give them different style and color.

graph.mw

Hi,

I am wondering how we can edit a diagram plotted in maple. for example in editdiagram.mw I want name tips of diagram as "a", "b",.... and write them besides the tips on diagram.

Another question is how we can make color different parts of a single diagram by various colors? for example in above diagram we want make blue vertical line, make green horizontal line and make black the curve line?

Thanks a lot

Is there a way to specify different colors for different output variables? For example, if x,y, and z appear in the entire document as variables, I want x to be red, y to be blue, and z to be green whenever an output is displayed.

Thanks

Of course, with Maple.

I have an excel macro file (enable macro or save as macro and run) in which the colour of cells keep changing by a macro named macro2.

Can we achieve it in maple or maple sim?

Any one please suggest a way for me to try out.

COLOR1.xlsx

Thanks.

Ramakrishnan V

Hello!
Used PolyhedralSets for plotting.
At the moment there are a number of questions in the construction of graphs:
How to adjust the rotation of this figure around the z axis?
How to make, what color of a figure received in a cut would be much darker or Darker color?

with(PolyhedralSets);
P1 := PolyhedralSet({-x-20 <= 0, -x-20 <= 20-y, -x-20 <= -(1/2)*y, -x-20 <= -z, -x-20 <= -(x+y)*(1/2), -x-20 <= -(y+z)*(1/2)});
Plot(P1, axes = normal, view = [-40 .. 40, -40 .. 40, -40 .. 40], orientation = [30, -30, -60], color = blue, thickness = 2);
Plot(P1, axes = normal, view = [-40 .. 40, -40 .. 40, -40 .. -40], orientation = [0, 0, 0], color = blue, thickness = 2)

Dear community, 

I'm new to maple and was wondering if you could help me out.

I have this curve where I want to make a line that goes from x=0.5 up to its value on the curve in this case 1.60 and then all the way to the y-axis so there is an area under the curve which I can color if that's even possible?

I have the following in maple:

k := 2.5;
                              2.5
Ca0 := 1;
                               1
v := 20;
                               20
Ca := Ca0*(1-x);
                             1 - x
Fa0 := Ca0*v;
                               20
Cb := Ca0*x;
                               x
ra := k*Ca*Cb;
                         2.5 (1 - x) x
plot(1/ra, x = 0 .. 1);
 

thank you for your help

Best Regards

Saad

I am plotting a pair of lists of points using

pointplot(Listap, Listbp, symbol = point, symbolsize = 1, size = [1200, 1200])

How could is do this with plot so I can add colours? Along the lines Listap(i)^2+Listbp(i)^2 =R, R is in the range 0..1,then colour =R*256 or any other imaginative way of adding colour.
 

Download 096-Chayley_transform_for_MP_question.mw

I want to make the blue output my procedure spits out a another color, and align it to the right, is this even possible? Or something like it?