Polar Function (in terms of x) =

n = 34 (slider from 0 to 80, step 1)
a(x) = 2 * sin(3 * x)
PolarGraph = CurveCartesian(a(t) * cos(t), a(t) * sin(t), t, 0, 6.28319)
A = Point(PolarGraph)
B = Point(PolarGraph)
C = (1, 0)
O = (0, 0)
AngA = Angle(C, O, A)
AngB = Angle(C, O, B)
AngC: AngB - AngA
DT: AngC / n
b = Segment(O, B)
c = Segment(O, A)
Sub = Sequence(AngA + DT * j, j, 0, n)
list1 = Sequence(Segment[O, (a(Element[Sub, k]) * cos(Element[Sub, k]), a(Element[Sub, k]) * sin(Element[Sub, k]))], k, 1, n)
list2 = Sequence(CircleSector[O, (a(Element[Sub, j]) * cos(Element[Sub, j]), a(Element[Sub, j]) * sin(Element[Sub, j])), (a(Element[Sub, j + 1]) * cos(Element[Sub, j + 1]), a(Element[Sub, j + 1]) * sin(Element[Sub, j + 1]))], j, 1, n)
inputBox1 = Textfield(a)
PolarArea: Integral[a(x)^(2), AngA, AngB] * 0.5
text1: "Polar Area =" + PolarArea + ""
d = Sum(Sequence[a(Element[Sub, k])^(2), k, 1, n])
RSum: π * d * DT / (360°)
text2: "Riemann Sum = " + RSum + ""