ξ

η

ρ_ξ

ρ_η

Ellisse centr. d'inerzia

Raggi d'inerzia

Nocciolo centr. d'inerzia

det. centro relativo p.1

det. centro relativo p.2

centro relativo

A = (-1.153924211434937, 2.4326225949202622)
B = (5.803064193877012, 15.596923930833801)
f = Line(A, yAxis)
g = Line(B, f)
h = Line(A, xAxis)
i = Line(B, xAxis)
C = Intersect(f, i)
D = Intersect(g, h)
j = Segment(A, B)
G = Midpoint(j)
poli1, a, d, b, c = Polygon(A, D, B, C)
k = Line(G, xAxis)
l = Line(G, yAxis)
val: (0.75 * Max[abs((B * (1, 0)) - (A * (1, 0))), abs((B * (0, 1)) - (A * (0, 1)))])
e = Circle(G, val)
F, G_1 = Intersect(e, k)
H, I = Intersect(e, l)
ξ = Vector(F, G_1)
η = Vector(H, I)
distanzaDC = Distance(D, C)
distanzaAD = Distance(A, D)
distanzaAC = Distance(A, C)
base: (B * (1, 0)) - (A * (1, 0))
altezza: (B * (0, 1)) - (A * (0, 1))
TestoAD: "b = " + distanzaAD + "cm"
TestoAC: "h = " + distanzaAC + "cm"
I_ξ: (base * altezza^(3) / 12)
I_η: (base^(3) * altezza / 12)
Area: (base * altezza)
ρ_ξ: sqrt(I_ξ / Area)
ρ_η: sqrt(I_η / Area)
testo1: "A = " + (LaTeX[Area]) + "cm^2\\
I_ξ=" + (LaTeX[I_ξ]) + "cm^4\rightarrow ρ_ξ= " + (LaTeX[ρ_ξ]) + "cm\\
I_η=" + (LaTeX[I_η]) + "cm^4\rightarrow ρ_η= " + (LaTeX[ρ_η]) + " cm"
p = Circle(G, ρ_ξ)
J, K = Intersect(p, l)
m = Segment(G, K)
q = Circle(G, ρ_η)
L, M = Intersect(q, k)
n = Segment(G, L)
dfuochi = If(ρ_ξ > ρ_η, sqrt(ρ_ξ^(2) - ρ_η^(2)), sqrt((-ρ_ξ^(2)) + ρ_η^(2)))
r = Circle(G, dfuochi)
N, O = Intersect(r, l)
s = If(ρ_ξ > ρ_η, Ellipse[N, O, M])
P, Q = Intersect(r, k)
t = If(ρ_ξ ≤ ρ_η, Ellipse[P, Q, K])
c_1 = Circle(G, base / 6)
E, R = Intersect(c_1, k)
d_1 = Circle(G, altezza / 6)
S, T = Intersect(d_1, l)
poli2, e_1, s_1, r_1, t_1 = Polygon(E, S, R, T)
o = false
u = false
v = false
U = (9.341532434509821, 6.0010778545414745)
V = (7.632272352170247, 3.4221942215379095)
f_1 = Line(U, V)
W = Intersect(l, f_1)
Z = Intersect(k, f_1)
g_1 = Circle(G, L)
A_1, B_1 = Intersect(g_1, l)
h_1 = Segment(Z, B_1)
i_1 = OrthogonalLine(B_1, h_1)
C_1 = Intersect(i_1, k)
j_1 = Line(C_1, l)
w = false
k_1 = Circle(G, K)
D_1, E_1 = Intersect(k_1, k)
l_1 = Segment(W, D_1)
m_1 = OrthogonalLine(D_1, l_1)
F_1 = Intersect(l, m_1)
n_1 = Line(F_1, k)
a_1 = false
H_1 = Intersect(n_1, j_1)
b_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 + ""