Solve 2nd simultaneous eqns

[ykpotdar]

Hi,

I know coordinates of two points (x & y ) and want to find the center of the circle of radisu R (known) passing through these points. How can I get EXCEL to do it? We can assume that R, x and y are three cells in a EXCEL spreadsheet. I want to do this for about 100 points.

Thanks,

-Yogesh

 

[tusharm]

Minor tweak to otherwise very well written self-documented code: Move the Triangle_Height assignment to later in the code.

If MidptDist > Radius Then
    FindCircleCenter = "no solution"
    Exit Function
ElseIf MidptDist = Radius Then
    x_coordinate = x_mid
    y_coordinate = y_mid
    GoTo ExitTheFunction
ElseIf MidptDist = 0 Then
    FindCircleCenter = "infinite solutions"
    Exit Function
End If
Triangle_Height = Sqr(Radius ^ 2 - MidptDist ^ 2)

Hi,

This is untested, so try this out on your data and report your results. {snip}

 

[Jay Petrulis]

Hi Tushar,

Aarrggh! That *was* later in the program when originally written. I moved it before I posted because I thought to group some calcs together to make the code easier to read. Thanks for the catch on this.

Ken,

I know you were just playing. I can take the ribbing, no problem. All in fun.

 

[tusharm]

After exchanging PMs with Jay, I developed a Object Oriented version of his solution.

Visit the Excel | VBA page of my web site, then follow the link to 'VBA and Object Oriented Programming' To view the page in its own window, right click the link and select 'Open in new window'