base

base

areaventana

INICIO

A_1

A_2

Δbase

ΔArea

SECANTE

m_s=ΔArea/Δbase

basemax = 1.9449226482417137
base = 1.56 (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)
g = Segment(D, B)
h = Length(f)
Textof: "Longitud de Arco de " + (Name[f]) + " = " + h
i = Distance(g, b)
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 + ""
G = Point(xAxis)
j = OrthogonalLine(G, xAxis)
areatotal(base) = If[2.2 ≤ base ≤ 5, ((base - 2.2) * (2.5 - ((base - 2.2) / 2 * (1 + π / 2)))) + (π * (base - 2.2)^(2) / 8)]
p = Circle(G, base)
H, I = Intersect(p, xAxis)
l = OrthogonalLine(I, xAxis)
P = Intersect(areatotal, l)
q = Segment(P, I)
distanciaGI = Distance(G, I)
base_3: "
 " + distanciaGI + ""
semiperimetro: (π * base / 2)
texto4: "" + semiperimetro + ""
J = Point(areatotal)
L = Point(areatotal)
m = OrthogonalLine(J, j)
r = OrthogonalLine(L, xAxis)
M = Intersect(m, r)
s = Segment(J, M)
t = Segment(M, L)
a = Line(J, L)
m_3 = Slope(a)
Altoarea: y(L) - y(J)
texto5: "ΔArea=" + Altoarea + ""