控制精修次數.精修量以及空跑次數

羅蓋仙

# f$ K8 ]  J5 d這個簡單的程序我竟然整整寫了一年，勿見笑
* q; g# y% y% P* n) X+ q單位：
3 A3 m& V- s! k& R1厘米=100絲(蜘蛛絲)；我們是1厘米=100條(1條頭髮)

我所寫的程序可應用在：
G3I-10.F100→
- K' b5 @7 d; v9 KG3I-20.→
G3I-30.‧‧‧‧→
G3I-90.→
5 B) W- H6 w; l$ P6 G# ?) RG3I-92.F60(精修開始了，進給率也変慢了)→
4 S7 [+ l) I) LG3I-94.→
G3I-96.→
& h) u5 Z4 Y# M; P! SG3I-98.→
* l/ H7 ~* c" p: `& _2 tG3I-100.(到達終點了，還沒完)→
( {& t  h$ q6 ^0 jG3I-100.F40.(空跑1次開始了，進給率又変慢了)→
G3I-100.(空跑2次)→
G3I-100.(空跑3次)結束
6 f8 [6 c0 R( G
4 l2 p7 b9 |! T4 r  V+ H
+ n. Z" y6 E/ }; R# l! w我寫轉速從S0-S1000，先懂以下的例子，再去看程序比較能了解動作：

: N: a6 M( p* A: s# `6 P0 VA.假設精修次數4次，精修量25絲
/ D9 Z! @& W! r( [S0→S100→S200....→S900→S925→S950→S975→S1000
1 N& b: i/ g. r" z; @2 n8 mB.假設精修次數3次，精修量30絲
6 |2 q- [" {4 E4 E: \S0→S100→S200....→S900→S930→S960→S990→(最後10絲擺在后面)S1000
C.假設精修次數2次，精修量60絲
S0→S100→S200....→S800→S880→S940→S1000
0 a" `4 `3 G4 }$ s9 ED.假設精修次數2.次，精修量10絲
S0→S100→S200....→S900→S980→S990→S1000
E.設置空跑次數假設2次
# |$ X% J1 V% C& Z→S800→S900→S980→S990→S1000→S1000(空跑1次)→S1000(空跑2次)結束

程序：
#1=0.(初速)
#19=1000.(終速)
! ]" d+ z5 p$ M2 c: [#17=100.(Q，粗銑間距)
* ^: n* G9 v- s5 w+ k#21=4.(U，精修次數)
#22=25.(V，精修量(絲))
#23=1.(W，空跑次數)
IF[[#22GE#17]AND[#21NE0.]]THEN#3000=1.(V-NG)
/ O8 ]$ s! b1 V3 c: V( s" c! D#2=#19-#1-#21*#22
( P: _: x- C" G9 h( F; H( G: D( G9 Z#16=#2MOD#17
9 G; J- J0 S2 S/ q- b  l#15=#16NE0.
#2=FIX[#2/#17]+1.
" r0 o* z+ o  a# X6 p8 A#10=0.
IF[[#16GE#22]OR[#21*#22EQ0.]]GOTO1
#16=#16+#22
& w% o7 t" k6 D% N# k9 W8 Y* O. L#22=#16-#22
0 J! ~# N: i- L! r* x7 i& [#16=#16-#22
#15=#15+#21
#21=#15-#21
& w1 y# X$ e  [# V. }: }#15=#15-#21
9 w* B  F: i* uN1WHILE[#2GE1.]DO1
S#1M3
% C- }5 |) P2 I; B- F#1=#1+#17
/ j, x, X) M. P# R" F( W#2=#2-1.
END1
#1=#1-#17
+ [! E* s, f8 {! B  C; F' ]$ K/ g  d#10=#10+1.
- q/ l8 p4 f4 x; F" h& }IF[[#15*#16EQ0.]OR[#10GE3.]]GOTO9
" T+ Q- T9 ~7 Y#1=#1+#16(轉速轉移)
#17=#16(增量轉移)
; [6 {7 D5 b! l#2=#15(次數轉移)
/ q6 ]# P7 L* B& V0 R: \#16=#22(下一組精修量(絲))
. O- G! p1 R  q: P: s#15=#21(下一組精修次數)
  a' Q9 Z" Z, l- tGOTO1
. ~* d4 j0 v$ I. YN9IF[#23EQ0.]GOTO99
8 Y0 R( W# x5 y- |5 d#17=0.(增量関)
#2=#23(空跑次數轉移)
1 M1 {$ L5 r0 C4 {#23=0.(空跑関)
GOTO1
N99M0

andyking1990

感謝分享 學習了...

zhangluug

U8IIIIIIIIIIIII

1426437527

謝謝分享，支持一下

vinney777

呵呵，學習，宏程序是手動編程的也是最值得保留的好東西，不能丟

hong363x

還沒看懂，果斷收藏果斷下載慢慢研究