Sketch the region and find the area of the triangle with vertices (2,0), (0,2),(-1,1). Use the function Graphics[Line[ {{p1},{p2},{p3}, etc}]] Example find equation of a line point (5,2),(1,3) Solve[y-2=-(2-3)/(5-1)*(x-5),y)] This will give you the To find the equation of the line use equation of a line. Output is {{y → ¹3-x}} 4 Use that equation to integrate and find the area. Find there intersections using NSolve[{eq1,eq2},{x,y},Reals] This will output the intersections and you can use that for your limits of integration. Give the solution to the area under the curve. Do not manually add them together, use Mathematica