ρ_{xbar}

ρ_y

Ellisse centr. d'inerzia

det. centro relativo p.1

det. centro relativo p.2

centro relativo

nocciolo centr. d'inerzia

V = (6.812841161658969, -8.652941580159986)
U = (12.809792305536083, 4.6719068556716685)
j_1 = Line(U, V)
A = Intersect(xAxis, yAxis)
c = Circle(A, 2)
D, E = Intersect(c, yAxis)
h = Ray(A, D)
F = Point(h)
e = Circle(F, 2)
k = Line(F, xAxis)
K = Intersect(e, k, 1)
m = Ray(F, K)
M = Point(m)
M' = Mirror(M, yAxis)
q = Line(M, yAxis)
f = Ray(A, E)
G' = Point(f)
d = Circle(G', 2)
i = Line(G', xAxis)
H = Intersect(d, i, 1)
j = Ray(G', H)
I = Point(j)
I' = Mirror(I, yAxis)
p = Circle(I, 2)
l = Line(I, f)
J = Intersect(p, l, 1)
n = Ray(I, J)
L = Point(n)
A_{ala}: (Distance[I, I'] * Distance[I, L])
s = Segment(L, I')
r = Line(L, xAxis)
N = Intersect(q, r)
I_y: ((Distance[I, L] * Distance[I, I']^(3)) + (Distance[N, M] * Distance[M, M']^(3))) / 12
A_{anima}: (Distance[M, M'] * Distance[N, M])
ρ_{y}: sqrt(I_y / (A_{ala} + A_{anima}))
b = Segment(N, M')
N' = Mirror(N, yAxis)
f_1 = Segment(M, N')
G_{anima} = Intersect(b, f_1)
L' = Mirror(L, yAxis)
t = Segment(I, L')
G_{ala} = Intersect(t, s)
y_G: ((A_{ala} * y(G_{ala})) + (A_{anima} * y(G_{anima}))) / (A_{ala} + A_{anima})
G: (0, y_G)
d_1 = Circle(G, ρ_{y})
xbar = Line(G, xAxis)
B_1 = Intersect(xbar, j_1)
P = Intersect(d_1, xbar, 2)
p_1 = Circle(G, P)
Z = Intersect(p_1, yAxis, 1)
B, C = Intersect(c, xAxis)
g = Ray(A, B)
poli1, m_1, m', n', l', i', i_1, l_1, n_1 = Polygon(M, M', N', L', I', I, L, N)
a = Segment(N, N')
distanzaGGala = Distance(G, G_{ala})
distanzaGanimaG = Distance(G_{anima}, G)
I_{xbar}: ((Distance[I, I'] * Distance[I, L]^(3))) / 12 + ((Distance[I, I'] * Distance[I, L]) * (y(G_{ala}) - y(G))^(2)) + ((Distance[M, M'] * Distance[N, M]^(3))) / 12 + ((Distance[M, M'] * Distance[N, M]) * (y(G) - y(G_{anima}))^(2))
ρ_{xbar}: sqrt(I_{xbar} / (A_{ala} + A_{anima}))
c_1 = Circle(G, ρ_{xbar})
O = Intersect(c_1, yAxis, 2)
g_1 = Segment(G, O)
h_1 = Segment(G, P)
dfuochi = If(ρ_{xbar}  <  ρ_{y}, sqrt(ρ_{y}^(2) - ρ_{xbar}^(2)), sqrt((-ρ_{y}^(2)) + ρ_{xbar}^(2)))
e_1 = Circle(G, dfuochi)
Q, R = Intersect(e_1, xbar)
S, T = Intersect(e_1, yAxis)
k_1 = If(ρ_{y}  <  ρ_{xbar}, Ellipse[S, T, P], Ellipse[Q, R, O])
testo1: "A = " + (LaTeX[A_{ala} + A_{anima}]) + " cm^2\\
I_{\bar{x}} = " + (LaTeX[I_{xbar}]) + " cm^4\rightarrow \rho_{\bar{x}} = " + (LaTeX[ρ_{xbar}]) + " cm\\
I_{y} = " + (LaTeX[I_y]) + " cm^4\rightarrow \rho_{y} = " + (LaTeX[ρ_{y}]) + " cm"
o = false
q_1 = CircleArc(G, Z, P)
r_1 = Segment(Z, B_1)
s_1 = OrthogonalLine(Z, r_1)
u = false
W = Intersect(xbar, s_1)
t_1 = Line(W, yAxis)
α = Angle(B_1, Z, W)
c_2 = Circle(G, O)
A_1 = Intersect(c_2, xbar, 1)
d_2 = CircleArc(G, O, A_1)
C_1 = Intersect(j_1, yAxis)
a_1 = Segment(C_1, A_1)
b_1 = OrthogonalLine(A_1, a_1)
D_1 = Intersect(yAxis, b_1)
β = Angle(C_1, A_1, D_1)
f_2 = Line(D_1, xbar)
v = false
E_1 = Intersect(f_2, t_1)
w = false
G_1 = Intersect(c_2, xbar, 1)
H_1 = Intersect(c_2, xbar, 2)
F_1, I_1 = Intersect(p_1, yAxis)
g_2 = Line(I, I')
h_2 = Line(G', H_1)
i_2 = OrthogonalLine(H_1, h_2)
J_1 = Intersect(yAxis, i_2)
j_2 = Line(I', L')
K_1 = Intersect(xbar, j_2)
k_2 = Line(K_1, F_1)
l_2 = OrthogonalLine(F_1, k_2)
L_1 = Intersect(xbar, l_2)
m_2 = Line(L', M')
M_1 = Intersect(m_2, yAxis)
N_1 = Intersect(m_2, xbar)
n_2 = Line(M_1, G_1)
p_2 = OrthogonalLine(G_1, n_2)
O_1 = Intersect(p_2, yAxis)
q_2 = Line(O_1, xbar)
r_2 = Line(N_1, F_1)
s_2 = OrthogonalLine(F_1, r_2)
P_1 = Intersect(xbar, s_2)
t_2 = Line(P_1, yAxis)
Q_1 = Intersect(q_2, t_2)
a_2 = Line(F, G_1)
b_2 = OrthogonalLine(G_1, a_2)
R_1 = Intersect(b_2, yAxis)
S_1 = Mirror(Q_1, yAxis)
T_1 = Mirror(L_1, yAxis)
poli2, j_3, l_3, q_3, r_3, s_3, t_3 = Polygon(J_1, L_1, Q_1, R_1, S_1, T_1)
o_1 = false

Tool: Carrello
Carrello[ <Point>, <Number> ]
Input: C, Lcern
Output: poly1, g, D, poly2, t, t'

Lcern: 1
c = Circle(C, Lcern)
D = Point(c)
g = Segment(C, D)
D' = Rotate(D, 30°, C)
D'' = Mirror(D', g)
d = Circle(C, (2 * Lcern / 3))
h = Segment(C, D')
i = Segment(C, D'')
E = Intersect(d, i)
F = Intersect(d, h)
poly1, f_1, e, c_1 = Polygon(E, C, F)
j = Segment(D'', D')
k = OrthogonalLine(D'', j)
l = OrthogonalLine(D', j)
m = OrthogonalLine(F, g)
G = Intersect(k, m)
H = Intersect(l, m)
f = Segment(D'', G)
n = Segment(D', H)
A = Midpoint(f)
B = Midpoint(n)
A' = Mirror(A, j)
B' = Mirror(B, j)
poly2, a', b', b, a = Polygon(A', B', B, A)
p = OrthogonalLine(E, b)
I = Intersect(p, b)
q = Segment(I, E)
J = Midpoint(q)
r = Circle(J, E)
s = OrthogonalLine(J, q)
K, L = Intersect(r, s)
t = Circle(K, J)
t' = Mirror(t, g)

Tool: Pendolo
Pendolo[ <Number>, <Point> ]
Input: Lcern, A
Output: i, e, k, e', B, i'

Lcern: 1
c = Circle(A, Lcern)
B = Point(c)
f = Segment(A, B)
d = Circle(A, Lcern / 8)
C = Intersect(d, f, 1)
e = Circle(C, A)
g = OrthogonalLine(A, f)
h = Circle(A, Lcern / 8)
D, E = Intersect(h, g)
i = Segment(D, E)
F = Midpoint(f)
j = OrthogonalLine(F, f)
G = Intersect(e, f, 2)
e' = Mirror(e, j)
D' = Mirror(D, j)
E' = Mirror(E, j)
i' = Segment(D', E')
H = Intersect(e', f, 1)
k = Segment(G, H)

Tool: Quardipendolo
Quardipendolo[ <Number>, <Point>, <Number> ]
Input: Lcern, A, Angolo
Output: l, q, q'_1, s', s, q'', q', B, m, m', q''_1, q''', s'', s'_1, q'_2, l', A', c_1

Lcern: 0.5
c = Circle(A, Lcern)
B = Point(c)
f = Line(A, B)
g = OrthogonalLine(A, f)
h = OrthogonalLine(B, f)
i = Segment(B, A)
C = Midpoint(i)
d = Circle(A, Lcern / 2)
D, E = Intersect(d, g)
j = OrthogonalLine(D, g)
k = OrthogonalLine(E, g)
F = Intersect(h, j)
G = Intersect(h, k)
l = Segment(D, E)
m = Segment(F, G)
e = Circle(D, Lcern / 8)
I = Intersect(e, l, 1)
J = Intersect(e, j, 1)
n = OrthogonalLine(J, j)
p = OrthogonalLine(I, l)
K = Intersect(n, p)
q = Circle(K, I)
r = OrthogonalLine(C, f)
q' = Mirror(q, r)
L = Intersect(q, p, 2)
M = Intersect(q', p, 2)
s = Segment(L, M)
q'_1 = Mirror(q, f)
L' = Mirror(L, f)
M' = Mirror(M, f)
s' = Segment(L', M')
q'' = Mirror(q', f)
Angolo: 45
B' = Rotate(B, (-Angolo), F)
t = AngularBisector(B, F, B')
F' = Mirror(F, t)
G' = Mirror(G, t)
m' = Segment(F', G')
q''_1 = Mirror(q', t)
L'_1 = Mirror(L, t)
M'_1 = Mirror(M, t)
s'_1 = Segment(L'_1, M'_1)
q'_2 = Mirror(q, t)
D' = Mirror(D, t)
E' = Mirror(E, t)
l' = Segment(D', E')
c_1 = Mirror(q'_1, t)
q''' = Mirror(q'', t)
L'' = Mirror(L', t)
M'' = Mirror(M', t)
s'' = Segment(L'', M'')
A' = Mirror(A, t)

Tool: Quadripendolo
Quadripendolo[ <Number>, <Point> ]
Input: Lcern, A
Output: l, s_1, r_1, n_1, a_1, t_1, e_2, n, d_2, c_2, b_1, h_2, g_2, f_2, m, B

Lcern: 1
c = Circle(A, (2 * Lcern))
B = Point(c)
f = Line(A, B)
g = OrthogonalLine(A, f)
h = OrthogonalLine(B, f)
d = Circle(A, Lcern / 2)
e = Circle(B, Lcern / 2)
C, D = Intersect(d, g)
E, F = Intersect(e, h)
i = Segment(D, F)
G = Midpoint(i)
j = OrthogonalLine(G, f)
k = Circle(G, Lcern / 2)
H, I = Intersect(k, j)
l = Segment(C, D)
m = Segment(E, F)
n = Segment(H, I)
p = Circle(D, Lcern / 8)
q = Circle(C, Lcern / 8)
r = Circle(H, Lcern / 8)
s = Circle(I, Lcern / 8)
t = Circle(F, Lcern / 8)
c_1 = Circle(E, Lcern / 8)
J = Intersect(p, l, 1)
K = Intersect(q, l, 1)
L = Intersect(r, n, 1)
M = Intersect(s, n, 1)
N = Intersect(t, m, 1)
O = Intersect(c_1, m, 1)
a = Segment(J, M)
b = Segment(K, L)
f_1 = Segment(M, N)
g_1 = Segment(L, O)
d_1 = Circle(K, Lcern / 8)
e_1 = Circle(J, Lcern / 8)
h_1 = Circle(M, Lcern / 8)
k_1 = Circle(L, Lcern / 8)
p_1 = Circle(N, Lcern / 8)
q_1 = Circle(O, Lcern / 8)
P = Intersect(e_1, a, 1)
Q = Intersect(h_1, a, 1)
R = Intersect(h_1, f_1, 1)
S = Intersect(p_1, f_1, 1)
T = Intersect(d_1, b, 1)
U = Intersect(k_1, b, 1)
V = Intersect(k_1, g_1, 1)
W = Intersect(q_1, g_1, 1)
i_1 = OrthogonalLine(P, l)
j_1 = OrthogonalLine(T, l)
l_1 = OrthogonalLine(Q, n)
m_1 = OrthogonalLine(U, n)
Z = Intersect(i_1, l)
A_1 = Intersect(j_1, l)
B_1 = Intersect(l_1, n)
C_1 = Intersect(m_1, n)
D_1 = Intersect(j_1, m)
E_1 = Intersect(i_1, m)
r_1 = Circle(P, Z)
s_1 = Circle(T, A_1)
t_1 = Circle(U, C_1)
c_2 = Circle(V, C_1)
d_2 = Circle(R, B_1)
e_2 = Circle(Q, B_1)
f_2 = Circle(S, E_1)
g_2 = Circle(W, D_1)
F_1 = Intersect(r_1, a, 2)
G_1 = Intersect(e_2, a, 1)
H_1 = Intersect(d_2, f_1, 2)
I_1 = Intersect(f_2, f_1, 1)
J_1 = Intersect(g_2, g_1, 1)
K_1 = Intersect(c_2, g_1, 2)
L_1 = Intersect(t_1, b, 1)
M_1 = Intersect(s_1, b, 2)
n_1 = Segment(F_1, G_1)
a_1 = Segment(M_1, L_1)
b_1 = Segment(H_1, I_1)
h_2 = Segment(K_1, J_1)

Tool: Cerniera
Cerniera[ <Point>, <Number> ]
Input: C, Lcern
Output: poly1, poly2, g, D

Lcern: 1
c = Circle(C, Lcern)
D = Point(c)
g = Segment(C, D)
D' = Rotate(D, 30°, C)
D'' = Mirror(D', g)
d = Circle(C, (2 * Lcern / 3))
h = Segment(C, D')
i = Segment(C, D'')
E = Intersect(d, i)
F = Intersect(d, h)
poly1, f_1, e, c_1 = Polygon(E, C, F)
j = Segment(D'', D')
k = OrthogonalLine(D'', j)
l = OrthogonalLine(D', j)
m = OrthogonalLine(F, g)
G = Intersect(k, m)
H = Intersect(l, m)
poly2, d'', d', h_1, g_1 = Polygon(D'', D', H, G)

Tool: Bipendolo
Bipendolo[ <Number>, <Point> ]
Input: Lcern, A
Output: l, q'_1, s', q'', B, m, q', s, q

Lcern: 0.5
c = Circle(A, Lcern)
B = Point(c)
f = Line(A, B)
g = OrthogonalLine(A, f)
h = OrthogonalLine(B, f)
i = Segment(B, A)
C = Midpoint(i)
d = Circle(A, Lcern / 2)
D, E = Intersect(d, g)
j = OrthogonalLine(D, g)
k = OrthogonalLine(E, g)
F = Intersect(h, j)
G = Intersect(h, k)
l = Segment(D, E)
m = Segment(F, G)
e = Circle(D, Lcern / 8)
I = Intersect(e, l, 1)
J = Intersect(e, j, 1)
n = OrthogonalLine(J, j)
p = OrthogonalLine(I, l)
K = Intersect(n, p)
q = Circle(K, I)
r = OrthogonalLine(C, f)
q' = Mirror(q, r)
L = Intersect(q, p, 2)
M = Intersect(q', p, 2)
s = Segment(L, M)
q'_1 = Mirror(q, f)
L' = Mirror(L, f)
M' = Mirror(M, f)
s' = Segment(L', M')
q'' = Mirror(q', f)

Tool: CernieraInterna
CernieraInterna[ <Point>, <Number> ]
Input: C, Lcern
Output: D, E, h

Lcern: 1
e = Circle(C, Lcern / 4)
D = Point(e)
g = Segment(C, D)
E = Midpoint(g)
h = Circle(E, D)

Tool: Incastro
Incastro[ <Point>, <Number> ]
Input: A, Lcern
Output: B, f, poly1

Lcern: 1
c = Circle(A, Lcern / 2)
B = Point(c)
f = Segment(A, B)
g = OrthogonalLine(A, f)
C = Intersect(c, g, 1)
D = Intersect(c, g, 2)
h = OrthogonalLine(D, g)
i = OrthogonalLine(C, g)
d = Circle(C, Lcern / 4)
E = Intersect(d, i, 1)
j = OrthogonalLine(E, f)
F = Intersect(h, j)
poly1, e, c_1, d_1, f_1 = Polygon(E, C, D, F)

Tool: CaricoDistr
CaricoDistr[ <Point>, <Point>, <Point> ]
Input: A, B, C
Output: poly1, u, j, v, f, D

f = Segment(A, B)
g = Line(C, B)
h = Line(A, g)
i = Line(C, f)
D = Intersect(h, i)
u = Vector(C, B)
j = Segment(C, D)
v = Vector(D, A)
poly1, a, b, c, d = Polygon(A, B, C, D)

Tool: CaricoT
CaricoT[ <Point>, <Point>, <Point> ]
Input: A, B, C
Output: poly1, u

poly1, c, a, b = Polygon(A, B, C)
u = Vector(C, B)

Tool: Momento1
Momento1[ <Punto>, <Numero> ]
Input: A, L
Output: u, d, B, i

L: 1
c = Circle(A, L)
B = Point(c)
f = Line(B, A)
C = Intersect(c, f, 2)
d = Semicircle(C, B)
e = Circle(C, L / 8)
g = OrthogonalLine(C, f)
D = Intersect(e, g, 2)
u = Vector(C, D)
h = Circle(A, L / 4)
E = Intersect(h, f, 2)
F = Intersect(h, f, 1)
i = Segment(F, E)

Tool: Momento2
Momento2[ <Punto>, <Numero> ]
Input: A, L
Output: u', d', B, i

L: 1
c = Circle(A, L)
B = Point(c)
f = Line(B, A)
C = Intersect(c, f, 2)
d = Semicircle(C, B)
e = Circle(C, L / 8)
g = OrthogonalLine(C, f)
D = Intersect(e, g, 2)
u = Vector(C, D)
h = Circle(A, L / 4)
E = Intersect(h, f, 2)
F = Intersect(h, f, 1)
i = Segment(F, E)
d' = Mirror(d, i)
u' = Mirror(u, i)

Tool: CaricoDistrRis
CaricoDistrRis[ <Punto>, <Punto>, <Punto> ]
Input: A, B, C
Output: D, f, v, g, u, poli1, Q, E, E'

poli1, u, f, v, g, D = CaricoDistr(A, B, C)
E = Midpoint(D, C)
E': E + (u * Distance[A, B])
Q = Vector(E, E')

Tool: CaricoTriangRis
CaricoTriangRis[ <Punto>, <Punto>, <Punto> ]
Input: A, B, C
Output: poli1, u, E, E', Q

poli1, u = CaricoT(A, B, C)
D: A + ((B - A) * 2 / 3)
f = Line(D, u)
E, F = Intersect(f, poli1)
E': E + (u * Distance[A, B] / 2)
Q = Vector(E, E')

Tool: Distanza
Distanza[ <Punto>, <Punto> ]
Input: A, B
Output: k, l, m, TestoDC, C

f = Line(A, B)
g = OrthogonalLine(B, f)
C = Point(g)
h = OrthogonalLine(A, f)
i = OrthogonalLine(C, g)
D = Intersect(i, h)
c = Circle(C, Distance[B, C] / 4)
E = Intersect(c, g, 2)
j = OrthogonalLine(E, g)
F = Intersect(h, j)
k = Segment(B, E)
l = Segment(A, F)
m = Segment(D, C)
distanzaDC = Distance(D, C)
TestoDC: " " + distanzaDC + ""