Take alec's solution. His color definition is the following line:

c:=table([1=(0.,0.,1.),2=(1.,0.,0.),3=(1.,1.,0.),4=(0.,0.,0.)]):

To change the colors accordingly, you have to find the RGB values
for you colors. Example:

convert(orange,colorRGB);
            COLOR(RGB, 0.80000000, 0.19607843, 0.19607843)

and so on. So replace the table def. with this one:

c:=table([1=(.80000000, .19607843, .19607843),
2=(1.00000000, 0., 0.),3=(1.00000000, 1.00000000, 0.),
4=(1.00000000, 1.00000000, 1.00000000)]):

Thomas

Hi,

I guess there is no exact answer, so it has to be done numerically.

evalf(Int(x*sinh(x)/sqrt(1-sinh(x)*sinh(x)), x = 0 .. log(sqrt(2)+1)));

Thomas

Yes, it is slow.

Sad, because i wanted to avoid the low level  plot structure manipulation. I even thought this  simple task could be done  with an appropiate color function for listdensityplot or matrixplot, but i had no luck. I'm wondering what makes plottools:-rectangle so slow.

Thomas

Hi, here is an other solution:
 

restart:

A := LinearAlgebra:-RandomMatrix(30, generator = 1 .. 4);

mycolors := [blue, red, yellow, black];
R:=proc(i, j) plottools:-rectangle([i,j],[i+1,j+1],color=mycolors[A(i, j)]) end proc;
plots:-display(seq(seq(R(i, j), j = 1..30), i = 1..30),scaling=constrained,axes=none);

Thomas

Thanks Robert, the fit seems to be ok.

Thomas

Hi, it sounds like a homework. Just tell Maple to differentiate your functions a few times and see if you can find a pattern. Then you have to proove it by hand anyway.

Hi, export the plot as .eps file. 

regards

restart:

f:=x+y+z=1; g:=3*x+2*y-z=5; h:=x*y+7*z^3=0;

plots:-implicitplot3d([f,g,h],x=-40..40,y=-40..40,z=-40..40,axes=normal);

fsolve({f,g,h});

assign(%);

sin(x+y+z);

Thomas

restart:

f:=x+y+z=1; g:=3*x+2*y-z=5; h:=x*y+7*z^3=0;

plots:-implicitplot3d([f,g,h],x=-40..40,y=-40..40,z=-40..40,axes=normal);

fsolve({f,g,h});

assign(%);

sin(x+y+z);

Thomas

First, make a plot to get an idea for the number of solutions and where to look for the starting values for fsolve:

restart:

eqn1:=x^2+y^2=9;eqn2:=x^3+y^3-sin(x*y)=7;

plots:-implicitplot([eqn1,eqn2],x=-5..5,y=-5..5);

fsolve({eqn1,eqn2},{x = -2..-1.7, y = 2..3});

fsolve({eqn1,eqn2},{x = 2..2.5, y = -2..-1.5});

Thomas

Try the sample option if you suppose that your plot is screwed at critical points.

plot(arccos(cos(x)), x = -2 .. 2, sample = [-1, 0, 1]);

Thomas

I'm wondering what kind of programming tasks make it necessary to use another editor. What are the 'serious Maple programmers'  doing  that requires more than a few dozen command lines of Maple code ?

What is your killer application ?

Thomas

First, you have a function that maps R^2->R, so you need plot3d. Then, you have a bracket in the wrong place.

restart:
 plot3d(abs(sin(x*w)-cos(x*w)),x=-0..2,w=-2..2,grid=[50,50],axes=normal);

Thomas

Hi,

I'd recommend using deplot, so you don't need to solve your deq explicitly.

Thomas

okay Alec,  ofc that's the complete answer. This thread is about a  mispelling  of the command Digits,  so i thought it's not necessary to continue it endlessly. I don't want to make you guys think i'm just pushing my post count to the silver leaf :-)

Thomas