INICIO

basemax = 1.9449226482417137
base = 0.2 (slider from 0 to basemax, step 0.02)
altura: 2.5 - (base / 2 * (1 + π / 2))
A = Intersect(xAxis, yAxis)
B = Point(Circle[A, base])
base_1 = Segment(A, B)
C = Point(Circle[A, altura])
b = Segment(A, C)
c = OrthogonalLine(B, xAxis)
d = OrthogonalLine(C, yAxis)
D = Intersect(c, d)
e = LineBisector(A, B)
E = Intersect(d, e)
f = CircleArc(E, D, C)
h = Length(f)
Textof: "Longitud de Arco de " + (Name[f]) + " = " + h
areatot: (base_1 * b) + (π * (base / 2)^(2) / 2)
F: (base, areatot)
c1, a_1, c_1, d_1, b_1 = Polygon(A, C, D, B)
base2: (base * 0.5)
k = Circle(A, base2)
e_1 = Circle(A, areatot)
texto2: "altura=" + altura + ""
semiperimetro: (π * base / 2)
perimtot: (2 * altura) + base + semiperimetro
perventana: (2 * altura) + base + (π * base / 2)
texto1: "perímetro=" + perventana + ""
j = Segment(C, D)