 ;14.04.2021 KRAUTER G.
 ;========================================
 ;M00 - १஢ אַ㣮쭮 ଠ
 ;========================================
 ;
 G0 G94 G97 G40 G90 G29

 ;== 祭 1- 400- E-६  ६ PR==
 ;ਬ砭. ६ PR ࠭  몫祭 
;PR412=E12
;E12=1
;"ENDB1"
;(BEQ,E12,400,BEG1)
;PR(E12)=E(E12)
;E12=E12+1
;(BNC,ENDB1)
;"BEG1"
;E12=PR412
 ;==============᫥  =============
(BGE,SK25,80,555)
(BGE,SK25,80,444)
(BGE,SK25,80,333)
(BGE,SK25,80,222)
E15=0
(BNC,PROEND)
"222"
E15=1
(BNC,PROEND)
"333"
E15=2
"444"
(BNC,PROEND)
E15=3
(BNC,PROEND)
"555"
E15=4
"PROEND"
  
;===================砫 ᫮=====================
  
         ;T -  ࠡ⪨ (0;1;2)
E200=PL1
         ;A -  ஭ ଠ    ( A > 0 )
E201=PL2 
         ;B -  ஭ ଠ   न ( B > 0 )
E202=PL3
         ;C -  㣫 㣫 ଠ ( C >= 0 )
E101=PL4
         ;Z - 㡨 ଠ ⭮⥫쭮 孮 ⮢ ( Z > 0 )
E208=PL5
         ;O - न 孮 (᮫⭠)
E214=PL6
         ;L -  ଠ ⭮⥫쭮 㬥 (0;1;2;3;4)
E206=PL7
         ;a -   ଠ ( a >= 0 )
E29=PL8
         ;P - ਯ  ⮢ ࠡ  孮 ଠ ( P >= 0 )
E204=PL9
         ;H - ਯ  ⮢ ࠡ  ( H >= 0 )
E210=PL10
         ;F1 -  १஢ ( F1 > 0 )
E25=PL11
         ;F2 -  १ ( F2 > 0 )
E26=PL12
         ;F3 -  ⮢ ࠡ⪨ ( F3 >= 0 )
E28=PL13  
         ;V -  १஢ (0;1;2)
E207=PL14
         ;I - 㡨 १ ( I >= 0 )
E209=PL15
         ;U - १  ⮢ ࠡ⪥ ( U >= 0 )
E211=PL16
         ;R1 -  ᭮ ( R1 >= 0;  㬮砭 = 10)
E212=PL17
         ;R2 - 2- ࠧ ᭮ ( R2 >= 0 )
E213=PL18
         ;k - 樥 ४ ࠥਨ ( k > 0.1 )
E215=PL19
         ;S - ⥣ १ (0;1;2)
E216=PL20
  
; १
E217=PL0
  
  E53=E201/2
  E54=E202/2
  
  ;E150 - ᫮ 
E150=3.14159
  E50=E215*E217
  
;  
$PS1=$INAX1
;  न
$PS2=$INAX2
;  诨
$PS3=$INAX3
  
;=============================================
;               
;=============================================
;६:
;E301 - न १  X
;E302 - -//-  Y
;E303 - ⮪ ᫥ १
;E304 - 10%  १
;E0 - ⢮ १
 
   ;室 祭 Z  ᭮ ﭨ
      E300=E214+E212  
  ;室    
      G$PS3E300

  ;⥭ ⥪饩 न 㬥
  E10=E15*10+2
  (GTA,$PS1,E10,E218)
  (GTA,$PS2,E10,E219)
  
  ;===================================================================
  ;न ଠ  ᨬ   
  ;===================================================================
  ;E220 - 業 ଠ  X
  ;E221 -  -//-  Y.
  ;E206 = 0;1;2;3;4
  
  (BEQ,E206,1,Po1)
  (BEQ,E206,2,Po2)
  (BEQ,E206,3,Po3)
  (BEQ,E206,4,Po4)
  
  ;Po0
  E220=E218
  E221=E219
  (BNC,ENDPo)
  "Po1"
  E220=E218-(E201/2)
  E221=E219-(E202/2)
  (BNC,ENDPo)
  "Po2"
  E220=E218+(E201/2)
  E221=E219-(E202/2)
  (BNC,ENDPo)
  "Po3"
  E220=E218+(E201/2)
  E221=E219+(E202/2)
  (BNC,ENDPo)
  "Po4"
  E220=E218-(E201/2)
  E221=E219+(E202/2)
  (BNC,ENDPo)
  
  "ENDPo"
  ;===================================================================

  
  
  ;===================================================================
  ; ⥬ न

  (UIO,$PS1E218,$PS2E219)
  (URP,E29)
  
  ;===================================================================




  ;===================================================================
  ; ⢠ १  ⮬ ਯ᪠  ⮢ ࠡ
  E0=INT((E208-E210)/E209)
  ; ⪠
  E303=E0*E209
  ;10 業⮢ 㡨  室
  E304=E209*0.1
  ;᫮ E304<=10%
  (BGT,E303,E304,N)
     E0=E0-1
     ;᫥ १:
     E303=E209+E303 
  "N"
     ;E305=E303+E
  ;===================================================================
  






