G92 fanuc taper threading program for cnc

O1571
N10   M06 T02 02 ;
N20   G50 S1500 ;
N30   M03 G97 S200 ;
N40   M08 ;
N50   G00 X50 Z2 ;
N60   G92 X49.07 Z-80 R5.114 F2 ;
N70   X48.87 ;
N80   X48.67;
N90   X48.47 ;
N100 X48.27 ;
N110  G28U0 W0 ;
N120 M05 M09 M30 ;
                                                                                     More examples..........!!!!
DESCRIPTION OF MAIN PROGRAM :- 

[note :- all dimension in "mm" and thread is metric angle of thread is 60 degree]

Calculation :- Depth of thread = 0.6134 x 1.5
                                                  = 0.9201
           Our aim is to find value of "crest"  and "root" u can consider large or smaller diameter . Here, i consider large diameter 50 mm.
                   
                      Crest = Major diameter -0.9201
                                = 50 - 0.9201
                                = 49.07 mm

                       Root = Major dia - 2 X depth of thread 
                                = 50 - 2 x 0.9201
                                = 48.20 mm
It means cut upto 48.20 mm , Each cut for one side is 100 micron = 0.1 mm it means total cut is 0.2 mm .  First cut is 49.07 mm ( crest )
                second cut is 49.07-0.2 = 48.87 mm
                third cut is 48.67 mm
                fourth cut is 48.47 mm
                final cut is 48.27 mm (root)(equal to 48.20)
************************************************************************************************************

01571 - Name of main program
N10- Tool change command , select tool no 2
N20- Maximum spindle speed command , speed is 1500 rpm
N30- Spindle ON clockwise , constant spindle speed , speed is 200 rpm
N40- Coolant ON
N50- Rapid action command , where X50 and Z2 .

N60- Threading cycle command , where X49.07( crest )(First cut) and Z-80 , taper value is 5.114 given , feed rate is 1.5 ( it is           always is equal to pitch )

N70- Second cut along x axis is 48.87
N80- Third cut  along x axis is 48.67
N90 - Fourth cut along x  axis is 48.47
N100- Final cut along X axis is 48.27
N110- Referance point command , where X0 nad Z0
N120- Spindle off , coolant off , main program end .