c116-4 komplett deutsch.pdf

iselautomation KG
isel-CNC-Betriebssystem 5.x
2. Berechnung der Bogenlänge mittels Software-Routine
if (Kreisrichtung=Gegenuhrzeigersinn) then
begin
while(A=pi/2.0) do
begin
E:=E-pi/2.0;
B:=B+2.0*Radius;
end;
B:=B+Raduis*(cos (A) -cos (E) +sin (E) -sin (A));
end;
else {Kreisrichtung = Uhrzeigersinn}
begin
while (A>0) do A:=A-2.0*pi;
while (E>0) do E:=E-2.0*pi; {Winkel in den negativen Bereich normieren}
while (A=pi/2.0) do
begin
E:=E+pi/2.0;
B:=B+2.0*Radius;
end;
B:=B+Radius*(cos (A) -cos (E) +sin (A) -sin (E));
end;
if (B