Mühle

S = 2 r π (r + h)

Cono

Área del cilindro

J = (0, 0)
K = (1.7443227429035775, 0.0020360530491858636)
u = Vector(J, K)
A = Point(xAxis)
B = (-0.19043676710312563, -0.009619124721938854)
M = Midpoint(A, B)
ga = OrthogonalLine(M, xAxis)
D = Point(ga)
radius = Segment(M, B)
Q = Point(radius)
r = Segment(M, Q)
c = OrthogonalLine(Q, xAxis)
P, d, a, b = Polygon(A, B, D)
F = Intersect(c, a)
e = OrthogonalLine(F, c)
G = Intersect(b, e)
H = Mirror(Q, M)
ZylQ, k, g, h, e_1 = Polygon(H, G, F, Q)
O_1: 2.000000000000000 r 3.141592653589793 * (r + h)
R_1: (2.000000000000000 r, 0.000000000000000)
V_1: 3.141592653589793 r^(2.000000000000000) h
V: (2.000000000000000 r, 2.000000000000000 O_1 / 3.000000000000000)
i = Segment(V, R_1)
altura = Segment(D, M)
x_2 = Segment((0.000000000000000, 0.000000000000000), R_1)
T3: "r = " + r
B_1 = Midpoint(V, R_1)
C: A + 0.03000000000000000 * (M - A)
E = Mirror(C, M)
f = Ellipse(C, E, Distance[M, A])
p = Dilate(f, r / Distance[A, M], M)
q = Translate(p, Vector[Vector[(0.000000000000000, h)]])
s = Arc(q, F, G)
t = Arc(p, H, Q)
c_1 = Arc(p, Q, H)
d_1 = Arc(f, A, B)
f_1 = Arc(f, B, A)
I = Intersect(g, altura)
L = (0, 2)
v = Vector(J, L)
radio = Segment(A, B)
T1: "Altura = " + altura + "
Diámetro = " + radio
T4: "S = " + O_1