Advanced Search

Question: I have problem to solve system of nonlinear algebra equations

Question:I have problem to solve system of nonlinear algebra equations

yasir 72 5 Maple 15
student
April 26 2012
0

 

> 

restart
> 

eq1 := `&x`(c, a0)+`&x`(`&x`(2*a2, mu^2), k^3)+`&x`(`&x`(`&x`(a1, lambda), mu), k^3)-`&x`(3*(a0^2), k)-`&x`(6*(a0^2), k)+g1 = 0

c*a0+2*a2*mu^2*k^3+a1*lambda*mu*k^3-9*a0^2*k+g1 = 0

 (1)
> 

eq2 := `&x`(c, a1)+`&x`(k^3, `&x`(`&x`(6*a2, lambda), mu)+`&x`(2*a1, mu)+`&x`(a1, lambda^2))-`&x`(`&x`(18*a0, a1), k) = 0

c*a1+k^3*(6*a2*lambda*mu+2*a1*mu+a1*lambda^2)-18*a0*a1*k = 0

 (2)
> 

eq3 := `&x`(c, a2)+`&x`(k^3, `&x`(8*a2, mu)+`&x`(3*a1, lambda)+`&x`(4*a2, lambda^2))-`&x`(k, `&x`(6*a0, a2)+3*(a1^2))-`&x`(k, `&x`(12*a0, a2)+6*(a1^2)) = 0

c*a2+k^3*(8*a2*mu+3*a1*lambda+4*a2*lambda^2)-k*(6*a0*a2+3*a1^2)-k*(12*a0*a2+6*a1^2) = 0

 (3)
> 

eq4 := `&x`(k, 2*a1+`&x`(10*a2, lambda))-`&x`(`&x`(k*18, a1), a2) = 0

k*(2*a1+10*a2*lambda)-18*k*a1*a2 = 0

 (4)
> 

eq5 := `&x`(6*a2, k^3)-`&x`(k*9, a2^2) = 0

6*a2*k^3-9*k*a2^2 = 0

 (5)
> 

eq6 := `&x`(c, b0)+`&x`(`&x`(2*b2, mu^2), k^3)+`&x`(`&x`(`&x`(b1, lambda), mu), k^3)+`&x`(`&x`(a0, b0), k)+g2 = 0

c*b0+2*b2*mu^2*k^3+b1*lambda*mu*k^3+a0*b0*k+g2 = 0

 (6)
> 

eq7 := `&x`(c, b1)+`&x`(k^3, `&x`(`&x`(6*b2, mu), lambda)+`&x`(2*b1, mu)+`&x`(b1, lambda^2))+`&x`(`&x`(a0, b1)+`&x`(b1, a0), k) = 0

c*b1+k^3*(6*b2*mu*lambda+2*b1*mu+b1*lambda^2)+2*a0*b1*k = 0

 (7)
> 

eq8 := `&x`(c, b2)+`&x`(k^3, `&x`(8*b2, mu)+`&x`(3*b1, lambda)+`&x`(4*b2, lambda^2))+`&x`(`&x`(2*a0, b2), k) = 0

c*b2+k^3*(8*b2*mu+3*b1*lambda+4*b2*lambda^2)+2*a0*b2*k = 0

 (8)
> 

eq9 := `&x`(k^3, -4*b1-`&x`(20*b2, lambda))+`&x`(`&x`(2*a1, b2), k) = 0

k^3*(-4*b1-20*b2*lambda)+2*a1*b2*k = 0

 (9)
> 

eq10 := -`&x`(12*b2, k^3)+`&x`(`&x`(a2, b2), k) = 0

-12*b2*k^3+a2*b2*k = 0

 (10)
> 

solve({eq1, eq10, eq2, eq3, eq4, eq5, eq6, eq7, eq8, eq9}*{a0, a1, a2, b0, b1, b2, c, g1, g2, k})

Warning, solutions may have been lost

  
> 

``

 

Download generalize_drinfeld_.mw

> 

restart
> 

eq1 := `&x`(c, a0)+`&x`(`&x`(2*a2, mu^2), k^3)+`&x`(`&x`(`&x`(a1, lambda), mu), k^3)-`&x`(3*(a0^2), k)-`&x`(6*(a0^2), k)+g1 = 0

c*a0+2*a2*mu^2*k^3+a1*lambda*mu*k^3-9*a0^2*k+g1 = 0

 (1)
> 

eq2 := `&x`(c, a1)+`&x`(k^3, `&x`(`&x`(6*a2, lambda), mu)+`&x`(2*a1, mu)+`&x`(a1, lambda^2))-`&x`(`&x`(18*a0, a1), k) = 0

c*a1+k^3*(6*a2*lambda*mu+2*a1*mu+a1*lambda^2)-18*a0*a1*k = 0

 (2)
> 

eq3 := `&x`(c, a2)+`&x`(k^3, `&x`(8*a2, mu)+`&x`(3*a1, lambda)+`&x`(4*a2, lambda^2))-`&x`(k, `&x`(6*a0, a2)+3*(a1^2))-`&x`(k, `&x`(12*a0, a2)+6*(a1^2)) = 0

c*a2+k^3*(8*a2*mu+3*a1*lambda+4*a2*lambda^2)-k*(6*a0*a2+3*a1^2)-k*(12*a0*a2+6*a1^2) = 0

 (3)
> 

eq4 := `&x`(k, 2*a1+`&x`(10*a2, lambda))-`&x`(`&x`(k*18, a1), a2) = 0

k*(2*a1+10*a2*lambda)-18*k*a1*a2 = 0

 (4)
> 

eq5 := `&x`(6*a2, k^3)-`&x`(k*9, a2^2) = 0

