RADIO

ÁREA

radio

INICIO

P

B = (-2.133329481129124, 0.013666931681349918)
radio = 1.56 (slider from 0 to 2, step 0.01)
h: 4 / ((π * radio^(2)))
C_1: (radio, 8 / radio + ((2 * π) * radio^(2)))
D = Point(xAxis)
b = OrthogonalLine(D, xAxis)
E = Point(Circle[D, ((2 * π) * radio)])
A = Point(Circle[D, h])
d = OrthogonalLine(E, xAxis)
e = OrthogonalLine(A, d)
F = Intersect(e, d)
polígono1, d_1, a, f_1, e_1 = Polygon(D, A, F, E)
G = (2, 6)
c = Circle(G, radio)
H = Intersect(xAxis, yAxis)
ar: (0.1 * (8 / radio + ((2 * π) * radio^(2))))
k = Circle(H, radio)
p = Circle(H, ar)
j: ar ≟ (0.1 * (8 / radio + ((2 * π) * radio^(2))))
q = Circle(H, ar)
I = Point(c)
i = Tangent(I, c)
l = OrthogonalLine(I, i)
J = Point(c)
m_3 = Tangent(J, c)
n = OrthogonalLine(J, m_3)
C = Intersect(l, n)
K = Intersect(xAxis, yAxis)
s = Circle(K, radio)
L, radio_1 = Intersect(s, xAxis)
t = OrthogonalLine(radio_1, xAxis)
ar2: ar / 0.1
arealata1(r) = If[0 < r ≤ 0.8603, (0.1 * (8 / r + ((2 * π) * r^(2))))]
arealata2(r) = If[0.8603 < r < 2, (0.1 * (8 / r + ((2 * π) * r^(2))))]
m = OrthogonalLine(radio_1, xAxis)
P = Intersect(arealata1, m)
r = OrthogonalLine(P, yAxis)
N = Intersect(yAxis, r)
g_1 = Segment(N, P)
h_1 = Segment(P, radio_1)
i_1 = OrthogonalLine(radio_1, xAxis)
M = Intersect(arealata2, i_1)
j_1 = OrthogonalLine(M, yAxis)
O = Intersect(yAxis, j_1)
k_1 = Segment(O, M)
l_1 = Segment(M, radio_1)
texto3: "Area=" + ar2 + ""