I have difficulty programming to find x in a polynomial. I try NSolve to set the equation to zero and solve for x.

If N = 85, x= 5, and y = 17

I have an equation:

y = sqrt((N * y – x^2)/x)

as an approximation of the larger Prime product (or any possible product)

My equation as it stands does not find x. I know there is a margin of error in the equation. This error can be subtracted to get a closer approximation. For example:

In the following equations: y = 17.2941176471 = 16.8522995464 This is the answer when subtracting the 2 equations below to find x knowing only N. Look at the Yellow.

So as the equations approach 0 (plus the margin of error). So since it is an approximation I need to find those values that are less than 1 and greater than 0. But 16.9082 is the value of the equation and not the value of x which should be found.

I need help programming this. So if anyone can help it would be much appreciated.

y = sqrt[(((85/x) * 85 - x^2)/ x) ]= ((85^2/x) + x^2)/ 85

p = ((((85^2/x) + x^2)/ 85 ) ^2)- (((85/x) * 85 - x^2)/ x )^2 - 0.4418181007 ;

sol = NSolve[p0, x]

{{x-86.8953},{x82.8717},{x23.3122},{x-7.50642+19.0312 },{x-7.50642-19.0312 },

{x-10.592+14.3276 },{x-10.592-14.3276 },{x16.9082}}

y = sqrt[(N * y - x^2) / x]

y = sqrt[(7872197 * 3191 - 2467^2) / 2467]

You can see this work at

http://www.3dbuzz.com/forum/threads/200441-New-One-Way-Function/page2Look at the last page first.

Also my website is

www.constructorscorner.net