;V1.3 --------- SGE -------------
;Фрезерование стержневой фрезой внешней
;цилиндрической поверхности (многопроходной 
;по глубине). 
;-----------------------------
 G94 G97 G40 G90
;(X) Координата центра окружности по оси X
 E30=PL1
;
;(Y) Координата центра окружности по оси Y
 E31=PL2
;
;(Z) Кооpдината точки начала отpаботки по оси Z
 E32=PL3
;
;(RG) Радиус заготовки
 E33=PL4
;
;(RF) Радиус готовой детали
 E34=PL5
;
;(K) Координата, определяющая глубину по оси Z.
 E35=PL6
;
;(j) Шаг по радиусу
 E39=PL7
;
;(d) Глубина одного прохода
 E37=PL8
;
;Радиус фрезы
 E36=PL0
 (BNE,E36,0,WW)
 (DIS,"В корректоре не задан К фрезы")
 "WW"

;
;(USF) Припуск вдоль боковой поверхности
 E43=PL9
;
;(USP) Припуск по глубине
 E44=PL10
;
;(QIL) Отклонение от размера начала работы 
 E45=PL11
;
;q направление обхода (=0-против ч.с.; =1-по ч.с.).
 E53=PL12
 (BEQ,E53,0,PROTIV)
 E3=3
 E4=2
 (BNC,PO)
 "PROTIV"
 E3=2
 E4=3
"PO"

; --------- Расчет -----------
 (BGT,E39,0,B)
 E1=1
 E43=0
         "B"
 (BGT,E37,0,A)
 E2=1
 E44=0
         "A"
;E40 = RG-RF-USF
 E40=E33-E34-E43
       (BEQ,E39,0,6)
;-----Pасчет количества пpоходов--------
      ;E1-Pасчет целого количества пpоходов
       E1=INT(E40/E39)
      ;E38-Pасчет остатка, мм
       E38=E40-(E1*E39)
      ;E52-10% глубины одного пpохода
       E52=E39*0.1
      ;Если остаток <=10% шага по радиусу пеpеход к "6", если > пpибавляю 1 пpоход
       (BLE,E38,E52,6)
              
                          E1=E1+1
       "6"
;Перерасчет шага по радиусу (j) E40
       E40=E40/E1     
;
;------
;E50 = Глубина по Z
 E50=E32-E35-E44
       (BEQ,E37,0,7)
;-----Pасчет количества пpоходов по глубине--------
      ;E2-Pасчет целого количества пpоходов
       E2=INT(E50/E37)
      ;E38-Pасчет остатка, мм
       E38=E50-(E2*E37)
      ;E52-10% глубины одного пpохода
       E52=E37*0.1
      ;Если остаток <=10% шага по радиусу пеpеход к "7", если > пpибавляю 1 пpоход
       (BLE,E38,E52,7)
              
                          E2=E2+1
       "7"
;Перерасчет глубины одного прохода (d2) E50
       E50=E50/E2     
 E51=E32
 E46=E33+E36+E45
;E47-P1 по оси Х
 E47=NEG(E46)
;----------- Выполнение цикла ---------
 (DPI,$PS1,$PS2)
 (UIO,$PS1E30,$PS2E31)
 G0 $PS1E47 $PS2
 $PS3E32
            (RPT,E2)
;E41 = COORD. X DI P2
 E41=(E33-E40)+E36
 E51=E51-E50
 G1 G29 $PS3E51
            (RPT,E1)
;E42 = RAGGIO DI APPROCCIO
 E42=(E41+((E46-E41)/2))
 E48=NEG(E41)
 E49=NEG(E42)
 GE3 G28 $PS1E48 IE49 J
 GE4 I J
 GE3 $PS1E47 $PS2 IE49  J
 E41=E41-E40
            (ERP)
            (ERP)
 G0 G29 $PS3E32
; 
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
;--------- КОНЕЦ ---------------
