Hello:

I would like to be able to extract data from a plot strucutre. So say I've done:

p:=plot([sin(x), cos(x)],x=0..1, legend=["sin","cos"]):

display(p);

now I can see the raw strucuture with

lprint(p):

but not quite sure how to extract two lists of tuples that contain the data. I would also like to extract the two items in the legend.

Does anyone know how to do that??

thanks.

eqn1:=(1-x)*exp(c*d*M*z + a*(1-d)*M*y+(M/2))-x*exp(-c*d*M*z - a*(1-d)*M*y - (M/2))=0;

eqn2:=(1-y)*exp(a*d*M*x + b*(1-d)*M*z+(M/2))- y*exp(-a*d*M*x - b*(1-d)*M*z - (M/2))=0;

eqn3:=(1-z)*exp(b*d*M*y + c*(1-d)*M*x+(M/2))- z*exp(-b*d*M*y - c*(1-d)*M*x - (M/2))=0;

When I try to solve this system of equations as:

solve( {eqn1,eqn2,eqn3},{x,y,z} );

or 

solve( {eqn1,eqn2,eqn3,0<x,x<1,0<y,y<1,0<z,z<...

Hello:

I am trying to be able to solve my plots into a file programatically (not via right click/export).

when I do this:

p:=plot(sin(x));display(p);

plotsetup(default):  #optional - just to be sure start off at default.
plotsetup(ps, plotoutput="test.eps", plotoptions=`portrait,noborder`);
display(p);

things work ok

BUT.. doint this:

Hello all,

I'm sorry that I'm just not very good at working with Maple's optimization tools, but I appreciate your willingness to work with me. So, this is all related to the same problem I had been working with a few months ago. I used the "operator form" of NLPSolve to minimize the squared residuals of a temperature distribution with an external dataset by changing a few...

Hello,

I do want to export as  LATEX input (displaying only 3 digits) my matrix "tableau".

After using

latex(  evalf(tableau),   3 )

I get too many decimals. What should I do to send as latex input only 3 decimals. My commands are below and my worksheet attached.

Thanks in advance for any help,

Jean-Jacques

restart:
f1 :=  (w1, w2,n) -> add(add(

Hello,

It is obvious why my command

interface(precision=3) 

is not working?. I get 10 decimals(commands below and output in attached file).

I hope it is easy to fix.

Kindest regardsSSSzzzz

Jean-Jacques

restart:
f1 :=  (w1, w2,n) -> add(add(
 `if` (1/2 <= w1+j*w2+((1/n)*(1-w1-w2))*k and
j*w2 +((1/n)*(1-w1-w2))*k < 1/2 ,
(1/((n+1)*(n+2)))*factorial(k+j...

Here's a fun video that we discovered today.  A Maple user and music composer posted a video featuring one of his songs. As the description of the video states, it includes "Maple animations of parametric surfaces mixed up with modulo functions rendered in cylindrical coordinates."

The animations start at the 1:12 mark of the video. 

Hello,

I'm making a simple for loop with a few lines.  I just figured out how to Shift + Enter to go to a new line without yet executing.  How do I indent my code on the next line, like in every other programming language ever made?  The Tab key does nothing.

Thank you.

Suppose N numbered cars start a race with starting positions N < ... < 4 < 3 < 2 < 1, car number 1 starting in front. (the car's index is the position on the starting grid) The race covers a total of L laps.

If two successive cars are in the position i < j, the probability that i overtakes j within 1 lap is P(i,j). This probability is independent of the position on the track and is constant throughout the race. For instance, if the starting positions...

Hi:

I have justdiscovered that the following "simplify" command gives the wrong answer on Maple 11. Could someone please check to determine if Maple 14 does any better?

> S1:=Sum(1/GAMMA(j+1)/GAMMA(2-j)*GAMMA(1+a-c+j)*GAMMA(1+a-b+j)/GAMMA(a-
> 1+j)*GAMMA(-2+b+c-j+n-a),j = 0 .. 1);
> Ans1:=simplify(S1);

          1
        -----
         \

Hello,

My array contains numbers like

[ 0.333333 0.211111]

I used the command

interface(displayprecision=3)

and it is displayed  [ 0.333  0.211]   (which is ok).

However, when I send the output to latex

latext(%)

I get again [ 0.333333  0.211111].

How  could I display  only 0.333   after using LATEX(%)?

I have to prove a trig identity with Maple for class. It's rather simple, but I can't figure out how to get the right-hand side into the form I want. What I have is:

tan(x)^2*sin(x)^2 = sin(x)^4/cos(x)^2

I simply want to convert sin(x)^4/cos(x)^2 into tan(x)^2*sin(x)^2.

The conversion is apparent to anyone looking at it but I simply cannot figure out how to put it in the right form, and I can't change the left-hand...

Hi all,

I have those functions

M:=n->piecewise(And(n::integer,(n/p)::odd),((4*Br)/(mu0*Pi*(n/p)))*sin((Pi/2)*(n/p)),0);

W:=(n,r)->piecewise(And(n::integer,(n/p)::odd),(M(n)*r)/(mu1*(1-n^2)),0);

u1:=(r,theta)->sum((r^n*AI[n]+r^(-n)*BI[n]+W(n,r)*sin(n*theta0))*sin(n*theta)+(r^n*CI[n]+r^(-n)*DI[n]+W(n,r)*cos(n*theta0))*cos(n*theta),n = 1 .. nn);

diff(u1(r,theta),r);

Error, (in type/polynom) too many levels of recursion

I'm posting here because between the time I started writing and the time I wanted to post my answer, the question is no longer available (may be a network problem, a withdrawn question, don't know)

The first problem is that you write ASAP in the title of your question, very uncool.

Another problem is that you use "else if" instead of elif, with "else if" you need one "end if" for each if but with elif you only need one "end if" to close the...