 ;KRAUTER G.
 ;========================================
 ;M01 - १஢ 㣫 ଠ
 ;========================================
 ;
 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
         ;D -  㦭
E201=PL2
         ;Z - 㡨 ଠ ⭮⥫쭮 孮 ⮢ ( Z > 0 )
E208=PL3
         ;O - न 孮 (᮫⭠)
E214=PL4
         ;P - ਯ  ⮢ ࠡ  孮 ଠ ( P >= 0 )
E204=PL5
         ;H - ਯ  ⮢ ࠡ  ( H >= 0 )
E210=PL6
         ;F1 -  १஢ ( F1 > 0 )
E25=PL7
         ;F2 -  १ ( F2 > 0 )
E26=PL8
         ;F3 -  ⮢ ࠡ⪨ ( F3 >= 0 )
E27=PL9  
         ;V -  १஢ (0;1;2)
E207=PL10
         ;I - 㡨 १ ( I >= 0 )
E209=PL11
         ;U - १  ⮢ ࠡ⪥ ( U >= 0 )
E211=PL12
         ;R1 -  ᭮ ( R1 >= 0;  㬮砭 = 10)
E212=PL13
         ;R2 - 2- ࠧ ᭮ ( R2 >= 0 )
E213=PL14
         ;k - 樥 ४ ࠥਨ ( k > 0.1 )
E215=PL15
         ;S - ⥣ १ (0;1;2)
E216=PL26
  
; १ (ࠤ)
E217=PL0
  
  
   ;१  ਠ
E50=E215*E217*2
  ;E150 - ᫮ 
E150=3.14159
  ;E54 - ࠤ ଠ    
E54=E201/2-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)
  
  
  


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




E1=0
E103=E214


"NEW"
;===============!!=====================

;E103 - ⥪ 㡨 १  . .
(BEQ,E1,E0,LAST)
E103=E103-E209
(BNC,NOLAST)
"LAST"
E103=E103-E305
"NOLAST"

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


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

;E103 - न  Z
;E103=E214-E305

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

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

E306=(((E305+1)/E104)-INT((E305+1)/E104))*360

E32=E200*SIN(E306)
E31=E200*COS(E306)
G3G90IJXE31YE32ZE103KE104FE27

G3IJ 
(BNC,1003)



"1003"

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


(BSP,X,Y,Z,0)

E31=0
E32=0
;E100 - 室  ᯨࠫ (㣮  ࠤ)
E100=0.1
;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)
E27=E25
;室  ᯨࠫ:
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
E222=E214+E212
G1ZE222

(BEQ,E1,E0,END)
E1=E1+1
(BNC,NEW)








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




"END"
G29


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