*To*: mathgroup@smc.vnet.net*Subject*: [mg12008] Re: calculation*From*: Bill Bertram <wkb@ansto.gov.au>*Date*: Fri, 17 Apr 1998 03:40:44 -0400*Organization*: ANSTO*References*: <6gr69a$8lo@smc.vnet.net>

Saeed Esmaily Rashid wrote: > > Hello! > > My name is Saeed and i'm studying physics. I have a problem which ihope > someone can help me with it. I have an equation > > .001422409738*R^(73/80)*(R^(1/2)-1)^(-13/40) == .04 > > i'm using the Solve function in Mathematica 3.0 to solve it for R, but > it calculats endlessly and takes very long time. the question is that > is there any way to optimize this equation or using another function in > Mathematica 3.0 to make it faster to calculate? > Try; FindRoot[.001422409738*R^(73/80)* ...,{R,100}] Cheers, Bill