Rettangolo dinamico
Author: Ubaldo Pernigo
Date: 21 Dicembre 2012

A = (1, -1)
B = (6, -1)
AB = Segment(A, B)
r = OrthogonalLine(B, AB)
s = OrthogonalLine(A, AB)
C = Point(r)
t = Line(C, AB)
D = Intersect(s, t)
Rettangolo, a, b, c, d = Polygon(A, B, C, D)
α, β, γ, δ = Angle(Rettangolo)
e = Segment(D, B)
f = Segment(A, C)
calc2p: a + b + c + d
testo1: "b=AB=base=" + (LaTeX[a]) + "\; cm
\\h=BC=altezza=" + (LaTeX[b]) + " \; cm
\\\frac{h}{b}=\frac{" + (LaTeX[b]) + "}{" + (LaTeX[a]) + "}
\\2p=perimetro=a+b+c+d=" + (LaTeX[calc2p]) + "\; cm
\\Area=b·h=" + (LaTeX[Rettangolo]) + "\; cm^2"
M = Intersect(e, f)
ε = Angle(e, f)