*To*: mathgroup@smc.vnet.net*Subject*: [mg12044] RE: [mg11966] calculation*From*: R Finley <trfin@umsmed.edu>*Date*: Fri, 24 Apr 1998 01:52:15 -0400

Hi Yes, you can manipulate your equation to get : R^(73/26) - 28745.5 ( Sqrt[R]-1 ) Ð0 If you plot the two terms above, you can see the problem...that one of them has an almost infinite slope compared to the other near the solution which must be close to R1. You can use FindRoot on the above equation to get the solution R -> 1.00007 Hope that helps. RF -----Original Message----- From: Saeed Esmaily Rashid [SMTP:saeedr@stud.ntnu.no] To: mathgroup@smc.vnet.net Sent: Friday, April 17, 1998 1:21 AM To: mathgroup@smc.vnet.net Subject: [mg11966] calculation 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? Regards