# Question:Why I cannot get results of those instructions?

## Question:Why I cannot get results of those instructions?

Maple

Dear MapleUsers,

I was trying to run this couple of instruction copied below, but I cannot obtain any result. Did I forget to include some package?. I am using Maple 10.

In the FIRST case I get a message:

Error, (in simpl/min) arguments must be of type algebraic
Plotting error, empty plot

In the SECOND case the error message is:

Error, (in unknown) invalid argument

Jean Jacques

FIRST

pts:= NULL:

`  for X3 from 0 to 1 by 0.01 do`
`    R:= fsolve({-3*x1+4*x1^3-3*x2+4*x2^3-3*X3+4*X3^3 = 0, `
`         5*x1-20*x1^3+16*x1^5+5*x2-20*x2^3+16*x2^5+5*X3-20*X3^3+16*X3^5 = 0},`
`        {x1=X3..1,x2=X3..1});`
`    if type(R,set) then `
`      X2:= min(map(rhs,R));`
`      X1:= max(map(rhs,R));   `
`      M1:= X1 + X2 + X3;`
`      pts:= pts, [X1,M1],[X2,M1],[X3,M1];`
`    end if`
`  end do:`
`  plots[pointplot]([pts]); `

and  SECOND

plottools[transform]((x,y,z) -> [x,x+y+z])

`   (plots[intersectplot](-3*x1+4*x1^3-3*x2+4*x2^3-3*x3+4*x3^3,`
`           5*x1-20*x1^3+16*x1^5+5*x2-20*x2^3+16*x2^5+5*x3-20*x3^3+16*x3^5,`
`    x1=0..1, x2=0..1, x3=0..1));`

This has been branched into the following page(s):
﻿