TOSNUC MACRO FOR BOTTOM CORNER RADIUS

$1702
(COMMON PROG FOR BTM CORNER RADIUS)
(***PROG DONE BY SRIRAM ON 16-07-08***)

N1(C-MILL FOR R1.0 BTM CORNER RADIUS - USE Ø100MM FACEMILL W/R0.25 INSERT)
G72$START[H=901,S=400,W=0,T=0]
G0X0Y0
Z6.0M3
G1Z2F100.0M8
Z0F50.0
G72$BTMRAD[VA=1,VB=7.0,VC=3.937,VD=0.01,VE=10.0,VF=30.0,VR=0.9,VT=0.25]
G0G90Z6.0M9
G72$END
M30

(VA= SURFACE FINISH;1=ROUGH,2=FINE)
(VB= BORE DIA)
(VC= CUTTER DIA)
(VD= ALLOWANCE IN DIA)
(VE= CAVITY FINAL DEPTH)
(VF= FEED RATE)
(VR= BOTTOM CORNER RADIUS)
(VT= CUTTER TIP RADIUS)

$BTMRAD
[IF,VB2,GO,100]
[IF,VR<=VT,GO,100]
[IF,VA=1,V1=2.5,V2=2.5,V3=90.0]
[IF,VA=2,V1=1.5,V2=1.5,V3=90.0]

[V9=[[VE-VR]+VT]]
[VB=VB-VD](BORE-ALLOWANCE)
[V4=[VB/2]-[VC/2]]
[V5=VR-VT]
G1G90Z-[V9]F100.0

N101
[V6=SIN[V1]*V5] (DEPTH)
[V7=COS[V1]*V5] (OFFSET)
[V8=V5-V7]
G1X[V4-V8]F[VF] (OFFSET POSITION)
Z-[V9+V6]F6.0 (PECKING DP)
G3I-[V4-V8]J0
[V1=V1+V2]
[IF,V1<=V3,GO,-101]
[GO,102]
N100[V800=1(INPUT ERROR),G0,100]
N102
G0G90Z0M9
M02