;--------- SGS --------------
;ЧЕРНОВОЕ ФРЕЗЕРОВАНИЕ ПРЯМОУГОЛЬНОЙ ПЛОСКОСТИ
 G94 G97 G40 G90
;(X) Координата определяющая левый нижний угол прямоугольника по оси X.
 E30=PL1
;
;(Y) Координата определяющая левый нижний угол прямоугольника по оси Y.
 E31=PL2
;
;(Z) Координата точки начала отработки по оси Z.
 E32=PL3
;
;(I) Размер прямоугольника вдоль X
 E33=PL4
;
;(J) Размер прямоугольника вдоль Y
 E34=PL5
;
;(K) Координата определяющая глубину по оси Z.
 E35=PL6
;
;(d) Глубина одного прохода
 E39=PL7
;
;(O) Величина перекрытия между двумя соседними проходами
 E37=PL8
;
;(R) Радиус фрезы
 E38=PL0
 (BNE,E38,0,WW)
 (DIS,"В корректоре не задан К фрезы")
 "WW"

;
;(USP) Припуск по глубине 
 E49=PL9
;
;(QIL) Отклонение от размера начала работы 
 E48=PL10
 (BNE,$PS11," ",9)
 E48=1
 "9"
; -----------------------------
; ------- Чистовая обработка d=0 ------------
(BEQ,E39,0,16)
(BNC,17)
  "16"
E1=1
E49=0
   "17"
;
;-----Pасчет количества пpоходов--------
      ;E57-Глубина по Z
       E57=ABS(E32-E35)-E49
       (BEQ,E39,0,6)
      ;E1-Pасчет целого количества пpоходов
       E1=INT(E57/E39)
      ;E41-Pасчет остатка, мм
       E58=E57-(E1*E39)
      ;E59-10% глубины одного пpохода
       E59=E39*0.1
      ;Если остаток <=10% глубины одного пpохода пеpеход к "6", если > пpибавляю 1 пpоход
       (BLE,E58,E59,6)
              
                          E1=E1+1
       "6"
;
 (DPI,$PS1,$PS2)
; ----- ФРЕЗЕРОВАНИЕ ВДОЛЬ Y ------
; -------- РАСЧЕТ ------------
 E40=E33+(E37*2)
 E41=E34
 E77=E38+E48
 E50=NEG(E77)
 E51=E38-E37
 E42=(E38*2)-E37
 E43=E41+E38
 E44=E40-(E38*2)
 (BLE,E44,0,V3)
 E2=INT(E44/E42)+1
 E45=E44/E2
 (BNC,V4)
     "V3"
 E2=0
 E45=0
     "V4"
 E46=(E32-E35-E49)/E1
 E47=E32
 E43=E43+E48
;E2=E2-1
; --------- ДВИЖЕНИЕ ----------
 (UIO,$PS1E30,$PS2E31)
 G0 $PS1E51 $PS2E50
 $PS3E32
     (RPT,E1)
 G0 G90 $PS1E51 $PS2E50
 E47=E47-E46
 G1 $PS3E47
 E41=ABS(E41)
 E43=ABS(E43)
 G1 G91 $PS2E77
 (BEQ,E2,0,111)
           (RPT,E2)
 $PS2E41
 $PS1E45
 E43=NEG(E43)
 E41=NEG(E41)
           (ERP)
     "111"
;E43=NEG(E43)
;E41=NEG(E41)
;$PS1E45
 $PS2E43
 E47=E47+E48
 G0 G90 $PS3E47
 E47=E47-E48
     (ERP)
 G0 G90 $PS3E32
 $PS1E51 $PS2E50
     "END"
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
