CNCing

%   N400 (LOOP FUNCTION) (FOR EXAMPLE CROSSHOLE HELICAL MILLING) G28U0.V0. G30W0.  T0505 G19 #110=5.(STARTPOINT IN X)  #111=4.625(ENDPOINT IN X) #112=.15(BACK OFF FROM BOTTOM FOR REDUCED FEED) #113=.05(FEED PER HELICAL REVOLUTION) #114=.02(FEED PER HELICAL REVOLUTION AT BOTTOM) #115=.75(TOOL DIAMETER) #116=1.(DIAMETER OF HOLE) #117=20.(FEEDRATE)  #118=10.(REDUCED FEEDRATE AT BOTTOM)    (#119 = ENDPOINT IN X WITH OR WITHOUT BACKING OFF AT BOTTOM)  IF[#112EQ0]THEN#119=#111  IF[#112GT0]THEN#119=[#111+2*#112]   #120=FUP[[#110-#119]/2/#113](NO. OF LOOPS)  #121=[#110-#119]/2/#120(CALCULATED FEED PER HELICAL REVOLUTION)   (#122 ROUNDING MIGHT NOT BE NECESSARY)  #122=[[ROUND[#121*10000]]/10000](ROUNDED CALCULATED FEED PER HELICAL REVOLUTION)    #123=FUP[#112/#114](NO. OF LOOPS) #124=#112/#123(CALCULATED FEED PER HELICAL REVOLUTION)    (#125 ROUNDING MIGHT NOT BE NECESSARY)  #125=[[ROUND[#124*10000]]/10000](ROUNDED CALCULATED FEED PER HELICAL REVOLUTION)    G0X#110(X STARTPOINT)   G98G3G41V-[[#

% (UPDATED R-VALUE/Z STARTPOINT IF FLANK INFEED HAS BEEN SELECTED IN FIRST G76 LINE [EG O010060 INSTEAD OF P010000])    #100=.122(DEPTH OF THREAD - P-VALUE IN SECOND G76 LINE) #101=-.55(Z STARTPOINT) #102=-5.125(Z ENDPOINT) #103=4.764(THREAD TAPER ANGLE)  #104=60(FLANK INFEED - EG 60 FOR 600 THREAD)      #106=[-[#102-#101]*[TAN[#103]]-[[TAN[#104/2]*#100]*[TAN[#103]]]](CORRECT R-VALUE)     #108=[#101+[[TAN[#104/2]*#100]]](CORRECT Z STARTPOINT)  #109=[-[#102-#101]*[TAN[#103]]](CORRECT R-VALUE)    M0  (CHECK MACRO #106 FOR THE CORRECT R-VALUE TO ADD IN THE SECOND G76 LINE - NEGATIVE VALUE FOR OD THREAD, POSITIVE VALUE FOR ID THREAD)     (OR)    (CHECK MACRO #108 FOR THE CORRECTED Z STARTPOINT AND MACRO #109 FOR THE R-VALUE TO ADD IN THE SECOND G76 LINE - NEGATIVE VALUE FOR OD THREAD, POSITIVE VALUE FOR ID THREAD) (Z STARTPOINT FOR FINAL PASS WILL BE SAME AS MACRO #101)    M0    %