TOSNUC MACRO TAPER BORE

$555
(PROG FOR TAPER BORE FOR ANY ANGLES WITH RADIUS INSERTS)
(***PROG DONE BY SRIRAM ON 05-06-07***)

N1(Ø5"MAJOR DIA FOR 30'ANGLE MILL -USE DIA 2"FACE MILL X R3.2MM)
G72$START[H=901,S=800,W=0,T=0]
G0X0Y0
Z6.0M3
G1Z2F100.0M8
Z0F10.0
G72$FINTAP[VD=5.0,VZ=2.0,VQ=0.05,VA=30.0,VC=2.0,VR=0.125,VF=50.0]
G0G90Z6.0M9
G72$END
M30

VD = MAJOR DIA
VZ = FINAL DEPTH
VQ = DEPTH OF CUT
VA = ANGLE FROM HORIZONTAL
VC = CUTTER DIA
VR = CUTTER CORNER RADIUS IN INCHES
VF = FEED RATE

$FINTAP
[V1=[VD/2]-[VZ*TAN[VA]]]
[IF,V1[V2=[[VD-VC]/2]]
[V3=[VR-[VR*COS[VA]]]/TAN[VA]]
[V4=[[VR-[VR*SIN[VA]]]+V3]*TAN[VA]]
[V5=V4+V2]
[V10=FOMT[VZ/VQ]+1]
[V11=0]
G1Z[VQ]F100.0

N101
[V11=V11+1]
G1G91Z-[VQ]F1.0
G90X[V5]F5.0
G2I-[V5]J0F[VF]
[V5=V5-[VQ*TAN[VA]]]
[IF,V11=V10,GO,102]
G1X[V5]
[GO,-101]
N100[V800=1(PREFER SMALLER CUTTER),G0,100]
N102
G0G90Z6.0M9
M02