PROGRAM PRZELICZAJACY DOJAZDY W OBROBCE WALCA
DEF WORK[1]
DIREC V
ORIGIN H1
CYLNDR 0P,[0,0],180,-12,0
END
DRAW
(GEREEDSCHAP LENGTE +0.3)
NAT1
G30P1
G114T29H1S800M3
B0
VC1=1 (SKOK/STAP)
VC2=0 (PIERWSZE WEJSCIE/ERSTE INGANG)
VC3=12 (ILOSC PRZEJSC/AANTAL HERHALINGEN)
VC5=240 (POSUW/VOEDING)
VC6=36 (SREDNICA FREZA/GEREEDSCHAP DIAMETER)
VC10=125 (PROMIEN WALCA/RADIUS MATERIAL)
G0X-100Y0
G0Z5
NAT2
VC11=VC10-VC2
VC20=VC10*VC10
VC21=VC11*VC11
VC22=1*VC6
VC30=SQRT[VC20-VC21]+VC22
G0X=-VC30 Y80
Z5 M51
G1Z=-VC2 F=VC5
X=VC30
G0Y-60
G1X-VC30
G0Y60
G1X=VC30
G0Y-40
G1X=-VC30
G0Y40
G1X=VC30
G0Y-20
G1X=-VC30
G0Y20
G1X=VC30
G0Y0
G1X=-VC30
G0Z5
X-VC30Y80
VC2=VC2+VC1
VC3=VC3-1
VC11=VC11-VC1
IF [VC3 NE 0] GOTO NAT2
G0Z100
M0
G30P1
M30
