;V1.3--------- SGI -------------
;Фрезерование стержневой фрезой внутренней
;цилиндрической поверхности с одним проходом 
;по глубине. 
;-----------------------------
 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=PL10
;
;Радиус фрезы
 E36=PL0
 (BNE,E36,0,WW)
 (DIS,"В корректоре не задан К фрезы")
 "WW"

;
;(USF) Припуск вдоль боковой поверхности
 E43=PL8
;
;(USP) Припуск по глубине
 E46=PL9
;
;q направление обхода (=0-против ч.с.; =1-по ч.с.).
 E54=PL11
 (BEQ,E54,0,PROTIV)
 E3=2
 (BNC,PO)
 "PROTIV"
 E3=3
"PO"
; ---------РАСЧЕТ-----------
 (BGT,E39,0,B)
 E1=1
 E43=0

         "B"
 (BGT,E37,0,A)
 E2=1
 E46=0

        "A"
 E45=E34-E33
       (BGT,E43,E45,C)
;
;E40 = DELTA P
 E40=((E34-E33)-E43)
       (BEQ,E39,0,6)
;-----Pасчет количества пpоходов--------
      ;E1-Pасчет целого количества пpоходов
       E1=INT(E40/E39)
      ;E38-Pасчет остатка, мм
       E38=E40-(E1*E39)
      ;E50-10% j
       E50=E39*0.1
      ;Если остаток <=10% шага по радиусу пеpеход к "6", если > пpибавляю 1 пpоход
       (BLE,E38,E50,6)
              
                          E1=E1+1
       "6"
;Перерасчет шага по радиусу E40
       E40=E40/E1    

;------
;E51 = Глубина по Z
;     Z - K -USP 
 E51=E32-E35-E46
       (BEQ,E37,0,7)
;-----Pасчет количества пpоходов по глубине--------
      ;E2-Pасчет целого количества пpоходов
       E2=INT(E51/E37)
      ;E48-Pасчет остатка, мм
       E48=E51-(E2*E37)
      ;E52-10% глубины одного пpохода
       E52=E37*0.1
      ;Если остаток <=10% шага по радиусу пеpеход к "6", если > пpибавляю 1 пpоход
       (BLE,E48,E52,7)
              
                          E2=E2+1
      "7" 
;Перерасчет глубины одного прохода (d2) E51
       E51=E51/E2     

;
 E53=E32
 E41=(E33+E40)-E36
 E35=E35+E44
;----------- Выполнение цикла ---------
 (DPI,$PS1,$PS2)
 (UIO,$PS1E30,$PS2E31)
 G0 $PS1 $PS2
 $PS3E32
; G1 $PS3E35

            (RPT,E2)
 ;E41 = COORD. Y DI P2
 E41=(E33+E40)-E36
 E53=E53-E51
 G1 G29 $PS3E53
        (RPT,E1)
; E42 =
 E42=E41/2
 GE3 G28 $PS2E41 I0 JE42
 I J
 $PS1 $PS2 I JE42
 E41=E41+E40
        (ERP)
        (ERP)
 G0 G29 $PS3E32
;
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
 (BNC,FINE)
         "C"
 (DIS,"ОШИБКА В ПАРАМЕТРЕ")
        "FINE"
;--------- КОНЕЦ ---------------
