Thank you for sharing the error that had my picture,The problem originated in my routine that programming in mathematica here the share
ang[vert_] :=
Module[{m1, m2, m3, \[Theta]1, \[Theta]2, \[Theta]3, masi, pmo,
mitlad1, mitlad2},
m1 = (vert[[2, 2]] - vert[[1, 2]])/(vert[[2, 1]] - vert[[1, 1]]);
m2 = (vert[[3, 2]] - vert[[1, 2]])/(vert[[3, 1]] - vert[[1, 1]]);
m3 = (vert[[3, 2]] - vert[[2, 2]])/(vert[[3, 1]] - vert[[2, 1]]);
\[Theta]1 = ArcTan[(m2 - m1)/(1 + m2*m1)];
\[Theta]3 = ArcTan[(m3 - m2)/(1 + m2*m3)];
\[Theta]2 = ArcTan[(m1 - m3)/(1 + m3*m1)];
masi = Flatten[
Position[{\[Theta]1, \[Theta]2, \[Theta]3},
Max[{\[Theta]3, \[Theta]2, \[Theta]1}]]][[1]];
Which[masi == 3,
pmo = {(vert[[1, 1]] + vert[[2, 1]])/2, (
vert[[1, 2]] + vert[[2, 2]])/2};
mitlad1 = {(vert[[1, 1]] + vert[[3, 1]])/2, (
vert[[1, 2]] + vert[[3, 2]])/2};
mitlad2 = {(vert[[2, 1]] + vert[[3, 1]])/2, (
vert[[2, 2]] + vert[[3, 2]])/2};
{Line[{vert[[masi]], pmo}], Line[{mitlad1, pmo}],
Line[{mitlad2, pmo}]}
,
masi == 2,
pmo = {(vert[[1, 1]] + vert[[3, 1]])/2, (
vert[[1, 2]] + vert[[3, 2]])/2};
mitlad1 = {(vert[[1, 1]] + vert[[2, 1]])/2, (
vert[[1, 2]] + vert[[2, 2]])/2};
mitlad2 = {(vert[[2, 1]] + vert[[3, 1]])/2, (
vert[[2, 2]] + vert[[3, 2]])/2};
{Line[{vert[[masi]], pmo}], Line[{mitlad1, pmo}],
Line[{mitlad2, pmo}]}
,
masi == 1,
pmo = {(vert[[2, 1]] + vert[[3, 1]])/2, (
vert[[2, 2]] + vert[[3, 2]])/2};
mitlad1 = {(vert[[1, 1]] + vert[[2, 1]])/2, (
vert[[1, 2]] + vert[[2, 2]])/2};
mitlad2 = {(vert[[1, 1]] + vert[[3, 1]])/2, (
vert[[1, 2]] + vert[[3, 2]])/2};
{Line[{vert[[masi]], pmo}], Line[{mitlad1, pmo}],
Line[{mitlad2, pmo}]}
]
]
Where vert are the vertices of the triangle, and m1, m2, m3 are the slopes between points, theta1, theta2,theta3 are the internal angles of the triangle. As well when calculating
ang[{{0, 0}, {7/2, -(5/2)}, {15/2, 5/2}}]
I got that error,I hope someone can help me to correct this error for future things