Author: Giuseppe Musolino

Punto D

Lunghezza siepe

A = Intersect(xAxis, yAxis)
B = (0, 300)
C = (400, 0)
poli1, a, b_1, c = Polygon(B, C, A)
b = 173 (slider from 0 to 200, step 0.01)
D: (b, 0)
d_1 = Line(B, C)
E: (400 - 80000 / (400 - b), 60000 / (400 - b))
e = Segment(D, E)
distanzaDe = Distance(D, e)
I = Point(yAxis)
distanzaEC = Distance(E, C)
TestoEC: "\overline{" + (Name[E]) + (Name[C]) + "} \, = \, " + distanzaEC
distanzaDC = Distance(D, C)
TestoDC: "\overline{" + (Name[D]) + (Name[C]) + "} \, = \, " + distanzaDC
d = 164 (slider from 0 to 400, step 0.01)
F: (400 - d, 0.75 * d)
G = Point(b_1)
f = CircleSector(C, F, G)
areaf = Area(f)
distanzaFC = Distance(F, C)
TestoFC: "\overline{" + (Name[F]) + (Name[C]) + "} \, = \, " + distanzaFC
H = Intersect(b_1, xAxis)
K = Intersect(d_1, a)
L = Intersect(f, xAxis)
Testof: "Area sett. circolare= " + areaf + ""
poli2, b_2, e_1, d_2, a_1 = Polygon(B, E, D, A)
Testopoli2: "Area poligono " + (Name[B]) + "" + (Name[E]) + "" + (Name[D]) + "" + (Name[A]) + " = " + poli2 + ""