Re: Enquirey
- To: mathgroup at smc.vnet.net
- Subject: [mg74805] Re: Enquirey
- From: dh <dh at metrohm.ch>
- Date: Fri, 6 Apr 2007 04:17:08 -0400 (EDT)
- References: <ev2anc$k85$1@smc.vnet.net>
Hi Rita,
you are too generous with equal signs. An equation is written using 2
equal signs (Equal) not three (SameQ). Further, you have a superfluous
equal sing at every line end. After these changes Solve runs and runs
and... Therefore I aborted. Question is, if you really want to solve
this trancendental equations formally. Can you not use a numerical
approximation?
Daniel
Rita Ray wrote:
> I am trying to solve two equation with two unknowns. I am using
> Mathematica 5.2. Below is my program
>
>
> Solve[{a*Exp[2*w]-a^2*Exp[w+(x-y)*z]+a^2*Exp[w-(x-y)*z]-a*Exp[w+(x-y)*z]-a*=
> Exp[w-(x-y)*z]+a^2*Exp[2*(x-y)]+a-a^2+a^2*x*Exp[w+(x-y)*z]
> +a^2*x*Exp[w-(x-y)*z]-a*x*Exp[w+(x-y)*z]-a*x*Exp[w-(x-y)*z]+2*a*x-2*a^2*x-(=
> (a^3*w*Exp[w+(x-y)*z])/z)-((a^3*w*Exp[w-(x-y)*z])/z)+((a^2*w*Exp[w+(x-y)*z]=
> )/z)+((a^2*w*Exp[w-(x-y)*z])/z)-((2*a^2*w)/z)+((2*a^3*w)/z)====0,-((a*Exp[-=
> w+(x-y)*z]*z*(-((1-a)*w)-2*w*a^2+2*w*a^3+a^2*w*Exp[w-(x-y)*z]-a^3*w*Exp[w-(=
> x-y)*z]+a^2*w*Exp[w+(x-y)*z]-a^3*w*Exp[w+(x-y)*z]+a*z-a^2*z+a*z*Exp[2*w]+a^=
> 2*z*Exp[2*(x-y)]-a*z*Exp[w-(x-y)*z]+a^2*z*Exp[w-(x-y)*z]-a*z*Exp[w+(x-y)*z]=
> -a^2*z*Exp[w+(x-y)*z]+2*a*x*z-2*a^2*x*z-a*x*z*Exp[w-(x-y)*z]+a^2*x*z*Exp[w-=
> (x-y)*z]-a*x*z*Exp[w+(x-y)*z]+a^2*x*z*Exp[w+(x-y)*z]))/(a*Exp[-w+(x-y)*z]+(=
> 1-a)*Exp[-w-(x-y)*z]))-(a*Exp[-w+(x-y)*z]*((1-a)*z*Exp[-w-(x-y)*z]-a*z*Exp[=
> -w+(x-y)*z])*(-((1-a)*w)-2*w*a^2+2*w*a^3+a^2*w*Exp[w-(x-y)*z]-a^3*w*Exp[w-(=
> x-y)*z]+a^2*w*Exp[w+(x-y)*z]-a^3*w*Exp[w+(x-y)*z]+a*z-a^2*z+a*z*Exp[2*w]+a^=
> 2*z*Exp[2*(x-y)]-a*z*Exp[w-(x-y)*z]+a^2*z*Exp[w-(x-y)*z]-a*z*Exp[w+(x-y)*z]=
> -a^2*z*Exp[w+(x-y)*z]+2*a*x*z-2*a^2*x*z-a*x*z*Exp[w-(x-y)*z]+a^2*x*z*Exp[w-=
> (x-y)*z]-a*x*z*Exp[w+(x-y)*z]+a^2*x*z*Exp[w+(x-y)*z]))/(a*Exp[-w+(x-y)*z]+(=
> 1-a)*Exp[-w-(x-y)*z])^2+(a*Exp[-w+(x-y)*z]*(-2*a^2*z*Exp[2*(x-y)]+a^2*w*z*E=
> xp[w-(x-y)*z]-a^3*w*z*Exp[w-(x-y)*z]-a^2*w*z*Exp[w+(x-y)*z]+a^3*w*z*Exp[w+(=
> x-y)*z]-a*z^2*Exp[w-(x-y)*z]+a^2*z^2*Exp[w-(x-y)*z]+a*z^2*Exp[w+(x-y)*z]+a^=
> 2*z^2*Exp[w+(x-y)*z]-a*x*z^2*Exp[w-(x-y)*z]+a^2*x*z^2*Exp[w-(x-y)*z]
> +a*x*z^2*Exp[w+(x-y)*z]-a^2*x*z^2*Exp[w+(x-y)*z]))/(a*Exp[-w+(x-y)*z]+(1-a)=
> *Exp[-w-(x-y)*z])====0},{x,y}]
>
>
> Thank you.
>
> Rita Ray.
>
> Ph.D. student
>