MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: solve doesn't solve

  • To: mathgroup at smc.vnet.net
  • Subject: [mg54287] Re: [mg54265] solve doesn't solve
  • From: DrBob <drbob at bigfoot.com>
  • Date: Wed, 16 Feb 2005 14:36:05 -0500 (EST)
  • References: <200502150251.VAA27363@smc.vnet.net>
  • Reply-to: drbob at bigfoot.com
  • Sender: owner-wri-mathgroup at wolfram.com

((-(-1 + b))*R*beta)/(a - (-1 + b)*R*s)^sigma ==
   (-s + w - w*tau)^(-sigma);
(Log[#1/(a - (-1 + b)*R*s)^(-sigma)] & ) /@ %;
PowerExpand[%];
Solve[%, s]

{{s -> (-a + (1 - b)^(1/sigma)*
        beta^(1/sigma)*
        R^(1/sigma)*w -
       (1 - b)^(1/sigma)*
        beta^(1/sigma)*
        R^(1/sigma)*tau*w)/
      (R - b*R +
       (1 - b)^(1/sigma)*
        beta^(1/sigma)*
        R^(1/sigma))}}

Bobby

On Mon, 14 Feb 2005 21:51:13 -0500 (EST), juejung <juejung at indiana.edu> wrote:

> hi,
>
> can anybody solve the following equation for variable s with Mathematica?
>
> ((-(-1 + b))*R*beta)/(a - (-1 + b)*R*s)^sigma - (-s + w -
> w*tau)^(-sigma)==0
>
> Solve doesn't work. I get this annoying error message.
>
> Solve::tdep: The equations appear to involve the variables to be solved for
> in an essentially non-algebraic way.
>
> I would like to get analytical solutions (numerical is not problem) to
> problems like this one.I know this one's easy done by hand but I have more
> cumbersome ones to deal with.
> Is there a package out there that can solve this analytically, or is this
> just impossible on computers?
>
> Thanks a lot.
>
> Juergen



-- 
DrBob at bigfoot.com
www.eclecticdreams.net


  • Prev by Date: [no subject]
  • Next by Date: Re: Axes in ShowGraph
  • Previous by thread: Re: solve doesn't solve
  • Next by thread: Re: solve doesn't solve