INICIO

Volumen

corte

P

A = (1, 1)
B: (x(A) + 40, y(A))
C: (x(A), y(A) + 40)
D: (x(A) + 40, y(A) + 40)
corte = 20 (slider from 0 to 20, step 0.1)
L: (x(C), y(C) - corte)
E: (x(C) + corte, y(C))
F: (x(D) - corte, y(D))
G: (x(D), y(D) - corte)
H: (x(B), y(B) + corte)
I: (x(B) - corte, y(B))
J: (x(A) + corte, y(A))
K: (x(A), y(A) + corte)
a = Segment(L, G)
b = Segment(K, H)
c = Segment(E, J)
d = Segment(F, I)
M = (64.38155294129824, 80.36304619265027)
e = Circle(M, Segment[J, I])
N = Point(e)
u = Vector(M, N)
O = (49.86, 1)
f = Circle(O, Segment[J, I])
g = Line(O, xAxis)
P_1 = Intersect(f, g, 2)
h = Segment(O, P_1)
O' = Translate(O, u)
P' = Translate(P_1, u)
h' = Segment(O', P')
i = Segment(O, O')
j = Segment(P_1, P')
k = Circle(O, corte)
l = OrthogonalLine(O, h)
m = OrthogonalLine(O', h')
n = OrthogonalLine(P_1, h)
p = OrthogonalLine(P', h')
Q = Intersect(k, l, 2)
q = Line(Q, h)
r = Line(Q, i)
R = Intersect(n, q)
s = Line(R, j)
S = Intersect(p, s)
T = Intersect(m, r)
t = Line(T, h')
a_1 = Segment(O, Q)
b_1 = Segment(Q, R)
c_1 = Segment(P_1, R)
d_1 = Segment(R, S)
Altura = Segment(P', S)
f_1 = Segment(Q, T)
g_1 = Segment(T, S)
h_1 = Segment(T, O')
polígono1, q_1, r_1, p_1, o = Polygon(Q, R, P_1, O)
polígono2, r_2, s_1, p', p_2 = Polygon(R, S, P', P_1)
polígono3, q_2, t_1, o', o_1 = Polygon(Q, T, O', O)
polígono4, o_2, o'_1, p'_1, p_3 = Polygon(O, O', P', P_1)
polígono5, t_2, s_2, p'_2, o'_2 = Polygon(T, S, P', O')
distanciaOP = Distance(O, P_1)
TextoOP: Name[O] + (Name[P_1]) + " = " + distanciaOP
distanciaPP' = Distance(P_1, P')
distanciaP'S = Distance(P', S)
altura: Name[P'] + (Name[S]) + " = " + distanciaP'S
velocidad: (3 * corte^(2)) - (160 * corte) + 1600
velocidad2: velocidad / 100
i_1 = Segment(O, Q)
j_1 = Segment(F, D)
P = Point(xAxis)
k_1 = OrthogonalLine(P, xAxis)
e_1 = Circle(P, corte)
volumen(corte) = If[0 < corte < 20, ((0.025 * (40 - (2 * corte))^(2)) * corte)]
volu: volumen
c_2 = Circle(P, volu(corte))
W, Z = Intersect(c_2, k_1)
d_2 = Circle(P, corte)
U, V = Intersect(d_2, xAxis)
l_1 = OrthogonalLine(V, xAxis)
m_1 = OrthogonalLine(Z, k_1)
A_1 = Intersect(l_1, m_1)
n_1 = Segment(Z, A_1)
f_2 = Segment(A_1, V)
v: y(Z)
vv: v / 0.03
texto1: "" + vv + ""