;===============!!=====================

;롮 㦭 १
(BEQ,E216,0,1000)
(BEQ,E216,1,1001)
(BEQ,E216,2,1002)

  
;=============================================
;=======   १    ================
;=======         ᪠   ================
;=============================================
"1000"
G0G90XYZ1
;E103 - न  Z
E103=E214-E305
G1ZE103FE26
(BNC,1003)
  
;=============================================
;=======   १    ================
;=======                      ================
;=============================================
"1001"
G0G90XYZ10
E200=E217*0.5

;E103 - न  Z
E103=E214-E305

;E27 -  १஢  ४樥  ࠤ १
;E27=E25/((E200+E217)/E200)
E27=E25
;஭  १஢   १
E104=E26*2*E150*E200/E25

E105 =E104-E209+(INT(E209/E104)*E104)+1
G0G90XE200Z1

E32=E200*SIN((((E305+1)/E104)-INT((E305+1)/E104))*360)
E31=E200*COS((((E305+1)/E104)-INT((E305+1)/E104))*360)
G3G90IJXE31YE32ZE103KE104FE27

G3IJ 
(BNC,1003)
;=============================================
;=======   १ ⭨  ===============
;=======                      ================
;=============================================
"1002"

(BNC,1003)
"1003"




;=============================================
;======= १ 㦭 ================
;=======   ᯨࠫ 娬 ================
;=============================================


(BSP,X,Y,Z,0)

E31=0
E32=0
;E100 - 室  ᯨࠫ (㣮  ࠤ)
E100=2*E150
;E102 - 蠣 㣫  ࠤ
E102=0.7
E32=(E50/(2*3.14))*E100*SIN(E100*180/3.14)
E31=(E50/(2*3.14))*E100*COS(E100*180/3.14)
;E36 - ࢮ砫 ࠤ
E36=SQR(E32*E32+E31*E31)

;E27 -  १஢  ४樥  ࠤ १
E27=E25/((E36+E217)/E36)
;室  ᯨࠫ:
G1G27XE31YE32FE27

;ࠫ:
E100=E100+E102
"2"  


E32=(E50/(2*3.14))*E100*SIN(E100*180/3.14)
E31=(E50/(2*3.14))*E100*COS(E100*180/3.14)
;E33 -  ࠤ
E33=SQR(E32*E32+E31*E31)
E102=E36*E102/E33
;E36 - ࠭塞 ⥪騩 ࠤ
E36=E33
;E27 -  १஢  ४樥  ࠤ १
E27=E25/((E36+E217)/E36)

E100=E100+E102
E35=E32
E34=E31

(BGT,E33,E54,1)

G6G27XE31YE32FE27
(BNC,2)

"1"
(ESP)
;⮣ 業ࠫ쭠 㦭:
G3IJF1000
;室  業 ଠ:
G0G91Z1
G1G90XY


;=============================================
;=======   १ ࠢ   ================
;=======    ஭ ଠ   ================
;=============================================
E52=E50
E49=-E54
G1G90YE49ZE103FE25
G1G91XE50

;E27 -  १஢  ४樥  ࠤ १
E27=E25*(E54-E217)/E54

"4"
E51=-E50
G90G3XE52YE54RE54FE27
E52=E52+E50
G1G91XE51FE25
E40=E53-E54
(BGT,E52,E40,3)

E51=E50*2
G1G90YE49
G1G91XE51
(BNC,4)

"3"

;室  業 ଠ:
G1G90XY

;=============================================
;=======   १     ================
;=======    ஭ ଠ   ================
;=============================================
E52=-E50
E49=-E54
G1G90YE54
G1G91XE52
"5"

G90G3XE52YE49RE54
E52=E52-E50
G1G91XE50
E41=E54-E53
(BLT,E52,E41,6)

E51=-E50*2
G1G90YE54
G1G91XE51
(BNC,5)

"6"



;室  業 ଠ:
G0G91Z1
G90G1X0Y0F1000


