Hello,

I need to solve bond orders in Maple the formula is

Bond order = [number of bonding electrons – number of anti-bonding electrons]/2

I need to implement it in Maple, I dk how

Thanks

when calculate the intersection of I2 and J2, i exactly follow this picture
https://skydrive.live.com/redir?resid=E0ED7271C68BE47C!311

however, it is G list which is not the stated in this picture

restart;
with(Groebner):
I2 := {x^2+y^3-1, x-y*x+3};
J2 := {y*x^2-1};
G1 := Basis({expand(w*I2[1]),expand(w*I2[2]), expand((1-w)*J2[1])}, 'tord', deglex(x,y));
G2 := Basis({expand(w*I2[1]),expand(w*I2[2]), expand((1-w)*J2[1])}, 'tord', deglex(w,x,y));

Dear All

How do I solve the followinh set of non-linear equations for the unknowns as given below:
    

    Zth1=R1(1-e^(-t1/tau1))+R2(1-e^(-t1/tau2))+R3(1-e^(-t1/tau3))+R4(1-e^(-t1/tau4))+R5(1-e^(-t1/tau5))+R6(1-e^(-t1/tau6))

    Zth2=R1(1-e^(-t2/tau1))+R2(1-e^(-t2/tau2))+R3(1-e^(-t2/tau3))+R4(1-e^(-t2/tau4))+R5(1-e^(-t2/tau5))+R6(1-e^(-t2/tau6))

    Zth3=R1(1-e^(-t3/tau1...

I'm trying to graph a contour map of this function: e^(y/x)

>with(plots)

>contourplot(e^(y/x),x=-3..3,y=-0.5..0.5)

I thought the contour map for this function would looks more like several lines intersects at the origin. But when I graph it on Maple, it doesn't looks like the graph I'm looking for.

Did I put in a wrong range?

Hi everyone, I'm new to the forum and also new to Maple.

I am trying to do the following:

"Write a procedure, marks, to take a student’s mark and output the appropriate grade, based on the following table:"

Hello,

I am trying to make a three dimensional cube in maple by using matrices. I also have to make it rotate about the x,y,z axes, project it with three different origins, and translate it (I'm assuming this means translate it across an axis?). I have already made the cube, but when I try to rotate it across one of the axes by multiplying my matrix by one of the rotation matrices (this is what I put un maple: P1:= matrix([[1,0,0,0],[0,cos(theta),-sin(theta),0],[0,sin(theta),cos(theta),0...

Hi.

I need to plot some function f(x,y) on a right hexagon pllaced on (x,y)-plane. I can define my hexagon in following way:

if -(4*pi)/3/sqrt(3)<x<(2*pi)/3/sqrt(3) then -sqrt(3)*(x-4*pi/3/sqrt(3))<y<sqrt(3)*(x-4*pi/3/sqrt(3))

if -(2*pi)/3/sqrt(3)<x<(2*pi)/3/sqrt(3) then -2*pi/3<y<2*pi/3

if (2*pi)/3/sqrt(3)<x<(4*pi)/3/sqrt(3) then -sqrt(3)*(4*pi/3/sqrt(3)-x)<y<sqrt(3)*(4*pi/3/sqrt(3)-x)

My haxagon looks like

OK, I want to plot 10-15 curves on the same coordinate system P. I generate and put the equations of said curves in an array with a procedure, but when plotting the array, I receive an array of plots, instead of the 10 curves on one coordinate system. Any ideas how can I do that?

The obvious solution, something like P:=plot (something) Q:=plot(other thing) display({P,Q}) obviously doesn't work for me.

the goal is write a for loop to iterate and get the power of a variable with degree function

i use nops and convert(F, list) can access each terms and variables

however y^2 can be convert to list [y,2] 

hope to add if condition to stop convert this.

how to do better?

i just guess...

r-x^4
u-(x^3)*y
v-x*y^3
w-y^4

Step 1
with(Groebner):
K := {r-x^4,u-(x^3)*y,v-x*y^3,w-y^4};
G := Basis(K, 'tord', degrevlex(r,u,v,w));

Step 2
G intersect k[r,u,v,w]

G2 := Basis({w*G[1],w*G[2],w*G[3],w*G[4],w*G[5],w*G[6],w*G[7],w*G[8],w*G[9],w*G[10],w*G[11],w*G[12],w*G[13],w*G[14], (1-w)*K[1], (1-w)*K[2], (1-w)*K[3], (1-w)*K[4]}, 'tord', degrevlex(r,u,v,w));

G2 has too much though include the correct solution

correct solution...

g1 := x^2-w*y;
g2 := x*y-w*z;
g3 := y^2-x*z;
S12 := SPolynomial(g1, g2, plex(x, y, z, w));
eq1:= S12 = u1*g1 + u2*g2 + u3*g3;
with(LinearAlgebra):
T:=GenerateMatrix([eq1],[u1,u2, u3],augmented);
S:=LinearSolve(T,free=t);

(u1,u2,u3) should be (0,0,-w);

the goal is find a u1,u2,u3 to make eq1 equal S12, where u1,u2,u3 should be in terms of x y z w

g3 := y^2-x*z;
X3 := LeadingPowerOfProduct(g3, plex(x,y,z,w));

X3 should be y^2

I noticed in math mode the alt windows shortcut codes won't work but in text mode it will, understandably.

ie.  alt-0125 }   alt-0254 þ   etc...

Is there a way to get maple to output the list of alt codes?

I am doing an algorithm that include a " for " loop, inside that loop in the first statement I assigned a certain matrix to a variable G and then the algorthim changes some elements in G but when the algorithm repeat the second step of the loop it uses the last resulted matrix of the previous step NOT the one that is defined in the first statement of the loop. I want it to start each step of the loop with the same value of the matrix. what should I do?