6*a2*k^3-9*k*a2^2 = 0

 (5)
> 

eq6 := `&x`(c, b0)+`&x`(`&x`(2*b2, mu^2), k^3)+`&x`(`&x`(`&x`(b1, lambda), mu), k^3)+`&x`(`&x`(a0, b0), k)+g2 = 0

c*b0+2*b2*mu^2*k^3+b1*lambda*mu*k^3+a0*b0*k+g2 = 0

 (6)
> 

eq7 := `&x`(c, b1)+`&x`(k^3, `&x`(`&x`(6*b2, mu), lambda)+`&x`(2*b1, mu)+`&x`(b1, lambda^2))+`&x`(`&x`(a0, b1)+`&x`(b1, a0), k) = 0

c*b1+k^3*(6*b2*mu*lambda+2*b1*mu+b1*lambda^2)+2*a0*b1*k = 0

 (7)
> 

eq8 := `&x`(c, b2)+`&x`(k^3, `&x`(8*b2, mu)+`&x`(3*b1, lambda)+`&x`(4*b2, lambda^2))+`&x`(`&x`(2*a0, b2), k) = 0

c*b2+k^3*(8*b2*mu+3*b1*lambda+4*b2*lambda^2)+2*a0*b2*k = 0

 (8)
> 

eq9 := `&x`(k^3, -4*b1-`&x`(20*b2, lambda))+`&x`(`&x`(2*a1, b2), k) = 0

k^3*(-4*b1-20*b2*lambda)+2*a1*b2*k = 0

 (9)
> 

eq10 := -`&x`(12*b2, k^3)+`&x`(`&x`(a2, b2), k) = 0

-12*b2*k^3+a2*b2*k = 0

 (10)
> 

solve({eq1, eq10, eq2, eq3, eq4, eq5, eq6, eq7, eq8, eq9}*{a0, a1, a2, b0, b1, b2, c, g1, g2, k})

Warning, solutions may have been lost

  
> 

``

 

Download generalize_drinfeld_.mw

> 

restart
> 

eq1 := `&x`(c, a0)+`&x`(`&x`(2*a2, mu^2), k^3)+`&x`(`&x`(`&x`(a1, lambda), mu), k^3)-`&x`(3*(a0^2), k)-`&x`(6*(a0^2), k)+g1 = 0

c*a0+2*a2*mu^2*k^3+a1*lambda*mu*k^3-9*a0^2*k+g1 = 0

 (1)
> 

eq2 := `&x`(c, a1)+`&x`(k^3, `&x`(`&x`(6*a2, lambda), mu)+`&x`(2*a1, mu)+`&x`(a1, lambda^2))-`&x`(`&x`(18*a0, a1), k) = 0

c*a1+k^3*(6*a2*lambda*mu+2*a1*mu+a1*lambda^2)-18*a0*a1*k = 0

 (2)
> 

eq3 := `&x`(c, a2)+`&x`(k^3, `&x`(8*a2, mu)+`&x`(3*a1, lambda)+`&x`(4*a2, lambda^2))-`&x`(k, `&x`(6*a0, a2)+3*(a1^2))-`&x`(k, `&x`(12*a0, a2)+6*(a1^2)) = 0

c*a2+k^3*(8*a2*mu+3*a1*lambda+4*a2*lambda^2)-k*(6*a0*a2+3*a1^2)-k*(12*a0*a2+6*a1^2) = 0

 (3)
> 

eq4 := `&x`(k, 2*a1+`&x`(10*a2, lambda))-`&x`(`&x`(k*18, a1), a2) = 0

k*(2*a1+10*a2*lambda)-18*k*a1*a2 = 0

 (4)
> 

eq5 := `&x`(6*a2, k^3)-`&x`(k*9, a2^2) = 0

6*a2*k^3-9*k*a2^2 = 0

 (5)
> 

eq6 := `&x`(c, b0)+`&x`(`&x`(2*b2, mu^2), k^3)+`&x`(`&x`(`&x`(b1, lambda), mu), k^3)+`&x`(`&x`(a0, b0), k)+g2 = 0

c*b0+2*b2*mu^2*k^3+b1*lambda*mu*k^3+a0*b0*k+g2 = 0

 (6)
> 

eq7 := `&x`(c, b1)+`&x`(k^3, `&x`(`&x`(6*b2, mu), lambda)+`&x`(2*b1, mu)+`&x`(b1, lambda^2))+`&x`(`&x`(a0, b1)+`&x`(b1, a0), k) = 0

c*b1+k^3*(6*b2*mu*lambda+2*b1*mu+b1*lambda^2)+2*a0*b1*k = 0

 (7)
> 

eq8 := `&x`(c, b2)+`&x`(k^3, `&x`(8*b2, mu)+`&x`(3*b1, lambda)+`&x`(4*b2, lambda^2))+`&x`(`&x`(2*a0, b2), k) = 0

c*b2+k^3*(8*b2*mu+3*b1*lambda+4*b2*lambda^2)+2*a0*b2*k = 0

 (8)
> 

eq9 := `&x`(k^3, -4*b1-`&x`(20*b2, lambda))+`&x`(`&x`(2*a1, b2), k) = 0

k^3*(-4*b1-20*b2*lambda)+2*a1*b2*k = 0

 (9)
> 

eq10 := -`&x`(12*b2, k^3)+`&x`(`&x`(a2, b2), k) = 0

-12*b2*k^3+a2*b2*k = 0

 (10)
> 

solve({eq1, eq10, eq2, eq3, eq4, eq5, eq6, eq7, eq8, eq9}*{a0, a1, a2, b0, b1, b2, c, g1, g2, k})

Warning, solutions may have been lost

  
> 

``

 

Download generalize_drinfeld_.mw
Please Wait...