Thanks, what librarie supports de division of the 2 reals.
I am using fractions, real numbers, and decimals, also vectors and matrix.
elsif (anglein>angle(fia,coa+1) and anglein<angle(fia,coa+2) and etiquetas(fia,coa+1)="lfunction") then
Line 142: pendiente:=((-1)/((angle(fia,coa+2)-angle(fia,coa+1))));
corte:=(pendiente*(anglein-angle(fia,coa+2)));
fia:=fia+1;
elsif(anglein>angle(fia,coa) and anglein<angle(fia,coa+1) and etiquetas(fia,coa+1)="gamma") then
Line 181 pendiente:=(1/(angle(fia,coa)-angle(fia,coa+1)));
corte:=(pendiente*(anglein-angle(fia,coa)));
fia:=fia+1;
if (etiquetas(f,0)=speed) then
x0:=speed(f,0);
Line 341 med:=speed(f,1);
Line 342 x3:=speed(f,2);
Line 343 pend1:=(1/(med-x0));
Line 344 x1:=(((mayor-1)/pend1)+med);
Line 345 pend2:=(-1/(x3-med));
Line 346 x2:=(((mayor-1)/pend2)+med);