Part B

Same as part A, but make the area equal to 4. Can you see the pattern to set the area equal to any positive number n?

Input := 



Solve[area[h]==4,h]

Output =


        2/3

{{h -> 3   }}

Input := 


Solve[area[h]==n,h]

Output =


        9 1/3  2/3               1/3  9 1/3  2/3

       (-)    n            -((-1)    (-)    n   )

        2                             2

{{h -> -----------}, {h -> ----------------------}, 

            2                        2

            2/3  9 1/3  2/3

        (-1)    (-)    n

                 2

  {h -> -------------------}}

                 2

We can use the first root in the list above and confirm that this pattern works for our two examples.