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

羅蓋仙

這個簡單的程序我竟然整整寫了一年，勿見笑
單位：
1厘米=100絲(蜘蛛絲)；我們是1厘米=100條(1條頭髮)
- C$ q/ S& ]% m" W% e, h' l0 K
! a; |6 K& U% H: t6 |0 C我所寫的程序可應用在：
' B' X' e: E5 y7 b+ q, K9 s% f9 YG3I-10.F100→
( [- w4 T& R5 z5 {G3I-20.→
' [) @# Z9 W$ J) mG3I-30.‧‧‧‧→
G3I-90.→
/ e1 n4 T9 ^, p( ^1 t. Y2 E/ wG3I-92.F60(精修開始了，進給率也変慢了)→
G3I-94.→
, O0 f% S- {) B( O6 ~. F6 L# R. JG3I-96.→
G3I-98.→
G3I-100.(到達終點了，還沒完)→
G3I-100.F40.(空跑1次開始了，進給率又変慢了)→
G3I-100.(空跑2次)→
9 E5 l% ?, w& RG3I-100.(空跑3次)結束
3 F" f5 G5 v+ \4 q' t9 x1 k  t8 F
- M# O7 {( F/ w, {2 b7 D
我寫轉速從S0-S1000，先懂以下的例子，再去看程序比較能了解動作：
2 _  K* i) I3 X# M: j
A.假設精修次數4次，精修量25絲
1 t" |  U$ O1 m1 E" rS0→S100→S200....→S900→S925→S950→S975→S1000
. w# n3 r' c1 e$ g: N. {. tB.假設精修次數3次，精修量30絲
, t) p4 A6 X' ]S0→S100→S200....→S900→S930→S960→S990→(最後10絲擺在后面)S1000
C.假設精修次數2次，精修量60絲
/ f, m" W) g0 d6 {4 AS0→S100→S200....→S800→S880→S940→S1000
; E9 w& U) h7 @5 d# o0 P7 P- f* oD.假設精修次數2.次，精修量10絲
S0→S100→S200....→S900→S980→S990→S1000
E.設置空跑次數假設2次
+ ]  C0 z: X( Y5 T→S800→S900→S980→S990→S1000→S1000(空跑1次)→S1000(空跑2次)結束

程序：
7 C1 F  }( s! D4 n4 _#1=0.(初速)
#19=1000.(終速)
& M5 K1 ~; V6 W) R4 ?5 J9 F#17=100.(Q，粗銑間距)
#21=4.(U，精修次數)
, P5 |4 n( S( K#22=25.(V，精修量(絲))
#23=1.(W，空跑次數)
5 K. S( A, h1 Q) [IF[[#22GE#17]AND[#21NE0.]]THEN#3000=1.(V-NG)
#2=#19-#1-#21*#22
" g/ r' o& S* ]& t" r  ]' f( h#16=#2MOD#17
' w+ `) a8 s3 i1 V#15=#16NE0.
+ ^* C0 J7 x% ~5 J" D0 Y' N, m: U+ v#2=FIX[#2/#17]+1.
#10=0.
4 S4 Y, p# W# M6 \! s3 `5 SIF[[#16GE#22]OR[#21*#22EQ0.]]GOTO1
#16=#16+#22
3 d  }1 P+ B. y  V& Z( y" O6 o#22=#16-#22
#16=#16-#22
1 v9 C  |8 N, L5 S) o) W6 |#15=#15+#21
6 w9 H$ w* ?8 t. e#21=#15-#21
1 M! V/ `  f- }1 D4 R& U6 [#15=#15-#21
' W; C$ p$ H  @- ^3 }% yN1WHILE[#2GE1.]DO1
S#1M3
#1=#1+#17
" I; ]# L  d6 c! D- Y#2=#2-1.
END1
% L/ {, y& I7 @( Y/ t$ K) t#1=#1-#17
#10=#10+1.
IF[[#15*#16EQ0.]OR[#10GE3.]]GOTO9
#1=#1+#16(轉速轉移)
$ {7 o2 t/ _. ]/ g" f#17=#16(增量轉移)
#2=#15(次數轉移)
( ]+ U! P) n* _7 X7 X- F#16=#22(下一組精修量(絲))
# P$ s9 L/ U: O% r5 \& ]$ A% ]#15=#21(下一組精修次數)
2 c1 C5 {' n! ^1 {6 I2 T4 u2 PGOTO1
0 D1 E8 u7 |3 fN9IF[#23EQ0.]GOTO99
' Y9 H6 c7 D+ d3 ?#17=0.(增量関)
$ a4 r' N0 s, H5 ?* N) \& I" C+ U#2=#23(空跑次數轉移)
#23=0.(空跑関)
GOTO1
N99M0

hong363x

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

vinney777

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

1426437527

謝謝分享，支持一下

zhangluug

U8IIIIIIIIIIIII

andyking1990

感謝分享 學習了...