I have a system of 16 polynomial equations in 15 variables. Independently I know there is at least a one parameter familiy of solutions to this system, so there is reason to think at least two of the equations are redundent. I would like to use Maple to decipher which of the equations are redundent, but I am unsure how to proceed.

So far I have looked at the Groebner package, and it seems like the Reduce and InterReduce commands will be useful. Say I call the set of 16 polynomials X and define a lexicographical order T on the variables. I then ask maple to compute

Reduce(X,X,T)

and receive a list with 7 zeroes and 9 polynomials. What exactly is this telling me? Does this mean that maple has used polynomial division and found that 7 of the equations are redundent?

Thanks for your help!

the expression

sN=a1+a2+...+aN

for k from 1 to N do

psum=psum+a(n);

end do;

s[k]:=psum;

end do:

how do we transform this using only one loop?

thanks

minimize((x+y)^2+cos(y)^2, x=-4..4, y=-2..2);  # cos(2)^2    should be 0
minimize((x+y)^2+cos(y), x=-4..4, y=-4..4);      
   Error, (in unknown) mapped procedure in `ormap' must return true or false
minimize((x+y)^2+cos(y));                                   # infinity   ?!  should be -1

Edited. Corrected second example

Hello there! Maple 2016.1 sometimes gets crasy about parsing input strings. I managed to capture this behaviour in the attached file. It looks like below. I am not sure what exactly triggers it. It just starts happening all of a sudden. What might be the cause...? 

Download test.mw

Dear All

Download Expression.mwExpression.mw

Regards

I have the following command （credit to @Carl Love ), this command will do certain bit shifting with the next block, and the last block will shift with the first block. 

B:= Matrix([[0,0,1,1,0,0,1], [0,0,1,1,1,0,0],[0,1,0,1,0,1,0], [1,0,0,1,1,1,0]]):
Bnew:= copy(B):
Bnew[[4,1,2,3], 3..5]:= B[.., 3..5]:
Bnew; 

May i know any command can help to reverse the shifting position between the block？

for example,

original block  [0,0,1,1,0,0,1], [0,0,1,1,1,0,0],[0,1,0,1,0,1,0], [1,0,0,1,1,1,0]

i need to shift the 3..5 position of block 1 and change to the 5..3 position of block 2. 

Example:

After shifting, 

Bnew=[0,0,1,1,1,0,1],[0,0,0,1,0,0,0],[0,1,1,1,0,1,0],[1,0,0,1,1,1,0]

Any command can help to solve? thank you in advance.

May I know any command can help to random selected a position in a group of bit number then flip that number but with condition after convert to bytes the number cannot be more than 7?

For example,

I have integer 3, i convert to binary become 0000011

then i need a command to random select a position to flip and only one bit can be flipped.

After that the group of flipped number will convert back to decimal, but total value cannot more than 7? any command can solve?  Thank you. 

Hi Maple Primes

I have this parabola -

y2:=6z^2 +z+244;

x2:=9z^2+3z+367;

I use the eliminate command to write without z;

c:=eliminate([y=y2,x=x2],z);

Then I have the expression

e2 = 4x^2-12xy+9y^2-7x+9y+369.

My questions is, what integer values for x and y are on the curve e2?

I think the answer may be exactly when z is an integer.

How could I determine this given only e2?

Regards,
Matt

Hello,

How can I get the minimum point of (sin(x+y))

plot3d(sin(x+y), x=-1..1, y=-1..1);

Hi,

I would like to plot a cone where I can change the vertex angle directly. I would also to be able to change the size of the cone. I have tried:

cone([r*cos(phi)*sin(theta), r*sin(phi)*sin(theta), r*cos(theta)], phi = 0 .. 2*Pi, r = 0 .. 1, theta = (1/6)*Pi, coords = spherical)

but this gives me the following error:

Error, (in plot3d) unexpected options: [[r*cos(phi)*sin(theta), r*sin(phi)*sin(theta), r*cos(theta)], phi = 0 .. 2*Pi, r = 0 .. 1, theta = (1/6)*Pi]

Thanks!

Hello

I would like to know if it is possible to change the color for the result from blue to black or red. Maybe by editing the text that state the colors.

And the same goes for the color palette, can I make my own colors in the color palette text. It should work by default.

Regards

Heide

Hi everybody;

In the following attached file, I am trying to solve a system of nonlinear equations with one equality constraint. I have 9 equations and 9 unknowns. Attached file has composed of 3 main parts, first is input data, second is the 9 nonlinear equations from E_1 to E_9 and finally third part is constraint equation called C_1. My unknowns are "phi, theta, p, q, r, T, L, M and N". My question is that: Can Maple solve this problem?? Is there any solution to this problem or I have to change input data?? If Maple can solve this problem, how can I do that?? 

I appreciate your help in advance.

NL.mw

with(DEtools):
phaseportrait([secret], [a(t), b(t), c(t)], t = -2 .. 2, [[a(0) = 1, b(0) = 0, c(0) = 2]], stepsize = 0.5e-1, scene = [c(t), a(t)], linecolour = sin((1/2)*t*Pi), method = classical[foreuler]);

Error, (in DEtools/phaseportrait) the ODE system does not contain derivatives of the unknown function a

Hello guys, i have some problems.

i have system

s=b*u = 

now, we have X' = (A+S)X,  i need numeric/analytical solution and found Vector(X)

I have some problems with syntax maple.

Sorry for my bad english.

ricatti.mw

Hello

I am a student of an engineering career

The math teacher is going to ask us to solve some exercises Matlab

The teacher is very hard and explains nothing of Matlab in class

We must learn to use the program on our own viewing internet watching tutorials

I was wondering if somebody could help solve some exercises.

Are only three exercises which are imposible to me

I would appreciate it greatly.

Thank you

My e-mail :

alessagosti1@gmail.com