;=============================================
;=======   ࠡ⪠ 㣫    ================
;=======         ଠ      ================
;=============================================
E30=1
;E42 -  न   砫 室
E42=1
;E43 -  न  Y 砫 室
E43=1
; X 
E44=1
; Y 
E45=1

E46=1
E47=0

;室  砫 न ࠡ⪨ ࢮ 㣫 (孨 ࠢ)
G0XE53Y0ZE103

"ANG"
;:
;M00
E64=E54
; 㣨:
E64=E64-(-(SQR(2)*E50)/(SQR(2)-2))

;;न 砫 室
; X:
;E60=E42*50
E60=E46*E42*E53+E47*E42*(E53-E64)
; Y:
;E61=E43*(-(SQR(2)*E50)/(SQR(2)-2))
E61=E46*E43*(-(SQR(2)*E50)/(SQR(2)-2))+E47*E43*E54

(BLT,E64,E101,9)

;;न 砭 室 ६⠫쭮
; X:
;E62=-30+E61
E62=E46*E44*(E53-E64)+E47*E44*E53
; Y:
;E63=E64
E63=E46*E45*E54+E47*E45*(-(SQR(2)*E50)/(SQR(2)-2))


;;;ࠡ⪠:

E65=(E60-E42*E47*(-(SQR(2)*E50)/(SQR(2)-2)))
E68=(E61-E43*E46*(-(SQR(2)*E50)/(SQR(2)-2)))
G0XE65YE68ZE103
G1XE60YE61
G3G90XE62YE63RE64
;室
E65=-E46*E42*(-(SQR(2)*E50)/(SQR(2)-2))
E68=-E47*E43*(-(SQR(2)*E50)/(SQR(2)-2))
G1G91XE65YE68


"8"
E65=(E60-E42*E47*(-(SQR(2)*E50)/(SQR(2)-2)))
E68=(E61-E43*E46*(-(SQR(2)*E50)/(SQR(2)-2)))
G1G91Z1
G1G90XE65YE68
G1G91Z-1
;G0G90XE60Y0
E60=E60+E42*E47*(-(SQR(2)*E50)/(SQR(2)-2))
E61=E61+E43*E46*(-(SQR(2)*E50)/(SQR(2)-2))
;E64=30-E61
E64=E64-(-(SQR(2)*E50)/(SQR(2)-2))
;E62=-30+E61
E62=E46*(E62+E42*(-(SQR(2)*E50)/(SQR(2)-2)))+E47*E62
;E63=E64
E63=E47*(E63+E43*(-(SQR(2)*E50)/(SQR(2)-2)))+E46*E63
(BGT,E101,E64,9)
G1G90XE60YE61
G3G90XE62YE63RE64
E65=-E46*E42*(-(SQR(2)*E50)/(SQR(2)-2))
E68=-E47*E43*(-(SQR(2)*E50)/(SQR(2)-2))
G1G91XE65YE68


(BNC,8)

"9"
E65=(E60-E42*E47*(-(SQR(2)*E50)/(SQR(2)-2)))
E68=(E61-E43*E46*(-(SQR(2)*E50)/(SQR(2)-2)))
G0G90XE65YE68ZE103

E60=E46*E42*E53+E47*E42*(E53-E101)
E61=E46*E43*(E54-E101)+E47*E43*E54
E64=E101
E62=-E42*E46*E101+E42*E47*E101
E63=E43*E46*E101-E43*E47*E101
G1G90XE60YE61
G3G91XE62YE63RE64
E65=-E46*E42*(-(SQR(2)*E50)/(SQR(2)-2))
E68=-E47*E43*(-(SQR(2)*E50)/(SQR(2)-2))
G1G91XE65YE68
G0G90XYZ10


E30=E30+1
(BGT,E30,4,111)

(BEQ,E30,3,3333)
(BEQ,E30,4,4444)
E42=1
E43=-1
E44=1
E45=-1
E46=0
E47=1
(BNC,ANG)
"3333"
E42=-1
E43=+1
E44=-1
E45=+1
E46=0
E47=1

(BNC,ANG)
"4444"
E42=-1
E43=-1
E44=-1
E45=-1
E46=1
E47=0

(BNC,ANG)
(BNC,ANG)
"111"

;=============================================
;=======   室  砫  ================
;=======  ᫥饣 १ =============
;=============================================
(BGT,E303,E304,ENDVR)
(BNC,NEWVR)
"ENDVR"
(URP,0)







;======= 祭  1- 400- E-६============
;E12=1
;"ENDB2"
;(BEQ,E12,400,BEG2)
;E(E12)=PR(E12)
;PR(E12)=0
;E12=E12+1
;(BNC,ENDB2)
;"BEG2"
;================================================================
; 横           
                