Results 1 to 20 of 22

Thread: Calculate the remaining area of a quadrant with two non overlapping half circles

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #17
    Administrator VBAX Master georgiboy's Avatar
    Joined
    Mar 2008
    Location
    Kent, England
    Posts
    1,302
    Location
    I have been playing with this on and off through the day. I am no mathematician but put together my own logic (Formula) to calculate this (I did have a bit of help from a friend I work with (he loves maths) as I was ), I have then tried to convert that to a VBA function. I will leave the testing to you Aussie.

    Formula:
    =LET(rQ,A1,r,A2,p,PI(),p*rQ^2/4-p*r^2/2-p*((rQ^2-r^2+9)/(2*(rQ+r)))^2/2)

    Function:
    Function EvalQuadArea(Rq As Double, r As Double) As Double
        Dim p As Double, R2 As Double
        
        p = Application.PI
        R2 = (Rq ^ 2 - r ^ 2 + 9) / (2 * (Rq + r))
        EvalQuadArea = p * Rq ^ 2 / 4 - p * r ^ 2 / 2 - p * R2 ^ 2 / 2
    End Function
    I may have completely missed the point here but this really tested my brain and it is what it is, and I have now admitted defeat.
    Attached Files Attached Files
    Click here for a guide on how to add code tags
    Click here for a guide on how to mark a thread as solved
    Click here for a guide on how to upload a file with your post

    Excel 365, Version 2408, Build 17928.20080

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •