Question: Solution of Equations


Hi,

I have two equations. I need the value of beta2. Can any body help me? I am getting error message like "Warning, solutions may have been lost". Any co-operations will be appreciable.

Nurul ISLAM

nislamce@yahoo.com


equn1 := beta[2]^2*beta[1]^2*p^2-(beta[2]*beta[1]*p)^(2.857142857/M)*[(lambda-kappa)*p/(nu*[3*M/(beta[2]*beta[1]*p)-(6+4*M)/(2*beta[2]*beta[1]*q+3*beta[2]*beta[1]*p)+(3-M)/(3*beta[2]*beta[1]*p-beta[2]*beta[1]*q)]*q)]^(2.857142857/M)-beta[2]^2*beta[1]^2*q^2*[(1-.7*M)/M^2] = 0;

beta[2]^2*beta[1]^2*p^2-(beta[2]*beta[1]*p)^(2.857142857/M)*[(lambda-kappa)*p/(nu*[3*M/(beta[2]*beta[1]*p)-(6+4*M)/(2*beta[2]*beta[1]*q+3*beta[2]*beta[1]*p)+(3-M)/(3*beta[2]*beta[1]*p-beta[2]*beta[1]*q)]*q)]^(2.857142857/M)-beta[2]^2*beta[1]^2*q^2*[(1-.7*M)/M^2] = 0

(1)

equn2 := beta[1] = (p*conjugate(p[0])+sqrt(p^2*conjugate(p[0])^2/R^2+p((R(conjugate(p[0]))-2)^2/R)^2+(R((R(conjugate(p[0]))-2)^2/R)-1)^2*q((R(conjugate(p[0]))-2)^2/R)^2/M((R(conjugate(p[0]))-2)^2/R)^2)*R)*M^2/R(p^2*M^2+q^2*R^2-2*q^2*R+q^2);

beta[1] = (p*conjugate(p[0])+(p^2*conjugate(p[0])^2/R^2+p((R(conjugate(p[0]))-2)^2/R)^2+(R((R(conjugate(p[0]))-2)^2/R)-1)^2*q((R(conjugate(p[0]))-2)^2/R)^2/M((R(conjugate(p[0]))-2)^2/R)^2)^(1/2)*R)*M^2/R(p^2*M^2+q^2*R^2-2*q^2*R+q^2)

(2)

s1 := solve({equn1, equn2}, beta[2]);

``

(3)

``

 

Download Maple_Help.mw

Please Wait...